Forwarded from Милитарист
Небезынтересная статистика по тяжелым ранениям «желтых жилетов»: 10 женщин и 72 мужчины, наиболее пострадавшие части тела, характер ранений: резиновые пули, гранаты GLI-F4, прямые попадания, гранаты со слезоточивым газом, водяные пушки, гранаты неопределенного типа, характер неопределен. Отметим высокую долю попаданий в голову
Народ экспериментирует с винными обзорами с помощью Wolfram
https://blog.wolfram.com/2019/01/24/how-i-became-a-wine-expert-using-the-wolfram-language/
https://blog.wolfram.com/2019/01/24/how-i-became-a-wine-expert-using-the-wolfram-language/
Wolfram
How I Became a Wine Expert Using the Wolfram Language—Wolfram Blog
A dataset of 130,000 wine reviews run through the Wolfram Language yielded: ranking by province, a comparison of price and quality, top flavors across the world. Rational decision making when purchasing wine.
Варите девяток яиц по-научному!
https://www.popmech.ru/science/416462-kak-svarit-yayco-po-nauchno-vyverennomu-receptu/
https://www.popmech.ru/science/416462-kak-svarit-yayco-po-nauchno-vyverennomu-receptu/
TechInsider
Как сварить идеальное яйцо по выверенному наукой рецепту
Физики давно вывели формулу расчета времени варки идеального яйца — и даже превратили ее в удобный онлайн-калькулятор!
Forwarded from Расовая антропология
Населенные пункты Европы, в названии которых есть слово «святой»
dat<- data.frame(t=seq(0, 2*pi, by=0.1) )
xhrt <- function(t) 16*sin(t)^3
yhrt <- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
dat$y=yhrt(dat$t)
dat$x=xhrt(dat$t)
with(dat, plot(x,y, type="l"))
with(dat, polygon(x,y, col="hotpink"))
xhrt <- function(t) 16*sin(t)^3
yhrt <- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
dat$y=yhrt(dat$t)
dat$x=xhrt(dat$t)
with(dat, plot(x,y, type="l"))
with(dat, polygon(x,y, col="hotpink"))