- 1 名前：１３２人目の素数さん mailto:sage [04/03/06 09:51]
- _....._{{ 〃
, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
★前スレ
〓Mathematica〓
science2.2ch.net/test/read.cgi/math/985023298/
- 92 名前：１３２人目の素数さん mailto:sage [04/05/27 10:26]
- >>91
すいません。グラフィックが書きたいです。
できれば、振り子が一回振れるごとに秒針が一秒進んでいくような時計を作りたいと思っています。
どなたか宜しくお願いしますm(_ _)m
他人の力に頼りすぎというのは分かってますが、どこから始めていいのか分からないです。
- 93 名前：１３２人目の素数さん mailto:sage [04/05/27 10:29]
- 92です。何度もすいません。グラフィックでなくて、アニメーションを書きたいです。
- 94 名前：１３２人目の素数さん [04/05/27 12:31]
- NSolve[Exp[x]-3Sin[x]-5==0,x]
NSolve[Exp[x]+1/(1-x^2)==0,x]
で、計算させると次のような注意をされてしまいます。
Solve::tdep:
本質的に非代数的な方法で解かれる変数が方程式に含まれているようです
解決策はありますか？
Plotの方は上手く行ったみたいなのですが・・・。
お願いします。
- 95 名前：１３２人目の素数さん mailto:sage [04/05/27 13:28]
- >>94
FindRoot[Exp[x] - 3Sin[x] - 5 == 0, {x, 2}]
ヘルプを引け。See alsoぐらい読め。
- 96 名前：１３２人目の素数さん [04/05/27 16:13]
- ＞＞95
遂に、怒られてしまった。
でも、ありがとうございます。
- 97 名前：１３２人目の素数さん [04/05/27 17:43]
- >>78
SkewGrafphicsじゃ出ないんですけど。
>>79
コピペしてできたんですか？
- 98 名前：１３２人目の素数さん mailto:sage [04/05/27 18:22]
- >>97
Graphicsも綴れない上にコピペすらできないとは
さすが教えて君ですね。
- 99 名前：１３２人目の素数さん [04/05/28 00:40]
- >>92を教えて頂ける神はいませんか？
- 100 名前：１３２人目の素数さん [04/05/28 01:35]
- >>98
当たり前じゃないか！これが教えて君のすごさ。
SkewGraphicsだとできないのよ〜。なんで〜？
>>79
微分積分をなめるな！
- 101 名前：１３２人目の素数さん [04/05/28 01:36]
- >>100を教えて頂ける神はいませんか？
- 102 名前：１３２人目の素数さん mailto:sage [04/05/28 07:56]
- 神は>100の愚かさを嘆いておられます
- 103 名前：92 mailto:sage [04/05/28 08:28]
- 100がそんなことするから教えてもらえないじゃないか！
- 104 名前：１３２人目の素数さん mailto:sage [04/05/28 09:01]
- >>103
そういう問題じゃないよ。
要求するグラフィックのレベルがわからんし、激しく面倒。
掲示板でちょこっと張れるレベルじゃない。
PolygonとかLineとかつかって地道に描け。
あるいは外部のドローソフトやモデラーでつくって取り込むか。
シンプルな2Dでよければ、Arrow, Circle, Rectangleあたりを組あわせて、
時計を描いて、振り子の運動方程式にしたがって振り子部分を動かす。
- 105 名前：１３２人目の素数さん mailto:sage [04/05/28 11:30]
- >>104すいません。やっぱり、そうですよね。自力で頑張ってみます。
分からないことがあったら、聞きますので、その時はよろしくお願いします。
- 106 名前：１３２人目の素数さん [04/05/28 13:55]
- >>100
コピペで書けますけど・・・。
微分積分はライフワークですよね！
教えて君に救いの手を・・・。
- 107 名前：１３２人目の素数さん [04/05/28 13:57]
- >>100
>>78はコピペで出来ますよ。
教えて君に救いの手を・・・。
- 108 名前：１３２人目の素数さん [04/05/28 15:15]
- >>107
あれ？できた！！できたぞー！！
- 109 名前：１３２人目の素数さん mailto:sage [04/05/29 01:02]
- すいませんが、振り子の運動方程式を教えて頂けないでしょうか。
バカですいません。
- 110 名前：KingMathematician ◆5lHaaEvFNc [04/05/29 09:26]
- Re:>>109
振り子は、運動がある球面に束縛されていると考えると良いだろう。
当然、滑らかな束縛である。
- 111 名前：１３２人目の素数さん mailto:sage [04/05/29 09:42]
- >>110
式で具体的に書くとどうなりますでしょうか？
教えて君ですいません。
- 112 名前：KingMathematician ◆5lHaaEvFNc [04/05/29 20:42]
- Re:>>111
とりあえず、重力加速度は一定の値gをとることにしよう。
振り子の質量をmとして、rを振り子の長さとして、振り子の鉛直下向きからの角度をθとすると、
振り子に働く張力と重力の合成は、
mgsin(θ)という大きさで、
方向は振り子の「軸」に向かう接線であり、
向きは下に向かう方向である。(θ=0,πの場合は0だから方向も向きもない。)
とりあえず、振り子の中心を、三次元空間の原点にもってきて、
鉛直上向きを三次元方向の正の向きとすると、
(x,y,z)(ただし、x^2+y^2+z^2=r^2)における振り子の運動方程式(振り子の座標が(x,y,z)である。)は、
m(x'',y'',z'')=-mgsin(θ)(cos(φ)z/√(x^2+y^2+z^2),sin(φ)z/√(x^2+y^2+z^2),√(x^2+y^2)/√(x^2+y^2+z^2))
但し、φ=Arctan(y/x)(x>0),Arctan(y/x)+π(x<0),π/2(y>0,x=0),3π/2(y<0,x=0)であり、
θ=Arctan(z/√(x^2+y^2))(x^2+y^2>0),0(z=-r),π(z=r)である。
検算よろしく。
- 113 名前：１３２人目の素数さん mailto:sage [04/05/29 23:49]
- >>112
ありがとうございます。２Ｄで書こうと思ってるので、z座標は考えなくていいですよね。
本当にありがとうございました。
- 114 名前：１３２人目の素数さん [04/06/05 10:04]
- いつの間にか4.0から5.0にバージョンアップできなくなってた。
- 115 名前：１３２人目の素数さん [04/06/11 20:07]
- 755
- 116 名前：１３２人目の素数さん [04/06/17 23:35]
- LiveGraphics3Dでアニメ書こうとしてるんですけど
ttp://up.isp.2ch.net/up/7c3ec30d5063.nb
こう書いてるのに正しいファイルが出力されない…
どなたか原因分かる方いらっしゃいませんか？
Mathematica4の日本語化したものです
- 117 名前：１３２人目の素数さん mailto:sage [04/06/18 17:44]
- >>116
> こう書いてるのに正しいファイルが出力されない…
プログラムは正常に動作しているようだが、
君の脳内「正しいファイル」というのを他人にもわかるように
説明してくれないか。
いったい何がやりたいわけ？
- 118 名前：１３２人目の素数さん [04/06/18 18:12]
- 関数f1,f2,f3…
が有って
その和を取りたいのですが
Σfi
とやるとf*1＋f*2…と認識されるのですが
どうすれば良いのでしょうか…
- 119 名前：KingMathematician ◆5lHaaEvFNc [04/06/18 22:05]
- Re:>>118
f1,f2,f3,などもまたシンボルとなる。
第i項をfiなどとは書けない。
これは、素直にf1+f2+f3+…
と書くのが早いだろう。
関数がとても多い場合は、
f[i,x]のように関数を定義し直した方がいいと思う。
他にも方法はあるかもしれない。
- 120 名前：１３２人目の素数さん mailto:sage [04/06/18 22:09]
- >>119
- 121 名前：１３２人目の素数さん mailto:sage [04/06/18 22:35]
- >119のやり方が一番分かりやすいかな。
f[i,x]と、擬似的な２変数関数にするのは上手い方法ですね。
- 122 名前：１３２人目の素数さん mailto:sage [04/06/19 00:55]
- >>118
f[i][x]と定義するのが良い。
- 123 名前：１３２人目の素数さん mailto:sage [04/06/19 09:07]
- できました！ありがとうございます
- 124 名前：１３２人目の素数さん mailto:sage [04/06/19 21:14]
- 最近大学に入って使い始めたのですが、
計算の途中式を吐かせることはできるんでしょうか
- 125 名前：１３２人目の素数さん mailto:sage [04/06/19 21:35]
- もっと具体的に書いてくれないと。
- 126 名前：１３２人目の素数さん mailto:sage [04/06/19 23:00]
- 例えば微分をやらせるときに
sin(2x^2)というときに
(2x^2)'*cos(2x^2)
＝4xcos(2x^2)
などという風に途中の計算を入れるということはできるのでしょうか
- 127 名前：１３２人目の素数さん mailto:sage [04/06/20 04:57]
- d1 = D[Sin[2x^2], x]
x = n;
d2 = d1
これじゃだめかな？
- 128 名前：１３２人目の素数さん mailto:sage [04/06/20 15:48]
- Plotで大きな数（1e5以上）をプロットするとき、目盛の数字に対して
NumberFormのExponentStepみたいなオプションを指定して、
指数表記させないことってできるのですか？
ぐぐっていろいろ調べたけど、どこにも書いてなくて....
ご存知の方、教えてください。
環境：Ver 5.0.1（OS X）
- 129 名前：１３２人目の素数さん mailto:sage [04/06/20 15:54]
- www.google.co.jp/search?q=Mathematica+%E5%AF%BE%E6%95%B0%E3%80%80%E3%82%B0%E3%83%A9%E3%83%95&ie=UTF-8&hl=ja&lr=
ここに色々あるから見てみると良いと思う
- 130 名前：１３２人目の素数さん mailto:sage [04/06/20 17:30]
- >>129
うぅ〜ん、やはりでていないですね。
日本語サイトはだいたい見たとこばかりだし...
どうもありがとう。
- 131 名前：１３２人目の素数さん [04/06/21 12:52]
- すいません教えていただきたいのですが。
Solve関数などを用いて、導いた複数の解をそのまま次の演算に用いたい場合、
どうすればいいのでしょうか？
例えば
Solve[{2x+3y+5z==12,
5x-3y-4z==4,
3x+2y-z==-2},{x, y, z}]
などとして方程式を解かせ、その直後にこの解を下のような式に代入させ計算したいとします
x^2+y^3+z
どういう風にやればいいのでしょうか？初歩的ですいませんが、教えてください。お願いします。
- 132 名前：１３２人目の素数さん mailto:sage [04/06/21 21:06]
- 図を書きたいのですが、球を書かせるような命令はないのでしょうか？
ParametricPlot3Dで書くとどうもギザギザで…
- 133 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/21 22:34]
- Re:>132
PlotPointsとかいうオプションなかったっけ？
- 134 名前：１３２人目の素数さん mailto:sage [04/06/21 23:53]
- >>126
組込み関数の途中計算を知ることはできない。
Mathematicaの式として定義されているものならTraceで見れる。
MyD[x_^n_, x_] := n x^(n - 1)
MyD[f_ g_, x_] := MyD[f, x]g + f MyD[g, x]
MyD[f_, x_] /; FreeQ[f, x] := 0
MyD[2 x^2, x] Cos[2 x^2] // Trace
>>128
自分でFormatを定義せよ。
Format[MyForm[expr_]] := FromDigits[RealDigits[expr]]
Plot[10^x, {x,0,10}, FormatType -> MyForm]
>>131
x^2 + y^3 + z /. Solve[...]
- 135 名前：１３２人目の素数さん mailto:sage [04/06/22 05:48]
- >>132
<<Graphics`
Sphere[1,30,30]//Graphics3D//Show
- 136 名前：128 mailto:sage [04/06/22 06:20]
- >>134
ありがとうございます！
勉強します。
- 137 名前：KingOfKingMathematician ◆H06dcQwwvA [04/06/22 08:10]
- H06dCeRArc : #VC)Q%ult
H06dF0OtH. : #px:wSH,c
H06ddWXDNY : #um1m+｢MN
H06dcuQgY2 : #B45L0K\y
H06deD4siU : #6Oｦj*ｾ?ｻ
H06d2xYhm6 : #Fｻn4wJ+.
H06dQfJLXY : #3)H0x'U/
H06dgGdMtc : #W5IBF@Gz
H06dWwDj/. : #@=c\X8｣x
H06d4z7h8. : #8,:M0Fwf
H06d/CP0JY : #=!7｣*~mp
H06dpnDLQ6 : #xTfjQF3b
H06dhKAsgc : #,2C1n{5-
H06dEu.odw : #WYmH+?Sq
- 138 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/22 09:25]
- 誰か147まで回しといてくれ。
- 139 名前：１３２人目の素数さん [04/06/22 09:56]
- Mathematica 4.2のシリアルなくしてしまった
鬱だ
- 140 名前：１３２人目の素数さん [04/06/22 09:59]
- 4.0.2.0ならしってたのにおしえないけど。
- 141 名前：１３２人目の素数さん mailto:sage [04/06/22 17:39]
- 5.0を買って無問題
- 142 名前：128 mailto:sage [04/06/22 23:16]
- >>136
Formatで書式を指定する方法ではPlotLabel、FrameLabelを設定していると
エラーになってしまいます...
ということで、いろいろ悩んでFrameTicksのオプションを保存して書き換える
方法で解決しました。MathematicaのFAQに書いてありました。
fticks = FullOptions[gl1, FrameTicks];
newfticks = fticks /. {
x_, x_, {0.00625,
0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}} :> {
x, FromDigits[RealDigits[x]], {
0.00625, 0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}};
Show[gl1, FrameTicks -> newfticks]
もっと簡潔な方法ってありますか？
- 143 名前：KingOfKingMathematician ◆H06dcQwwvA [04/06/23 01:09]
- H06dzQx4rY : #:g3cAOOS
H06dABjF.Q : #S\_I//x｢
H06dligu62 : #E?ｦｻy4E6
H06dUsR8lg : #｣%'ｼ|｢N2
H06dRCIVrg : #F?Z3vｦa7
H06dhLHyjw : #0\SE8.99
H06dgb.cI6 : #sｻ.Z[vb0
H06d/75ZQQ : #*Kl]U67h
H06dS8zXQQ : #S:g5xxr]
- 144 名前：１３２人目の素数さん mailto:sage [04/06/23 02:05]
- >>142
型毎に違う出力をするFormatを書く。
Format[MyForm[expr_Real]] := FromDigits[RealDigits[expr]]
Format[MyForm[expr_]] := OutputForm[expr]
Plot[10^x, {x, 0, 10}, PlotLabel -> "10^x", Frame -> True,
FrameLabel -> {Bottom, Left, Top, Right}, FormatType -> MyForm]
- 145 名前：128 mailto:sage [04/06/23 05:58]
- >>144
ありがとうございます。
なるほど、型ごとの指定というのが当然ながら可能なのですね。
大変勉強になります。
ヘルプ、オンライン等で確認しましたが、その他expr_*で指定できる型に
ついて参照することができませんでした。探し方が悪いのでしょうか。
ヘルプならどこを参照すればよろしいでしょうか。
- 146 名前：１３２人目の素数さん mailto:sage [04/06/23 07:08]
- >>145
Mathematicaの言語としての基礎だ。
Principles of Mathematicaを全部読めといいたいところだが、
とりあえず、必ず「Expressionsの章を読んでから」、Patternsの章、
特に、2.3.4を読め。
- 147 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/23 08:39]
- 誰か153まで回しといてくれ。
- 148 名前：１３２人目の素数さん mailto:sage [04/06/23 16:38]
- >>147
何をやっとるのか知らんがスレ違いでうざい。
- 149 名前：KingOfKingMathematician ◆H06dyzvgzA [04/06/23 22:26]
- 回し。
トリップ ザ ベスト
H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- ←使用中
- 150 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/23 22:34]
- 誰か159まで回しといてくれ。
- 151 名前：１３２人目の素数さん mailto:sage [04/06/23 22:49]
- あの、せめてMathematicaについても一言書いたらどうでしょうか。
p[x_] = a[x + i];
q[x_] = b[x + n - i];
(*Cauchyの積級数*)
Sum[Sum[p[x] q[x], {i, 0, n}], {n, 0, Infinity}]
- 152 名前：１３２人目の素数さん [04/06/23 23:23]
- Utilities`Notationを利用して添字変数のベクトルを作って計算する練習を
しようとしているのですが、どうもうまくいきません。
バージョンは4.1です。
<< Utilities`Notation`
Symbolize[expr_x]
Symbolize[expr_y]
Symbolize[expr_z]
p={px,py,pz}
q={qx,qy,qz}
p.q
（xyzは下付けの添字）
をやってみたのですが、どうもシンボル化ができていないみたいで、必ず強制終了
することになりうまくいきません。expr_を使わず変数を一つずつSymboliseに入れてみても
もだめでした。よくは分からないんですが<< Utilities`Notation`をNeeds["Utilities`Notation`"]
にしても変化なしです。サポートページにキーボードでなくパレットから、とあった
ので基本的にSymbolizeはパレットから持ってきています。ただ、一応キーボードで
やってみてもだめでした。
何をどうすればいいのでしょうか？
- 153 名前：１３２人目の素数さん mailto:sage [04/06/24 00:18]
- >>152
パレットのSymbolizeをクリック。
ノートブックにフォーカスを写して
expr_<Ctrl+->x<Shift+Enter>
これで定義される。
ただし、<A+B>はキーAを押しながらキーBを押すことをあらわす。
a<Ctrl+->x // FullForm
でa_Subscript_xとなることを確認。
- 154 名前：152 [04/06/24 22:56]
- >>153
ありがとうございます。できました！
ただ、152の計算で定義したあと一度目のShift+Enterでは
入力ミスではないですか。q_Subscript_ｙはp_Subscript_ｙに似ています
・
・
・
と似たようなエラーがいくつか出たんですが、消してもう一度Shift+Enter
を押したらちゃんとできました。
よく分かりませんが、使えるよう勉強させてもらいます。
- 155 名前：１３２人目の素数さん mailto:sage [04/06/24 23:01]
- >>154
> 入力ミスではないですか。q_Subscript_ｙはp_Subscript_ｙに似ています
入力ミスじゃないんだから無視しろ。
- 156 名前：１３２人目の素数さん [04/06/25 00:29]
- どうでもいいよ。
- 157 名前：155 mailto:sage [04/06/25 01:16]
- わかりにくかったか。
>>152
そのメッセージはwarningであってerrorじゃない。親切に入力ミスの可能性を
指摘してくれているだけで、変数の定義自体は正常に行われているので、
入力ミスでない今回の場合は無視すれば良い。
- 158 名前：152 [04/06/25 01:51]
- >>155
アドバイスありがとうございます。
そんな親切な機能があったのですね、分かりました。
- 159 名前：１３２人目の素数さん [04/06/25 02:29]
- mathmatica で 需要関数 Y= いろいろな定数/P の分析で
マネーサプライが増えた時と ぴグー効果が起こった時 の状態を描きたいんですが
まったくわかりません
とにかく
plot してみたんだけど グラフが ショボイっていうか軸により過ぎててわかんない
どうやって調整するんでしょうか
あと それぞれのグラフを色分けしたいんですが タグがまったくわからん
ひとつでも間違うとちんぷんかんぷん
ISLM分析 にPを付け加えた 3次元分析でも それぞれの定数が変化した時に起こる
需要曲線の傾き変動をきれいに江が北印ですが
だれか
ここにタグ貼ってください よろしくお願いします
- 160 名前：１３２人目の素数さん [04/06/25 02:39]
- たとえば plot[Y=1/p,2/p,1/(2p),(p,0,10)]
という基本タグ
をどのように拡張して行けば それぞれの線をきれいに色分けして きれいなグラフで
シフトがわかるようになるのかということです
- 161 名前：１３２人目の素数さん [04/06/25 02:40]
- あと IS-LM モデルのpを加えた三次元表示で P軸できった 総需要曲線が
どのようにシフトするか分析するために
三次現プロットしなければ生けないんですがこのタグも出来たらわかるかたいませんかね
- 162 名前：１３２人目の素数さん [04/06/25 10:50]
- こんなの見つけてきました
例えば コブダグラス型の生産関数です
ほんとは k=1/3 l=2/3 なんですが
z = 60 x^0.6 y^0.4
g = Plot3D[z, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {-1, -3, 0.7}]
ContourPlot[z, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 30]
- 163 名前：１３２人目の素数さん [04/06/25 11:22]
- Lmもどき
r = 4 - 0.5y
g = Plot3D[r, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 0.5, 0.7}]
ContourPlot[r, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 30]
- 164 名前：１３２人目の素数さん [04/06/25 11:35]
- r = 10y - p^2
g = Plot3D[r, {p, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 1, 0.7}]
ContourPlot[r, {p, 0, 10}, {y, 0, 10}, PlotPoints -> 30]
isもどき 1/pなんた゜か゜ なんだかエラーになってしまうので変えた
- 165 名前：１３２人目の素数さん [04/06/25 11:40]
- でこれを重ねようとすると エラーになる
- 166 名前：１３２人目の素数さん [04/06/25 12:35]
- ちょっと聞いてくれ
夜露死苦って素数なんだぜ！
分かりにくく答えが出しにくい青春時代を良く表してるよね！
- 167 名前：１３２人目の素数さん [04/06/25 18:44]
- 「ますます出来るMathematica」
www.catkk.co.jp/mathcd/index.html
これ使うと勉強効率あがるかしら？
- 168 名前：１３２人目の素数さん mailto:sage [04/06/25 19:03]
- 付属のヘルプを読む方がはるかにためになるだろうな。
- 169 名前：１３２人目の素数さん [04/06/25 19:31]
- ようやく合成表示がわかったのに エラー なんだけど
r = 2
g = Plot3D[r, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 0.5, 0.7}]
s = y
g = Plot3D[s, {p, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 1, 0.7}]
gjy = Show[r, s]
Show::"gcomb": "\!\(Show[\(\(2, \
y\)\)]\)のグラフィックオブジェクトの合成処理においてエラーが発生しました．"
- 170 名前：１３２人目の素数さん [04/06/25 19:36]
- いやー難しい
ミクロのコブダグラス関数しか表示してるサイト無い
ISLM分析から接線をADであらわしてるサイトなんて無い
だれか うまくシミュレートできるタグわからないかな
- 171 名前：１３２人目の素数さん [04/06/25 19:39]
- タグ覚えるのがこれまた大変なソフトだな
もう使いたく無い
Flash MX よりかは扱いやすいが
ヘルプは醜くて拉致があかない
ミクロ分析の解説本はで照るみたいだけど
マクロも出るの解説本でてないかな
- 172 名前：１３２人目の素数さん mailto:sage [04/06/25 19:40]
- >>169
r = 2, s = y なんだから Show[r, s] = Show[2, y]だね。
Show[2,y]でなにが表示されると？
ここまでの書き込みを読んでいても思ったのだが、君もうちょっと頭使わないと。
- 173 名前：KingOfKingMathematician ◆H06dyzvgzA [04/06/25 20:18]
- お勧めトリップ集
KingOfKingMathematicianの後に付けるのがおしゃれ。
H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- ←使用中
- 174 名前：１３２人目の素数さん [04/06/25 20:48]
- >>172
できませんよ
あなたこそちゃんとタグの使い方マスターしてくださいね
Show::"gcomb": "\!\(Show[\(\(2, \
y\)\)]\)のグラフィックオブジェクトの合成処理においてエラーが発生しました．"
- 175 名前：１３２人目の素数さん [04/06/25 21:11]
- 簡単に行ってしまうと
マスマティカで きれいに需要曲線の変化を描きたいんですよ
たとえば
ケインジアン交差図と投資関数から導かれるIS曲線
Y=C(Y-T)+I(r)+G = a+b(Y-T) + c-dr + G
⇔Y=(1/1-b){a+c+G-bT-dr}
流動性選好理論から導かれるLM曲線
Ld(r.Y)=eY-fr≡Ld(M/P)
これらを (r.p.y)空間上で交差させて
この交点から導かれる総需要曲線
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]
z=f/[f+de/(1-b)]
をその接点を切り取る形で表示して
これに 政府がマネーサプライを増加させたときや
租税を増加させたときどのような変化がおこるか
わかりやすく図示したいんです
またピグー効果が起こった時 C(Y-T,M/P) = a+b(Y-T) +ν(M/P)
と消費関数がなるわけですが
このとき 総需要関数がどのように変化するかもわかりやすく
示したいんです
でもmatematica で 数理的に説明するよりも
自分で勝手に三次元グラフを作ってしまったほうが手っ取り早いんですね
- 176 名前：１３２人目の素数さん [04/06/25 21:13]
- 簡単に行ってしまうと
マスマティカで きれいに需要曲線の変化を描きたいんですよ
たとえば
ケインジアン交差図と投資関数から導かれるIS曲線
Y=C(Y-T)+I(r)+G = a+b(Y-T) + c-dr + G
⇔Y=(1/1-b){a+c+G-bT-dr}
流動性選好理論から導かれるLM曲線
Ld(r.Y)=eY-fr≡Ld(M/P)
⇔r=(e/f) - (1/f)(M/P)
これらを (r.p.y)空間上で交差させて
この交点から導かれる総需要曲線
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]
z=f/[f+de/(1-b)]
をその接点を切り取る形で表示して
これに 政府がマネーサプライを増加させたときや
租税を増加させたときどのような変化がおこるか
わかりやすく図示したいんです
またピグー効果が起こった時 C(Y-T,M/P) = a+b(Y-T) +ν(M/P)
と消費関数がなるわけですが
このとき 総需要関数がどのように変化するかもわかりやすく
示したいんです
でもmatematica で 数理的に説明するよりも
自分で勝手に三次元グラフを作ってしまったほうが手っ取り早いんですね
- 177 名前：１３２人目の素数さん [04/06/25 21:17]
- Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]
この式から見て Mの増加や
C(Y-{T+kY}) = a+b(Y-{T+kY}) となる累進課税時に
曲線の傾きがどうなるかは簡単にわかりますが
実際にグラフで視覚的に体験して見たいのです
- 178 名前：１３２人目の素数さん [04/06/25 21:19]
- Mの増加は LM曲線を左方にシフトさせますが
それが需要曲線の変動とどうつながるか
三次元グラフを使って立体的に示したいんです
- 179 名前：１３２人目の素数さん [04/06/25 21:20]
- 「マスマティカ」じゃなくて「マセマティカ」だから、あしからず。
- 180 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/25 22:13]
- Mathematicaは普通の電卓の代わりに使うのは少し難しい。
- 181 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/25 22:14]
- 一般人が受け入れられるもの、それは関数電卓でもない。
- 182 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/25 22:15]
- だから高い。
- 183 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/25 22:15]
- 10年後はどうだろう？
- 184 名前：KingOfKingMathematician ◆H06dyzvgzA [04/06/25 22:16]
- 回し。
H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- ←使用中
- 185 名前：１３２人目の素数さん [04/06/25 22:16]
- 結局わかる人はここにいないんだね
所詮 似ちゃんなんて その程度だね はははははは
- 186 名前：１３２人目の素数さん [04/06/25 22:17]
- KingOfKingMathematician
あんた持って無いの？ ny にいっぱい(ry
- 187 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/25 22:39]
- Re:>186 吾はmaxima使い。FourierTransformが無いのはちょっと痛いけどね。
- 188 名前：１３２人目の素数さん mailto:sage [04/06/25 22:40]
- Mathematica ４ と Mathematica ５ の違いって何？
- 189 名前：172 mailto:sage [04/06/25 23:42]
- >>174
なるほど>>169の意味も>>172の文意も全く分からないわけね。
頭悪すぎるから諦めた方がいいんじゃないかな。
タグとか言ってるし…
答えてもらえなくて残念だったね。頭が悪くても
人にものを尋ねる態度ぐらいは学習できるかもしれないから、がんばってね。
- 190 名前：１３２人目の素数さん mailto:sage [04/06/26 00:39]
- >>167
1冊何か、なら、マニュアルでもあるWolframの分厚い本ですかね。
あれに書いてないことは「出来ない」ということでしょうから。
初心者用には以下の Mathematica数学の道具箱〈上〉・〈下〉 をすすめます。
www.amazon.co.jp/exec/obidos/ASIN/489242174X/qid=1088177783/sr=1-52/ref=sr_1_2_52/250-9710320-2294634
www.amazon.co.jp/exec/obidos/ASIN/4892421731/qid=1088177783/sr=1-54/ref=sr_1_2_54/250-9710320-2294634
大学１年生くらいでこういう風にグラフを書けることや計算ができることを発見出来ると、人生変わる気がする。
もっとはやく知っとけばよかったと思います。
>>188
このスレに書かれていることに関しては違いが分からない程度。
- 191 名前：KingOfKingMathematician ◆H06dyzvgzA [04/06/26 08:40]
- お勧めトリップ集
KingOfKingMathematicianの後に付けるのがおしゃれ。
H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- ←使用中
- 192 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/26 10:22]
- 誰か201まで回しといてくれ。
|
 |
