〓 Mathematica 伍 〓

1 名前：１３２人目の素数さん [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〓 science2.2ch.net/test/read.cgi/math/985023298/ 〓 Mathematica 2 〓 science3.2ch.net/test/read.cgi/math/1078534285/ 〓 Mathematica 3 〓 science6.2ch.net/test/read.cgi/math/1121413040/ 〓 Mathematica 四 〓 kamome.2ch.net/test/read.cgi/math/1197270001/ (鯖飛びでログ消滅) mimizun.com/log/2ch/math/1197270001/ 〓 Mathematica 5 〓 kamome.2ch.net/test/read.cgi/math/1285859504/ 751 名前：１３２人目の素数さん mailto:sage [2014/04/10(木) 17:16:37.87 ] 先日質問させていただいたものです。 また質問させてください。 Integrate で積分範囲を複素数全体に指定することはできないでしょうか。 実数であれば Integrate[f[x],{x,-Infinity,Infinity}] とするだけなわけですが、複素数も同じように手軽にできればと思っています。 現状では絶対値と偏角、あるいは実部と虚部に分けるなどの 変数変換を手動で書いて対応しているのですが、 これが省略できるとかなり作業が楽になるのです。 752 名前：１３２人目の素数さん mailto:sage [2014/04/10(木) 18:09:51.84 ] >>751 >Integrate[f[x],{x,-Infinity,Infinity}] に比べて Integrate[f[z]/.z->x+I*y,{x,-Infinity,Infinity},{y,-Infinity,Infinity}] がとても面倒とも思わないけど、具体的にはどんな？ 753 名前：１３２人目の素数さん mailto:sage [2014/04/10(木) 19:26:39.11 ] そう書くものなのですね！ /. はありがたみが理解できないままスルーしてしまっていました。。。 今までやってきたことはというと、例えば Integrate[Exp[-Abs[z1-z2]^2] /. z1->x1+I*y1, {x1,-Infinity,Infinity}, {y1,-Infinity,Infinity] と書けば済む問題があれば、 x1=Re[z1], x2=Re[z2], y1=Im[z1], y2=Im[z2] ととらえて Integrate[Exp[-(x1-x2)^2-(y1-y2)^2],{x1,-Infinity,Infinity},{y1,-Infinity,Infinity}, Assumptions->Element[x2,Reals]&&Element[y2,Reals]] と書き直したり、極座標系に変数変換した形で r1=Abs[x1], r2=Abs[x2], t=Arg[x1-x2] とみなして Integrate[ r1 Exp[-(r1^2 + r2^2 - 2 r1 r2 Cos[t])^2], {t, -Pi, Pi}, {r2, 0, Infinity}, Assumptions -> Element[r1, Reals]] にしたりとか、やたらと手動で作業してました。 勉強不足でお恥ずかしい限りです。 754 名前：１３２人目の素数さん [2014/04/26(土) 10:32:08.50 ] MathematicaとMaximaで (Showとdraw2d、FindRootとmnewton程度の)共通的な方法で 連想配列的にデータを渡すにはどうすればいいでしょうか？ いまは、とりあえず、データの固まりの定義(r1、r2) データの指定(r) 受け渡し(/.、ev) をこんな感じにしているのですが r1 = r -> {a -> 1, b -> 2}; r2 = r -> {a -> 3, b -> 4}; r = r /. r1; {a, b} /. r r1:r=[a=1,b=2]$ r2:r=[a=3,b=4]$ r:ev(r,r1)$ ev([a,b],r); 755 名前：１３２人目の素数さん [2014/04/27(日) 11:18:36.42 ] 123456789＾1234567を計算させPDFで書き出ししたら PDF　2200ページにもなりますた！！！！ 756 名前：１３２人目の素数さん mailto:age [2014/04/27(日) 23:27:47.41 ] じゃ， 9^9^9^9 やってみろ 757 名前：１３２人目の素数さん mailto:age [2014/04/28(月) 17:47:11.44 ] 　　　　　　　　　　__ﾉ)-'´￣￣`ｰ- ､_ 　　　　　　　 ,　'´　　_. -‐'''"二ニﾆ=-`ヽ、 　　　　　　／　　 ／:::::; -‐''"　　　　　 　 `ｰノ 　　　　　/　　　／:::::／　　　　　　　　　　　＼ 　　　　 /　 　 /::::::/　　　　　　　　　 |　|　|　 | 　　　　 |　　　|:::::/　/　　　　　|　　|　|　|　|　 | 　 　 　 |　　　|::/　/　/　|　　| ||　 |　| ,ﾊ .| ,ﾊ| 　 　 　 |　　　|/　/　/　/|　,ﾊﾉ|　/|ﾉﾚ,ﾆ|ﾙ'　 　　　　 |　　　|　 |　/　/ ﾚ',二､ﾚ′ ,ｨｲ|ﾞ/　　　 .　　　 　|　　　＼ ∠イ　 ,ｲイ|　　　 ,`-' |　　　　　　 　　　　 | 　　　　l＾,人| 　` `-' 　 　 ゝ　 |　　　　　　　　 　 　 　 | 　　　　 ` -'＼　　　 　 　ｰ' 　人　　　　　　　　　　　私は死なないわよ。 　　　　|　　　　　　　 /(l 　　 　＿＿／　 ヽ、　　　　　　　　　　　 でも最近一寸太ったかしら。 　　 　 |　　　　　　　（:::::`‐-､__ 　|::::`､ 　 　 ﾋﾆﾆヽ、　　　　　　 　　　　Windows ver.10 で　　　　 　 　　|　　　　　　／ `‐-､::::::::::`‐-､::::＼　　 /,ﾆﾆ､＼　　　　　　　　　　　　元の痩せた姿にしてよね。 　　　|　　　　　　|::::::::::::::::::|` -､:::::::,ﾍ￣|'､　 ﾋﾆ二、　＼　　　　　　　　　　 　　　 .　　 |　　　　　　/::::::::::::::::::|::::::::＼/:::Ｏ`､::＼ 　 |　'､　　 ＼ 　　 |　　　　　 /:::::::::::::::::::/:::::::::::::::::::::::::::::'､::::＼ﾉ　　ヽ、　 | 　　|　　　　　 |:::::／:::::::::/:::::::::::::::::::::::::::::::::::'､',::::'､ 　/:＼__/‐､ 　　|　　　　　 |／:::::::::::/::::::::::::::::::::::::::::::::::Ｏ::| '､::|　く:::::::::::::￣| 　　 |　　　　 /_..-'´￣`ｰ-､:::::::::::::::::::::::::::::::::::|/:/`‐'::＼;;;;;;;＿| 　　　|　　　　|／::::::::::::::::::::::＼:::::::::::::::::::::::::::::|::/::::|::::/:::::::::::/ 　　　 |　　　/:::::::::::::::::::::::::::::::::|:::::::::::::::::::::Ｏ::|::|::::::|:::::::::::::::/ 758 名前：１３２人目の素数さん [2014/05/02(金) 18:41:01.62 ] maximaのポインタ的な変数操作 v='a v::1 をMathematicaでできるでしょうか？ aが未定義のうちは v=a、v=`a、v=Symbol["a"] など(いずれか)として Set[Evaluate[v],1] でaに値が入りますが 一度aが定義されてしまうと 1=1 になってしまうためうまく行きません 759 名前：１３２人目の素数さん mailto:sage [2014/05/02(金) 20:41:06.13 ] >>758 maximaを知らないので何とも。どういう動作をさせたいのでしょうか？ 760 名前：１３２人目の素数さん mailto:sage [2014/05/02(金) 20:48:56.76 ] 一時的なわり当ては /.を使っておこないます 例 x^2+2*x+1/.x->1 こたえ4 761 名前：１３２人目の素数さん [2014/05/02(金) 21:52:00.16 ] >>759 あまり意味のある例ではないと思いますが Do[Set[Evaluate[v],{}],{v,{`a,`b,`c}}] (記述の雰囲気だけです。動きません。) と書いたら {a,b,c}=Table[{},{3}] となるような感じで maximaの場合 for v in ['a,'b,'c] do (v::[]); と書くと [a,b,c]:makelist([],3); になります (758の2行目は v:'a でした) 762 名前：１３２人目の素数さん mailto:sage [2014/05/02(金) 22:12:56.40 ] >>761 >Do[Set[Evaluate[v],{}],{v,{`a,`b,`c}}] をやったら {a,b,c} は {{},{},{}} を返すんじゃないの？ 763 名前：１３２人目の素数さん mailto:sage [2014/05/02(金) 23:23:17.10 ] /. を使う案件 764 名前：１３２人目の素数さん [2014/05/02(金) 23:39:02.74 ] >>762 それが動くように見えるのは、 最初に書いた通りa,b,cが未定義の状態だけです そのあとで Do[Set[Evaluate[v],{1}],{v,{`a,`b,`c}}] とやると失敗します {{},{},{}}={{1},{1},{1}} になるからです 765 名前：１３２人目の素数さん mailto:sage [2014/05/04(日) 23:13:10.13 ] 田中ァ、見てるかぁ？ｗｗｗ 766 名前：１３２人目の素数さん mailto:sage [2014/05/12(月) 23:33:12.32 ] ネタねーのか？ 767 名前：１３２人目の素数さん mailto:age [2014/05/13(火) 19:02:25.85 ] もうすぐ 　　10 が来るぞ 768 名前：１３２人目の素数さん [2014/05/24(土) 21:18:49.41 ] Plot[a*x^2-10b*x,{x,0,1}]みたいに a,bは定数として、xだけが変数でグラフを書きたいんだけど どうしたらいい？ 上記のだとグラフが一切表示されないんだけど 769 名前：１３２人目の素数さん mailto:sage [2014/05/24(土) 21:58:55.70 ] a, b を定義してないからだろ 770 名前：１３２人目の素数さん mailto:sage [2014/05/24(土) 22:02:28.27 ] >>768 a, bを引数とする関数にすればいいんじゃないの？ それをg(a,b)として、a,bを外から与えれば グラフがかけるという風にすればいいでしょ。 771 名前：１３２人目の素数さん [2014/05/24(土) 22:30:07.77 ] >>770 ？ プログラミングにあまり詳しくないから 使う関数名と簡単な例を用いて教えてくれ 772 名前：１３２人目の素数さん mailto:sage [2014/05/24(土) 22:44:19.73 ] 自分でググれ 773 名前：１３２人目の素数さん mailto:sage [2014/05/25(日) 15:28:38.23 ] Manipulate[a, {a, {ggr, ks}}] 774 名前：１３２人目の素数さん [2014/05/26(月) 10:16:46.34 ] >>773 Manipulateが最適解と思うが… 768は釣りだから相手にするな。 775 名前：１３２人目の素数さん [2014/05/26(月) 20:22:22.44 ] >>774 釣りじゃねえよハゲ 776 名前：１３２人目の素数さん [2014/05/26(月) 20:33:36.61 ] 数独・ナンプレ解法プログラム report[board_] := Sow[board] solutionQ[board_] := And[Not[MemberQ[board, 0, {2}]], report[board]; True] candidates[board_, position_] := Complement[Range[9], board[[position[[1]], ;;]], board[[;; , position[[2]]]], Flatten[Take[board, Sequence @@ (# - {2, 0} &amp; /@ (3 Ceiling[position/3]))]]] children[board_] := With[{position = First[Position[board, 0]]}, ReplacePart[board, position -> #] &amp; /@ candidates[board, position]] descendantSolvableQ[board_] := Or @@ (solvableQ /@ children[board]) solvableQ[board_] := Or[solutionQ[board], descendantSolvableQ[board]] 777 名前：１３２人目の素数さん [2014/05/26(月) 20:37:28.97 ] サンプル board = { {1, 0, 0, 0, 0, 7, 0, 9, 0}, {0, 3, 0, 0, 2, 0, 0, 0, 8}, {0, 0, 9, 6, 0, 0, 5, 0, 0}, {0, 0, 5, 3, 0, 0, 9, 0, 0}, {0, 1, 0, 0, 8, 0, 0, 0, 2}, {6, 0, 0, 0, 0, 4, 0, 0, 0}, {3, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 4, 0, 0, 0, 0, 0, 0, 7}, {0, 0, 7, 0, 0, 0, 3, 0, 0}}; AbsoluteTiming[output = Reap[solvableQ[board]]] {1.070002, {True, {{{{1, 6, 2, 8, 5, 7, 4, 9, 3}, {5, 3, 4, 1, 2, 9, 6, 7, 8}, {7, 8, 9, 6, 4, 3, 5, 2, 1}, {4, 7, 5, 3, 1, 2, 9, 8, 6}, {9, 1, 3, 5, 8, 6, 7, 4, 2}, {6, 2, 8, 7, 9, 4, 1, 3, 5}, {3, 5, 6, 4, 7, 8, 2, 1, 9}, {2, 4, 1, 9, 3, 5, 8, 6, 7}, {8, 9, 7, 2, 6, 1, 3, 5, 4}}}}}} TableForm[output[[2]]] （ｒｙ 778 名前：１３２人目の素数さん [2014/05/26(月) 20:40:19.99 ] ちなみにboardの左上の1を0に変えると・・・ 779 名前：１３２人目の素数さん [2014/05/28(水) 03:43:31.02 ] 初心者なんだけど まずPECE法が調べてもさっぱりなんだけども 予測子修正子法（PECE）でP(q,Dq)の値を与えた時 (Dq,DDq)を返すにはどうしたらいいかな？ 780 名前：１３２人目の素数さん mailto:age [2014/05/28(水) 19:05:05.86 ] ませまてぃかは ドラえもんではありません 781 名前：狸 ◆2VB8wsVUoo mailto:age [2014/05/29(木) 13:04:53.43 ] 狸 >論理性が欠如していようがなんだろうが、芳雄は『後世に語り継がれる秀逸な結果』を残しただろうが >なのに何が科学者の敵だ >芳雄は過程はどうであれ結果を残した、お前は科学者をなめるんじゃない >お前は芳雄を妨害して芳雄の研究成果に悪い影響を与えている、お前こそ研究者の敵だろうが >今からでもいいから素直になって芳雄に謝ってこい、それぐらいはできるだろうが > 782 名前：１３２人目の素数さん [2014/05/29(木) 17:01:52.44 ] 2^100000000を計算しPDFファイルで書き出したら 6627ページになりびっくりしますた 783 名前：１３２人目の素数さん mailto:age [2014/05/29(木) 18:49:49.56 ] 9^9^9^9 をやってみろ 784 名前：狸 ◆2VB8wsVUoo mailto:sage [2014/05/29(木) 22:37:26.33 ] 狸 >論理性が欠如していようがなんだろうが、芳雄は『後世に語り継がれる秀逸な結果』を残しただろうが >なのに何が科学者の敵だ >芳雄は過程はどうであれ結果を残した、お前は科学者をなめるんじゃない >お前は芳雄を妨害して芳雄の研究成果に悪い影響を与えている、お前こそ研究者の敵だろうが >今からでもいいから素直になって芳雄に謝ってこい、それぐらいはできるだろうが > 785 名前：１３２人目の素数さん mailto:sage [2014/05/31(土) 15:54:10.35 ] こんにちは、 下記がエラーになります。 修正方法を教えて下さい。 Label[begin]; h = 0; For[k = 1, k <= 17, k++, T1 = k*2; If[T1 == 8 , h = g + 231;] If[h == g + 231 , Goto[end]]; Print[h]; Label[begin]; ]; Label[end]; 786 名前：１３２人目の素数さん mailto:sage [2014/05/31(土) 20:35:30.14 ] >>785 >下記がエラーになります。 Moduleの中に入れないとダメなんじゃないの？よくわからないが、、。 あと、gが定義されていないけど？ 787 名前：１３２人目の素数さん mailto:sage [2014/06/03(火) 09:49:24.23 ] ＞＞786 有難う御座いました。 解決しませんが、なんとか、このまま使います。 788 名前：１３２人目の素数さん mailto:sage [2014/06/03(火) 14:16:48.20 ] library.wolfram.com/howtos/faster/index.ja.html >Mathematica のプログラムの実行速度を上げるにはどのようにすればよいのでしょうか． >手続き型プログラミングを避ける 789 名前：１３２人目の素数さん mailto:age [2014/06/03(火) 16:01:43.87 ] >Mathematica のプログラムの実行速度を上げるにはどのようにすればよいのでしょうか Mathematicaを使わない 790 名前：１３２人目の素数さん mailto:あほだね [2014/06/04(水) 19:13:42.47 ] ＞Mathematicaを使わない 青海だね おれなんかのりかえて3年になる。 レベルが上がった気がする。 791 名前：１３２人目の素数さん mailto:sage [2014/06/07(土) 02:29:38.18 ] テスト 792 名前：１３２人目の素数さん mailto:sage [2014/06/07(土) 11:01:52.48 ] Wolframのセミナー講師？　なんかイラツク態度というか 言い回し、口調だよな 客商売したことあんのかね？ 793 名前：１３２人目の素数さん mailto:age [2014/06/07(土) 16:31:44.93 ] どこの会社の誰だ? 794 名前：１３２人目の素数さん [2014/06/07(土) 18:03:52.33 ] www.wolfram.com/training/instructors/ これみると日本人は5人しかいない。 高校教師：1人 日本電子計算：2人 ヒューリンクス：2人 セミナー講師って段階で日本電子計算かヒューリンクス 795 名前：１３２人目の素数さん mailto:sage [2014/06/07(土) 18:10:56.76 ] どこのというかWolframの人だよ セミナーというかMathematica紹介のプレゼン的な内容だったから、>>794に載るような ことをする人じゃないと思う 講師というか、いわゆるエヴァンジェリストｗなのかな 796 名前：１３２人目の素数さん [2014/06/07(土) 19:34:29.66 ] ttp://www.gdep.jp/column/view/13 797 名前：１３２人目の素数さん mailto:age [2014/06/07(土) 19:35:11.85 ] 日本支社で講師みたいなことする人がいたっけ? >>794　の誰かだろ 798 名前：１３２人目の素数さん mailto:sage [2014/06/10(火) 01:06:33.78 ] 課題で自作関数を1万回実行して平均実行時間を測定しろってのがあるんですけど Timing関数で時間を図るとしてどういう風にすればいいんでしょうか？ 入力値と出力値は決まってます 799 名前：１３２人目の素数さん mailto:age [2014/06/10(火) 18:04:17.92 ] Help引け 800 名前：１３２人目の素数さん mailto:sage [2014/06/12(木) 18:09:41.01 ] 10が出るぞー 今日発表かな。 801 名前：１３２人目の素数さん [2014/06/12(木) 18:38:33.03 ] 何が新しいんだ? 802 名前：１３２人目の素数さん mailto:sage [2014/06/12(木) 19:48:02.06 ] 無限undo 803 名前：１３２人目の素数さん [2014/06/12(木) 20:37:29.26 ] それくらいか? 804 名前：１３２人目の素数さん mailto:sage [2014/06/13(金) 06:02:11.28 ] 面白そうじゃん https://pbs.twimg.com/media/Bp6wm6OIcAAoDvm.png https://pbs.twimg.com/media/Bp1Z6R1CAAA59Wl.png https://pbs.twimg.com/media/Bpwg88YIMAAxbf6.png https://pbs.twimg.com/media/BprLc16CQAANcZ4.png https://pbs.twimg.com/media/BpW4iGEIUAAEG7m.png https://pbs.twimg.com/media/BooRdTsIIAAqtNO.jpg 805 名前：１３２人目の素数さん [2014/06/25(水) 01:15:13.39 ] Mathematica 10はデルデル詐欺か？ 806 名前：１３２人目の素数さん mailto:sage [2014/06/27(金) 22:39:56.52 ] なんで9でいまさらベクトル解析記号的テンソル扱えるようにしたんだろ？ 807 名前：１３２人目の素数さん mailto:sage [2014/06/28(土) 02:36:08.71 ] ＞＞なんで9でいまさらベクトル解析記号的テンソル扱えるようにしたんだろ？ 自己レスだが、単位系換算サポートの上での議論でゲージ原理やら接続、テンソルやらが議論にのぼったんだろうけど ゲージ原理が時計表示のゲージに曲解されて実装されたのがゲージのような気がする。 808 名前：１３２人目の素数さん [2014/07/07(月) 17:06:30.13 ] フーリエ変換つったら、俺的には F[f] = ∫f(x)e^(-ikx) dx なのだが、 Mathematica では違うのな。 逆とか気持ち悪いぜ…… 809 名前：１３２人目の素数さん mailto:sage [2014/07/07(月) 22:20:19.41 ] ｘが整数のときに、Ｏｋと表示する方法を教えて下さい。 下記はどこが悪いでしょうか？ x = 10; If[x == Integer, Print["Ok"]; 810 名前：１３２人目の素数さん mailto:sage [2014/07/07(月) 23:00:22.58 ] >>809 IntegerQでは如何 811 名前：１３２人目の素数さん mailto:sage [2014/07/08(火) 09:16:31.32 ] x = 10; If[IntegerQ[x] == True, Print["Ok"]]; で出来ました。助かりました。有難う御座いました。 812 名前：１３２人目の素数さん mailto:ｄｆ [2014/07/09(水) 01:13:15.38 ] aho あほ あっホウ 813 名前：１３２人目の素数さん mailto:sage [2014/07/12(土) 01:03:23.37 ] Version 10 introduces a host of new areas--such as machine learning, computational geometry, geographic computation, and device connectivity--as well as deepening capabilities and coverage across the algorithmic spectrum. For a complete list of new features and enhancements, including multiple undo, visit: multiple undoｷﾀｺﾚ 814 名前：１３２人目の素数さん [2014/07/13(日) 13:45:21.82 ] お探しのページが見付かりませんでした． Mathematica の日本語リファレンス、ページが死んでないか？ 815 名前：１３２人目の素数さん [2014/07/15(火) 19:04:10.29 ] V10キタコレ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef