В рамках соглашения Индия единовременно сократит тариф до 40%, а в течение нескольких лет – и вовсе до 10%. Правда, только в рамках квоты в 250 тысяч машин в год [прим. - как часто бывает в таких случаях, оперативно появляющиеся цифры основаны на заявлениях и могут отличаться в итоговой версии соглашения], тогда как ежегодный объем продаж на рынке Индии составляет около 4,4 млн автомобилей (по оценке Reuters). Весь импорт легковых автомобилей в Индию в 2024 г. составлял лишь 16,7 тыс. единиц (на сумму 650 млн долл.), из которых 7,3 тыс. поступило из стран ЕС (на сумму 344 млн долл.). Таким образом, потенциально ЕС сможет нарастить экспорт автомобилей в Индию до 11 млрд долл. (не учитывая эффект роста рынка). Индия, в свою очередь, даже в условиях снижения импортного тарифа соберет больше импортных пошлин – до 1,1 млрд долл., что примерно в 2 раза выше текущего уровня.

Сначала надо чисто интуитивно приписать амбиции автора определенный коэффициент, обозначив его как А, а другой коэффициент – знанию, которым он располагает, и обозначить K (который всегда должен быть больше 0, поскольку нет такого человека, который бы буквально ничего не знал). А тоже должно быть положительной величиной, поскольку, если у кого-то литературная амбиция является нулевой, он ничего и не напишет, а потому наше уравнение применять будет не к чему. V в нашей формуле означает словоблудие в форме жаргона. Таким образом, наше уравнение выглядит так:

A/K − 1 = V.

Почему “−1”? Потому что, когда знание совпадает с амбицией, никакого словоблудия не будет. Когда знание превышает амбицию, V становится отрицательной величиной, а отрицательное словоблудие означает краткость. Однако, поскольку у лаконичности есть предел, V никогда не может стать меньше −1, а у словоблудия предела нет, а потому V растет, пока растет амбиция, а знаний становится все меньше.

[из книги С. Андрески "Социальные науки как колдовство", цит. по рецензии в журнале "Стимул"]

require("jsonlite")
url <- paste0("https://services9.arcgis.com/weJ1QsnbMYJlCHdG/arcgis/rest/services/Daily_Chokepoints_Data/FeatureServer/0/query?where=1%3D1&maxRecordCountFactor=5&outFields=*&outSR=4326&orderByFields=date%20DESC&f=json")
x <- readLines(url)
y <- fromJSON(x)
df <- y$features$attributes
df$date <- as.Date(as.POSIXct(df$date/1000, origin="1970-01-01", tz="UTC"))