• ベストアンサー

Mathematicaで・・・

現在、学生で論文を書いている者です。 論文を書く過程でMathematicaのプログラムを載せたいと思っています。そこでMathematicaのプログラムの右側にそのプログラムの説明をつけたいんですが、どうすればよいのでしょうか？ 自分でも調べてみたのですが望ましい答えが見つかりません・・・。 ノートブックがどうとかという情報しかありません。。。 よろしくおねがいします。

質問者が選んだベストアンサー

  • ベストアンサー
  • ymsk
  • ベストアンサー率100% (1/1)
回答No.1

　Mathematicaでは記入する枠のことをセルと言いますが，「書式→スタイル」を見れば分かるように，セルではTextとInputを明確に分けています。（前者が注釈文用，後者がプログラム用） 　ですから説明文は，できれば別のText形式のセルに書く方がよいと思います。しかしどうしてもInputの形式のセルに注釈を入れたいときには， (*注釈文*) の形で入れれば可能です。 　ただしこのときには，Input文に続けて書くので，もし注釈を右端に揃えたいのであれば，適当に空白を入れる必要があるでしょう。 　このことは「ヘルプーMathematicaブック」を出し，「コメント」という言葉を検索すると詳しく載っている箇所がわかります。

Enigma2411
質問者

お礼

ありがとうございました！ 週明けにでもすぐに試してみます！

  1. カテゴリ
  2. 学問・教育
  3. 数学・算数

関連するQ&A

  • Mathematicaのノートブックに説明文を入れたい

    Mathematicaのノートブックに説明文を入れたいんですが 書式は[**説明文**]でしょうか？ [**掛け算**] 3*3と入力して実行すると [**掛け算**] は不完全です．追加入力しなければなりません．とエラーがでています。

  • mathematicaでの行列の計算

    Ａを5×5の行列として（成分は与えられている） Ｐを5×5行列で各列、各行に1が一つ（残りは0）の行列(置換行列) とします。このときに全てのＰに対して Ｐ×Ａ×（Ｐの逆行列） を計算するプログラムってmathematicaで出来るのでしょうか？ 分かりにくい説明で申し訳ありません！ いずれはn×nでやりたいと思っているのですが、とりあえず5×5くらいで考えています。 あまりmathematicaはやったことがないので、変な質問でしたらすみませんっ。。。

  • mathematica list 書き換え

    Mathematicaのlistのうち負の数のみに100を足す ということをさせたいのですがどうもうまくいきません。 自分で作ったプログラムは以下のとおりです g = {1, 3, 4, 5, -1, 4, -9} For[i = 1, i <= Length[g], i++, If[g[[i]] < 0, newg = ReplacePart[g, i -> g[[i]] + 100]]] newg 結果は一番最後のみ100が足されたものがつくられてしまいます どこが間違っているかおしえてほしいです。もしくは全く違うプ ログラムでも結構です

  • Mathematica で２元４次連立方程式を解くには・・・

    教えて下さい！ ２元４次連立方程式｛f(x,y)=0, g(x,y)=0｝ （関数fとgはxとyの４次方程式です。）について、 例えば、[x,-10,10]のような限定された範囲で 実数解（x,y）を Mathematicaを使って、30桁精度で数値的に求め、 それをx,yの２次元プロットしたいと思っております。 Mathematica のどのような関数を組み合わせれば これができるか、ご教示下さいませんでしょうか？ よろしくお願いいたします。 （自分でC言語でプログラムした場合、解けるには解け るのですが、有効数字の桁数が十分でなく、部分的に 数値が丸まってしまい、プロットがとぎれてしまう問題 があったので、有効数字を自在に調節できるMathematica でやってみようと思ったのですが、例えば、安直に Plot[N[Solve[{f == 0, g == 0}], 30], {x, -10, 10, 0.01}] としてもダメでした。NRootなども検討しましたがうまく 行きません。）

  • Mathematicaでの計算結果にて

    工学系の学生です。 卒業研究の為にMathematicaで計算をしています。 解きたいのは5次方程式なのですが計算すると解によくわからない記号がでてきます。 （例） x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 1] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 2] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 3] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 4] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 5] 分からないのはこの#1^nの部分です。 Mathematicaのヘルプを読むと #nの部分と後半の&, n で純関数を置き換えているという説明があったのですがまず純関数というものがよく理解できないでいます。 また、この例の場合、解はどのように形になるのでしょうか。 分かる方どうかよろしくおねがいします。

  • VCで作成したプログラムからMATLABあるいはMathematicaで作成した自作関数の呼び出し

    VCで作成したプログラムからMATLABあるいはMathematicaで作成した自作関数を呼び出したいのですが、やり方がわかりません。それ以前に、自作関数を呼び出すことができるのかもわかりません。ご存知の方はご教授をお願いします。 ちなみに、MATLABのホームページで調べてみたところ、MATLABが用意する関数を呼び出すことができるみたいです。自作関数を呼び出す方法についての説明は見当たりませんでした。また、DLLやCOMオブジェクトを作成する方法がありましたが、DLLやCOMではなく、MATLABファイルに記述された自作関数が呼び出せるようにしたいのです。Mathematicaについては全くわかりません。 自作関数を呼び出したい理由としては、数値解析のプログラムをVCで作っているのですが、このプログラムのコアとなる数値解析をおこなう処理をMATLABやMathematicaで作成した自作関数にまかせ、このコアとなる数値解析の処理を簡単に書き換えができるようにしたいのです。 以上、よろしくお願いします。

  • Mathematicaで分母を有利化する方法

    Mathematicaで分母を有利化する方法を探しています。 自分で探してみたところ、FullSimplifyがそれに近かったのですが、なぜか分母がルートだけの分数を有利化してくれません。例えば「1/（1+ルート2）」ならFullSimplifyで「-1+ルート2」という答えを返してくれますが、「1/ルート2」のような形の数はFullSimplifyしても同じ数字が出力されます。 また、先の「1/（1+ルート2）」では、分子・分母に（-1+ルート2）を掛ければ解決しましたが、「1/（1+ルート3）」の場合もそのままの数値が出力されてしまいます。分子・分母に（-1+ルート3）と掛けると分母は2になります。これに更に分子・分母に2を掛ければ有利化が完了するはずなのですが、どうやら1回の処理で有利化できないと諦めてしまうようです。 これはなぜなのでしょうか？このような形の数も有利化する方法を教えてください。

  • Mathematicaの問題について

    Mathematicaという数式処理システムについて、授業ではほとんど教わっておらず、説明なども飛ばし飛ばしで、一体何をやっているのだか、言っているのだか全く分からないまま課題が出されて、何をどうしてよいのか分からず、手が出ない状況で困っています。課題の内容を載せますので、どなたか解答を教えていただきたいです。出来れば何をどうしているのかも教えて頂けたら嬉しいのですが、解答だけでも十分ありがたいので、長くなってしまいますが、どうかよろしくお願いします。 １．分散を計算する以下の関数には、誤りがある。誤りを 指摘し、正しく動くよう修正しなさい。 myVariance[ arg1 ] : = ( xbar = Mean[arg1] ; temp1 = Table[ {i, 1, Length[arg1]}, (arg1[[i]] – xbar)^2]; N[ Apply[Plus, temp1] / Length[arg1] ] ) ２．正規分布の確率密度関数を描く関数grNormal を以下に 定義する。 (1)と(2)を埋めて関数を完成させなさい。 関数の入力引数は、平均mu, 標準偏差sigma, グラフを描く範囲(－xrange～xrange)の３つとする。 grNormal[mu_, sigma_, xrange_] :=　(1) ＿＿[{ndist, pdfunc, ymin=-0.01, ymax=0.43},　 (2) ＿＿＿＿＿＿＿＿＿; pdfunc = PDF[ndist, x]; Plot[pdfunc,{x, -xrange, xrange}, Frame->True,PlotRange->{{-xrange, xrange}, {ymin, ymax}}] ] ３．複合式を用いて平均を求める関数を以下に定義する。 (1) と(2)を埋めて関数を完成させなさい myMean[(1) ＿＿] := (data1 = Apply[Plus, arg1]; data2 = Length[arg1]; average = (2) ＿＿) ４．data1 は，10 人の学生の統計学試験の点数とその度数をリストで示したも のである．このデータからMathematica を用いて統計学試験の分散を求める関 数を2 通りの方法により以下に作成した．(1)と(2)の下線を埋めて完成させなさ い． また，それぞれがどのような方法か説明しなさい 【手法１】 data1 = List[40, 40, 40, 50, 50, 50, 50] myVari[arg1_] := (xbar = Mean[arg1]; temp1 = Table[(arg1[[i]]-xbar)^2,{i,1,Length[arg1]}]; (1) ＿＿＿＿＿) Vari = myVari[data1] 【手法２】 data1 = List[40, 40, 40, 50, 50, 50, 50] myVari[arg1_] := (xbar = Mean[arg1]; temp1 = Table[(arg1[[i]])^2,{i,1,Length[arg1]}]; (2) ＿＿＿＿＿) Vari = myVari[data1] ５．data1 は，10 人の学生の統計学試験の点数とその度数をリストで示した ものである．このデータからMathematica を用いて統計学試験の分散を 求める関数を以下に作成した．誤りを指摘し，正しく動作するよう修正 しなさい. data1 = List[40, 40, 40, 50, 50, 50, 50, 60, 70, 80] myVari[arg1] := (xbar = Mean[arg1]; temp1 = Table[(arg1[[i]]-xbar),{i,1,Length[arg1]}]; N[Apply[Plus, temp1] – xbar^2]) Vari = myVari[data1] ６．data1 は10 名の学生の右握力と球投げの結果を2 次元のリストで示したものである. このデータからMathematica を用いて共分散を求める関数を以下に作成した．下線 (1) と(2) を埋めて完成させなさい．なお, 　myC の第１引数には右握力(grip), 　 第2 引数には砲丸投げ(shot) の値を与えるものとする. data = List[{26,16},{26,11},{26,14},{27,16},{28,18}, {29,16},{32,18},{29,21},{24,14},{26,19}] <<Statistics’MultiDescriptiveStatistics’ TableForm[data1] grip = Table[data3[[i,1]],{i,1,10}] shot = Table[data3[[i,2]],{i,1,10}] myC[arg1_,arg2_] := (xbar = Mean[arg1]; ybar = Mean[arg2]; temp1= (1)______________________________________________; (2)____________________________________________________) myCorrelation = myC[grip,shot]

  • ワードで論文を書いている者です。

    ワードで論文を書いている者です。 何か打ち込もうとすると、急に重くなり、動かなくなったりします。 また「プログラムの応答」を待っていますという表示がでます。 大事な論文なので困っています。 どうすれば良いでしょうか。

  • プログラミング言語の説明

    大学4年の者です. 　プログラミング言語で作成したアプリケーションについての論文を作成しているのですが,プログラムの説明(変数や関数)についてはどのように説明を行えばよいでしょうか コメントを記載したソースコードを張り付ける方法も考えましたが,それだと文ではないだろうと考え辞めました. 関数の処理はかきつらねるべきなのか段落に番号を振ってわけるのかなど,同期にプログラミング言語を使った論文を書いている人がいないので困っています.

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する