[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
846: (ﾜｯﾁｮｲ dbc7-YmzF [124.47.76.122]) 2024/05/27(月) 04:19:00.14 ID:akziHR3h0(1/6) AAS
https://mathematica.stackexchange.com/questions/186841/how-to-generate-a-value-frequency-table-with-random-numbers
847(1): (ﾜｯﾁｮｲ dbc7-fXFG [124.47.76.122 [上級国民]]) 2024/05/27(月) 04:40:45.58 ID:akziHR3h0(2/6) AAS
先頭項目でグループ化し，対応する最終項目の平均を計算する：
In[1]:=
GroupBy[{{a, x}, {b, v}, {a, y}, {a, z}, {b, w}}, First -> Last, Mean]
https://wolfram.com/xid/0cqz8kh5-xq12c4
Out[1]=
848: (ﾜｯﾁｮｲ dbc7-fXFG [124.47.76.122 [上級国民]]) 2024/05/27(月) 05:10:26.02 ID:akziHR3h0(3/6) AAS
先頭項目でグループ化し，対応する最終項目の平均を計算する：
In[1]:=
GroupBy[{{a, x}, {b, v}, {a, y}, {a, z}, {b, w}}, First -> Last, Mean]
https://wolfram.com/xid/0cqz8kh5-xq12c4
Out[1]=
849: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/27(月) 06:48:30.52 ID:akziHR3h0(4/6) AAS
分数表示したくてWolfram言語で書いているが、Rのtapply関数に相当する関数はGroupByであった。
850: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/27(月) 06:50:06.87 ID:akziHR3h0(5/6) AAS
n = {12,15,20};
{p1,p2,p3} = n/Total[n];
{u1,u2,u3} = Floor[2024/n];
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];
y12 = Select[m,(2024-12)<=f[#] && f[#]<2024&];
y15 = Select[m,(2024-15)<=f[#] && f[#]<2024&];
y20 = Select[m,(2024-20)<=f[#] && f[#]<2024&];
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
)
p12 = p1*fp /@ y12;
p15 = p2*fp /@ y15;
p20 = p3*fp /@ y20;
AUC=Total[p12]+Total[p15]+Total[p20];
pdf12 = p12/AUC;
pdf15 = p15/AUC;
pdf20 = p20/AUC;
x12 = 1 + Total /@ y12;
x15 = 1 + Total /@ y15;
x20 = 1 + Total /@ y20;
Total[x12 pdf12]+ Total[x15 pdf15]+Total[x20 pdf20];
N[%,10]
851: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/27(月) 06:53:09.54 ID:akziHR3h0(6/6) AAS
x=Flatten[{x12,x15,x20}];
Tally[x];
Histogram[x];
p=Flatten[{p12,p15,p20}];
xp=Transpose[Table[{x,p}]];;
pmf=GroupBy[xp,First->Last,Total;
ListPlot[pmf]
BarChart[pmf,ChartLabels->{Placed[Keys[pmf],Top]}]
Keys[pmf]
pmf[124]
% // N
徐々にWolframの書式に慣れてきた。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.038s