〓 Mathematica 伍 〓
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
2011/11/11(金) 09:02:28.82, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
過去スレ
〓Mathematica〓
http://science2.2ch.net/test/read.cgi/math/985023298/
〓 Mathematica 2 〓
http://science3.2ch.net/test/read.cgi/math/1078534285/
〓 Mathematica 3 〓
http://science6.2ch.net/test/read.cgi/math/1121413040/
〓 Mathematica 四 〓
http://kamome.2ch.net/test/read.cgi/math/1197270001/ (鯖飛びでログ消滅)
http://mimizun.com/log/2ch/math/1197270001/
〓 Mathematica 5 〓
http://kamome.2ch.net/test/read.cgi/math/1285859504/
0044１３２人目の素数さん
2011/11/28(月) 22:19:50.83自己解決しました。
zsh使って
MathematicaScript -script =(perl hoge.pl)
でよいのですね。
0045１３２人目の素数さん
2011/12/03(土) 20:26:33.162(a+b)とnoteで入力した場合
mathematicaは2×(a+b)と処理しているのかな？
というかしてないと演算結果がおかしいと思う・・
2cなんかも同じで2×c
項としてはっきりさせるには(2(a+b))と入力しないと駄目なのか
0046１３２人目の素数さん
2011/12/03(土) 22:10:00.25In[1]:= FullForm[2(a+b)] == FullForm[(2(a+b))]
Out[1]= True
0047１３２人目の素数さん
2011/12/04(日) 00:03:59.57これを 1 にするにはどうすれば良いの
0048１３２人目の素数さん
2011/12/04(日) 00:46:50.240049１３２人目の素数さん
2011/12/04(日) 21:49:24.012(a+b)という表記はmathematicaでは2*(a+b)と同義でそう処理されるようです
ですので
2(a+b)/2(c+d)と(2(a+b))/(2(c+d))はもちろん演算結果が異なります
0050１３２人目の素数さん
2011/12/04(日) 21:59:18.270051１３２人目の素数さん
2011/12/18(日) 15:36:45.770052１３２人目の素数さん
2011/12/18(日) 15:49:44.960053１３２人目の素数さん
2011/12/18(日) 17:18:48.17mathematica v08なんてたくさん放流されてるから使ってみろ
何万も出すなんて馬鹿みたいだし
個人使用目的なら使っても平気だから、どんどん使えｗ
0054１３２人目の素数さん
2011/12/18(日) 17:26:18.41それとバイナリ。
0055１３２人目の素数さん
2011/12/18(日) 18:00:39.09入手できない、インストールできない、設定できないなんて奴はそもそも
タダで使うなんて考えるなｗ
0056１３２人目の素数さん
2011/12/18(日) 18:27:49.61脳みそがないなら金払え。
金も脳みそもないなら人生諦めろ。
ってやつだわな。
0057１３２人目の素数さん
2011/12/18(日) 18:45:34.03今だけ2万5千円くらいで売ってるぞ
知り合いに買ってもらえ
0058１３２人目の素数さん
2011/12/18(日) 22:07:03.38無料で使いこなす奴ってどんな奴なんだ？
0059１３２人目の素数さん
2011/12/19(月) 21:36:03.64あるリストに対して、一番大きい要素が一番右に来るようにrotateさせたいんですが、なにかコマンドはあるのでしょうか？
例えば{0,1,1,3,2,4,2,2,1}を{2,2,1,0,1,1,3,2,4}となるようにしたいんです。
For文使って、一つづつ確かめるということもあるのでしょうが、簡単にやりたいです。
0060１３２人目の素数さん
2011/12/19(月) 21:59:08.53こんなんでどうだろ。
rotatemaxright[lst_] := Which[
Max[lst] == Last[lst], lst,
True, rotatemaxright[RotateRight[lst]]];
Forでなくて再帰使ってるけど。3行で。
0061１３２人目の素数さん
2011/12/19(月) 22:25:37.38{0, 1, 1, 3, 2, 4, 2, 2, 1} //
RotateRight[#, (Length[#] - Max[Position[#, Max[#]]])] &
まぁ、Maxが複数ある場合の多様性は、お題にないからパスです。
0062１３２人目の素数さん
2011/12/19(月) 22:57:39.59でどう？
0063１３２人目の素数さん
2011/12/19(月) 23:45:38.400, 1, 5, 3, 2, 4, 5, 2, 1} //
RotateRight[#, (Length[#] - Position[#, Max[#]][[1]])] &
効率はどう違うのですか？
0064１３２人目の素数さん
2011/12/19(月) 23:48:06.59Maxが複数あるときうざい
0065１３２人目の素数さん
2011/12/20(火) 00:24:13.54この場合のMaxは、効率の問題ではなく、Positionの
Max(右端)をとるという意味です。その意味でMaxを
使う必要はありません。
ただし[[1]]ですと、listに同じMaxがある場合に、
左端の(Min)が選定されます。
つまり>>63の例{0, 1, 5, 3, 2, 4, 5, 2, 1}では、
右シフトの場合に、右から3番目の5でとまるべき
ですが、それをこえて、Max左側の5まで周って、
{3, 2, 4, 5, 2, 1, 0, 1, 5}
となります。
>>Maxが複数ある場合の多様性は、お題にないから
>>パスです。
と書いたのは、この意味です。
0066１３２人目の素数さん
2011/12/20(火) 00:50:29.08確かに左にシフトすりゃ、Positionで左からの
位置が既知じゃけん、Lengthもいらんばぃ…
じゃが、お題は右シフトじゃけん！つか、その
コードのままだと、マセがゲリピーおこすど！
、
0067１３２人目の素数さん
2011/12/20(火) 01:54:27.48了解しました。
ありがとうございます。
0068１３２人目の素数さん
2011/12/20(火) 06:29:32.17RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
ということで
0069１３２人目の素数さん
2011/12/20(火) 07:49:55.250070１３２人目の素数さん
2011/12/20(火) 17:12:02.320071１３２人目の素数さん
2011/12/21(水) 15:53:45.61関連して質問です。
{1,4,1,1}と{1,1,4,1},そして{1,1,1,4}は回転させれば同じものなので、{1,1,1,4}に統一したいのですが、
どうすればいいでしょうか？
0072１３２人目の素数さん
2011/12/21(水) 16:01:27.78Sortしちゃいかんの？
0073１３２人目の素数さん
2011/12/21(水) 16:11:18.07RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
でok。
もしかしたら、{1,4,1,4,1,1}を上の式に通すと、{1,1,1,4,1,4}
回転させれば同じものになる{4,1,1,1,4,1}を通すと、{1,4,1,1,1,4}
と、異なってしまうが、どちらかに統一されるようにするにはどうすればいいか？
という疑問なのか？
0074１３２人目の素数さん
2011/12/21(水) 18:17:35.46>>72
このlistだとSortでもいいんですが、{1231}と{1321}の場合は分けたいんです。
>>73
その疑問もあります。
最初から具体的に言えば、
{{1, 1, 1, 5}, {1, 1, 2, 4}, {1, 1, 3, 3}, {1, 1, 4, 2}, {1, 1, 5,
1}, {1, 2, 1, 4}, {1, 2, 2, 3}, {1, 2, 3, 2}, {1, 2, 4, 1}, {1, 3,
1, 3}, {1, 3, 2, 2}, {1, 3, 3, 1}, {1, 4, 1, 2}, {1, 4, 2, 1}, {1,
5, 1, 1}, {2, 2, 2, 2}, {2, 2, 3, 1}, {2, 3, 2, 1}}
のlistのうち、回転させて同じものは一つとしてまとめたいと考えていまして、
上手く回転したあと、Unionを適用させようと思っていたのですが、その回転をどうしたらいいのかという疑問と、
僕の知識たらずだけで、そういった回転させて同じものを出すとか検索するといったコマンドがあるのではと思って質問しました。
0075１３２人目の素数さん
2011/12/21(水) 18:43:14.10１．counter=0、「リスト保存庫」のリセット
２．新しいリスト候補(=t0)の作成
３．２で作成したリストを一つ回転させたリスト(=t1)、２つ回転させたリスト(=t2)、
３つ回転させたリスト(=t3)をつくる。（リストの長さ分だけ用意する）
４．リスト保存庫の中に、t0からt4と一致するものがないかチェック
５．４であれば、２へ
６．counterを1増やす。リスト保存庫に２で作成したリストを追加
７．２へ
0076１３２人目の素数さん
2011/12/21(水) 23:17:40.45直裁的なコマンドはあるのかな…しらんばい！
とりあえず速攻版の案です。
list要素の頭を、sublist={a,b,c,d}として、
sublist〜Join〜sublistでsublist2
{a,b,c,d,a,b,c,d}
をつくる。
後続にsublistをシフトされた{c,d,a,b}があっても、
このパターンはsublist2の中に現れる。
強引ですが、これは例えば、
sublist〜Join〜sublist /. {___,c,d,a,b,___}
-> True
で検知はできます。
マッチ部分を残して、残りを再帰で呼び出すかな。
Orderlessを拡張した、75指摘のような円順列属性
が設定できれば簡単だけどな…
0077１３２人目の素数さん
2011/12/22(木) 08:11:24.74例えばx=(3^y)coszをz=の式にするにはどうすれば良いでしょうか
0078１３２人目の素数さん
2011/12/22(木) 09:42:34.77→
z == ArcCos[x/3^y] || 3y == 0 && x == 0 && z == ArcCos[Cos[z]]
0079１３２人目の素数さん
2011/12/22(木) 14:16:18.68ありがとうございます。
0080１３２人目の素数さん
2011/12/22(木) 16:41:52.81>>60 の rotatemaxright を使って、
Union[Map[rotatemaxright, lst]]
0081１３２人目の素数さん
2011/12/23(金) 09:26:23.27Union[Map[RotateLeft[#, Last[Flatten[Position[#, Max[#]]]]] &, lst]]
0082１３２人目の素数さん
2011/12/23(金) 12:32:35.11Residue[Series[f[z,q],{q,0,100}],{z,0}] としたいのですが、
Series で出てくるO(q^100) みたいなのが邪魔するようで、Residue を計算してくれないのですが
どうしたらいいでしょうか？
0083１３２人目の素数さん
2011/12/23(金) 13:39:53.11うちでは0って出るけどそれじゃダメなの？
0084１３２人目の素数さん
2011/12/23(金) 14:40:00.47そりは、らんだうのＯだぎゃ〜
SeriesのＯはNormal使うぎゃ！
ex.
Residue[Normal[Series[1/(z + q), {q, 0, 10}]], {z, 0}]
0085１３２人目の素数さん
2011/12/24(土) 00:50:28.85ParametricPlot[Cos[t], Sin[t], {t, 0, 2Pi}]
がありますが，媒介変数表示を使わずダイレクトに
x^2 + y^2 == 1 と関数を指定して描く方法はないでしょうか？
円のような単純な形なら媒介変数表示でも問題ないですが
複雑な関数形になるといちいち媒介変数表示に変換するのも大変なので。
0086１３２人目の素数さん
2011/12/24(土) 00:54:48.46ContourPlot で如何
0087１３２人目の素数さん
2011/12/24(土) 01:14:05.69おおベリーサンクス！
Axes->True,Frame->Falseをつけたら完璧になりました。
0088１３２人目の素数さん
2011/12/24(土) 15:43:16.50ありがとうございました！
ランダウの記号（って言うんですね）を除いてコピペしてたので、
その手間がなくなりました！！
0089１３２人目の素数さん
2011/12/26(月) 03:34:34.45ノートで動かす場合は相当ハイスペックじゃないとダメ？
0090１３２人目の素数さん
2011/12/26(月) 07:58:26.410091１３２人目の素数さん
2011/12/26(月) 11:06:01.650092１３２人目の素数さん
2011/12/26(月) 16:24:27.96cで言うファイルを選択するダイアログボックスを表示させることはできますか？
0093１３２人目の素数さん
2011/12/26(月) 19:52:24.59>モバイル環境でMathematicaを使いたいのですが、ウルトラブックで動かすのは厳しいですか？
>ノートで動かす場合は相当ハイスペックじゃないとダメ？
MacBookAirで使ってる
快適
0094１３２人目の素数さん
2011/12/26(月) 20:29:28.89r=RandomReal[ { -1 , 1 } , { 100 , 2 } ];
Graphics[Point[r]]
,{n,1,10,1} ]
このように記述しても、nが変化しても、乱数をその都度作成しません
どのようにすればnが１増えるごとに乱数を作成するようにできますか？
0095１３２人目の素数さん
2011/12/26(月) 21:24:56.99っSeedRandom
0096１３２人目の素数さん
2011/12/26(月) 21:44:50.14ありがとうございます
0097１３２人目の素数さん
2011/12/27(火) 10:46:05.17MBAいいな
今、Mathematica Windows版使ってるから、
買い直さなきゃいけないし無理だなぁ
0098１３２人目の素数さん
2011/12/27(火) 11:25:56.020099１３２人目の素数さん
2011/12/27(火) 15:44:28.39インストーラーあれば入るんじゃない？
0100１３２人目の素数さん
2011/12/27(火) 18:41:35.07OS移行はできるでしょ
0101１３２人目の素数さん
2011/12/27(火) 18:47:29.71フジテレビでも木村、安藤、滝川の報じた内容は、
フジテレビ自体が、フジテレビの株主にとっても
風説の流布と思われる。
どうしたら、ホリエモンと同罪の犯人を捕まえられますか？
0102１３２人目の素数さん
2011/12/27(火) 23:30:47.19Manipulate[r = RandomReal[{-1, 1}, {100, 2}];
n;
Graphics[Point[r]], {n, 1, 10, 1}]
だとできるみたいだよ、、。
nがどこか陽に入ってないと、
変更が無いと勝手に解釈するのかね？
0104１３２人目の素数さん
2011/12/28(水) 23:34:49.29三万しないだろ
0105１３２人目の素数さん
2011/12/29(木) 07:59:15.810106１３２人目の素数さん
2011/12/29(木) 10:07:53.10元がいくらだと思ってるんだ」
販売元
0107１３２人目の素数さん
2011/12/29(木) 10:08:36.19公正取引委員会に言った方がいいんじゃね？
0108１３２人目の素数さん
2011/12/29(木) 10:09:38.490109１３２人目の素数さん
2011/12/29(木) 10:18:04.78>このソフトって内外価格差がすごいんでしょ？
超円高だからなおさらだね。
HomeEditionなら2.29894015万円で買えるはずなのに。
0110１３２人目の素数さん
2011/12/29(木) 16:13:22.710111１３２人目の素数さん
2011/12/29(木) 21:45:08.89やっぱり人種差別？
0112１３２人目の素数さん
2011/12/31(土) 14:57:52.560113１３２人目の素数さん
2012/01/04(水) 10:08:58.03これからも全力注いでMathematicaへ魂を吹き込んでと応援したいけど、
何度も既出されているがWolfram Research社の販売体制が気に食わない。
日本へはここまで高く売りつけるし、新バージョンが出る及び購入後９０日以上経ったらサポート終了とか・・・
日本はDQNやノー天野郎が全人口に占める割合が年々多くなっていて、そんなバカが多い国には通常の価格で販売するのはゴメンだとでも言うのか。
全世界から見れば日本はまだまだ優秀な発展国だけどね。
0114１３２人目の素数さん
2012/01/04(水) 10:28:02.920115１３２人目の素数さん
2012/01/06(金) 21:34:53.850116１３２人目の素数さん
2012/01/06(金) 21:37:24.440117１３２人目の素数さん
2012/01/07(土) 07:03:09.190118１３２人目の素数さん
2012/01/07(土) 10:48:34.65英語版を個人輸入しようにも、妨害されています
問題ありますよね？
0119１３２人目の素数さん
2012/01/07(土) 10:49:36.34激しく同意
0120１３２人目の素数さん
2012/01/07(土) 10:59:44.65毎年４４兆円も赤字国債を新規に発行しているのに
消費税増税反対とか言っている国民はアホだね
１％上げても、税収は２兆５千億円増えるだけなんだからw
それに、都市に住んでいる世帯では家賃と教育費で年間２５０万円くらい
つかっておるやろ？ 家賃も教育費にも消費税はかからないw
他に使う金って、２００万円くらいやろ？ これに５％かかっても
わずか１０万円やw
子供に携帯を持たせてるなら１台解約すればすむくらいやでw
その程度のことで、増税嫌だなんて言っている国民はDQNやw
0121１３２人目の素数さん
2012/01/07(土) 21:09:17.23120みたいな奴の事だね
0122１３２人目の素数さん
2012/01/07(土) 21:13:51.73一カキコいくら？
0123１３２人目の素数さん
2012/01/07(土) 22:45:09.42>>121=122のようなDQNが下らんことをほざいておるからな
0124１３２人目の素数さん
2012/01/07(土) 22:46:03.470125１３２人目の素数さん
2012/01/07(土) 22:48:25.890126１３２人目の素数さん
2012/01/08(日) 03:27:59.64, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i,┼┼}. }_,,）) ピキピキ。。。
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ. Mathematicaの話題でお願いね！
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ 馬鹿は、こうちゃんスレにかいてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
│
0127１３２人目の素数さん
2012/01/15(日) 13:00:53.52正四面体やその他正多面体を描きたいんですが、Show[Polyhedron[Tetrahedron]]使うと、余計な座標の為のブロックと、面の色があるじゃないですか？
もっとシンプルに、点と線だけで描きたいんですが何か良い方法はありませんか？
0128１３２人目の素数さん
2012/01/15(日) 14:21:23.42この国は沈むだけ。
0129１３２人目の素数さん
2012/01/15(日) 15:41:07.69Graphics3D[{Opacity[0.5], Glow[White], EdgeForm[Gray],PolyhedronData["Tetrahedron", "Faces"]}, Boxed -> False, Lighting -> None]
でどうよ
0130１３２人目の素数さん
2012/01/15(日) 17:31:58.69ただ画像をEPS保存すると対辺が写らなくなるんですけど、これってどうにかなりませんか？
0131１３２人目の素数さん
2012/01/15(日) 17:56:07.06Graphics3D[{Opacity[0], Glow[None], EdgeForm[Gray],PolyhedronData["Tetrahedron", "Faces"]}, Boxed -> False,Lighting -> None]
Opacityの値と色を透明に変えた
0132１３２人目の素数さん
2012/01/16(月) 03:37:11.690133１３２人目の素数さん
2012/01/16(月) 07:10:31.712ちゃんの様なレベルの低い場所以外を教えて下さい
0134１３２人目の素数さん
2012/01/16(月) 08:02:50.35後はウルフラムのデモを眺めてやりたいことと似ている部分を抜き出す
テキストは追いついている物はないんじゃないか？
0135１３２人目の素数さん
2012/01/16(月) 10:30:09.35参考にします
ありがとうございました
0136１３２人目の素数さん
2012/01/16(月) 19:46:57.49なんか色々可哀相だな
将来頑張って生きていけよ
0137１３２人目の素数さん
2012/01/22(日) 19:19:33.48すげー便利だ．
0138１３２人目の素数さん
2012/01/22(日) 21:44:09.03もしかしてver8？それだったら涙目
0139１３２人目の素数さん
2012/01/22(日) 21:52:30.610141１３２人目の素数さん
2012/01/23(月) 01:16:31.47今確認した。確かにver7不可でver8可だった
0142１３２人目の素数さん
2012/02/06(月) 02:31:14.40, '´ _. -‐'''"二ニﾆ=-`ヽ、
／ ／:::::; -‐''" `ｰノ
/ ／:::::／ ＼
/ /::::::/ | | | |
| |:::::/ / | | | | | |
| |::/ / / | | || | | ,ﾊ .| ,ﾊ|
| |/ / / /| ,ﾊﾉ| /|ﾉﾚ,ﾆ|ﾙ'
| | | / / ﾚ',二､ﾚ′ ,ｨｲ|ﾞ/ 私は只の数ヲタなんかとは付き合わないわ。
. | ＼ ∠イ ,ｲイ| ,`-' | 頭が良くて数学が出来てかっこいい人。それが必要条件よ。
| l＾,人| ` `-' ゝ | さらに Ann.of Math に論文書けば十分条件にもなるわよ。
| ` -'＼ ｰ' 人 一番嫌いなのは論文数を増やすためにくだらない論文を書いて
| /(l ＿＿／ ヽ、 良い論文の出版を遅らせるお馬鹿な人。
| （:::::`‐-､__ |::::`､ ﾋﾆﾆヽ、 あなたの論文が Ann of Math に accept される確率は?
| ／ `‐-､::::::::::`‐-､::::＼ /,ﾆﾆ､＼ それとも最近は Inv. Math. の方が上かしら？
| |::::::::::::::::::|` -､:::::::,ﾍ￣|'､ ﾋﾆ二、 ＼
. | /::::::::::::::::::|::::::::＼/:::Ｏ`､::＼ | '､ ＼
| /:::::::::::::::::::/:::::::::::::::::::::::::::::'､::::＼ﾉ ヽ、 |
| |:::::／:::::::::/:::::::::::::::::::::::::::::::::::'､',::::'､ /:＼__/‐､
| |／:::::::::::/::::::::::::::::::::::::::::::::::Ｏ::| '､::| く:::::::::::::￣|
| /_..-'´￣`ｰ-､:::::::::::::::::::::::::::::::::::|/:/`‐'::＼;;;;;;;＿|
| |／::::::::::::::::::::::＼:::::::::::::::::::::::::::::|::/::::|::::/:::::::::::/
| /:::::::::::::::::::::::::::::::::|:::::::::::::::::::::Ｏ::|::|::::::|:::::::::::::::/
0143１３２人目の素数さん
2012/02/06(月) 22:10:26.41のグラフをManipulateを使ってaを動かしながら書きたいのですが
ClearAll["Global`*"]
ode = {u''[x] + a u'[x] + u[x] == 0 , u[0] == 1 , u'[0] == 0};
sol = NDSolve[ode, u, {x, -10, 10}];
Manipulate[Plot[u /. sol, {-10, 10}], {a, -10, 10}]
としたらNDSolveでエラーが出ます
助けてくだしあ＞＜
■ このスレッドは過去ログ倉庫に格納されています