トップページ⇒math
973コメント287KB

〓 Mathematica 四 〓

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001１３２人目の素数さん2007/12/10(月) 16:00:01
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル　
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´ 　 　　
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 　
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 Mathematica に関する話題はここに書いてね！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､ 　
　　/＼＼　　　　',　　 }　　 //｀ヽ

過去スレ
>>2
0923１３２人目の素数さん2010/07/02(金) 13:58:07
マセマティカによりモンテカルロ法を用いて、何か平面図形の面積を求めてください。
そして、その数値と求積の公式や積分を利用して得られる理論値との違いを調べてください。
すなわち答えることは以下の4点です。
（１）どうゆう図形について考えましたか？
（２）その図形の面積をモンテカルロ法で求めるとどうゆう結果がでましたか？
（３）その図形の面積を数学で求めるとどうなりますか？
（４）あなたがモンテカルロ法で計算した結果は理論値に対して何％のずれがありますか？
0924↑2010/07/02(金) 13:59:34
すいませんがおねがいします。
0925Ｆらん受験生2010/07/02(金) 15:02:04
>>921

９２１のやりかた　ｆ「２３４５」＝{0, 1, -1, 0, 0, -1, -1}
９１７のやりかた　ｃｃ＝　ｆ「２３４５」＝ {0, 1, 0, 1, -1, 0, 0, -1, -1}

で９２１はあやまり？（けたくだりについて考え不足でした）

９１７は再帰ではなく、Ｃでもかけます。　めもり、計算速度の効率がいい。　でもつまんない＞＜；；

>>923　はべつにＣでもＢａｓｉｃ　でもいいんじゃない。　とりあえず円でも計算したら。
乱数の性質と精度と計算時間とビット長の関係でも報告したら、いいんじゃない。
0926１３２人目の素数さん2010/07/02(金) 15:28:42
>で９２１はあやまり？

ん？まちがっとるかぁ？
2345 = {1x3^7+0x3^6+1x3^5-1x3^4+0x3^3+0x3^2-1x3^1-1}
-> {1, 0, 1, -1, 0, 0, -1, -1} == {1, a1, a2, ... ak}

で、{a1, a2, ... ak}の{0, 1, -1, 0, 0, -1, -1}を返す
のとちがうんかぁ
0927１３２人目の素数さん2010/07/02(金) 17:54:28

＞{a1, a2, ... ak}の{0, 1, -1, 0, 0, -1, -1}を返す
のとちがうんかぁ

それはずるい
はなしならん

0928１３２人目の素数さん2010/07/02(金) 18:08:16
>>925
マセじゃないといけないらしいです。
モンテカルロ法が今ひとつわからないです。お願いします。
0929Ｆらん受験生2010/07/02(金) 21:25:40
円の1/4の面積＝Pi/4 を計算する。

ss[x_, y_] = x^2 + y^2 - 1;
pp := (mx = Random[]; my = Random[]; ss[mx, my]);
tt[n_] := Table[pp, {n}]
Area[n_] := Count[Negative[tt[n]], True]/n // N
Truearea = Pi/4
ErrorDiff[n_] := Area[n] - Truearea

Table[ErrorDiff[n],{m,1000,10000,1000}]

で検討してみてください
0930１３２人目の素数さん2010/07/02(金) 21:33:34
>>918　ちょっと一本取られました。綺麗な解答ですね。

はは　畳の上の水練ですな　クリティカルパスの設計で修羅場をくぐっていませんね
09319182010/07/02(金) 22:24:04
>>930

クリティカルパスの設計そのものが全く分かりません。
プログラムは昔BASICを自己流でやっただけなので、ヘルプを見ながら何とか作っている状態です。

でも、このスレはとても勉強になるので感謝しています。
0932１３２人目の素数さん2010/07/02(金) 23:55:15
>>929
すげー。ありがとう。Ｓランに改名しろよ。
0933１３２人目の素数さん2010/07/03(土) 01:17:05
>>927
あんなぁ、おりが>>914で『手抜き版』と謳ったけん、
921で>>913さんの純正の正面突破ロジックを、
おりなりに圧縮&再帰化した『再帰版』じゃけど！
>>925の疑義がでたけん、簡単な説明をしたばぃ！
んなら…
-------------------------------------------------
＞{a1, a2, ... ak}の{0, 1, -1, 0, 0, -1, -1}を返す
のとちがうんかぁ

それはずるい
はなしならん
-------------------------------------------------
って、どこがずるくて、はなしならんのか説明せんかい！

なんかソロバン塾で、計算もしないでご高説を垂れるお方
が沸いてますが、徒な無意味エントロピー増大お疲れさま。
0934１３２人目の素数さん2010/07/05(月) 08:08:12
1段目の辺の長さnの正方形、2段目がn-1の正方形、...、
n段目が辺の長さが１の正方形であるようなピラミッドがある。
各段は長さ1の正方形のレンガが敷き詰めてある。
レンガの総計が平方数であるようなピラミッドは何段か？

お願いします。
0935１３２人目の素数さん2010/07/05(月) 12:19:00
しらん
0936１３２人目の素数さん2010/07/05(月) 13:04:28
Mathematicaのｽﾚとして趣旨ずれてきてないかｗｗ
0937１３２人目の素数さん2010/07/05(月) 13:26:33
いい加減算数スレに行けよ荒らしども
0938１３２人目の素数さん2010/07/05(月) 15:22:55
>>934
Mathematicaと関係ない、やぽー知恵袋で聞けば？
0939１３２人目の素数さん2010/07/05(月) 16:00:42
934です
でもこの問題をＭでやれと言われました。
0940１３２人目の素数さん2010/07/05(月) 16:19:19
>>939
っMatlab
0941Ｆらんく受験生2010/07/05(月) 21:26:52
1+2^2+3^2+....+n^2=n(n+1)(2n+1)/6

n=24 のとき　７０ｘ７０になる
0942１３２人目の素数さん2010/07/06(火) 00:35:27
Ｓランさんありがとう
0943１３２人目の素数さん2010/07/06(火) 00:48:31
ポーカー
トランプのカードを
{H,1},{H,2}.....,{H,13}（ハート）
{S,1},{S,2}.....,{S,13}（スペード）
{D,1},{D,2}.....,{D,13}（ダイヤ）
{C,1},{C,2}.....,{C,13}（クラブ）
で表す。
（１）52枚のカードからランダムに5枚選び出す関数を書け。
（２）5枚の手札の（ポーカーにおける）点を下の表に従って与える関数を書け。
（３）（１）を1000回繰り返したときの平均点数を求めよ。

（表）
ワンペア　5点　ツーペア　10点　スリーカード　15点
ストレート　20点　フラッシュ　25点　フルハウス　30点
フォーカード　40点　ストレート・フラッシュ　50点
ロイヤル・ストレート・フラッシュ　100点
0944１３２人目の素数さん2010/07/06(火) 00:49:21
お願いします。
0945１３２人目の素数さん2010/07/06(火) 22:24:49
は？
0946１３２人目の素数さん2010/07/07(水) 03:53:06
できるかボケェ
09479432010/07/07(水) 10:21:00
わかるかたがいらしたらお願いします
0948１３２人目の素数さん2010/07/07(水) 19:28:17
しらん
0949１３２人目の素数さん2010/07/07(水) 20:13:02
>>943
まずは「ポーカー　確率」で検索して、自分で考えて下さい。
0950１３２人目の素数さん2010/07/07(水) 22:21:17
見てもわかんないです
09519492010/07/07(水) 22:35:51
>>950
そうですか。では「教えて君」を検索して、自分を考えて下さい。
0952１３２人目の素数さん2010/07/08(木) 11:50:25
>>951
教えてくれないのですか？わかるなら教えてください。
0953１３２人目の素数さん2010/07/08(木) 16:33:42
Fランが教えてくれるよ。
0954Ｆランク受験落第生2010/07/09(金) 16:32:05
>>953
　　すみません。
この問題は非常によい問題です。（教育の観点から）
問題の記述と解決の努力のなかでいろいろ学ぶところの多いとおもいます。　出題者の先生もそれを期待しているのでしょう。
時間がかかっても自分で試行錯誤してとかれることを進めます。
ポーカをあまりよくしませんが、ルールの表現と判定などいろんなやり方があると思います。
0955１３２人目の素数さん2010/07/09(金) 17:29:59
時間がかかっても自分で試行錯誤<-大事
とっかかりの参考例…某ソースの流用版！
carddeck =
Flatten[Map[({{H, #}, {S, #}, {D, #}, {C, #}}) &, Range[13]], 1];
f := RandomSample[carddeck, 5]
EvaluatePokerHand[a_List] := With[{
dist = Sort /@ Map[Length, Split /@ Sort /@ Transpose[a], {2}],
straight =
MemberQ[Sort /@ Take[Partition[Range[13], 5, 1, 1], 10],
Sort[Last[Transpose[a]]]]
},
If[straight,
If[ dist[[1]] == {5},
If[Sort[Last[Transpose[a]]] == {1, 10, 11, 12, 13},
100(*"royal flush"*), 50(*"straight flush"*)], 20 (*"straight"*)],
If[ dist[[1]] == {5}, 25(*"flush"*),
Switch[dist[[2]],
{1, 4}, 40(*"four of a kind"*), {2, 3},
30(*"full house"*), {1, 1, 3},
15(*"three of a kind"*), {1, 2, 2},
10(*"two pair"*), {1, 1, 1, 2}, 5(*"pair"*), {1, 1, 1, 1, 1},
0(*"nothing"*)
]]]]
(EvaluatePokerHand /@ Table[f, {1000}]) // Mean // N
0956１３２人目の素数さん2010/07/09(金) 17:37:20
ありがとうございます
0957１３２人目の素数さん2010/07/09(金) 17:44:41
あーあ、学ぶチャンスを失ってしまいましたね。
0958１３２人目の素数さん2010/07/14(水) 13:48:10
n=10a+bに対して、N=n+100とおきます。
Nの倍数ばかりでてくる数列を作成してください。
そして、その数列に登場する数がすべてのNの倍数に
なっていることを証明してください。
ただし、作成する数列としては、ak=NkのようにNの倍数を含むものや、
連続するN数の積をとるといったような、
明らかにそれとわかるものは除外します。

すいませんがわかる方教えてくださいますようお願いします。
0959１３２人目の素数さん2010/07/15(木) 13:05:34
？
0960１３２人目の素数さん2010/07/15(木) 19:01:18
わからん
0961１３２人目の素数さん2010/07/16(金) 13:03:41
n=10a+bに対して、N=n+100とおきます。
Nの倍数ばかりでてくる数列を作成してください。
そして、その数列に登場する数がすべてのNの倍数に
なっていることを証明してください。
ただし、作成する数列としては、ak=NkのようにNの倍数を含むものや、
連続するN数の積をとるといったような、
明らかにそれとわかるものは除外します。

すいませんがわかる方教えてくださいますようお願いします。


0962１３２人目の素数さん2010/07/16(金) 13:13:29
>Nの倍数ばかりでてくる数列に登場する数がすべてのNの倍数になっていること

当たり前すぎてワケ分かりません。
0963１３２人目の素数さん2010/07/16(金) 13:37:58
それをマセでお願いします。
途中まででいいんで。
0964１３２人目の素数さん2010/07/16(金) 13:48:14
>>963
倍数である＝割り切れる＝余りが出ない だから、Mod関数を使えば？
0965１３２人目の素数さん2010/07/16(金) 13:56:13
どうゆうふうに使うん？
0966１３２人目の素数さん2010/07/16(金) 14:09:13
この問題の場合は？
0967１３２人目の素数さん2010/07/17(土) 02:24:26
自分でやれ
ぼけ
0968１３２人目の素数さん2010/07/18(日) 04:39:31
うんこ
0969１３２人目の素数さん2010/07/19(月) 03:13:20
まんこ
0970１３２人目の素数さん2010/07/19(月) 10:02:42
残３１
0971１３２人目の素数さん2010/07/19(月) 17:34:05
誰かおばかちゃんに教えてやれよ
0972１３２人目の素数さん2010/07/20(火) 18:07:46
誰もしませんよ
ばーか
0973１３２人目の素数さん2010/07/20(火) 18:36:02
n=10a+bに対して、N=n+100とおきます。
Nの倍数ばかりでてくる数列を作成してください。
そして、その数列に登場する数がすべてのNの倍数に
なっていることを証明してください。
ただし、作成する数列としては、ak=NkのようにNの倍数を含むものや、
連続するN数の積をとるといったような、
明らかにそれとわかるものは除外します。

すいませんがわかる方教えてくださいますようお願いします。



レス数が950を超えています。1000を超えると書き込みができなくなります。