[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
831: (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]]) 2024/05/24(金) 06:21:36.06 ID:tvMs1ymz0(2/2) AAS
全長１ｍの真っ直ぐな棒を無作為に切断して４つに分ける。
この４つの棒切れを４辺とする四角形を面積が面積が最大になるように配置して面積を計算する
(例：25cmの棒切が４個の場合、正方形に配置して面積計算する）
当然、四角形ができない場合もある。
(1) 四角形ができる確率を求めよ。
(2）四角形ができない場合（例：5cm 10cm,15cm 70cmに切断された場合）は面積は0として計算して
面積の平均値を求めよ。
(3) 四角形ができない場合は除外して面積０以上の四角形の面積の平均値を求めよ。
(* Sqrt[(s-a)(s-b)(s-c)(s-d)- a b c d Cos[(A+C)/2]^2 ] *)
f1[] :=(
a=RandomReal[{0,1}];
b=RandomReal[{0,1-a}];
c=RandomReal[{0,1-a-b}];
d=1-a-b-c;
{a,b,c,d}=Sort[{a,b,c,d}];
s=(a+b+c+d)/2;
If[s>d,Sqrt[(s-a)(s-b)(s-c)(s-d)],0]
)
s1=Table[f1[],1*^6];
Mean[s1]
Mean@Table[Boole[x>0],{x,s1}] // N
Histogram[s1]
832: (ﾜｯﾁｮｲ ee89-r1ry [2400:2200:499:4142:*]) 2024/05/24(金) 06:52:58.53 ID:r7g4zcnN0(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
833: 警備員[Lv.7][新芽] (ﾜｯﾁｮｲ 02fb-zKIf [2001:268:9230:6785:*]) 2024/05/24(金) 08:17:24.89 ID:0U7pACD/0(1/2) AAS
>>829
アンタスレタイはおろか板名すら読めない認知症じゃん
高校生にもボコられてるしw
834: (ﾜｯﾁｮｲ 16c5-V3wm [2001:268:c084:a9e7:*]) 2024/05/24(金) 11:06:25.97 ID:jEQTPgGR0(1) AAS
ゼニの偏差値だけは異常に高い
卒業すれば🐴🦌患者から回収するのみ💦
835: (ﾜｯﾁｮｲ 0fb1-vFoL [126.108.223.103]) 2024/05/24(金) 20:39:26.45 ID:WJoZ1xqS0(1) AAS
誰も名誉毀損しない方が良かった
私立医のバカ研修医のせいだ
836: 警備員[Lv.6][新芽] (ﾜｯﾁｮｲ 02fb-zKIf [2001:268:9230:6785:*]) 2024/05/24(金) 21:10:51.61 ID:0U7pACD/0(2/2) AAS
尿瓶ジジイ数学板の高校生にすら脳内学歴バレバレらしい
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]
上下前次1-新書関写板覧索設栞歴
あと 152 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.014s