[過去ﾛｸﾞ]
高校数学の質問スレ Part438 (1002ﾚｽ)
高校数学の質問スレ Part438 http://rio2016.5ch.net/test/read.cgi/math/1723179542/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
817: １３２人目の素数さん [sage] 2024/12/04(水) 05:59:24.41 ID:M2J+bJMI >>802 >読んでくれてありがとう 数式を読んで、ロジックが理解できると楽しいよね。 おまけ >814 1から12345までの整数から異なる67個を選び、その合計が89の倍数になる確率を分数で表せ。 を算出するWolframのコード 理工系大卒ならWolframが使えて当然（但しシリツ卒は除く）だと思うので これを読むスキルのある方の最適化歓迎。 nn=12345; n=67; m=89; ass2list[ass_] := Select[Table[{key,ass[key]},{key,0,m}],IntegerQ[#[[2]]]&] (* assosiation to list ,key:[0,m] *) xyz=Solve[Mod[x+y+z,m]==0 && 0<=x<=y<=z<=(m-1),{x,y,z},Integers]; t1=Table[{x/.xyz[[n]],y/.xyz[[n]],z/.xyz[[n]]},{n,1,Length@xyz}]; ass=Counts[#]& /@ t1; li=ass2list /@ ass; {q,r}=QuotientRemainder[nn,m]; c=Flatten@{Table[q+1,r],Table[q,m-r]}; m2c[x_] :=( (* mod to how many cases *) i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]] ) prod[x_] := Product[tmp,{tmp,x}]; cases=Total[prod /@ (m2c /@ # & /@ li)]; cases/Binomial[nn,n] やっていることは分類と集計をプログラムにさせただけ。 互いに素な値に設定したので手順が少し増えるが） >808のアルゴリズムと同じ。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/817
818: １３２人目の素数さん [sage] 2024/12/04(水) 08:05:21.52 ID:M2J+bJMI >>817 バグに気付いたが、デバッグは手間がかかりそう。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/818
819: １３２人目の素数さん [sage] 2024/12/04(水) 08:22:51.49 ID:FPvs5P9c >>818 バグってるのはアンタの脳みそだろ http://rio2016.5ch.net/test/read.cgi/math/1723179542/819
820: １３２人目の素数さん [sage] 2024/12/04(水) 08:47:08.70 ID:M2J+bJMI >>818 思案していたら IntegerPartitions関数を使えば簡単だった。 まあ、数が多すぎて計算が終わらないｗ nn=12345; n=67; m=89; t1=Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1]; ass=Counts[#]& /@ t1; li=KeyValueMap[List,#]& /@ ass; {q,r}=QuotientRemainder[nn,m]; c=Flatten@{Table[q+1,r],Table[q,m-r]}; m2c[x_] :=( i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]]) cases=Total[Times@@@ (m2c /@ # & /@ li)]; cases/Binomial[nn,n] http://rio2016.5ch.net/test/read.cgi/math/1723179542/820
821: １３２人目の素数さん [sage] 2024/12/04(水) 08:48:36.33 ID:M2J+bJMI >>819 簡単にデバッグできるのに、Wolfram使えないの？ 理工系の大学を卒業していたら使えるのが普通じゃないの？ まあ、医系ならR言語が使えるのが普通。 いずれもシリツは除く。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/821
822: １３２人目の素数さん [sage] 2024/12/04(水) 08:53:39.88 ID:M2J+bJMI 理工系卒ならWolframを使って解けるはずの問題（但し、シリツ卒は除く） 問題 1から100までの整数から異なる10個を選び、その合計が5の倍数になる確率を求めなさい。 直感的には、5も10も100の約数なので1/5になると思ったが以外な結果だった。 1/5に近似するからシミュレーションでの検証は難しい。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/822
823: １３２人目の素数さん [sage] 2024/12/04(水) 09:13:17.38 ID:M2J+bJMI >>819 速攻でバクを指摘できたら、 あんたの好きなマウントが取れたのに。 罵倒じゃ、自分の評価を下げるだけだぞ。 ひょっとしてWolframのコード読めないの？ さてはシリツだな。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/823
824: １３２人目の素数さん [sage] 2024/12/04(水) 10:34:52.00 ID:Wi7sT+ur dp も知らんゴミのクズコード http://rio2016.5ch.net/test/read.cgi/math/1723179542/824
825: １３２人目の素数さん [sage] 2024/12/04(水) 10:41:20.16 ID:M2J+bJMI >>822 類題 1から100までの整数から異なる ｎ 個を選び、その合計が 5 の倍数になる確率が 1/5 にならない ｎ をすべて列挙せよ。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/825
826: １３２人目の素数さん [sage] 2024/12/04(水) 10:44:35.15 ID:M2J+bJMI >>824 ひょっとしてWolframのコード読めないの？ さてはシリツだな。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/826
827: １３２人目の素数さん [sage] 2024/12/04(水) 10:48:49.76 ID:M2J+bJMI サクッと＞822の値でも出せばいいのにねぇ。 さてはシリツだな。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/827
828: １３２人目の素数さん [] 2024/12/04(水) 12:17:37.87 ID:AUSAeSeK >>827 スレタイも読めないとかさてはシリツだろ http://rio2016.5ch.net/test/read.cgi/math/1723179542/828
829: １３２人目の素数さん [sage] 2024/12/04(水) 15:40:57.88 ID:Puu8Zdz1 やはり、シリツなんだろうな。 答が出せないようで、関係ないレスしかできないみたいだね。 理工系卒ならWolframを使って解けるはずの問題（但し、シリツ卒は除く） 問題 1から100までの整数から異なる10個を選び、その合計が5の倍数になる確率を求めなさい。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/829
830: １３２人目の素数さん [] 2024/12/04(水) 16:07:04.42 ID:dEfLK9S8 >>829 やはり、統失なんだろうな スレタイが読めないようで、関係ないスレにしか書き込み出来ないみたいだね http://rio2016.5ch.net/test/read.cgi/math/1723179542/830
831: １３２人目の素数さん [sage] 2024/12/04(水) 16:18:14.44 ID:M2J+bJMI >>830 Wolframのコードも投稿済なのにそれを実行できる環境すらないの？ ひょっとしてド底辺シリツ卒？ http://rio2016.5ch.net/test/read.cgi/math/1723179542/831
832: １３２人目の素数さん [sage] 2024/12/04(水) 16:59:57.11 ID:PhyUOuli >>831 アンタはスレタイすら読めないから大学なんか行けるわけないだろw http://rio2016.5ch.net/test/read.cgi/math/1723179542/832
833: １３２人目の素数さん [sage] 2024/12/04(水) 17:42:58.35 ID:Ta8BZuLC >>831 60過ぎでスレタイも読めないで毎日5chで発狂とか終わってんな http://rio2016.5ch.net/test/read.cgi/math/1723179542/833
834: １３２人目の素数さん [sage] 2024/12/04(水) 18:15:06.90 ID:Z5xKplka 答が出せないようで、関係ないレスしかできないみたいだね。 理工系卒ならWolframを使って解けるはずの問題（但し、シリツ卒は除く） やはり、単なるシリツでなくてFランシリツなのかなぁ。 投稿されたコードでの計算が気に入らなければ自分でコーディングすればいいのに。 ひょっとしてWolframを動かせる環境すら構築できないFラン卒なのか？ 問題 1から100までの整数から異なる10個を選び、その合計が5の倍数になる確率を求めなさい。 直感では1/5なのだが、厳密に計算するとそうではないという興味深い問題。 http://rio2016.5ch.net/test/read.cgi/math/1723179542/834
835: １３２人目の素数さん [sage] 2024/12/04(水) 18:23:19.87 ID:Ta8BZuLC >>834 スレタイと関係ないレスしかできないのはアンタだろ？w http://rio2016.5ch.net/test/read.cgi/math/1723179542/835
836: １３２人目の素数さん [sage] 2024/12/04(水) 18:35:48.30 ID:zJ7TS76B どっちも黙って http://rio2016.5ch.net/test/read.cgi/math/1723179542/836
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 166 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.008s