〓Mathematica〓

1 名前：１３２人目の素数さん [2001/03/20(火) 02:34] ないので立てました。 Mathematicaについて語るスレです。 大学で初めて出会った時は感動したなぁ。(NeXT版…) Plot3Dでよく遊んだものです。 四次方程式の一般解を出力して、壁に貼ったりしてました（ｗ 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のアイコンをクリック 793 名前：１３２人目の素数さん [03/11/13 19:23] Mathematica でバイナリファイルを読み込もうと In[1]:= Needs["Utilities`BinaryFiles`"] In[2]:= ReadListBinary["filename",Int16] としているんですが処理が全然終わらないんです。 webで検索して library.wolfram.com/infocenter/MathSource/354/binary.zip をみつけたのですが、mccがうまく動いていないのか % mcc binary.tm -o binary "binary.tm", line 189.15: 1506-195 (S) Integral constant expression with a value greater than zero is required. (このあともいっぱい似たようなのが表示されます) となりビルドできません。 実は読もうとしているデータはエンディアンが違い、 読めた後も一工夫しなければいけなさそうでそちらを相談したかったんですが、 それ以前に読めなくて行き詰まってしまっています。 どなたかこの原因をご存知の方、対処法を教えていただけないでしょうか。 Mathematicaのバージョンは Mathematica 4.1 for IBM AIX です。 794 名前：大学生 [03/11/13 22:57] 大学で課題がでたんですがみなさんの案で私を助けてください！ 問題（例えば高校の参考書の問題や例題、大学の問題でも可）をあげてそれの解答の一部分をマスマティカを使って 視覚的に解説せよ。（アニメーションを使うと理想的） ってのがでたんですが、イイ案ありませんか？人とはちがったのをやりたいんですが・・・ 私には知識がありません。おねがいします。 アド載せとくんでマスマティカのソースファイルなんかを添付してくれれば一生感謝します。 どうかおねがいします！もちろん書き込みしてくれても感謝ですｍ（＿＿）ｍ 795 名前：大学生 mailto:mrhnr721@ybb.ne.jp [03/11/13 23:03] >>794です。アド載ってませんでした。 796 名前：１３２人目の素数さん [03/11/14 02:54] y=-x/(x^2+2)のグラフとその接点と接線を書きたいのですが、グラフと接点をtableとshowを使って 動かすのまではうまくいくのですが、接線が動きません、てか接線だけすら表示できません。教えてください。 797 名前：朝から呑んでる大学生 mailto:sage [03/11/14 09:41] >>796 暇つぶしになんとなく Do[{ bmp=Graphics[{RGBColor[1,0,0],PointSize[0.02], Point[{x,x/(x^2+2)}],{RGBColor[0,1,0], Line[Table[{k,k/(k^2+2)},{k,-10,10,.2}]]},{RGBColor[0,0,1], Line[Table[{p,(2-x^2) p/(x^2+2)^2+2 x^3/(x^2+2)^2},{p,-10, 10,.2}]]}}]; Show[bmp]},{x,-10,10}] 798 名前：１３２人目の素数さん mailto:sage [03/11/14 10:10] >>797 何呑んでるの？ 799 名前：１３２人目の素数さん [03/11/14 19:45] ｘ軸とｙ軸を描いてy=-x/(x^2+2)のグラフを固定し接線を動かすにはAxes->Trueとなにを使えばいいんですか？ 800 名前：１３２人目の素数さん [03/11/14 20:22] >>799 PlotRange 801 名前：797 [03/11/14 21:00] >>798 マサイの戦士 802 名前：１３２人目の素数さん mailto:sage [03/11/14 23:21] >>801 「呑んでる」言うから酒かと思ったらソフトドリンクかい 803 名前：１３２人目の素数さん [03/11/17 17:40] >>802 マサイの戦士は「ソフト」ドリンクですか？？ 804 名前：マティカの戦士 mailto:sage [03/11/18 11:05] >>803 こんな飲み物 www.otsuka.co.jp/mss/ 805 名前：狼 [03/11/18 22:27] あのーサイクロイドをマスマティカで書きたいんですがどうすればいいですか？？ てかサイクロイドって円の一点を固定（？）して円を転がしてその一点の動いた軌跡じゃないですか？ 私は円を転がしてその軌跡が描かれていく様子をアニメーションを使って表そうとしてるんですが、 うまくいきません。円と一点と軌跡をShowをつかってあらわしたいんです。 どうかだれか教えてください。（日本語下手ですいません） 806 名前：１３２人目の素数さん [03/11/18 22:52] >>805 Mathematicaのヘルプにサンプルがあるだろ 807 名前：狼 [03/11/18 23:30] help英語でわかりません。コピペしていただけたらありがたいです 808 名前：１３２人目の素数さん [03/11/18 23:59] XpでMathematica5を使ってると，ときどきカーネルが落ちるんだけど， 同じような人いる？ 809 名前：１３２人目の素数さん mailto:sage [03/11/19 00:16] >>808 重い計算させてりゃＸＰでなくてもカーネルは落ちる 810 名前：１３２人目の素数さん mailto:sage [03/11/19 10:42] >>808 カーネルの中の人も大変だからな 811 名前：supermathmania ◆ViEu89Okng [03/11/19 12:51] いいこと教えてあげよう。 Mathematicaを使うときは、なるべく他のアプリケーションは切る。 これを守れば今日からジンセイバラ色(?) 812 名前：supermathmania ◆ViEu89Okng [03/11/19 12:54] 私がいつかやってしまった事だが、 TeXのdviファイルのプレビューと、Mathmaticaを同時に動かしたとき、フリーズした。 気をつけよう。 813 名前：１３２人目の素数さん mailto:sage [03/11/19 14:41] >>810 そういえば中の人などいないって聞かないね。 これも中の人がいるということが広く認知されたということか。 814 名前：狼 [03/11/19 15:41] a 815 名前：１３２人目の素数さん [03/11/19 17:59] 811 名前：supermathmania ◆ViEu89Okng ：03/11/19 12:51 いいこと教えてあげよう。 Mathematicaを使うときは、なるべく他のアプリケーションは切る。 これを守れば今日からジンセイバラ色(?) 　　　　　　　　　　　　　　ジンセイバラ色(?) ﾊﾟｼｬ　ﾊﾟｼｬ　 ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ 　　　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　 ﾊﾟｼｬ　ﾊﾟｼｬ　ﾊﾟｼｬ　　ﾊﾟｼｬ 　ﾊﾟｼｬ　 　∧_∧　　　　　∧_∧　　　　 ∧_∧　　∧_∧　　　　∧_∧　　　　 ∧_∧ 　(　　 )】 　 　 　(　　 )】　　　 (　　 )】 【(　　 )　　　 【(　　 )　　　 【(　　 ) 　/　 /┘　.　 　/　 /┘.　 　　/　 /┘ └＼＼　 　　└＼＼　　　└＼＼ ノ￣ゝ　 　　　ノ￣ゝ 　　　 　ノ￣ゝ　 　　　ノ￣ゝ 　　　 ノ￣ゝ　 　 　ノ￣ゝ 816 名前：１３２人目の素数さん mailto:sage [03/11/19 19:48] >>811 おまいの環境がわかるわｗ 817 名前：１３２人目の素数さん [03/11/22 02:47] 行列を貼り付けたのですが Dimensions[a]で実行したところ Out[数字]＝｛100,100｝とならずに ｛1,100｝ Out[数字]＝｛100｝ と成ってしまいます。｛1,100｝ならわかるんですが、、 問題解決できるひといませんか？（これだけではわからないかな・・・） 818 名前：１３２人目の素数さん mailto:sage [03/11/22 11:08] >817 行列ってのは { {a1 , a2 , ... } , { b1 , b2 , ... } , ... } てな形なので、２つの階層のどっちかで , コンマが抜けているのでは。。。 819 名前：１３２人目の素数さん [03/11/22 17:09] supermathmaniaって実社会でも干されてんの？ 820 名前：１３２人目の素数さん [03/11/22 23:01] マセマティカでべき級数展開ってできますか？ 821 名前：１３２人目の素数さん [03/11/22 23:05] すいません、ちょっと質問なんですけど、 教科書で使われてるような図をMathematicaで作成したいのですけど、 ある領域を斜線で塗りつぶすような事ってできますか？ 822 名前：１３２人目の素数さん [03/11/22 23:55] >>821 液晶汚してもいいならできるよ 823 名前：１３２人目の素数さん mailto:sage [03/11/23 00:17] >>821 色塗はできるが斜線は自分で引くしかないんじゃないか。 824 名前：821 mailto:sage [03/11/23 00:58] そうですか、わかりました〜ありがとうございます。 自分で作ってみますね。 825 名前：１３２人目の素数さん [03/11/23 22:21] >>807 www.synapse.ne.jp/~dozono/math/anime/cycloid.htm 826 名前：１３２人目の素数さん [03/11/25 13:17] >>818 ありがとうございます。違うところでの入力ミスでした。 でも、数百×数百の逆行列を計算しようとして、結果メモリー不足になり 計算できませんでした。普通のPCでこんな計算するのが間違ってましたｗ 827 名前：１３２人目の素数さん [03/12/04 03:09] EmacsのMathematica-modeなんてあるのを知った。 フロントエンドよりマシな環境ができたらうれしいな〜。 とりあえずコマンドの補完とか括弧の補完とか それくらいやってほしいなぁ… 828 名前：＿ [03/12/05 03:31] windows でmaximaをtexmacsで起動できた人っている？ 両方インストールした(texmacsのみcygwin)けどtexmacsでmaximaを起動しようとすると, bad url in "complete" というerrorが表示され終了されます｡できた人がいれば教えてください 829 名前：１３２人目の素数さん [03/12/05 05:12] MATHEMATICAって値段が高過ぎ。生協価格が20万円を超えている。 ふざけるなって言いたい。しかも毎年バ-ジョンアップが出てて、 アップデ-トに半額以上払わされる。なんだかぼられているのじゃ ないのかな？ アメリカだと10分の1の値段だったりしない？ 830 名前：１３２人目の素数さん mailto:sage [03/12/05 05:51] >>829 アカデミック価格だと、まあまあ買える値段だよ。 831 名前：１３２人目の素数さん mailto:sage [03/12/05 08:38] >828 環境が違うのでなんともいえないが locate コマンドの db がまだ更新されていないのでは？ 僕はそうでした。 >829 1/10 ということはない。まあ実質半分かな 向こうでは $2000 を超えていないはず。 日本は、日本語環境 5 万円に１年保守費３０％ 強制付きだからね。 もう個人は買うなってこと。。。 １０年前は海外から３万円でアップデートして くれたのにな 832 名前：＿ [03/12/06 06:13] >>831 レスthx。更新しても駄目でした｡ xmaximaは動くのですがmaximaをcygwinのxtermで動かす事ができなかったので, その辺が原因だと考えてます｡誰か分かる人いたら教えてください｡ 激しくすれ違いスマソ 833 名前：１３２人目の素数さん mailto:sage [03/12/06 23:45] you should not ever use Japanese. 834 名前：１３２人目の素数さん [03/12/07 10:07] {{a,b},{c,d},{e,f}}のようなリストを {a,b,c,d,e,f}にする簡単な方法はありませんか？ 835 名前：１３２人目の素数さん mailto:sage [03/12/07 10:43] Flatten[%]でいけました。よごし失礼。 836 名前：１３２人目の素数さん [03/12/07 18:02] >829 生協に商用版がおいてあるの? 837 名前：１３２人目の素数さん mailto:sage [03/12/07 23:53] この関数を fbbs = Flatten[Cases[ ReplaceAll[{u, t}, NSolve[{fbb[#1, #2, #3, #4], fbb[#5, #6, #7, #8]}, {u, t}]], {_Real, _Real}]]&; こんな↓感じにする、いい方法はないかな。 目的は可読性の向上。 NSolve[{fbb[#1, #2, #3, #4], fbb[#5, #6, #7, #8]}, {u, t}] ReplaceAll[{u, t}, %] Cases[%, {_Real, _Real}] fbbst2 = Flatten[%]& ↑の方法だとうまくいかないのです。 Flatten[%]がそのままはいってしまいます。 838 名前：１３２人目の素数さん [03/12/08 16:31] >>836 Student版が29000で売ってる software.univcoop.or.jp/products/mathematica/student.html 839 名前：１３２人目の素数さん [03/12/10 20:33] MATHEMATICA4.0をUNIXにインストールしようと思ったのですが、 パスワードだけ書き残していてライセンスIDをなくしてしまっていました。 さてここで問題です。 いったい私はどうしたら良いのでしょうか？ 840 名前：１３２人目の素数さん [03/12/10 20:43] ノーヒントですか？ 相談なしですか？ 841 名前：１３２人目の素数さん mailto:sage [03/12/10 22:05] >>840 俺のライセンスＩＤなら・・・ 842 名前：１３２人目の素数さん [03/12/11 11:35] ライセンスIDってCD-ROMの袋に書いてなかったっけ？ ライセンスIDって無くしたら大変な気がするけど。。。 843 名前：１３２人目の素数さん [03/12/11 12:27] 誰かただでください！ 844 名前：１３２人目の素数さん mailto:sage [03/12/11 15:33] C言語から評価式と、入力したパラメータをMathematicaに送り，Mathematicaで計算， 結果をCプログラムに返して表示される、というものを作ろうとしています． で，関数を書いてみたのですが，いくつかわからない点がありましたので質問させてください． �@MathKernel.exeのパスの指定はどのようにするのでしょうか？ CプログラムのほうからMathKernel.exeのパスを指定し，char変数PATHに格納してあるとすると， link = MLOpenString(env, "-linklunch -linkname 'PATH'", &err); でいいのでしょうか？ �Aパッケージの読み込み時に使うのは以下のようにMLPutStringで良いのでしょうか？ MLPutFunction(link, "Get", 1); MLPutString(link, "Package"); �B一時変数はC言語側で定義するのでしょうか？ たとえば，以下の評価式で変数y,zはCプログラムのほうから入力するとき，y,zはC言語側で定義しますが，一時変数xもC言語側で定義するのでしょうか？(用いる変数はMathmatica内部で使用するのみであってもすべてCで定義するのでしょうか？) temp = y + z x = temp^temp 845 名前：844 mailto:sage [03/12/11 15:34] �C定義関数f[t_]=〜を送信するのはどうすれば良いのでしょうか？ f[Pattern[t, Blank[]]から，以下のようにしてみたのですが・・・ MLPutFunction(link, f, 1); //←これでいいのか？ MLPutFunction(link, "Pattern", 2); MLPutDouble(link, t); MLPutFunction(link, "Blank"); �D(x^y + z)のように関数Plusの引数に関数Powerが入っている場合，送信するのは MLPutFanction(link, "Plus", 2); MLPutFanction(link, "Power", 2); //←ちゃんとPlusの引数と見なされるのか？ MLPutInteger(link, x); MLPutInteger(link, y); MLPutInteger(link, z); でいいのでしょうか？ 長くなりましたが，よろしくお願いします m(_ _)m 846 名前：844 mailto:sage [03/12/11 15:36] �Bに関して・・・ 一時変数xも→一時変数tempと結果を代入する変数xも の間違いです 847 名前：こてはん [03/12/11 19:35] >>842 それほんと？ 探してみたら俺のも行方不明でした・・・。 ピンチ？ 848 名前：１３２人目の素数さん mailto:sage [03/12/11 22:06] >>843 ヤフオクに出てる違法コピー買って摘発されてくださいｗ 849 名前：１３２人目の素数さん mailto:sage [03/12/11 22:29] 今M2で今年で卒業なんだけど 卒業までにstudent版を買ってら、来年も問題なく使えますか？ それとも自動的にライセンスが切れる仕組みになってるの？ 卒業までに残りの貯金でソフトを購入する覚悟はできたのですが。 850 名前：837 mailto:sage [03/12/12 00:30] >>844 E:\Program Files\Wolfram Research\Mathematica\4.0\AddOns\ MathLink\DevelopersKits\Windows\UnsupportedGoodies\VCFE\Source\ と ヘルプのアドオンMathLink当たりにすべての答えがあると思います。 自作のprogramはwrapper classを作って 頭にMLの文字とMLINKの引数が無いのでそれを前提として読んで見てください。 １、これを渡していました。 "-linkname \'\"E:\\Program Files\\Wolfram Research\\Mathematica\\ 4.0\\MathKernel.exe\" -mathlink\' -linkmode Launch"; err checkはしていませんでした。 > link = MLOpenString(env, "-linklunch -linkname 'PATH'", &err); ちゅうかsprintfしないと……。 ２、たぶん、EndPacket();が必要です。 851 名前：837 mailto:sage [03/12/12 00:30] ３、y + zとtemp ^ temp を複数のPutFunctionでやる場合は結果を受け取る時に必要です。 それを一つの関数にしてしまいひとつのPutFunctionでやる場合は必要ありません。 F.E. y + z temp^temp それぞれ送信する場合、それぞれ答えが帰ってくる。 x = (y + z) ^ (y + z) これなら一つの結果しか返ってこない。 temp = y + z x = temp^temp これを一気に送信したら、２つの答えが帰ってくる。 temp = y + z; x = temp^temp たぶんこうして一気に送信したら一つだけだと思う。 ４、初期化時に char *型の配列を用意して関数を登録(VCFEのサンプルにあるEvaluateを呼び出し) してそれをPutFunctionしている。 つまり fx = f[Pattern[#1, Blank[]]&; を登録して PutFunction(fx, 1); PutDouble(t); EndPacket(); 852 名前：837 mailto:sage [03/12/12 00:31] ５、それはよくわからないからtry&errorで。 僕の場合は４の通り、使う関数をすべてあらかじめ登録してから使っています。 おまけ、 EndPacket後に、答え以外のパケットが帰ってくる場合の処理が面倒です。 それは試行錯誤してみてください。 たぶん例に出したような簡単な処理をするのではないと思いますが、 もし桁数を考えないで計算したいのであれば、多倍長 ライブラリで検索して見てください。 GMP,NTLがおすすめ。 むむむ、質問に答える事で、自分の質問の答えがわかった。thank you。 853 名前：１３２人目の素数さん [03/12/12 12:03] >>847 ホントだよ。 今使えてるならば C:\Program Files\Wolfram Research\Mathematica\4.2\Configuration\Licensing\mathpass ってファイルにライセンス情報が書かれていて そこにちゃんとライセンス番号もあるから大丈夫 今の内に控えておこう。 ちなみにこのmathpassファイルはOSを再インストールしなかったら使い回しできる。 いちいちWolframにパスワードを聞かなくて済むので便利。 OSを入れ替えたり、別のパソコンにインストールしようとした場合は MathIDが変わるからWolframのお世話にならないとダメ。 ライセンスIDが完全に分からない場合はどうするのかねえ。 Wolframに聞いてみるとかか？ >>839はパスワードはあるみたいだし、是非聞いて欲しい。 報告待ってま〜す。 854 名前：１３２人目の素数さん mailto:sage [03/12/12 12:09] >>849 問題なく使えるけどライセンス違反だぞ。 次回パスワードをもらうときに、困ったりするかもしれなかったりするかもしれない。。。 たぶん困らないけど。。。 昔はWolframに英語のメール出したりしてパスワード再発行しないといけなくて大変だった。 英語苦手だから、訳分からない文章だったろうなぁ。。。 Hey!とかから始めたし。 855 名前：１３２人目の素数さん mailto:sage [03/12/12 12:30] >>849 俺もstudent版買ってパスワードもらう時、卒業時期を 思いっきりごまかしといたからだいぶ使えそう。 アップグレードもしないと思うし。 856 名前：844 mailto:sage [03/12/12 18:45] >>850 とても詳しいお答えありがとうございました． 提示していただいたサンプルプログラムやヘルプも参考にしてみたのですが，下記の点についていまいちわかりませんでした． �@ >> link = MLOpenString(env, "-linklunch -linkname 'PATH'", &err); >ちゅうかsprintfしないと……。 wsprintf(launchstring, " -linklunch -linkname '%s'", PATH); link = MLOpenString(env, launchstring, &err); としてみたのですが，提示していただいたサンプルプログラムを見てみると，LinkProtocolの指定を行っていますが，これは必要あるのでしょうか？ �A >たぶん、EndPacket();が必要です パッケージ読み込みの送信をしてMLEndPacket(link);を送信，その後に評価式の送信を行う場合はMLNextPacket(link);を送信する必要があるのでしょうか？ �B >y + zとtemp ^ temp を複数のPutFunctionでやる場合は結果を受け取る時に必要です。 >それを一つの関数にしてしまいひとつのPutFunctionでやる場合は必要ありません。 y + z の結果tempの値をCプログラムの方に返さない、つまり temp = y + z; を送ってやれば，変数定義する必要はないということでしょうか？ またtemp = y + z;の送信をする際， CompoundExpression[Set[temp, Plus[y, z]], NULL] の引数NULLを送信するときの関数は何を用いるのでしょうか？ 857 名前：844 mailto:sage [03/12/12 18:47] �C 大変恐縮ではありますが，関数の登録について詳しく教えていただけないでしょうか？ VCFEのEvaluate関数のところを見てみたのですが，正直なところほとんどわかりませんでした・・・ もちろん自分で理解しようと勉強してはいるのですが，苦戦している状況です・・・ �D VCFEをビルドしてみたところ LINK : fatal error LNK1104: ﾌｧｲﾙ "..\..\..\..\Program Files\Microsoft Visual Studio\VC98\Lib\ml32i2m.lib" を開けません。 とエラーが出てビルドできません．ml32i2m.libは C:\Program Files\Microsoft Visual Studio\VC98\Lib にコピーしたのですが，できませんでした．他に何が必要なのでしょうか？ 当方MathematicaもC言語も学び始めて間もないので理解が浅く，お手数とは存じますがよろしくお願いしますm(_ _)m 858 名前：839 [03/12/12 21:01] >>853 むぅ〜、mathpassに身に覚えの無い数字とアルファベットが タブ区切りで入っているのですがこれをどう理解すればよいの？ 859 名前：837 mailto:sage [03/12/13 00:27] >>844,856-857 ＊LNK1104を調べて見て。 ようはlibはcopyをするだけで使えるようになるわけではなく、 リンカにこのlibを使うと教えてあげなければ、使えるようにはなりません。 VisualStadioのプロジェクトのプロパティでリンカの部分で指定してあげてください。 また、libはcopyするのではなく、libがあるフォルダのパスを通してあげてください。 menu,ツール->オプション,プロジェクトでライブラリファイルが指定できるはずです。 （VS.Net 2003であれば） ＊僕もMathLinkをバリバリ使っているというわけではないので、間違えが含まれるかも知れません。それを前提として読んでください。 僕の前の発言は少し間違いがふくまれているかもしれません。 こちらでEvaluate関数を改造してしまっていたので、そのまま式を渡しても自作関数を 登録（定義）したことにはならないかもしれませんし、いけるかもしれません。try&errorで。 ＊MathLinkは二種類の式の呼び出し方をサポートしています。 ひとつは関数を指定して、値を一つずつ渡す方法。 PutFunction("Plus", 2); PutReal(hoge); PutReal(hage); EndPacket(); もうひとつが、式の文字列をそのまま渡す方法。（TextPacketかEnterTextPacket （違いはみていない）の関数の引数として式の文字列を渡す。） PutFunction("TextPacke"/*不安*/, 1); PutByteString((const BYTE *)"hoge + hage"); EndPacket(); 860 名前：837 mailto:sage [03/12/13 00:27] 上の例だとGetReal();で答えを取れるはずですが、 下の例だとhelpファイルを見れば分かりますが、答えがそのまま文字列として 帰ってくるので、GetString(&OutputString);でとればOKです。 VCFEのEvaluate関数は下の例でやっています。 ＊関数の定義は別に難しい事をやっているわけではなく、 Mathematica上で関数の定義をするのとまったく一緒です。 // ベジェ曲線を媒介変数ｔを指定しxyposを取得 // #1 t #2 q0 #3 q1 #4 q2 #5 q3 char szInit_fb[] = "fb = (1 - #1)^3 #2 + 3(1 - #1)^2 #1 #3 + 3(1 - #1)#1^2 #4 + #1^3 #5&;"; // #1 t #2 q0x #3 q0y #4 q1x #5 q1y #6 q2x #7 q2y #8 q3x #9 q3y char szInit_fb2[] = "fb2 = List[fb[#1, #2, #4, #6, #8], fb[#1, #3, #5, #7, #9]]&;"; この二つの式をMathmatica上で定義しておけば、 fb2[(* 略 *)] と打ち込むだけで答えが返ってきます。 同じように自作プログラムでは、あらかじめEvaluate関数で上の二つを定義しておき、使う時に PutFunction("fb2", 9); /* 略 */ EndPacket(); で答えが返ってきます。 あとNullは固定シンボルであるようです。helpファイルを。 861 名前：１３２人目の素数さん [03/12/13 09:30] >>858 どう理解って… そんなの他人に入れてもらったとしか理解できんよ。。。 割れてるんじゃないの？ 862 名前：858 [03/12/13 09:43] >>861 自分で入れたんだけどね、 あそこにはパスなどの情報がそっくりそのままの状態で入ってるの？ 識別できたのは自分で任意にいれた名前と所属ぐらいだったよ。

---

---

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

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