[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
972: 2024/05/08(水)20:24 ID:Q+Icxp4f(7/7) AAS
Mean[Boole[# > 0 & /@ re]]//n (* 長軸有利割合*)
↓
Mean[Boole[# > 0 & /@ re]]//N (* 長軸有利割合*)
Mean[re] (* 総合判断 *)
↓
Mean[re] //N(* 総合判断 *)
973: 2024/05/08(水)20:41 ID:9bl+/S29(1) AAS
医者板では全く相手にされずにここで高校生相手にマウントを取ろうとするも逆にけちょんけちょんにされるも何事もなかったかのようにチンパン数学を垂れ流しております
974: 2024/05/08(水)20:52 ID:o+7mX6D2(1/4) AAS
>>971
5 * 6 [2] : 203 , 197 , 35
5 * 6 [3] : 1801 , 1727 , 532
5 * 6 [4] : 11418 , 11008 , 4979
5 * 6 [5] : 55469 , 54036 , 33001
5 * 6 [6] : 215265 , 211894 , 166616
5 * 6 [7] : 685784 , 680768 , 669248
5 * 6 [8] : 1827737 , 1825076 , 2200112
5 * 6 [9] : 4130886 , 4139080 , 6037184
5 * 6 [10] : 7995426 , 8023257 , 14026332
省5
975(1): 2024/05/08(水)21:14 ID:o+7mX6D2(2/4) AAS
■R
# 宝の数を変化させる
treasure0 <- function(m=3,n=4,k=2){
y=1:(m*n)
(z=matrix(y,ncol=n,byrow=T))
(P=as.vector(z))
(Q=as.vector(t(z)))
PQ <- function(x){
p=q=numeric(k)
for(i in 1:k){
省15
976: 2024/05/08(水)21:20 ID:80mTSPJI(1/4) AAS
>>975
min(p)-min(q)
は
max(p)-max(q)ではないでしょうか？
977: 2024/05/08(水)21:26 ID:o+7mX6D2(3/4) AAS
■haskellに移植
import Data.List
import Data.List.Split
m = 5 -- 縦マス(短軸）
n = 6 -- 横マス(長軸)
k = 5 -- 宝の数
q = [0..m*n-1]
matQ = chunksOf n q
matP = transpose matQ --行列を転置して
p = concat matP -- 配列に変換
省16
978: 2024/05/08(水)21:32 ID:80mTSPJI(2/4) AAS
宝の数と配置をランダムに決めるとして
１５×２のマスでもこの程度の差（単軸有利）に終わった。
> summary(re)
Min. 1st Qu. Median Mean 3rd Qu. Max.
-14.000 0.000 0.000 -0.212 0.000 13.000
Rのスクリプトが投稿されている。
他の人のプログラムを読むのは勉強になっていいなぁ。
979(1): 2024/05/08(水)23:13 ID:80mTSPJI(3/4) AAS
短軸 sマス
長軸 l マス
宝 t 個
のときの総当たり計算
f=\(
s=5, # skort axis
l=6, # long axis
t=7){# tresure
sl=s*l
long=1:sl
省11
980: 2024/05/08(水)23:16 ID:80mTSPJI(4/4) AAS
最初の宝をみつけるかmin、お宝全部みつけるかmaxのどちらで計算するかだな。
981(1): 2024/05/08(水)23:51 ID:o+7mX6D2(4/4) AAS
P君が縦にnマス，
Q君が横にn+1マス移動時、
残ったマス数とk-1のコンビネーション
繰り返すだけ
982: 2024/05/09(木)00:06 ID:vS28WcMc(1) AAS
>>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)
をとる。
省4
983: 2024/05/09(木)05:49 ID:RdQdgp2K(1/2) AAS
ID:o+7mX6D2＝ID:80mTSPJI
984: 2024/05/09(木)07:41 ID:SqUSooPh(1/3) AAS
>>981
それを多言語で自分の手足のように使って実装できるのがすばらしい。
985: 2024/05/09(木)07:49 ID:SqUSooPh(2/3) AAS
最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして
>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;
省17
986(1): 2024/05/09(木)08:13 ID:l48JEfyA(1) AAS
> 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の場合
省14
987: 2024/05/09(木)08:41 ID:RdQdgp2K(2/2) AAS
尿瓶朝っぱらからもうID変えたのかよめんどくせぇ
988: 2024/05/09(木)09:15 ID:yYb3W7tm(1) AAS
p,qを相異なる素数、nを自然数とする。
(p+qi)^nは実数でないことを示せ。
989(1): 2024/05/09(木)12:33 ID:SqUSooPh(3/3) AAS
>>986
Wolfram言語の練習にその結果を検算
画像ﾘﾝｸ[png]:i.imgur.com
最終行
０：互角
−１：短軸有利
１：長軸有利
結果は合致したので
Wolframで正しくコードできたと実感できた。
990: 2024/05/09(木)19:45 ID:sBNvJAPA(1) AAS
>>989
いつになったら日本語理解できんだよ？
991: 2024/05/09(木)22:30 ID:VA/8d2rk(1) AAS
>>964
コードのサラダって何だよアホか
言葉のサラダ(統合失調症に特徴的な症状)だろアンタは
上下前次1-新書関写板覧索設栞歴
あと 11 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.149s*