[過去ログ] 臨床統計もおもしろいですよ、その2 (1002レス)
上下前次1-新
抽出解除 レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
343(3): 2018/11/26(月)01:19 ID:ZChMNBQH(2/5) AAS
時刻表から平均待ち時間を算出する。
tt=c(0,10,13,20,23,30,40,47,50,60) # time table
ct2wt <- function(x){ # clock time to waiting time
n=length(tt)
if(x<=tt[1]){w8=tt[1]-x
}else{
for(i in 1:(n-1)){
if(tt[i]<=x & x<=tt[i+1]){
w8=(tt[i+1]-x)
break
省9
345(1): 2018/11/26(月)07:32 ID:ZChMNBQH(3/5) AAS
>>343
Haskellの練習
Prelude> let tt = [0,10,13,20,23,30,40,47,50,60]
Prelude> let diff = zipWith (-) (tail tt) (init tt)
Prelude> sum (map (\x -> x^2/2) diff) / sum(diff)
3.95
346: 2018/11/26(月)07:50 ID:ZChMNBQH(4/5) AAS
>>343
python の 練習
import numpy as np
diff=np.diff([0,10,13,20,23,30,40,47,50,60])
print ( sum(map (lambda x: x**2/2,diff))/sum(diff ))
347(1): 2018/11/26(月)07:51 ID:ZChMNBQH(5/5) AAS
>>343
問題はこれ
東京駅からのぞみ号で朝8時から9時に出発する(9時発も可)。
無作為に選んだ8時台の時間に出発ホームに到着したとすると平均の待ち時間は何分か?
以下が東京8時台発のぞみ号の時刻表である。
8:00 8:10 8:13 8:20 8:23 8:30 8:40 8:47 8:50 9:00
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.549s*