[過去ログ]
臨床統計もおもしろいですよ、その2 (1002レス)
臨床統計もおもしろいですよ、その2 http://egg.5ch.net/test/read.cgi/hosp/1540905566/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
339: 卵の名無しさん [sage] 2018/11/25(日) 21:52:47 ID:9toFqzz4 # 10分に2本の割合で電車が到着するダイヤ。 # それぞれの平均待ち時間を求めてみよう # 5分おきのダイヤでの、平均待ち時間は何分か? i=j=5 fij <- function(x){ if(x<i) return(i-x) return(i+j-x) } fij=Vectorize(fij) curve(fij(x),0,10,type='h') integrate(fij,0,10)$value/10 # 2(=i)分後、8(=j)分後、と電車が到着するダイヤでの平均待ち時間は何分か? i=2 ; j=8 # 8:00,8:02,8:10,8:12,8:20,... fij <- function(x){ if(x<i) return(i-x) return(i+j-x) } fij=Vectorize(fij) curve(fij(x),0,i+j,type='h') integrate(fij,0,i+j)$value/(i+j) http://egg.5ch.net/test/read.cgi/hosp/1540905566/339
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 663 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.009s