24/05/09 00:06:38.71 vS28WcMc.net
>>944
迂回(まわり道)解法
P： (x, y) = (r･cosθ, r･sinθ)
とおけば
y/x = tanθ,
軸を45°回して y=x をu軸、y=-x をv軸とすると
(sinθ－cosθ)/(sinθ+cosθ) = v/u = tan(θ－45°),
u軸上に
Q： (x, y) = (3, 3) (u, v) = (3√2, 0)
をとる。
∠POQ = θ－45° となる点Pをとろう。
tan(∠POQ) = tan(θ－45°) = v/u = 1/3, (←題意)
P： (u, v) = (3√2, √2) (x, y) = (2, 4)
∴ tanθ = y/x = 2,
1019:１３２人目の素数さん
24/05/09 05:49:40.01 RdQdgp2K.net
ID:o+7mX6D2＝ID:80mTSPJI
1020:１３２人目の素数さん
24/05/09 07:41:10.03 SqUSooPh.net
>>981
それを多言語で自分の手足のように使って実装できるのがすばらしい。
1021:１３２人目の素数さん
24/05/09 07:49:21.97 SqUSooPh.net
最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして
>979をWolframに移植
長短の差を大きめにして実行してみる。
(* s:短軸枡数 l:長軸枡数 t:宝の数 *)
s=2; l=15; t=3;
long=Range[s*l];
(mat=Partition[long,l])//MatrixForm;
short=Flatten[Transpose[mat]];
tre=Subsets[long,{t}];
long;
short;
os=Ordering[short];
subsets=Subsets[long,{t}]; (* combn(long,t) *)
nshort=Min[os[[#]]]& /@ subsets;
nlong=Min[#]& /@ subsets;
{"short search"->Mean[nshort],"long search"->Mean[nlong]}
% //N
dif=nshort-nlong; (* 探索枡差*)
Histogram[dif,AxesLabel->{探索枡差(短軸-長軸),""}]
sif=Sign[dif];
mshort=Mean@Boole[#==-1& /@ sif]; (* 短軸有利割合*)
meven=Mean@Boole[#== 0& /@ sif]; (* 互角割合*)
mlong=Mean@Boole[#== 1& /@ sif]; (* 長軸有利割合*)
{"short beats"-> mshort,"even" ->meven,"long beats" ->mlong}
% // N
実行結果
URLﾘﾝｸ(i.imgur.com)
1022:１３２人目の素数さん
24/05/09 08:13:38.84 l48JEfyA.net
> sapply(1:20,function(k) treasure0(4,5,k))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
短軸有利 9 84 463 1776 5076 11249 19797 28057 32243 30095 22749
長軸有利 9 83 453 1753 5075 11353 20057 28400 32528 30250 22803
同等 2 23 224 1316 5353 16158 37666 69513 103189 124411 122408
[,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20]
短軸有利 13820 6656 2486 695 137 17 1 0 0
長軸有利 13831 6657 2486 695 137 17 1 0 0
同等 98319 64207 33788 14114 4571 1106 188 20 1
4×5の場合
宝：1個 同等
宝：2～5個 短軸有利
宝：6～13個 長軸有利
宝：14～20個 同等
□■■■■
□□■■■
□□□■■
□□□□■
短軸有利☆
Table[sum[C(2n-1+C(0,(21mod n)-1),k-1),{n,1,9}],{k,1,20}]
長軸有利☆
Table[sum[C(2n-1+C(0,6mod n)-C(0,C(3,n-2)-1),k-1),{n,1,9}],{k,1,20}]
同等☆
Table[C(19,k-1)+C(17,k-2)+C(15,k-2)+C(13,k-2)+C(8,k-2)+C(1,k),{k,1,20}]
1023:１３２人目の素数さん
24/05/09 08:41:06.04 RdQdgp2K.net
尿瓶朝っぱらからもうID変えたのかよめんどくせぇ
1024:１３２人目の素数さん
24/05/09 09:15:41.06 yYb3W7tm.net
p,qを相異なる素数、nを自然数とする。
(p+qi)^nは実数でないことを示せ。
1025:１３２人目の素数さん
24/05/09 12:33:07.87 SqUSooPh.net
>>986
Wolfram言語の練習にその結果を検算
URLﾘﾝｸ(i.imgur.com)
最終行
０：互角
－１：短軸有利
１：長軸有利
結果は合致したので
Wolframで正しくコードできたと実感できた。
1026:１３２人目の素数さん
24/05/09 19:45:32.67 sBNvJAPA.net
>>989
いつになったら日本語理解できんだよ？
1027:１３２人目の素数さん
24/05/09 22:30:04.32 VA/8d2rk.net
>>964
コードのサラダって何だよアホか
言葉のサラダ(統合失調症に特徴的な症状)だろアンタは
1028:１３２人目の素数さん
24/05/10 05:02:28.89 esg1TcXl.net
凸四角形ABCDの頂点の座標から
A,Bを通り、CーDを結ぶ直線と接する円を描画するプログラムを作成せよ。
1029:１３２人目の素数さん
24/05/10 05:03:33.15 esg1TcXl.net
R言語やWolfram言語が使える人はちゃんとしたレスをしているなぁ。
助言より罵倒を喜びとするPhioseくんらの集団が東大合格者だと思う人はその旨をレスしてください。
1030:１３２人目の素数さん
24/05/10 06:11:20.21 tIlXy57I.net
>>993
どうせアンタの自演だろ
他はもうスレチに飽き飽きしてるから
1031:１３２人目の素数さん
24/05/10 06:28:02.54 tIlXy57I.net
>>993
大体アンタのどこが助言なん？w
誰にも求められてないしただスレチなことをブツブツほざいてるだけの日本語通じない統失チンパン
ご丁寧にスレ誘導までしてくれてるのにその助言を一切無視してここのスレに粘着して発狂してるのがアンタ
この日本語も理解できないのか？アンタの知能レベルだと
1032:１３２人目の素数さん
24/05/10 07:51:10.17 LuJ/YByN.net
プログラムを本気で学ぶつもりならム板が正解だろ
全方向に中途半端なんだよな
高校生にしかイキれない大人
クソダサい
1033:１３２人目の素数さん
24/05/10 08:45:11.95 M//P1S5U.net
>>993
悪口すら綴りまともに書けないのかよ
ゴミすぎだろ
1034:１３２人目の素数さん
24/05/10 10:00:28.77 CQVVHvgk.net
>>993
Phioseって何だよ尿瓶ジジイw
日本語も不自由なら他の言語もお察しってことねww
あー恥ずかしw
1035:１３２人目の素数さん
24/05/10 14:59:38.72 LuJ/YByN.net
質問いいですか
1036:１３２人目の素数さん
24/05/10 15:17:52.27 mOhhnf0r.net
1000なら今後尿瓶ジジイ>>993は書き込み禁止
1037:1001
Over 1000 Thread.net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 34日 2時間 17分 5秒
1038:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています