底辺私立医大を卒業した医者って頭悪いよね？ Part30

[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

837: (ﾜｯﾁｮｲ dbc7-YmzF [124.47.76.122]) 2024/05/26(日) 11:32:39.05 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 [上級国民]]) 2024/05/26(日) 13:12:35.42 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]]};
Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3
)
p = fp /@ y;
pdf = p/Total[p];
x = Total /@ y;
Total[x pdf]

839: (ﾜｯﾁｮｲ 97b0-Bt8S [2400:2411:3fe0:400:*]) 2024/05/26(日) 13:21:51.32 ID:TYEZEMu50(1/2) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

840: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/26(日) 13:24:45.26 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

In[4]:= Quantile[n,{0.025,0.5,0.975}]

Out[4]= {120, 124, 129}

In[5]:= (* Histogram[n] *)

841(1): (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/26(日) 13:25:59.77 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]]};
Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3
)
In[15]:= p = fp /@ y;
In[16]:= pdf = p/Total[p];
In[17]:= x = Total /@ y;
In[18]:= Total[x pdf]
Out[18]= 495904886863024711014690900126037925947158151253955867691586858290118663480916940260788181\
> 604372384668673161160077913476388924610009381666181965328404540822774723934597627786022595480\
> 781720140588331207803909691382542301305760276287633967192246724712364034709143616564290023136\
> 791036653 / 399170493235018654399908642063415913011369141571001467137214805437161337290039906\
> 913196588800673241916796559715750891456576910871356692132890930902737404771635711223541077460\
> 954262289340296694519847364433075952126678819758516908619463844482254836343353585090173449556\
> 8610202700178827

In[19]:= % // N
Out[19]= 124.234

In[20]:=

842(1): (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/26(日) 13:27:00.39 ID:QO7JsAPH0(5/6) AAS
分数解とシミュレーション解はほぼ一致。

843: (ﾜｯﾁｮｲ 97b0-Bt8S [2400:2411:3fe0:400:*]) 2024/05/26(日) 13:29:20.59 ID:TYEZEMu50(2/2) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

844: (ﾜｯﾁｮｲ dbc7-taxo [124.47.76.122]) 2024/05/26(日) 16:10:11.36 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_] := (
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]

845: 警備員[Lv.4][新芽] (ﾜｯﾁｮｲ 977d-AvcR [2001:268:922f:d58:*]) 2024/05/27(月) 00:03:59.92 ID:k0XPVHZ30(1) AAS
また認知症悪化してるのか

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の書式に慣れてきた。

852: (ﾜｯﾁｮｲ 970b-Bt8S [2400:2411:3fe0:400:*]) 2024/05/27(月) 07:55:15.79 ID:PKj/VdlK0(1) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
https://www.skgh.jp/department/hbps/
https://www.suruga-ya.jp/product/detail/131150111
http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html

853: (ﾌﾞｰｲﾓ MM1f-YmzF [202.214.167.4]) 2024/05/27(月) 11:02:03.46 ID:Rg1JEAAsM(1) AAS
今日は内視鏡件数が少なかったので実働２時間だった。
まあ、来月から市町村健診が始まるから予約枠は全枠埋まるだろうなぁ。

854(1): (ﾜｯﾁｮｲ b358-Tu0P [14.13.16.0 [上級国民]]) 2024/05/28(火) 18:54:23.32 ID:QlD/HeIz0(1) AAS
fp[a_,b_,c_] :=(
R=Sqrt[a^2+b^2+c^2];
rab=Sqrt[a^2+b^2];
hab=R-Sqrt[R^2-rab^2];
rbc=Sqrt[b^2+c^2];
hbc=R-Sqrt[R^2-rbc^2];
rca=Sqrt[c^2+a^2];
hca=R-Sqrt[R^2-rca^2];
pab=hab/(hab+hbc+hca);
pbc=hbc/(hab+hbc+hca);
pca=hca/(hab+hbc+hca);
{pab,pbc,pca}
)

p=Flatten[Table[fp[a,b,c],2]]/2;
s=Drop[Subsets[Range[6]],1];
f1[x_] := (-1)^(Length[x]-1)/Total[p[[#]] & /@ x]
ans=Simplify[Total[f1 /@ s]]

855: 警備員[Lv.10][芽] (ﾜｯﾁｮｲ 6fd7-AvcR [2001:268:9230:fa5:*]) 2024/05/30(木) 19:05:12.34 ID:yJ734KYJ0(1) AAS
医者板はおろか数学板でいくら発狂しても相手にされないね

856: (ﾜｯﾁｮｲ b358-Tu0P [14.13.16.0 [上級国民]]) 2024/05/31(金) 05:37:42.59 ID:aPnJQqQ30(1) AAS
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= k=10^8;

In[2]:= pH=RandomVariate[BetaDistribution[1+400,1],k];

In[3]:= pB=RandomVariate[BetaDistribution[1+240,1+27],{k}];

In[4]:= Mean@Boole[#>0& /@ (pB-pH)]

Out[4]= 0

上下前次 1-新書関写板覧索設栞歴

あと 146 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.186s*