[過去ﾛｸﾞ] 数学 統計に詳しい人が語るコロナウイルス (1002ﾚｽ)

数学 統計に詳しい人が語るコロナウイルス http://rio2016.5ch.net/test/read.cgi/math/1582910321/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

233: １３２人目の素数さん [sage] 2020/04/10(金) 00:25:10 ID:EjAtBG4Z 日本もすでに欧州同様指数関数ラインにのってる模様、 https://i.imgur.com/qAJa2Ty.png 欧州並になるのは文字通り時間の問題かと 日本のコロナ感染発覚者数 3月24日 1193 3月25日 1307 3月26日 1387 3月27日 1499 3月28日 1693 3月29日 1866 3月30日 1953 3月31日 2178 4月 1日 2384 4月 2日 2617 4月 3日 2935 4月 4日 3139 4月 5日 3654 4月 6日 3906 4月 7日 4257 4月 8日 4667 オリンピック延期決定した3月24日をDay1として線形回帰すると https://i.imgur.com/Q45Xo8V.png y=c(1193,1307,1387,1499,1693,1866,1953,2178,2384,2617,2935,3139,3654,3906,4257,4667) z=as.Date("2020-03-24")+ 0:(length(y)-1) plot(z,y,bty='l',pch=19) x=1:length(y) plot(x,y,bty='l') (re.lm=lm(log(y)~x)) b0=re.lm$coef[1] b1=re.lm$coef[2] names(b0)='' f <- function(x) exp(b0)*exp(b1*x) # 1059.063*exp(0.09231543*x) curve(f(x),add=T) n=1:50 plot(n,f(n),bty='l') f1 <- function(y) print(log(y*exp(-b0))/b1 + as.Date("2020-03-24"),quote=F) f1(c(5000,1e4,5e4,1e5,5e5,1e6,1e7,1e8,1.2595e8)) 感染者が５千、１万、５万、１０万、５０万、百万、１千万、１億、１億２５９５万人に達する日は > f1(c(5000,1e4,5e4,1e5,5e5,1e6,1e7,1e8,1.2595e8)) [1] 2020-04-09 2020-04-17 2020-05-04 2020-05-12 2020-05-29 [6] 2020-06-06 2020-07-01 2020-07-26 2020-07-28 http://rio2016.5ch.net/test/read.cgi/math/1582910321/233

234: １３２人目の素数さん [sage] 2020/04/10(金) 06:57:42 ID:EjAtBG4Z >>233 １日ずれていた。 > f1(c(5000,1e4,5e4,1e5,5e5,1e6,1e7,1e8,1.2595e8,77e8)) [1] 2020-04-10 2020-04-17 2020-05-04 2020-05-12 2020-05-29 [6] 2020-06-06 2020-07-01 2020-07-26 2020-07-28 2020-09-10 世界の人口７７億人にたっするのは９月１０日となった。 http://rio2016.5ch.net/test/read.cgi/math/1582910321/234

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.205s*