底辺私立医大を卒業した医者って頭悪いよね？ Part30 (836ﾚｽ)
上下前次1-新
1(7): (JP 0Heb-7gmB [146.70.31.18 [上級国民]]) 2024/01/16(火) 09:07:20.74 ID:3V8WwmwLH(1/3) AAS
AA省
817: (ﾜｯﾁｮｲ 166b-r1ry [2400:2200:49e:af1:*]) 2024/05/22(水) 12:27:02.36 ID:4aYTxoSC0(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
818: (JP 0H0b-hTKR [202.253.111.210]) 2024/05/22(水) 13:54:31.36 ID:2GYI2wLiH(1) AAS
久しぶり来たけど
尿瓶ジジイは日本語喋れなくなったのか？www
統失が悪化したのか認知症になったのか
819(1): (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]]) 2024/05/22(水) 14:44:50.17 ID:g+5oxCgk0(6/8) AAS
f[]:=(
{b,c}=RandomReal[{-Pi,Pi},2];
pA={1,0};
pB={Cos[b],Sin[b]};
pC={Cos[c],Sin[c]};
a2=Total[(pB-pC)^2];
b2=Total[(pC-pA)^2];
c2=Total[(pA-pB)^2];
Boole[a2+b2>c2 && b2+c2>a2 && c2+a2>b2]
)
Table[f[],1*^6] // Mean // N
820: (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]]) 2024/05/22(水) 14:49:54.55 ID:g+5oxCgk0(7/8) AAS
>>819
これは>814のPythonコードを単位円上にある場合に鋭角三角形
になるモンテカルロシミュレーションのWolframでのコード。
推敲、高速化歓迎。
821: (ｽﾌﾟｰﾌﾟ Sdc2-H23Z [1.73.141.73]) 2024/05/22(水) 14:51:00.12 ID:Qsg/ucWOd(1) AAS
高校数学の質問スレ Part435
2chｽﾚ:math
このスレで高校生の邪魔をし続けている
822: (ﾜｯﾁｮｲ df1e-Vcku [2a02:6ea0:d348:2000:* [上級国民]]) 2024/05/22(水) 14:51:18.57 ID:g+5oxCgk0(8/8) AAS
ChatGPTがモンテカルロシミュレーション解を返してきたので
それをWolframで再現できて気分が( ・∀・)ｲｲ!!
課題解決のために、言語仕様を検索しながらのコーディングは記憶に残る。
823: (ﾜｯﾁｮｲ 166b-r1ry [2400:2200:49e:af1:*]) 2024/05/22(水) 17:15:40.21 ID:4aYTxoSC0(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
824: (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]]) 2024/05/23(木) 11:09:18.57 ID:LL2Dpiwe0(1/2) AAS
*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
Clear[{f,a,b,c,d,tab,tc,s}]
f[a_,b_,c_,x_] :=(
d=Sqrt[a^2+b^2 - 2 a b Cos[x]];
h=Sqrt[(c/2)^2-(d/2)^2];
tab=a b Sin[x]/2;
tc=d h /2;
tab+tc
)
Plot[f[10,30,60,x],{x,0,Pi}]
Maximize[f[10,30,60,x],x]
% // N
825: (ﾜｯﾁｮｲ 7f58-nRHk [14.13.16.0 [上級国民]]) 2024/05/23(木) 12:28:18.09 ID:LL2Dpiwe0(2/2) AAS
(*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
Clear[f,p,q,r]
p=10;
q=30;
r=60;
(* x^2/a^2 + y^2/(a^2-c^2)=1 *)
f[theta_] :=(
d=Sqrt[p^2+q^2-2 p q Cos[theta]]; (* d:焦点間距離, theta:p qのなす角 *)
c=d/2; (* 焦点 (c,0),(-c,0) *)
a=r/2; (* 2a : 焦点からの距離和 *)
b=Sqrt[a^2-c^2]; (* 縦径=三角形の最大高 *)
d b/2 + p q Sin[theta]/2
)
Plot[f[theta],{theta,0,Pi}]
max=Maximize[f[theta],theta]
% // N
max[[2]]*180/Pi //N
Clear[_]
826(1): (ﾜｯﾁｮｲ ebb3-Vcku [240b:253:1000:dd10:* [上級国民]]) 2024/05/23(木) 15:08:27.55 ID:nMFechUv0(1) AAS
(*
問題
100cmの真っ直ぐな棒を3つに切って三角形を作ろうとしたところ
10cm,30cm,60cmに切断してしまって、これでは三角形ができないこと気付いた。
最長の60cmの棒を２つに切断して10cm,30cmの棒切れとで四角形の枠を作ることにした。
四角形の面積が最大になるように切断したい。そのときの四角形の面積を求めよ。
*)
p=10;
q=30;
r=60;
(* x^2/a^2 + y^2/(a^2-c^2)=1 *)
f[theta_] :=(
d=Sqrt[p^2+q^2-2 p q Cos[theta]]; (* d:焦点間距離, theta:p qのなす角 *)
c=d/2; (* 焦点 (c,0),(-c,0) *)
a=r/2; (* 2a : 焦点からの距離和 *)
b=Sqrt[a^2-c^2]; (* 縦径=三角形の最大高 *)
d b/2 + p q Sin[theta]/2
)
Plot[f[theta],{theta,0,Pi}];
m=Maximize[f[theta],theta];
% // N;
t0=2 ArcTan[Sqrt[2]];
d0=Sqrt[p^2+q^2-2 p q Cos[t0]];
c0=d0/2;
a0=r/2;
b0=Sqrt[a0^2-c0^2];
i=ResourceFunction["CircleIntersection"][Circle[{-c0, 0}, 10], Circle[{c0, 0}, 30]][[1]][[2]];
b1={0,b0};
c1={-c0,0};
c2={ c0,0};
g1=Graphics[{Dotted,Circle[{0, 0}, {a0, b0}]},Axes -> True];
g2=Graphics[Point[b1]];
g3=Graphics[{Thin,Red,Dashed,Circle[{-c0,0},{10,10}]}];
g4=Graphics[{Thin,Blue,Dashed,Circle[{c0,0}, {30,30}]}];
g5=Graphics[Point[c1]];
g6=Graphics[Point[c2]];
g7=Graphics[{ Thick,Line[{c1,i}] }];
g8=Graphics[{ Thick,Line[{c2,i}] }];
g9=Graphics[{ Thick,Line[{c1,b1}] }];
g10=Graphics[{ Thick,Line[{c2,b1}] }];
Show[g1,g2,g3,g4,g5,g6,g7,g8,g9,g10]
827: (ﾜｯﾁｮｲ 9742-r1ry [2400:2200:491:7f2:*]) 2024/05/23(木) 17:05:38.99 ID:LN7y/1kN0(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
828: 警備員[Lv.5][新芽] (ﾜｯﾁｮｲ 1377-zKIf [2001:268:922f:a563:*]) 2024/05/23(木) 17:40:41.69 ID:xXCsacxW0(1) AAS
>>826
板名も読めない認知症みたいだね
829(1): (ﾜｯﾁｮｲ 47f6-Vcku [2001:ac8:40:6000:* [上級国民]]) 2024/05/24(金) 04:55:18.55 ID:KvzwQkmq0(1) AAS
底辺私立医大を卒業した医者って頭悪いよね？
なので、底辺私立医大卒はWolfram言語を使えないのが判明している。
830: (ﾜｯﾁｮｲ 7f58-Vcku [14.13.16.0 [上級国民]]) 2024/05/24(金) 05:48:15.32 ID:tvMs1ymz0(1/2) AAS
全長１ｍの真っ直ぐな棒を無作為にｎ分割してその棒切れをｎ辺とするｎ角形を作ろうとしたところｎ角形ができなかった。
最も長い棒を適当に２分割してｎ＋１個の棒切れにすればそれらの棒切れを辺とするｎ＋１角形をつくることは常に可能か？
IsPolygon[x_] := Total[x]/2 > Sort[x][[-1]];
f[n_] :=(
x=RandomReal[{0,1},n];
While[IsPolygon[x],x=RandomReal[{0,1},n]];
x=Sort[x];
{x[[1;;n-1]],x[[-1]]/2,x[[-1]]}/2 // Flatten // IsPolygon // Boole
)
Table[f[7],1*^4] // Mean
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
尿瓶ジジイ数学板の高校生にすら脳内学歴バレバレらしい
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.471s*