問題タブ [mathematica-8]

この質問は、同じ長さの 2 つのリストを比較する前のスレッドの続きです。

Mathematica で同じ長さの2つのリストを比較する効率的で簡単な方法はありますか?

A={a1,a2,a3,...an}との 2 つのリストが与えられた場合、 all の場合に限りB={b1,b2,b3,...bn}ます。これでリストがあり、存在する場合は最大のものを見つけたいと考えています。A>=Bai>=bikH={{a11,a12,a13,...a1n}, {a21,a22,a23,...a2n},...,{ak1,ak2,ak3,...akn}}

これが私のコードです：

Do[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, h = H[[1]]; 1, Length[H]}];h

これを行うためのより良いトリックはありますか？

編集：

これを次のような関数として定義したい:

maxList[H_]:=Do[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, h = H[[1]]; 1, Length[H]}];h

しかし、問題は上記のコードが 2 行にまたがっているということですが、これに対する修正はありますか? ここにいくつかのコードが機能していますが、それほど美しくはありません

maxList[H_] := Module[{h = H[[1]]}, Do[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, Length[H]}]; h]

また

maxList[H_]:=Last[Table[If[NonNegative[Min[H[[i]] - h]], h = H[[i]], ## &[]], {i, h = H[[1]]; 1, Length[H]}]]

私はMathematica8を持っていて、GraphEdit []を使おうとしていますが、それは非常に面倒です。一つには、その出力を使用してそれ自体にフィードバックする方法がわかりません。

たとえば、GraphEdit []を使用して単純なグラフを作成し、これを取得します。

しかし、この出力をさまざまな方法でGraphEditにフィードバックしようとすると、CoordinatesとVertexLabelsを取り除き、「Graph」値を唯一のパラメーターとして渡す場合にのみ機能します。他のすべては空のグラフを表示します。座標と頂点のラベルを取り除くと、グラフが役に立たなくなります。

GraphEdit[]が新しいバージョン8Graph[]関数とは異なる形式を使用しており、古いCombinatoricaと完全に互換性がない可能性があることを認識していますが、出力は簡単にマッサージされてそれ自体に戻されると思います。ドキュメントは特に役に立ちませんし、座標と頂点の情報を含むグラフを渡す方法の例も示していません。私が見逃している明らかな（またはそれほど明白ではない）何かがありますか？GraphEdit []は役に立たないおもちゃですか？

または、バージョン8でグラフを編集できる新しいものはありますか？GraphEdit []インターフェースは少し制限されていることを認めなければなりません。少なくともインターフェースを最適化するための制御ができるより良いものが欲しいのですが、それでも何もないよりはましです。

サブリストを含むkリスト が与えられた場合、A={{a1,a2,a3,...},{b1,b2,b3,...},...}それらのサブリストをそれらのサブリストでソートしたいと思いますTotal[A[i]]。これを効率的に行う方法はありますか？

私は試した

しかし、エラーが発生します:

編集：

コンパイラの場所を指定しても、MMA はコンパイラを見つけられなかったようです。

ここで何か見逃しましたか？

http://reference.wolfram.com/mathematica/CCompilerDriver/tutorial/SpecificCompilers.html#394172820

私のOSはwindows7 64bitです。Microsoft C++ 2008 Express エディションと Intel C++ Compiler v11.1 x86 バージョンをインストールしました。

これで、Mathematica で x86 C コードを正常にコンパイルできました。

しかしCompilationTarget -> "C"、このような関数をコンパイルするために使用できませんでした

私のプラットフォームは x64 なので、デフォルトを指定する必要があると思います"TargetSystemID"-> "Windows"が、Mathematica でそのようなオプションを設定する方法がわかりません。

ここで何か見逃しましたか？

PS: 最近 Microsoft Visual Studio をインストールしたくありません。

この質問は少し奇妙に思えるかもしれませんが、私の目的にとってはそれほどクレイジーではありません。簡単ですが、私に従ってください。

狙い

私の目的は、三次元グラフをプロットすることです。

問題

問題は、このグラフの作成を開始するために手に持っている資料です。実際には、2D 空間にポイントのコレクションがあります (したがって、2 つの実数の順序付けられた値のタプル)。これらのポイントのコレクションを配列に格納して、2D ダイアグラムにプロットすることを検討してください。これらのポイントのまばらなビューが表示されます。

2 番目のステップは次のとおりです。これらの点を含む面を考え、それらの点が描かれている平面に直交する 3 番目の軸を作成します。目的は、数値スカラー値をすべての点に割り当てることです (対を受け入れて数値を返す関数を使用)。したがって、グラフはすべてのポイントから始まり、割り当て関数に従って特定の値を持つバーを表示する必要があります。

Mathematica でこれを達成するにはどうすればよいですか?

ちょっとしたメモ

基本的に、2次元空間のポイントもグラフで接続されています。棒の上部を、2次元グラフで基点が接続されている他の棒の上部に接続することは可能ですか?

その他の注意事項

私のグラフは表面である必要はありませんが、参照する対応点が配置されている正確な場所の平面に配置された棒の集まりです。しかし、棒以外の曲面を描く良いヒントがあれば、喜んで受け入れます。

私がはっきりしていたことを願っています。私は Mathematica 8 を持っているので、すべての機能が利用できることを指摘したいと思います。ありがとうございました。

私には初期条件があります：

とODE：

私が欲しいのは、後でプロットするためのNDSolveを使用した抽象的なソリューション（sf（t）、sm（t）、p（t））です。私の問題は、すべての変数が3つの方程式すべてで依存しているため、NDSolve呼び出しの記述方法がわからないことです。

私は数学のスクリプトを書いて、それをLinuxのバッチシェルで実行しています。スクリプトは結果として数字のリストを提供します。このリストを中かっこやカンマなしで1つの列としてファイルに書き込みたいと思います。このために、私はエクスポートコマンドを次のように使用しようとしました

しかし、エラーが発生します：

Export :: infer：ファイルtest1.txtの形式を推測できません

他の形式で試しましたが、同じエラーが発生しました。誰かが何が間違っているのか、そして私に何ができるのか教えてもらえますか？よろしくお願いします

グラフのプロパティ「ノルム」を変更する方法を知っている人はいますか。コマンド;

私が期待したように動作しません。これがグラフ コンストラクタです。

ありがとう。

の初心者ですMathematica。下の画像のように、いくつかの文字にハットとバーを付けようとしていますが (ベクトル表記を書きたいだけです)、一部の文字にしか付けることができません。私のやり方の何が問題なのですか？

これらの構文をカバーするオンライン リソースを提供できれば、より価値のあるものになります。ありがとうございました。

(環境) { Mac OSX 10.7、Ubuntu 11.10、Ubuntu 10.10}、Mathematica 8.0.4 Student Edition