[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
837: (ﾜｯﾁｮｲ dbc7-YmzF [124.47.76.122]) 05/26(日)11:32 ID:QO7JsAPH0(1/6) AAS
u=2024%/%c(12,15,20)+1; u
f=\(n){
s=12*n[1]+15*n[2]+20*n[3]
2024<=s & s<=2040
}
gr=expand.grid(0:u[1],0:u[2],0:u[3])
pm=gr[apply(gr,1,f),]
re=rowSums(pm)
838: (ﾜｯﾁｮｲ dbc7-fXFG [124.47.76.122 [上級国民]]) 05/26(日)13:12 ID:QO7JsAPH0(2/6) AAS
n = {3*4,3*5,4*5};
{p1,p2,p3} = n/Total[n];
{u1,u2,u3} = Floor[2024/n]+1;
f[x_] := Total[x*n];
v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ];
m = Partition[v,3];
y = Select[m,2024<=f[#] && f[#]<=2040&];
fp[x_] := (
n=Total[x];
{x1,x2,x3}={x[[1]],x[[2]],x[[3]]};
省6
840: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 05/26(日)13:24 ID:QO7JsAPH0(3/6) AAS
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= f[] := (For[sum=0;count=0, sum<2024, count++, sum+=RandomChoice[{12,15,20}->{12,15,20}]]; count)
In[2]:= n=Table[f[],10^6];
In[3]:= Mean[n] // N
Out[3]= 124.192
省3
841(1): (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 05/26(日)13:25 ID:QO7JsAPH0(4/6) AAS
In[7]:= n = {3*4,3*5,4*5};
In[8]:= {p1,p2,p3} = n/Total[n];
In[9]:= {u1,u2,u3} = Floor[2024/n]+1;
In[10]:= f[x_] := Total[x*n];
In[11]:= v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ];
In[12]:= m = Partition[v,3];
In[13]:= y = Select[m,2024<=f[#] && f[#]<=2040&];
In[14]:= fp[x_] := (
n=Total[x];
{x1,x2,x3}={x[[1]],x[[2]],x[[3]]};
省16
842(1): (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 05/26(日)13:27 ID:QO7JsAPH0(5/6) AAS
分数解とシミュレーション解はほぼ一致。
844: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 05/26(日)16:10 ID:QO7JsAPH0(6/6) AAS
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_] := (
省15
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.037s