〓 Mathematica 2 〓
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
NGNG, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
★前スレ
〓Mathematica〓
http://science2.2ch.net/test/read.cgi/math/985023298/
0412１３２人目の素数さん
NGNGSelectionAnimate か、
表示されたものをマウスで畳んで、
右クリックしてAnimateみたいなメニューを選ぶ。
0413１３２人目の素数さん
NGNGギリシャ文字はマウスを使ってボックスから選択しないと使えないのでしょうか。
キーボードから入力するショートカットがあれば教えてください。
釣りではないのでよろしく。
0414１３２人目の素数さん
NGNGぜってー釣りだな
0415１３２人目の素数さん
NGNG\[CapitalAlpha]
\[Alpha]
<Esc>Alpha<Esc>
<Esc>alpha<Esc>
0416FeaturesOfTheGod ◆UdoWOLrsDM
NGNG0417４１１
NGNGそれでShowをつかって複数のグラフィックスを同一座標内に表示したように
グラフィックスを重ねて表示する事ができるんでしょうか？
もうちょっと具体的に教えてくれるとうれしいんですけど・・
0418１３２人目の素数さん
NGNG例えば、ドラえもんとかドラゴンボールとか…
0419FeaturesOfTheGod ◆UdoWOLrsDM
NGNG0420１３２人目の素数さん
NGNGアニメーションがしたいわけではなくて、単に重ねたいのなら
最初からShowか元のPlotなどで重ねろ。
Animatieの出力を利用するのはNotebook操作系の関数を使えば
できないことはないが、二階から目薬。
0421４１１
NGNG二回から目薬とは？？
どのようなNotebook操作系の関数を利用すればできますか？
0422１３２人目の素数さん
NGNG0423１３２人目の素数さん
NGNG0424４１１
NGNG0425１３２人目の素数さん
NGNG{(b-f+b*X^2)*e}/{X*(d+d*X^2+e)}==0,X
0426１３２人目の素数さん
NGNG0427１３２人目の素数さん
NGNG0428１３２人目の素数さん
NGNG0429１３２人目の素数さん
NGNG0430１３２人目の素数さん
NGNGというか割り当ての方法をどなたかご存じないですか？
例えば
コントロール＋ｋ
を行末までの文字の削除に当てるとか。
0431１３２人目の素数さん
NGNGなんか大きなことやろうとすれば、matlab 使うなー。
mathematicaは言語の外見が汚なすぎ。
てかセンス悪いよな、Wolframは
0432１３２人目の素数さん
NGNG0433FeaturesOfTheGod ◆UdoWOLrsDM
NGNGそもそも、mathematicaは研究のためにある。
0434１３２人目の素数さん
NGNG0435FeaturesOfTheGod ◆UdoWOLrsDM
NGNG0436１３２人目の素数さん
NGNG>mathematicaは言語の外見が汚なすぎ。
>てかセンス悪いよな、Wolframは
そこはかなり同意する
0437１３２人目の素数さん
NGNGある程度のプログラムを組めるというのを両立させようとするから
ああいうことになるんだよな。
0438１３２人目の素数さん
NGNGそうですね。mathematicaは開発者が多いからグラフィックスやGUIだけが
他のソフトより良いだけであって、Wolfram本人もキモいし、言語もキモいし、
やたらプログラミングに時間がかかるだけですね。
もうmathematicaは逝ってよしだと思いました
0439１３２人目の素数さん
NGNGがんばってください。キモっ!
0440１３２人目の素数さん
NGNGRubyとかは特にね。
matlab言語も（・∀・）ｲｲ!!よ
0441１３２人目の素数さん
NGNGMATHEMATICA撲滅しよーぜ
0442１３２人目の素数さん
NGNGMathematica氏ね。
0443１３２人目の素数さん
NGNG0444１３２人目の素数さん
NGNGどうやったら元の関数として機能してくれるの？
0445FeaturesOfTheGod ◆UdoWOLrsDM
NGNG0446FeaturesOfTheGod ◆UdoWOLrsDM
NGNG0447１３２人目の素数さん
NGNG評価の仕組み上無理だったと思います。
どうしてもというなら、Symbol["Sin"]でもどうぞ。
Func[Sin_] := {Sin, Symbol["Sin"][Sin]}
Func[3.0]
# /* Example.c */
# int x = 3
# f(int x) { return x; }
# /* さて、f(3)の返り値は？ */
>>446
そういう場合にはちゃんとDefinitionやFullDefinitionを使いましょう。
# 前身時代からなんで知識があるわけでもないのに考えずに適当なこと
# ばかりこたえるかな。
0448１３２人目の素数さん
NGNG>>405-408
のプログラムを利用させてもらっています。
これに改良を加え座標を方程式で出してその値を極座標に変換できるように
しようと試みたのですがうまくいきません。
次のようにしてみました。
<< Calculus`VectorAnalysis`
Solve[{x + y + z == 1,
x - y + z == 3,
x + y - z == 5},
{x, y, z}]
CoordinatesFromCartesian[{x, y, z} /. %, Spherical] {1,
HoldForm[Degree]/Degree, HoldForm[Degree]/Degree}
返数は
CoordinatesFromCartesian[{{4, -1, -2}}, Spherical]
（以下同じような感じで二つ返ってきてしまいます。）
どうもただ式のx, y, zに方程式の解が代入されただけの感じのものです。
どうすれば成功するのでしょうか。アドバイスもらえないでしょうか。
0449１３２人目の素数さん
NGNGTable[If[PrimeQ[i], i, ""], {i, 2, 100}]
を実行すると、
{2, 3, , 5, , 7, , , }
が返るが、
list = {2};
Do[
If[PrimeQ[i], Append[list, i]],
{i, 3, 100}];
list
とやっても
{2}
となるだけ。
なんでなのでしょうか。
0450１３２人目の素数さん
NGNGCoordinatesFromCartesian[{{4, -1, -2}}, Spherical]
でなくて
CoordinatesFromCartesian[{4, -1, 2}, Spherical] {1,
でないといけない。Solveが複数答えを返すこともあるので
ans = Solve[{x^2 + y + z == 1, x^2 - y + z == 3, x^2 + y - z == 5}, {x, y,
z}]
Map[CoordinatesFromCartesian[{x, y, z} /. #, Spherical] {1,
HoldForm[Degree]/(Pi / 180), HoldForm[Degree]/(Pi / 180)} &, ans]
など。
>>449
list = {2}
Append[list, 3]
list
と入力すると何がおこるでしょう？
0451１３２人目の素数さん
NGNGあうう…
「評価」じゃなかったのですね。
思いこみであちこちにEvaluateつけて考えあぐねておりました
Thanks a lot!
0452１３２人目の素数さん
NGNGMathematicaでの数値計算の精度は機械精度以上には上げることが出来ないでしょうか。
$MachinePrecision
Out[1]=15.9546
a1=SetPrecision[Sqrt[2-0.1],100];
NumberForm[a1,DigitBlock->10,NumberSeparator-> " " ]
NumberForm=
1.3784048752 0902210683 0047960102 0924746990 2038574218 7500000000 ＼
0000000000 0000000000 0000000000 000000000
a2=Sqrt[SetPrecision[2.-0.1,100]];
NumberForm[a2,DigitBlock->10,NumberSeparator-> " " ]
//NumberForm=
1.3784048752 0902214457 7973787659 2686126529 8801258806 7606899563 ＼
5042810459 9163905598 4762095066 7510687484
a1とa2を比較すると、機械精度が保証する桁以下で両者が異なっています。
どちらが正なのでしょうか。SetPrecisionの使い方がまずいのでしょうか。
0453１３２人目の素数さん
NGNGSqrt[2 - 0.1]の結果の数値を精度100桁にするというのと、
(2. - 0.1)の結果の数値を精度100桁としてからSqrtをとるのとは
全く別のことですが。
もちろんどちらもN[Sqrt[2 - 1/10], 100]とは異なりますね。
0454１３２人目の素数さん
NGNG0455１３２人目の素数さん
NGNG0456１３２人目の素数さん
NGNGひょっとして ０．１と１／１０が同じと思っていませんか？
0457１３２人目の素数さん
NGNG一緒と考えておりました...
これで納得できました。ありがとうございました。
0458１３２人目の素数さん
NGNG0459１３２人目の素数さん
NGNG発生させた乱数のリストから任意の数をランダム抽出するにはどうしたらいいでしょうか？
0460１３２人目の素数さん
NGNG乱数から「ランダム抽出」って意味が無いだろ。
Table[YourRandomFunction[], {i, 10}]
とでもすればいいんじゃないか？
0461Not, used with Select
NGNGたとえば
Select[Range[10], PrimeQ]
Select[Range[10], ! PrimeQ]
にたいしてはアウトプットが{2,3,5,7}と{}となり，
２つ目が意図したものになりません．
Select[{b, a, d, c, e}, (# == a) &]
Select[{b, a, d, c, e}, (! (# == a)) &]
にはアウトプットが{a}と{}となり，
これも Not (!) を使った２つ目が意図とはちがいます．
ちなみに
Select[Range[10], (# == 4) &]
Select[Range[10], (! (# == 4)) &]
だと意図した通りに
{4}と{1,2,3,5,6,7,8,9,10}となります．どうして？
ちなみに問題回避法としては !MemberQ というのを使いました．もっとマシな方法あれば知りたし．
0462１３２人目の素数さん
NGNG! PrimeQはNot[PrimeQ]ですね。
Not[PrimeQ][x]とNot[PrimeQ[x]]は違いますね。
Not[PrimeQ[#]]& か Composition[Not, PrimeQ]を使ってください。
!MemberQなんてものをいったいどう使ったのか興味津津です。
0463Not, used with Select (unresolved)
NGNG>!PrimeQはNot[PrimeQ]ですね。
0-1逆の特性関数を作るわけではないようですね．
普通の関数が否定できないのは分かるが，述語関数は否定できてもまずくなさそうに思えますが．
>Not[PrimeQ][x]とNot[PrimeQ[x]]は違いますね。
前者は意味をなさないということなんですかね．
[ところで同じ意味をなさない物でも，
! PrimeQ[3]だと何も出ないが(! PrimeQ[3])だと False と出るのは，
前者は括弧の位置が曖昧だが，後者は(! PrimeQ)[3]ではないと見なされる
ということなのだろうか．一番外側に括弧がつくだけで差が出るのは妙だが．]
>Not[PrimeQ[#]]&かComposition[Not,PrimeQ]を使ってください。
ありがとうございました．続く．
0464Not, used with Select (unresolved)
NGNGSelect[{b, a, d, c, e}, ! (# == a) &]
Select[{b, a, d, c, e}, Not[# == a] &]
ではどうしても {} となります．分からない〜！！！
等しくなる可能性があるから a=b, a=c などは False と言えないということでしょうか．
値はどうであれ(というか値は取らない)，
「シンボルとして a とは異なるものを取り出す」
ことを表現できればいいのですが．
どこかに{a,b,c,d,e}は(異なる要素からなる)集合だといっておけばいいのだろうか．
そんなコマンドあるのかな．
>!MemberQなんてものをいったいどう使ったのか興味津津です。
Select[{b, a, d, c, e}, ! MemberQ[{c}, #] &]でも
Select[{b, a, d, c, e}, Not[MemberQ[{c}, #]] &]でも
{b, a, d, e}を出しました．
0465１３２人目の素数さん
NGNG> ! PrimeQ[3]だと何も出ないが(! PrimeQ[3])だと False と出るのは，
!が「行の先頭」に来た時はshellでのコマンド実行を意味する。
> 等しくなる可能性があるから a=b, a=c などは False と言えないということでしょうか．
そのとおり。===を使えばいい。
> Select[{b, a, d, c, e}, ! MemberQ[{c}, #] &]でも
それはあたりまえだね。
偶然、Not[MemberQ[ ]]& という形で使っていたわけだ。
0466sage
NGNG>>465
行けそうです．ありがとうございました．
===は初耳でした(Mathematica 使い始めてまだ2週間くらいなもので)ので，
その周辺のコマンドを勉強しておきます．
0467１３２人目の素数さん
NGNG0468１３２人目の素数さん
NGNG|x|,|y|<=3 において z>=0 の部分の地形を等高線で表せ。
という課題が出まして、
ContourPlot[-x^2 + y + 1, {x, -3, 3}, {y, -3, 3}, Contours -> 10,
PlotRange -> {0, 4}
といった具合にやらせてみたんですが、これだと真っ黒で見た目が非常に悪いんです。
色を使って高さを表すにはどうしたらよろしいでしょうか？
どなたかアドバイスお願いします。
0469１３２人目の素数さん
NGNGcolor[i_] :=
Which[Mod[i, 1] < 0.25, CMYKColor[0, 1 - 4 Mod[i, 1], 1, 0],
Mod[i, 1] < 0.5, CMYKColor[4 (Mod[i, 1] - 0.25), 0, 1, 0],
Mod[i, 1] < 0.75, CMYKColor[1, 4 (Mod[i, 1] - 0.5), 1 - 4 (Mod[i, 1] - 0.5), 0],
Mod[i, 1] ≥ 0.75, CMYKColor[1, 1, 0, 4 (Mod[i, 1] - 0.75)]]
ContourPlot[-x^2 + y + 1, {x, -3, 3}, {y, -3, 3}, Contours ->10,
ColorFunction -> (color[1 - 0.66*(#1 + 0.5)]&), PlotRange -> {0, 4}]
で、どう？
0470１３２人目の素数さん
NGNGし
っ
か
し
、
ほ
ん
と
に
キ
タ
ネ
ー
言
語
だ
な
こ
り
ゃ
w
0471ChaosicSoul ◆/yaJbLAHGw
NGNGどうにかならぬか？
0472パンチョ伊藤
NGNG>>471
> Mathematicaの関数名は、ごく一部を除いて省略が無い。
> どうにかならぬか？
マジレスしとくか。
InputAliases オプションとかで短くしとけ。
escape にキーバインドされてるコマンドを \ とかに新規でキーバインド登録しとくと
入力が早くなる。
もし、本気で楽にテクニカルコンピューティングをしたいのなら matlab に乗りかえることもよかろうな。
あれはいい。仕事が mathematica の(1/5) t で終わるからな。
mathematicaではマジでプログラムする気にならん。
故に自分の関数も増えていかん；だから効率も悪い。お前もわかるだろ？
0473１３２人目の素数さん
NGNG0474１３２人目の素数さん
NGNG0475１３２人目の素数さん
NGNG(f(x)をxで積分したものにg(x)をかけて、さらにそれをxで積分したもの)
こういった二重積分はmathematicaでは出来ないのでしょうか？
狙った値がでなくて非常に困っております・・
アドバイスよろしくお願いします。
0476１３２人目の素数さん
NGNG>>469のほうがきれいではあるが、簡単なものも。
ContourPlot[-x^2 + y + 1, {x, -3, 3}, {y, -3, 3}, Contours -> 10,
PlotRange -> {0, 4}, ColorFunction -> (Hue[(0.1 + #)/1.1] &)]
>>471
補間のキーボードショートカットを使え。
おまえ前も同じこと書いてただろ。学習しないやつだな…
今は使ってないとか言って逃げたんだったか。
荒しはMathematicaが使えなくてトラウマになってるのかね。
0477１３２人目の素数さん
NGNG> (f(x)をxで積分したものにg(x)をかけて、さらにそれをxで積分したもの)
それ二重積分じゃなくて、別々に積分してただ掛ければいいでしょ。
> こういった
> 狙った値
何が聞きたいのかわからない。質問は具体的に。
0478475
NGNG問題設定は、>>475の数値積分を行うと確率0.95という値が出てくるというものです。
そこで実際に計算を行ったところ目的の0.95が出てこなくてなにかおかしいのかと思いました・・
0479１３２人目の素数さん
NGNG>>476 さん
468です。ありがとうございました。
実は,この問題さらに続きがありまして。
z=-x^2+y+1 とする。
(1)|x|,|y|<=3 において z>=0 の部分の地形を等高線で表せ。
(2)地図上に二点 A(-1,0) B(2,3) を最短距離で結ぶ道がある。
この道を実際にたどるときの道のりはどれだけか。
また,この道の最高地点の高さ(海抜)を示せ。
(3)地点 (1/2,2/3) における接平面が,x軸,y軸,z軸と形成する三角錐の体積
はいくらか。
といった問題なのですが。
正直取っ掛かりすら見つけられないほど難儀しております。
どなたかアドバイスお願いします。
教えて君ですみません。
0480マンコ
NGNG0482１３２人目の素数さん
NGNGどうしたらよいでしょうか？
条件分けした関数定義を表記したいのです。
(計算したいのではなくて、きれいに表記したい)
0483１３２人目の素数さん
NGNG0.95って…fもgも知らせずにそんなことだけ書かれてもね。
ちなみに、Mathematicaの式として(積分したいのなら)>>475は間違っている。
質問の仕方も情報小出しの典型で、なってない。
それから推測して、君はMathematicaのみならずコンピュータにも慣れてないだろう。
f[x]やg[x]が正しく書けてないことも大いにありうるし、もっと予想外のことで
つまづいているのかもしれない。
何をやったのか全部書かないとエスパー以外にはどうしようもないよ。
>>479
それMathematicaで解くの？数学の問題なら別のスレに。
>>480-481 らしいカキコだね。
>>482
StyleBox[RowBox[{"{", GridBox[{{X}, {Y}, {Z}}]}],
SpanMaxSize -> Infinity] // DisplayForm
"{"が色つきで表示されるのはなにかのお節介なんだろう。
0485マンコ
NGNGm
a
t
h
.
b
a
t
使
え
よ
>>483
だろ？ matlab も使用できずに調子にのらないほうがいいぞ。
パンツマン
0486１３２人目の素数さん
NGNGOutputだけならFormatか何かでいけるだろうけど、
ノートブックに入力の時点ではカーネルまで情報が伝わってないから、
まずなんらかノートブックを適切に設定しないといけないだろうね。
がんばってくれ。
# 表示用途にはTeXのほうがいいと思う。
0487１３２人目の素数さん
NGNG479 パソコンでとけという指示なのです。
0488質問！
NGNG末尾再帰の最適化は自動的に行ってくれるんでしょうか？
0489１３２人目の素数さん
NGNGしてくれない。ただRelaseHoldで計算を続けられる。
定義の時にHold関係で評価順序をいじってなんとかすることもできる。
(* Good *)
f[x_, s_] := If[x == 0, s, f[x - 1, s + x]]
f[1000, 0]
(* Good *)
id[x_] := x; SetAttributes[id, HoldAll]
g[x_, s_] := id[If[x == 0, s, g[x - 1, s + x]]]
g[1000, 0]
(* Bad *)
ClearAttributes[id, HoldAll]
g[1000, 0]
0491１３２人目の素数さん
NGNG(2)は、二点間の道のうち(実際にあるくときの)距離が最小のもの(の距離)を
求めよということか？
だとしたら、[-1, 2]を{x1, x2, ..., xn}に分割して、yを点{x1,.. ,xn}上の
値できまる折れ線関数で近似する。x1, x2, ..., xnの関数として距離
が定まるのであとはFindMinimuを用いる。
(3)は簡単な手計算。
0492１３２人目の素数さん
NGNGすいません、もうちょっと詳しくお願いします。
分割って何ですか？
0494１３２人目の素数さん
NGNG[-1, 2]上にx1, ..., xnのn個の点をx1 < x2 < ... < xnとなるようにとること。
>>491ではx1,..,xnの関数と書いたが、正しくはy1, ..., ynの関数だった。
分割を固定して、その上のyの値y1, ... ,ynがどうであれば、
パラメータをxとする道(x, y(x), z(x, y(x)))の距離が最小になるかを探る。
0495１３２人目の素数さん
NGNGg[x_];=D[f[x],x]
g[0]
とすると
General::"ivar": "0は有効な変数ではありません．"
といわれてしまいます。
0496１３２人目の素数さん
NGNGg[x_] := Derivative[1][f][x]
もしくは、
h[x_] := D[f[z],z] /. z -> x
0497１３２人目の素数さん
NGNG0498ChaosicSoul ◆/yaJbLAHGw
NGNG0499ChaosicSoul ◆/yaJbLAHGw
NGNG0500１３２人目の素数さん
NGNGこのソフトが使えるようになれば、
Mathematicaというプログラミング言語の知識を得たことになる。
0501ChaosicSoul ◆/yaJbLAHGw
NGNG0502１３２人目の素数さん
NGNGIntegrate[ Exp[-x^2] Erf[x + a], x]
なにか工夫すればmathematicaで出来るのでしょうか？
ご教授お願いいたします。
0503１３２人目の素数さん
NGNGマセマティカでは、何を使えばいいの？
N[Positive[x]]???
0504１３２人目の素数さん
NGNGたとえば
F[x_] := x^2
G[F_] := Cos[F]
ってかくべきなのか？G[F_] := Cos[F[x]]ってやる
べきなのか迷ってま。
0505１３２人目の素数さん
NGNG本当は数値定積分しか興味ないとき、
どうやって修整すればいいの？
やっぱり、NIntegrate・・・・って全部手打ちしなおし？
0506１３２人目の素数さん
NGNGパレットを使って定積分を入力したものを実行、
そのあとN[％]でいいんでない？
0507１３２人目の素数さん
NGNGUnitStep
>>504
> 関数をいれこにしたいとき どうすればいいの？
もとからある関数に従う。
G[x_] := Cos[x] なら H[x_] := G[F[x]]
G[f_][x_] := Cos[f[x]] なら H[x_] := G[F][x]
0508１３２人目の素数さん
NGNG打ちなおしがベスト。記号的に積分しようとして無駄に時間がかかるからね。
お薦めはしないが、上の方に
Unprotect[Integrate]
Integrate = NIntegrate
と書いてNIntegrateに置き換えることもできる。
0509１３２人目の素数さん
NGNGthanks a lot.
0510510
NGNGa={ {c,d} + {e,f} }
b={ {g,h} - {i,j} }
このようにa,bの式を定義し、実行すると
a={ {c+e,d+f} }
b={ {g-i,h-j} }
とリストの計算を行ってしまいます。
この計算を行わずにそのまま進める方法はないのでしょうか？
例えば c,d,e,f,g,h,i,jにそれぞれ1,2,3,4,5,6,7,8を代入しても表示結果が
a={ {1,2} + {3,4} }
b={ {5,6} - {7,8} }
となるようにしたいのです。
また、さらにこの性質を利用することにより
ある関数fを定義したときに
f[a,b] = f[{c,d},{g,h}] - f[{c,d},{i,j}] + f[{e,f},{g,h}] - f[{e,f},{i,j}]
と表示させる関数fを定義できるのではないかと思っているのですが
その点はどうでしょうか？
この解決法をわかる方どうかよろしくお願いいたします。
0511１３２人目の素数さん
NGNG意味は分からないが…
単純に言うと
a = 1 + 3 (のような)
f[a] = ...
と定義したらaと入力して1 + 3が返り、
f[a]と入力してf[1] + f[3]みたいな表示が返ればいいのか？
a = HoldForm[1 + 3]
f[a:HoldForm[x + y]] = HoldForm[f[x] + f[y]]
いづれにせよ
計算されてなければa, bからc, d,...やPlus, Minusをとり出すことはできる。
■ このスレッドは過去ログ倉庫に格納されています