レス書き込み
スレへ戻る
写
レス栞
レス消
底辺私立医大を卒業した医者って頭悪いよね? Part30
PC,スマホ,PHSは
ULA
べっかんこ
公式(スマホ)
公式(PC)
で書き込んでください。
名前
メール
引用切替:
レスアンカーのみ
>>844 > In[1]:= n = {12,15,20}; > In[2]:= {p1,p2,p3} = n/Total[n]; > In[3]:= {u1,u2,u3} = Floor[2024/n]; > In[4]:= f[x_] := Total[x*n]; > In[5]:= v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ]; > In[6]:= m = Partition[v,3]; > In[7]:= y12 = Select[m,(2024-12)<=f[#] && f[#]<2024&]; > In[8]:= y15 = Select[m,(2024-15)<=f[#] && f[#]<2024&]; > In[9]:= y20 = Select[m,(2024-20)<=f[#] && f[#]<2024&]; > In[10]:= fp[x_] := ( > n=Total[x]; > {x1,x2,x3}={x[[1]],x[[2]],x[[3]]}; > Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3 > ) > In[11]:= p12 = p1*fp /@ y12; > In[12]:= p15 = p2*fp /@ y15; > In[13]:= p20 = p3*fp /@ y20; > In[14]:= AUC=Total[p12]+Total[p15]+Total[p20]; > In[15]:= pdf12 = p12/AUC; > In[16]:= pdf15 = p15/AUC; > In[17]:= pdf20 = p20/AUC; > In[18]:= x12 = 1 + Total /@ y12; > In[19]:= x15 = 1 + Total /@ y15; > In[20]:= x20 = 1 + Total /@ y20; > In[21]:= Total[x12 pdf12]+ Total[x15 pdf15]+Total[x20 pdf20]
ローカルルール
SETTING.TXT
他の携帯ブラウザのレス書き込みフォームはこちら。
書き込み設定
で書き込みサイトの設定ができます。
・
ULA
・
べっかんこ(身代わりの術)
・
べっかんこ(通常)
・
公式(スマホ)
・
公式(PC)[PC,スマホ,PHS可]
書き込み設定(板別)
で板別の名前とメールを設定できます。
メモ帳
(0/65535文字)
上
下
板
覧
索
設
栞
歴
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.044s