〓Mathematica〓

1 名前：１３２人目の素数さん [2001/03/20(火) 02:34] ないので立てました。 Mathematicaについて語るスレです。 大学で初めて出会った時は感動したなぁ。(NeXT版…) Plot3Dでよく遊んだものです。 四次方程式の一般解を出力して、壁に貼ったりしてました（ｗ 692 名前：１３２人目の素数さん mailto:sage [03/08/25 22:32] まあ日本国内在住人にとっては腹の立つほど値段が高いこと、 それ以外は悪くないと思いますけどね。 もっともあの英語マニュアルを通して読めたのは 暇だった学生だったからなので、普通の生活では ちと厳しいかな。 国産の RISA/ASIR も１０万くらい払っていいから 他の商用並の使い勝手にならんかな。 693 名前：１３２人目の素数さん mailto:sage [03/08/25 22:36] >>690 それはそうだな。でもプログラミング言語ってのは厳密さがいいんだよ。 「sin?どうせSinと同じだろ」とか「+? ここは普通-だろ」とかやられたら 実際困る。 694 名前：１３２人目の素数さん [03/08/25 22:48] >>692 要はMathematicaの買えない貧乏人のひがみだろｗ 695 名前：１３２人目の素数さん mailto:sage [03/08/25 23:23] >>693 もちろんそんなのは分かってる。所謂ジョークだよ。 696 名前：１３２人目の素数さん mailto:??? [03/08/26 14:19] list={{Aaa[a],Aaa[b],Aaa[c]},{Aaa[d],Aaa[e],Aaa[f]},{Aaa[g],Aaa[h],Aaa[i]}} というリストがあって(ホントはもっと長い)、こいつを {{a,b,c},{d,e,f},{g,h,i}} にしたいのですが、エレガントな方法を教えてつかあさい。 Tableは使わないでね。 697 名前：１３２人目の素数さん mailto:sage [03/08/26 15:32] >>696 (#[[1]] & /@ # &) /@ list 698 名前：697 mailto:sage [03/08/26 15:35] >>696 Map[First, list, {2}] のほうがいいな。 699 名前：１３２人目の素数さん mailto:??? [03/08/26 20:09] >697 >698 できました。Thanks さすがですねぇ 700 名前：１３２人目の素数さん [03/08/26 20:23] 教えてつかあさい。 701 名前：１３２人目の素数さん mailto:sage [03/08/27 01:40] mathematicaの初心者講座やって下さい。 702 名前：１３２人目の素数さん [03/08/27 02:54] yada 703 名前：１３２人目の素数さん mailto:sage [03/08/27 07:25] >>701 Shift+Enter 704 名前：１３２人目の素数さん mailto:??? [03/08/27 10:06] MacではEnterだけで実行! 705 名前：supermathmania ◆ViEu89Okng [03/08/27 11:35] Re:>701 MathematicaにはHelpが付いているはずだ。それを読むといいだろう。 まずは、Shift+EnterとExit[]と、+-*/^という演算子と、関数の引数は四角括弧で採ることを覚えよう。 706 名前：１３２人目の素数さん mailto:sage [03/08/27 19:21] >>705 Exit[]知らなかった！！ 707 名前：706 mailto:sage [03/08/27 19:22] つーか、何の意味があるの？DOSみたいに終了するのかと思いきやしないし。 708 名前：１３２人目の素数さん mailto:??? [03/08/27 20:22] Quit[] とすると、カーネルが終了するのだ わかったかね 709 名前：１３２人目の素数さん mailto:sage [03/08/27 20:41] >>708 カーネルってなんですか？あとそれ以前にExitはどんなときに役に立つのですか？ 710 名前：abc [03/08/27 21:37] おかねもうけ情報見つけました pocket.muvc.net/job/index.html 711 名前：１３２人目の素数さん [03/08/28 02:03] Windowsです [スタート]の[プログラム]メニューにあるMathematicaでカーネルを２まで同時に立ち上げることができる。 （プロフェッショナル版） 712 名前：１３２人目の素数さん [03/08/28 07:48] xyではなくてx*yを使うの？ 713 名前：１３２人目の素数さん mailto:??? [03/08/28 09:37] カーネルってのは、 フライドチキンのおじさんのことだ 覚えておけよ 714 名前：１３２人目の素数さん mailto:sage [03/08/28 22:04] 普通乗算はスペースだよな。 715 名前：１３２人目の素数さん mailto:sage [03/08/31 21:04] Random[]で出る結果は何通りくらいある？ 716 名前：１３２人目の素数さん mailto:sage [03/09/01 06:52] >>715 意味わかんね 717 名前：１３２人目の素数さん mailto:sage [03/09/01 18:06] >>716 Random[]で出る数は何種類から選ばれるかということです。 多ければ多いほど優秀、と。 718 名前：１３２人目の素数さん mailto:sage [03/09/01 23:07] >715 Help に書いてないか？ まあ書いてないとして高々二桁 bit なんで十進数で 33 桁程度ではないか？基本的には剰余だろうから。。。 719 名前：１３２人目の素数さん mailto:sage [03/09/03 03:14] >>718 ありがとう。 ピッタリ1とかピッタリ0ってありますか？ 720 名前：１３２人目の素数さん mailto:sage [03/09/03 17:31] SeedRandom[Random[]]ってやるとかなり増える？ 721 名前：１３２人目の素数さん mailto:sage [03/09/03 22:21] >719 ぴったりですか。。。原理的にはあるんだけど 実数乱数なら無いとしたほうがよく 整数乱数なら有りそうね。でもこれも Help に書いて無いか？ >720 基本的には Random[] は余りを周期的に利用していると考えて そう外れがない。 SeedRandom は、この周期のどこから始めるかを指定する だけなので、増えんよ。 722 名前：１３２人目の素数さん mailto:??? [03/09/05 15:45] Mathematica Ver.5日本語版リリース! あげ ttp://www.wolfram.com でも代理店はどこもVer.4のままれす 723 名前：１３２人目の素数さん mailto:??? [03/09/11 18:05] Ver.5 クラスルームってのは特別定価４万６千円だとよ 724 名前：１３２人目の素数さん mailto:sage [03/09/17 09:30] mathematicaで計算実行したら、 ”Internal counter overflow. Some expression evaluations may not run to their final fixed points. Try redoing your computation on a 64-bit enhanced version of Mathematica.” こんなエラー出てしまって計算やってくれないのですが、これってどういうことですか？ ちなみにVer.4です 725 名前：EXCITE 翻訳 [03/09/18 03:00] 内部カウンタのオーバーフロー。いくつかの表現評価はそれらの最終固定 小数点で実行不可能かもしれません。Mathematicaの64ビット増強された バージョン中のあなたの計算をやり直してみてください。 726 名前：１３２人目の素数さん mailto:sage [03/09/18 14:35] k1=1/12; k2=1/6; g[t_] = 2.30743*Exp[t^3.30352]*t^2.30352 h[t_] = (t*(k2+Sqrt[k2^2-t*k1^3]))^(1/3) k[t_] = h[g[t]] + k1*g[t]/h[g[t]] のとき、 NSolve[Integrate[h[t], {t, 0, tk}] == 1, {tk}] を解きたいのですが、式が複雑すぎてエラーの嵐でした。 FindRootでもできませんでした。 先生によれば工夫すればできるらしいのですが、さっぱりわかりません・・・ どなたか教えていただけないでしょうか？ あと、g[t]の値はある計算結果なのですがそのままだと 2.30743*Exp[0.t^3.30352]*t^2.30352 となっているんですが、 0.t^3.30352　= t^3.30352 でいいんですよね？見たことない表現なので戸惑ったのですが・・・ なんでこんな表現になるんでしょうか？ 727 名前：１３２人目の素数さん mailto:sage [03/09/18 22:18] >>726 g も k も関係ない。 解けないのは式が複雑だからじゃなくて、使いかたが間違っているから。 NSolveはpolynomialを解くものであって、一般の式は解けない。 数値解は FindRoot[NIntegrate[h[t], {t, 0, tk}] == 1, {tk, {1, 2}}] 等。(ただし、Sqrtの中身が負にならないtの範囲で) 0.t に見えたのは0. tで、0. * tだろう。その解釈は間違い。 728 名前：726 mailto:sage [03/09/18 23:20] >>727 レスどうもです。 726にも書きましたがFindRootでもできませんでした・・・ また、0. * tって0*tとは違うんですよね・・・？ 0. ＝桁数の小さい小数ってことですか？ 729 名前：726 mailto:sage [03/09/18 23:31] >>727 書き込んでくださった FindRoot[NIntegrate[h[t], {t, 0, tk}] == 1, {tk, {1, 2}}] でやってみたところできました。 FindRoot[Integrate[h[t], {t, 0, tk}] == 1, {tk, 1}] でやったらできなかったのですが、なぜこれだとできなかったのでしょうか・・・？ 730 名前：１３２人目の素数さん mailto:sage [03/09/18 23:36] >>729 0.が常に0と区別できないRealsを表すのかどうかは知らない。 FullFormすればその0.の値はわかるけれど。 HelpのFindRootの項を読みなさい。 731 名前：726 mailto:sage [03/09/20 02:02] >>730 FindRootについて勉強してみます ありがとうございました 732 名前：１３２人目の素数さん mailto:sage [03/09/20 12:51] >>731 ヘルプ読むのに10分もかからんだろ。そして読んだら、 > FindRoot[Integrate[h[t], {t, 0, tk}] == 1, {tk, 1}] でもできないとおかしいと気づくはず。 答えが大体わかってたから、数値計算だけでもとめられる{tk,{1,2}}の 指定をしただけだ。 {tk,1}と指定すると、ニュートン法を行おうとする。 Integrate[h[t], {t,0,tk}]の微分は計算できる(h[t])から、 ニュートン法が適用できるはずだ。 実際遅いだけで、(Ver. 4.2では)解ける。 733 名前：１３２人目の素数さん [03/09/22 17:36] どなたか教えて頂けないでしょうか。ほとほと困り果てております。 「1カラム→実数、　2カラム→複素数」 のテキストファイルをリストとして読み込ませるためには、どのよう にしたらよいのでしょうか？ 734 名前：supermathmania ◆ViEu89Okng [03/09/22 17:44] Re:>733 C言語なら楽勝だよ。 735 名前：１３２人目の素数さん [03/09/22 17:59] >733 何のリストに読み込ませたいんだい？ 736 名前：１３２人目の素数さん [03/09/22 18:03] >733 Excelに貼り付けて文字列関数でCONCATENATEを使って結合すれば？ 括弧の部分とかは、固定の文字列として入れればいい。 737 名前：１３２人目の素数さん [03/09/22 18:43] >>735 Mathematicaで読み込ませたいです。 738 名前：１３２人目の素数さん [03/09/22 18:45] リストはこんな感じです。 　　　　　↓ 実数　複素数 1　 　3+I2 2 　　4+I5 3 　　8+I9 739 名前：１３２人目の素数さん mailto:sage [03/09/22 19:26] >>739 data.datの中身が、 1　  　3+2I   2  　　4+5I   3  　　8+9I なら、 ReadList["data.dat", {Number, Expression}] I2, I5, I9などとなっていたら、Symbolと理解されてしまうので、 あらかじめ加工しておくか、Stringで読み込んでMathematica内でパースする。 740 名前：１３２人目の素数さん [03/09/23 10:48] >>739 本当にありがとうございます。これから試してみます！ 741 名前：１３２人目の素数さん [03/09/23 17:38] Readlist[#,Record]& で読み込み Characters でばらす。 742 名前：１３２人目の素数さん mailto:sage [03/09/25 00:45] 灯台に再びサイトライセンスで導入されるようだな。 1年の解析Bを取る連中は、課題を解く手間がずいぶん少なくなるだろう。 743 名前：１３２人目の素数さん mailto:sage [03/09/27 13:12] 今入ってないのか 教官が授業で使っててずっけーって思ってた 744 名前：１３２人目の素数さん [03/10/05 21:23] f[x_] := Print[b]; Return[x] という関数を定義したとき f[6]と入れても bとプリントされるだけで、6が返ってきません。 どこが問題なのか分かる方教えてください。 745 名前：744 [03/10/05 21:37] f[x_] := Module[{}, Print[b]; Return[x] ] こう定義し直したら f[6]を実行した時 bがプリントされて、６が返ってくるようになりました。 どうしてよくなったかは分からないですが… 746 名前：１３２人目の素数さん mailto:sage [03/10/05 22:00] >>745 >>602を見ろ。 747 名前：744 [03/10/05 23:02] >>746 ありがとうございます。 こう定義し直して、うまく行くことが分かりました。 f[x_] := ( Print[b]; Return[x] ) 748 名前：１３２人目の素数さん mailto:sage [03/10/07 23:53] y^2=x^3-2 (-2<=x<=2)このグラフが書きたいのですが･･･ Plot[Sqrt[x^3 - 2], {x, -2, 2}]こう書くと上手くいきません。 どなたか教えてくださいませm(__)m 749 名前：１３２人目の素数さん [03/10/08 02:02] >>748 そりゃあ、x^3-2<0の部分は書けないに決まってる。 750 名前：１３２人目の素数さん mailto:sage [03/10/08 15:25] >>748 <<Graphics`ImplicitPlot` ImplicitPlot[y^2 == x^3 - 2, {x, -2, 2}, AspectRatio -> 1] 751 名前：748 mailto:sage [03/10/08 21:53] >>749さん >>750さん （ﾟ´Д｀ﾟ）どうもありがとうございます。助かりました。 752 名前：１３２人目の素数さん [03/10/12 18:49] だれかWebMathematicaを使ってWeb上で数式処理が無料でできるサイトを構築してください！ 俺にはMathematicaを個人的に買える予算などないんです！学生じゃないし！ 753 名前：１３２人目の素数さん mailto:sage [03/10/13 02:23] おとなしくみゅーぱっどでも使っとれ 754 名前：１３２人目の素数さん [03/10/15 23:37] >>753 プロ版じゃないと見栄えが悪いと言ってみる。 755 名前：１３２人目の素数さん mailto:??? [03/10/16 09:39] じゃ、MAXIMA使えばぁ 756 名前：１３２人目の素数さん mailto:sage [03/10/16 12:08] フリーウェアでほとんどの数式をグラフにしてくれるソフトあるよね。 どんな極方程式もグラフにしてくれるやつ。すげー楽しい 757 名前：１３２人目の素数さん mailto:sage [03/10/19 14:52] Functionのコマンドについて質問です ｘ＾２＋ｙ＾２が０になるときのｘを求めるもので 条件としてｙはすでにリストになっています（例えば、y[[1]]=1,y[[2]]=2） そこで、functionを使ってｘについての方程式をつくり求めようとしました が、 A=Table[0,2]; Do[ A[[i]]=Function[{x,y},x^2+y^2][x,y];,{i,1,2} ]; として、A[[1]][1]と出力した場合にx^2+1[1]となってしまい、ｘに１を代入してくれません 理想としては１＋１（=2）となってほしいのです どのようにすれば、求めることが出来るのでしょうか？ よろしくおねがいします 758 名前：１３２人目の素数さん mailto:sage [03/10/19 16:28] >>757 貼っても動かない上に全く意味不明だ。 Table[0,2]とはなんだ。 (x^2 + y^2)[1]でなにがやりたいのだろうか。 759 名前：１３２人目の素数さん mailto:sage [03/10/19 16:38] x^2 + y^2 が0になるような整数は(0,0)しかない。 760 名前：７５７ mailto:sage [03/10/19 18:15] すいませんでした。実際ｘはもっと複雑な関数でして、わかりやすくするために ｘにしてしまいました。 つまりやりたいことは、ある２つの変数（ｘ、ｙ）をもった式があります 条件としてｙはすでに決まっていてリスト化されています（例：ｙの１番目＝１、２番目＝２、ｎ番目・・・） そこで、ｙがｎ番目の時に式＝０となるときのｘを求めたいのです 761 名前：１３２人目の素数さん mailto:sage [03/10/19 20:33] y = Range[10]; A := Table[Function[x, x^2 +  y[[i]]^2 // Evaluate], {i, 1, 10}]; A[[1]][1] なんども書き込んでるんだけど反映されない… 762 名前：１３２人目の素数さん [03/10/19 21:17] Plotを使ってグラフを描いたときに目盛りに書かれる数字を大きくする方法ってあるんでしょうか。 グラフを大きくしたいときに表示されている部分の角をマウスでドラッグして大きさを変えているんですが、 目盛りの数字が大きくならないんです。 最初に描かれるグラフの大きさも変えたいんですがこちらも分かりません。 全然数学な内容でなくて申し訳ありませんが教えてもらえないでしょうか。 763 名前：757 mailto:sage [03/10/19 22:29] ありがとうございます。そのやり方でできました。 あの、そこで例えばx＾2+y^2=100と置いた時に x^2+1=100, x^2+4=100 ・・・ x^2+100=100と１０個のリスト化された式がでます そこで、xを求めるためにFindRootを使ったのですがリスト化されたものに対して 答えを出そうとするとうまく行きません 答えをリストとして出すためにはどのようにすればいいのでしょうか よろしくおねがいします 764 名前：１３２人目の素数さん mailto:sage [03/10/19 23:09] 少しは自分で考えろ。 765 名前：１３２人目の素数さん mailto:sage [03/10/19 23:25] >>762 DefaultFont -> {"Bold", 10} 766 名前：１３２人目の素数さん mailto:sage [03/10/19 23:50] >>765 ありがとうございます。明日早速試してみます。 >>764 すみません、Plot周りのオプションで探してはみていたのですが 「それじゃ見つかるわけがない」と猛反省しています。 767 名前：772 mailto:sage [03/10/20 14:05] 自己解決いたしました。ありがとうございました 768 名前：１３２人目の素数さん [03/10/22 20:19] mathematica5のStudent版買った人いる？ 769 名前：１３２人目の素数さん [03/10/26 20:25] 買ったよ。パスワード申請が相変わらず(｀×´)丿ウザイ!! 770 名前：１３２人目の素数さん [03/10/26 23:26] 最近のMathematicaも Windows版、Mac版、Linux版とかは一枚のCDで提供されているんですか？ 少なくとも3.0の頃はNeXTとかも一緒に入っていて プラットフォームの乗り換えの時、便利でしたが。 771 名前：１３２人目の素数さん mailto:age [03/10/27 00:45] Winnyで落としたんだけど、なんかパスワードだか必要で使えん 意味ねー 772 名前：１３２人目の素数さん [03/10/27 01:08] >>771 keyGeneratorがついてるだろ 773 名前：１３２人目の素数さん [03/10/27 01:23] >>772 そんなアドバイスしてどうする… 774 名前：１３２人目の素数さん [03/10/27 02:52] >>769 ネットでできるようになったんじゃなかったけ？ 775 名前：１３２人目の素数さん [03/10/27 03:04] ImportやExportのデフォルトのフォルダを指定する方法ありませんか？ 初期設定は、Mathematica.exeと同じフォルダになってるけど そこだと毎回面倒なので、デスクトップとかマイドキュメントに変えたいです。 今はImport["C:\Documents and Settings\galois\My Documents\sound.wav"] とか書いてます。 776 名前：１３２人目の素数さん [03/10/27 08:51] 今日アクティベーションが切れた。 来年から社会人だから糞高い値段かわんといけんのかと思うと鬱 777 名前：１３２人目の素数さん [03/10/28 17:17] 会社で買ってもらえ（ｗ 778 名前：１３２人目の素数さん [03/10/28 20:59] Yahooオークションで安いの出てるよ でもたぶん違法だと思うが 779 名前：１３２人目の素数さん [03/10/30 00:57] 高いねぇ、教員やっていても無茶苦茶高い。しかもバージョンアップが 毎年あって、その価格もとても高い。こんなのを学校で教育に使うという ことは、ＭＡＴＨＥＭＡＴＩＣＡの会社に貢物をしているようなもので 正気じゃない。卒業生が馬鹿高いソフトを買うように仕込んで協力している ようなものだよ。そんな金があるのなら、優等な学生に奨学金を出すべきだ。 780 名前：眠い mailto:sage [03/10/30 01:29] 残念なことに、知ってる範囲のMathematicaユーザは優等生を兼ねてるね 優等生は金持の息子が多い、生活に余裕がないと自由に勉強する余裕がないからそうなる 781 名前：１３２人目の素数さん [03/10/30 20:19] 貧乏人はフリーのMuPad,maximaを使えってことでつか Mathematicaを持っているおいらはバージョンアップしないで 古いやつを大事にしまつ 782 名前：１３２人目の素数さん mailto:sage [03/10/30 22:06] 忘れるな、MuPadは無料だが中身はブラックボックスだ。その点Mathematicaと一緒。 それと古いMathematicaのバグや劣ったアルゴリズムは懐で温めても直らんよ。 783 名前：１３２人目の素数さん [03/10/30 23:08] 激しく既出だが、mupadはmathematicaよりmapleの方に近い。 ところで、mathematica4.0を持っているのだが、バージョンアップできるのは 5.0までか？それとも、5.1、5.2まで待てるか？ 784 名前：１３２人目の素数さん [03/10/30 23:33] 4.0のupは5.0までだとDMにあったような 785 名前：１３２人目の素数さん [03/10/31 23:29] オープンソースの数式処理ソフトって何? 786 名前：１３２人目の素数さん [03/11/05 20:16] 東西南北に行けるという2次元ランダムウォークをなんとか自力で組み立てた んですが、格子のない（今いるところから半径１の円周上に動く）ランダムウォークが どうしてもつくれないんですけど、どうしたら作れますか？アドバイス下さい。 当方まだmathematicaさわってまだ1ヶ月なもんでさっぱり知識ありません(^^; 自分で調べようにもいきなり学校でやれっていわれたもんなんで参考書すらないのです･･･ 参考(?)までに格子のあるランダムウォークの肝心な所を載せます↓ Walk2D[n_] := FoldList[Plus, {0, 0}, {{1, 0}, {0, 1}, {0, -1}, {-1, 0}} [[Table[Random[Integer, {1, 4}], {n}]]]] いきなり長文＆質問すいませんです 787 名前：１３２人目の素数さん mailto:sage [03/11/05 21:33] >>768 Walk2D[n_Integer] :=   FoldList[Plus, {0,0},     {Cos[#], Sin[#]}& /@ Table[Random[Real,{0,2 Pi}], {n}]] ListPlot[Walk2D[60], PlotJoined->True] 788 名前：786 [03/11/07 01:22] >>787 おぉ、すごい！！本当にランダムな角度で動いてますね！！！！ 皆さんこんなの朝飯前ぐらいな問題ですか？ どーもありがとうございましたm(_ _)mﾍﾟｺ 789 名前：１３２人目の素数さん [03/11/07 21:57] 教えてつかあさい。 ttp://phong.informatik.uni-leipzig.de/~kuska/mathgl3dv3/ ここにあるMathGL3d for MacOS X というのを使いたいのですが、 インストールできません MacOS XのMathematicaはパッケージなんで サブフォルダに必要なファイルを入れることができないんです ?? 790 名前：１３２人目の素数さん [03/11/08 00:04] >789 拡張子 .app を取ると、フォルダになります。 それでいいのかわかりませんが 791 名前：１３２人目の素数さん [03/11/08 13:26] SolveやNSolveなどで複素数の答えがでてしまう式があります。 答えをCases[%, _Real]などで実数の範囲内を出すことができますが、 答えを編集するのではなく もともとの式の変数の範囲を固定して 計算の高速化なり、入力する式達の簡略化はできるのでしょうか？ 速度は不満ではないのですが、少し気になったので。 792 名前：１３２人目の素数さん [03/11/08 18:48] >789 コントロールキーを押しながら Mathematicaのアイコンをクリック

---

---

[ 続きを読む ] / [ 携帯版 ]

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