〓Mathematica〓
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001１３２人目の素数さん
NGNGMathematicaについて語るスレです。
大学で初めて出会った時は感動したなぁ。(NeXT版…)
Plot3Dでよく遊んだものです。
四次方程式の一般解を出力して、壁に貼ったりしてました（ｗ
0809１３２人目の素数さん
NGNG重い計算させてりゃＸＰでなくてもカーネルは落ちる
0810１３２人目の素数さん
NGNGカーネルの中の人も大変だからな
0811supermathmania ◆ViEu89Okng
NGNGMathematicaを使うときは、なるべく他のアプリケーションは切る。
これを守れば今日からジンセイバラ色(?)
0812supermathmania ◆ViEu89Okng
NGNGTeXのdviファイルのプレビューと、Mathmaticaを同時に動かしたとき、フリーズした。
気をつけよう。
0813１３２人目の素数さん
NGNGそういえば中の人などいないって聞かないね。
これも中の人がいるということが広く認知されたということか。
0814狼
NGNG0815１３２人目の素数さん
NGNG811 名前：supermathmania ◆ViEu89Okng ：03/11/19 12:51
いいこと教えてあげよう。
Mathematicaを使うときは、なるべく他のアプリケーションは切る。
これを守れば今日からジンセイバラ色(?)
ジンセイバラ色(?)
ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ
ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ ﾊﾟｼｬ
∧_∧ ∧_∧ ∧_∧ ∧_∧ ∧_∧ ∧_∧
( )】 ( )】 ( )】 【( ) 【( ) 【( )
/ /┘ . / /┘. / /┘ └＼＼ └＼＼ └＼＼
ノ￣ゝ ノ￣ゝ ノ￣ゝ ノ￣ゝ ノ￣ゝ ノ￣ゝ
0816１３２人目の素数さん
NGNGおまいの環境がわかるわｗ
0817１３２人目の素数さん
NGNGDimensions[a]で実行したところ
Out[数字]＝｛100,100｝とならずに
｛1,100｝
Out[数字]＝｛100｝
と成ってしまいます。｛1,100｝ならわかるんですが、、
問題解決できるひといませんか？（これだけではわからないかな・・・）
0818１３２人目の素数さん
NGNG行列ってのは
{ {a1 , a2 , ... } , { b1 , b2 , ... } , ... }
てな形なので、２つの階層のどっちかで
, コンマが抜けているのでは。。。
0819１３２人目の素数さん
NGNG0820１３２人目の素数さん
NGNG0821１３２人目の素数さん
NGNG教科書で使われてるような図をMathematicaで作成したいのですけど、
ある領域を斜線で塗りつぶすような事ってできますか？
0822１３２人目の素数さん
NGNG液晶汚してもいいならできるよ
0823１３２人目の素数さん
NGNG色塗はできるが斜線は自分で引くしかないんじゃないか。
0824821
NGNG自分で作ってみますね。
0825１３２人目の素数さん
NGNGhttp://www.synapse.ne.jp/~dozono/math/anime/cycloid.htm
0826１３２人目の素数さん
NGNGありがとうございます。違うところでの入力ミスでした。
でも、数百×数百の逆行列を計算しようとして、結果メモリー不足になり
計算できませんでした。普通のPCでこんな計算するのが間違ってましたｗ
0827１３２人目の素数さん
NGNGフロントエンドよりマシな環境ができたらうれしいな～。
とりあえずコマンドの補完とか括弧の補完とか
それくらいやってほしいなぁ…
0828＿
NGNG両方インストールした(texmacsのみcygwin)けどtexmacsでmaximaを起動しようとすると,
bad url in "complete"
というerrorが表示され終了されます｡できた人がいれば教えてください
0829１３２人目の素数さん
NGNGふざけるなって言いたい。しかも毎年バ-ジョンアップが出てて、
アップデ-トに半額以上払わされる。なんだかぼられているのじゃ
ないのかな？ アメリカだと10分の1の値段だったりしない？
0830１３２人目の素数さん
NGNGアカデミック価格だと、まあまあ買える値段だよ。
0831１３２人目の素数さん
NGNG環境が違うのでなんともいえないが
locate コマンドの db がまだ更新されていないのでは？
僕はそうでした。
>829
1/10 ということはない。まあ実質半分かな
向こうでは $2000 を超えていないはず。
日本は、日本語環境 5 万円に１年保守費３０％
強制付きだからね。
もう個人は買うなってこと。。。
１０年前は海外から３万円でアップデートして
くれたのにな
0832＿
NGNGレスthx。更新しても駄目でした｡
xmaximaは動くのですがmaximaをcygwinのxtermで動かす事ができなかったので,
その辺が原因だと考えてます｡誰か分かる人いたら教えてください｡
激しくすれ違いスマソ
0833１３２人目の素数さん
NGNG0834１３２人目の素数さん
NGNG{a,b,c,d,e,f}にする簡単な方法はありませんか？
0835１３２人目の素数さん
NGNG0836１３２人目の素数さん
NGNG生協に商用版がおいてあるの?
0837１３２人目の素数さん
NGNGfbbs = 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[%]がそのままはいってしまいます。
0838１３２人目の素数さん
NGNGStudent版が29000で売ってる
http://software.univcoop.or.jp/products/mathematica/student.html
0839１３２人目の素数さん
NGNGパスワードだけ書き残していてライセンスIDをなくしてしまっていました。
さてここで問題です。
いったい私はどうしたら良いのでしょうか？
0840１３２人目の素数さん
NGNG相談なしですか？
0841１３２人目の素数さん
NGNG俺のライセンスＩＤなら・・・
0842１３２人目の素数さん
NGNGライセンスIDって無くしたら大変な気がするけど。。。
0843１３２人目の素数さん
NGNG0844１３２人目の素数さん
NGNG結果をCプログラムに返して表示される、というものを作ろうとしています．
で，関数を書いてみたのですが，いくつかわからない点がありましたので質問させてください．
①MathKernel.exeのパスの指定はどのようにするのでしょうか？
CプログラムのほうからMathKernel.exeのパスを指定し，char変数PATHに格納してあるとすると，
link = MLOpenString(env, "-linklunch -linkname 'PATH'", &err);
でいいのでしょうか？
②パッケージの読み込み時に使うのは以下のようにMLPutStringで良いのでしょうか？
MLPutFunction(link, "Get", 1);
MLPutString(link, "Package");
③一時変数はC言語側で定義するのでしょうか？
たとえば，以下の評価式で変数y,zはCプログラムのほうから入力するとき，y,zはC言語側で定義しますが，一時変数xもC言語側で定義するのでしょうか？(用いる変数はMathmatica内部で使用するのみであってもすべてCで定義するのでしょうか？)
temp = y + z
x = temp^temp
0845844
NGNGf[Pattern[t, Blank[]]から，以下のようにしてみたのですが・・・
MLPutFunction(link, f, 1); //←これでいいのか？
MLPutFunction(link, "Pattern", 2);
MLPutDouble(link, t);
MLPutFunction(link, "Blank");
⑤(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
0846844
NGNG一時変数xも→一時変数tempと結果を代入する変数xも
の間違いです
0847こてはん
NGNGそれほんと？
探してみたら俺のも行方不明でした・・・。
ピンチ？
0848１３２人目の素数さん
NGNGヤフオクに出てる違法コピー買って摘発されてくださいｗ
0849１３２人目の素数さん
NGNG卒業までにstudent版を買ってら、来年も問題なく使えますか？
それとも自動的にライセンスが切れる仕組みになってるの？
卒業までに残りの貯金でソフトを購入する覚悟はできたのですが。
0850837
NGNGE:\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();が必要です。
0851837
NGNGそれを一つの関数にしてしまいひとつの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();
0852837
NGNG僕の場合は４の通り、使う関数をすべてあらかじめ登録してから使っています。
おまけ、
EndPacket後に、答え以外のパケットが帰ってくる場合の処理が面倒です。
それは試行錯誤してみてください。
たぶん例に出したような簡単な処理をするのではないと思いますが、
もし桁数を考えないで計算したいのであれば、多倍長 ライブラリで検索して見てください。
GMP,NTLがおすすめ。
むむむ、質問に答える事で、自分の質問の答えがわかった。thank you。
0853１３２人目の素数さん
NGNGホントだよ。
今使えてるならば
C:\Program Files\Wolfram Research\Mathematica\4.2\Configuration\Licensing\mathpass
ってファイルにライセンス情報が書かれていて
そこにちゃんとライセンス番号もあるから大丈夫
今の内に控えておこう。
ちなみにこのmathpassファイルはOSを再インストールしなかったら使い回しできる。
いちいちWolframにパスワードを聞かなくて済むので便利。
OSを入れ替えたり、別のパソコンにインストールしようとした場合は
MathIDが変わるからWolframのお世話にならないとダメ。
ライセンスIDが完全に分からない場合はどうするのかねえ。
Wolframに聞いてみるとかか？
>>839はパスワードはあるみたいだし、是非聞いて欲しい。
報告待ってま～す。
0854１３２人目の素数さん
NGNG問題なく使えるけどライセンス違反だぞ。
次回パスワードをもらうときに、困ったりするかもしれなかったりするかもしれない。。。
たぶん困らないけど。。。
昔はWolframに英語のメール出したりしてパスワード再発行しないといけなくて大変だった。
英語苦手だから、訳分からない文章だったろうなぁ。。。
Hey!とかから始めたし。
0855１３２人目の素数さん
NGNG俺もstudent版買ってパスワードもらう時、卒業時期を
思いっきりごまかしといたからだいぶ使えそう。
アップグレードもしないと思うし。
0856844
NGNGとても詳しいお答えありがとうございました．
提示していただいたサンプルプログラムやヘルプも参考にしてみたのですが，下記の点についていまいちわかりませんでした．
①
>> link = MLOpenString(env, "-linklunch -linkname 'PATH'", &err);
>ちゅうかsprintfしないと……。
wsprintf(launchstring, " -linklunch -linkname '%s'", PATH);
link = MLOpenString(env, launchstring, &err);
としてみたのですが，提示していただいたサンプルプログラムを見てみると，LinkProtocolの指定を行っていますが，これは必要あるのでしょうか？
②
>たぶん、EndPacket();が必要です
パッケージ読み込みの送信をしてMLEndPacket(link);を送信，その後に評価式の送信を行う場合はMLNextPacket(link);を送信する必要があるのでしょうか？
③
>y + zとtemp ^ temp を複数のPutFunctionでやる場合は結果を受け取る時に必要です。
>それを一つの関数にしてしまいひとつのPutFunctionでやる場合は必要ありません。
y + z の結果tempの値をCプログラムの方に返さない、つまり
temp = y + z;
を送ってやれば，変数定義する必要はないということでしょうか？
またtemp = y + z;の送信をする際，
CompoundExpression[Set[temp, Plus[y, z]], NULL]
の引数NULLを送信するときの関数は何を用いるのでしょうか？
0857844
NGNG大変恐縮ではありますが，関数の登録について詳しく教えていただけないでしょうか？
VCFEのEvaluate関数のところを見てみたのですが，正直なところほとんどわかりませんでした・・・
もちろん自分で理解しようと勉強してはいるのですが，苦戦している状況です・・・
⑤
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
0858839
NGNGむぅ～、mathpassに身に覚えの無い数字とアルファベットが
タブ区切りで入っているのですがこれをどう理解すればよいの？
0859837
NGNG＊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();
0860837
NGNG下の例だと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ファイルを。
0861１３２人目の素数さん
NGNGどう理解って…
そんなの他人に入れてもらったとしか理解できんよ。。。
割れてるんじゃないの？
0862858
NGNG自分で入れたんだけどね、
あそこにはパスなどの情報がそっくりそのままの状態で入ってるの？
識別できたのは自分で任意にいれた名前と所属ぐらいだったよ。
0863１３２人目の素数さん
NGNGそうだよ。
ライセンスIDとかMathIDとかパスワードがそのまま入ってる。
だから同じパソコンに同じOSをインストールして、
そこに同じMathematicaを入れたなら
このmathpassファイルはそのまま使える。
Wolframにパスワードを聞いても、全く同じものが返ってくるしね。
これは自分で確かめた。
0864厨房君
NGNGlinuxのほうはmathpassにそのままデータが入っていたが
確かにwindowsのほうはデータがそのまま入っているようには見えないなぁ
ちなみに4.0でーす。
0865１３２人目の素数さん
NGNGそう？
俺はWindows2000でMathematica4.2だけど
全部そのまま入ってるよ。
まずパソコン名
その次がMathID
そしてライセンスID
パスワードで
最後がユーザー名
そのまま入ってるよ。
0866858=862
NGNGもし問題が無ければ自分の手元にあるパスとmathpassに入っている
（タブで）4つめにあるデータを書き込んで一体どういうことなのか、
更に（タブで）3つめのデータからライセンスIDを推測するには
どうしたらよいかご教授いただきたいのですが、
問題ありですかねぇ。
0867１３２人目の素数さん
NGNGパスワードの方は公開しても何も問題ないと思う。
個々のMathematicaごとに違うから、バレても意味無いしね。
ライセンスIDの方はWolframとやりとりする時に必要そうだから
公開するのはやめた方がいいんじゃないかな？
そのmathpassに書いてある、訳分からない文字列の４番目の方も
そこからライセンスIDが分かったら困るしやめた方がいいかもね。
0868１３２人目の素数さん
NGNG0869１３２人目の素数さん
NGNGパスワードの方だけでも見せてくれない？
そのままじゃないってのがどういう状態なのか見てみたいです。
４番目の所だけ伏せて見せてくれたらベスト。
0870868
NGNG一応部分的に*（中身は数字です）でふせておきます。
mathpassに入っていたデータをタブの順番通りにコピペすると以下の通りです。
aaaa <-自分で任意に入力しました。
**90F64AED623BCB72B3168A
F76EA93EB4840346902DCBE4A72B8F47E89417B223**
28495937**
aaaa <-自分で任意に入力しました。
aaaa <-自分で任意に入力しました。
です。
ちなみに手元のパスワードは
「49874-10775-47982-49844-53548-***」
です。
>>865の順番通りだとすれば
どう理解すればいいのやら・・・。
0871１３２人目の素数さん
NGNG（ユーザー名とパソコン名？じゃもう一つはなんだろ…）
それじゃあライセンスIDは分かりそうもないね。。。
0872844
NGNG丁寧にありがとうございました。
教えてくださったこととVCFEを参考にしてソースを書いてみたいと思います
またなにかありましたらよろしくお願いしますm(_ _)m
0873大学生
NGNGよろしくお願いします。
0874１３２人目の素数さん
NGNG0875８７３
NGNGお願いします。
0877837
NGNGメビウスの歯車だ。
http://mathworld.wolfram.com/gifs/moebgear.gif
0878１３２人目の素数さん
NGNG0879844
NGNG和を計算させるソースを書いてみました.以下はその一部です
char expr[] = "2^4 + 3^2";
const char *OutputString;
case IDC_EVALUATE:
MLPutFunction(link, "EvaluatePacket", 1);
MLPutFunction(link, "ToExpression", 1);
MLPutString(link, expr);
MLEndPacket(link);
MLFlush(link);
while (MLNextPacket(link) != RETURNPKT)
MLNewPacket(link);
MLGetString(link, &OutputString);
wsprintf(szBuf, "OutputString = %s", OutputString);
MessageBox(hDlg, szBuf, "Debug", MB_OK);
MLDisownString(link, OutputString);
MLNewPacket(link);
return TRUE;
この例だとうまく行くのですが，
結果を取得する部分を，この場合は答えは25であり明らかに整数ですので，
MLGetIntegerを用いてみるとアプリケーションエラーで終了してしまいました.
MLGetIntegerなどはどのような場合に使用するのでしょうか？
0880844
NGNGchar expr[] = " Solve[{x + y == 5, 3x + 5y ==13}, {x,y}]";
といった連立方程式の評価を試みてみたところ，同様にアプリケーションエラーが出て終了してしまいました.
結果の取得に用いる関数がMLGetStringでは正しくないためと思われるのですが，どの関数を用いて結果の取得を行えばいいのでしょうか？
MLGetRealList等試してみたのですが，うまくいきませんでした.
よろしくお願いします
0881837
NGNG違いはわかりませんが、TextPacke、EnterTextPacketと同じく
式を文字列でおくり、結果を文字列で返す関数だと思います。
結果をGetIntegerでもらう場合はこうです。
PutFunction("Plus", 2);
PutInteger(1);
PutInteger(1);
EndPacket(link);
下の例は、GetStringでいいはずです。
VCFEで投げるとうまく行く＆エラーメッセージが
返ってくるような式ではないので
EvaluatePacket & ToExpressionがまずいか、
EndPacketから、GetStringの間の処理がまずいかどちらかです。
0882837
NGNGIn[373]:=
EvaluatePacket[ToExpression[{x + y == 5, 3x + 5y == 13}]]
\:6B21\:3088\:308A\:FF1AIn[373]:=
ToExpression::"notstrbox": "\!\(\(\(x + y\)\) == \
5\)h文字列あるいはボックスではありません.ToExpressionは文字列かボ\
ックスだけをMathematica入力として解釈することができます．"
\:6B21\:3088\:308A\:FF1AIn[373]:=
ToExpression::"notstrbox": "\!\(\(\(\(\(3\\ x\)\) + \(\(5\\ y\)\)\)\) == \
13\)h文字列あるいはボックスではありません.ToExpressionは文字列かボ\
ックスだけをMathematica入力として解釈することができます．"
Out[373]=
EvaluatePacket[{$Failed, $Failed}]
In[374]:=
EvaluatePacket[ToExpression[2^4 + 3^2]]
Out[374]=
EvaluatePacket[25]
0883１３２人目の素数さん
NGNGｂのところを数字にすればできました。どうしたらいいでしょう？
sol = Table[NDSolve[{x''[t] == aCos[((b - a)) t^2] - bSin[((b - a))t^2],
ｙ''[t] == aSin[((b - a) t^2] + bCos [((b - a)) t^2],
x[0] == 0, y[0] == 0, x'[0] == 0, y'[0] == 0},
{x, y}, {t, 0, 1}],
{a, (-1), 1, 0.2}, {b, (-1), 1, 0.2}];
ParametricPlot[Evaluate[{x[t], y[t]} /. sol], {t, 0, 1},
PlotRange -> {{0, 3}, {0, 3}}]です。
0884１３２人目の素数さん
NGNGどうしたらいいんでしょうか？
Maple だと、smith や ismith という関数があるんですが・・・
0885１３２人目の素数さん
NGNGこのスレの一番最初にある関数は違うかな？
0886１３２人目の素数さん
NGNGFrameStyle->{FontSize->36}とか設定してもFrameLabelのフォントサイズ
は変わりません。
0888１３２人目の素数さん
NGNG0889844
NGNGEvaluatePacket[ToExpression["Solve[{x + y == 5, 3x + 5y ==13}, {x,y}]"]]
としてMathematicaのほうで計算するとできたのですが，
char expr[] = "\"Solve[{x + y == 5, 3x + 5y ==13}, {x,y}]\"";
MLPutFunction(link, "EvaluatePacket", 1);
MLPutFunction(link, "ToExpression", 1);
MLPutString(link, expr);
とCのほうから送信してやってMLGetStringで受信しても，答えのほうにSolve[{x + y == 5, 3x + 5y ==13}, {x,y}]が出てきて不正な処理落ちしてしまいます・・・
また、VCFEのように，
char expr[] = "Solve[{x + y == 5, 3x + 5y ==13}, {x,y}]";
MLPutFunction(link, "EnterTextPacket", 1);
MLPutByteString(link, (const unsigned char*)expr, strlen(expr));
MLEndPacket(link);
で送信
MLGetString(link, &OutputString);
で受信というようにしてみたのですが，こちらもうまく行かず処理落ちしてしまいました・・・
どうすればよいのでしょうか？正直お手上げ状態です・・・
0890837
NGNG同じように出来ていないって事では。
Debugger立ち上げて一行ずつどう処理しているかみてみるといいよ。
たぶん、必要なFlash関数の呼び出しとかをしていないんだと思うよ。
0891１３２人目の素数さん
NGNGFourierseriesexpansion[1/(Pi+Cos[x])]
をしてください。
0892１３２人目の素数さん
NGNGFourierseriesexpansion[1/(Pi + Cos[x])]
Out[1]=
\!\(Fourierseriesexpansion[1\/\(π + Cos[x]\)]\)
ウェブ全体から検索日本語のページを検索
ウェブ イメージ グループ ディレクトリ
Fourierseriesexpansionに該当するページが見つかりませんでした。
"fourierseriesexpansion"を含むページは見つかりませんでした｡
0893１３２人目の素数さん
NGNGVersion5で新機能となったMaximizeって機能を使いたいのですが
私のVersionが古くて使えません。
そこで関数に領域を与え最大値を求める関数を実装したいと思いますが
どのようにしたら良いのでしょうか。
教えてください、お願いします。
0894837
NGNG僕のマシンが非力なのか計算できません。
どなたかできませんか？
もし計算を途中で止める場合はAlt+.かAlt+,です。
(* http://www.interq.or.jp/www1/anzawa/doc/doc3.htm *)
(* #1 == t; #2,#3,#4,#5 == 1234 ;*)
fb = (1 - #1)^3 #2 + 3(1 - #1)^2 #1 #3 + 3(1 - #1)#1^2 #4 + #1^3 #5 &;
(* 媒介変数表示で表されたた曲線の長さを求める式
NIntegrateにして、x1などに値を入れ、２番目の引数を{t, 0, 1}にすれば求められる *)
Integrate[Sqrt[(fb'[t, x1, x2, x3, x4])^2 + (fb'[t, y1, y2, y3, y4])^2], t];
0895837
NGNGやったことないけど
FindRoot, FindMinimum, ConstrainedMin, ConstrainedMax,
あたりかな？
素直にヴァージョン上げるのが一番早いと思うよ。
0896844
NGNGレスありがとうございます
おっしゃるとおりFlash関数呼び出していませんでしたので，やってみます
グラフィック描画はどのようにすればよいのでしょうか？
(VCFEで簡単なプロットをさせてみようとしてもエラーが出て描画できないのですが，実装されていないのでしょうか？)
VCFEのソースを見たのですが、いまいちよくわかりません
WMFファイルのオープン？とかさっぱりです・・・
プロット画像情報のWMFファイルが作成されていて，それをOpenWMFFileで読み込み，DisplayGraphicで表示させていると解釈していいのでしょうか？
とすればどこにWMFファイルが作成されているのか等々問題点は尽きないのですが・・・
また，DISPLAYENDPKTが来ると描画させているようですが，DISPLAYPKTのときはどのような処理を行っているのでしょうか
？グラフィックウインドウに空文字列または出力文字列を表示させようとしているみたいですが・・・
質問ばかりで申し訳ありませんがよろしくお願いします
0897837
NGNGFullSimplify[Sqrt[(fb'[t, x1, x2, x3, x4])^2 + (fb'[t, y1, y2, y3, y4])^2]]
(* 出てきた答えのルートの中の式をhogeとしてベキ級数展開 *)
Series[hoge, {t, 0, 4}]
(* そんでこんな形になると仮定。本当は係数の英文字の順が逆がいいな *)
f[t_] := 3 Sqrt[AA + BB t + CC t^2 DD t^3 + EE t^4]
(* どうぞ *)
Integrate[f[t], {t, 0, 1}]
>>896
> グラフィック描画はどのようにすればよいのでしょうか？
> (VCFEで簡単なプロットをさせてみようとしてもエラーが出て描画できないのですが，実装されていないのでしょうか？)
そう？
一番最初に設定されている式は結構時間かかるから待って見てごらん。
Plot3Dのサンプルにある下の式とか問題なく表示できたよ。
Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}, PlotPoints -> 40, Mesh -> False,
FaceGrids -> All, AxesLabel -> {"Length", "Width", "Height"}];
Plotのサンプルは続けてやらないとダメダヨ。
t = {Sin[x], Sin[2x], Sin[3x]};
Plot[t, {x, 0, 2π}];
pp = Plot[Evaluate[t], {x, 0, 2π}];
> WMFファイルのオープン？とかさっぱりです・・・
たぶんWMFの知識とかソースが何をやっているか理解できないんでしょう（＾＾；
ソースに書いてある事をすべて説明する余裕はないので、
C言語の本などを読んで見てください。
言語の説明は板違いになるので、プログラム技術板でお待ちしています。
0898837
NGNG3 Sqrt[AA + BB x + CC x^2 + DD x^3 + EE x^4]
http://integrals.wolfram.com/
でも横が切れちゃってる……。
0899844
NGNGデフォで入力してあるPlot3Dを実行してみると
OpenTemporary::noopen:
Cannot open C:\\DOCUME~1\\\214\212\340V\215G\216\:8180\\LOCALS~1\\Temp\\000001a01440.
Part::partd: Part specification $Failed \:301A 1 \:301B
is longer than depth of object.
Part::partd: Part specification $Failed \:301A 1 \:301B
is longer than depth of object.
General::stream:
$Failed is not a string, InputStream[ ], or OutputStream[ ].
Display::fname: Filename $Failed [[ 1 ]] is not a string.
とエラーが出てしまうんですよね・・・
多分WMFファイルが開けないって言ってると思うんですが・・・
(ソース等は何もいじってません)
0900844
NGNG環境変数からパスを変更してみたところ表示できるようになりました
お騒がせしました・・・
0901837
NGNG0902１３２人目の素数さん
NGNGグラフが描かれません。
どのようにすればグラフが描かれるようになるのでしょうか？
教えてください。お願いします。
Version5です。
0903837
NGNG0905１３２人目の素数さん
NGNG0906837
NGNG書式設定→フォント設定→(FontColor || Background)
0907１３２人目の素数さん
NGNG0908１３２人目の素数さん
NGNGを使って逆ラプラス変換を求めてみたところ次のようになりました。
3/2 * ( Ｅxp（αｔ）＋Ｅxp(βｔ）） [α＝1/2 - 3i β＝1/2 + 3i]
でもじぶんで計算したら、頭についてる係数が、2/3 でなくて 6 になった。。。
mathematicaのほうが合ってるんやろか？
mathematicaの計算結果って絶対正しいんかな～
ちなみにバージョンは４でつ。
レス数が900を超えています。1000を超えると表示できなくなるよ。