〓 Mathematica 3 〓
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
2005/07/15(金) 16:37:20, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .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/
〓 Mathematica 2 〓
http://science3.2ch.net/test/read.cgi/math/1078534285/
0348１３２人目の素数さん
2006/09/11(月) 23:19:43そもそもその式が違うじゃねーか（ｗ
Factor[a^2+2a b+a b^2]
=>a(a + 2b + b^2)
なんかはできるけどね。細かい指定をするなら>>346のようなソフトが
良いかと。
0350１３２人目の素数さん
2006/09/15(金) 07:31:240351１３２人目の素数さん
2006/09/15(金) 07:33:58ttp://www.varsitywave.co.jp/campaign.html
Mathematicaでググるとなかなかヒットしないもんで。
0352１３２人目の素数さん
2006/09/16(土) 00:46:00A＝Table[Random[]/2，100] （重複がないように細工）
Position[A，Min[A]]
とした時に後で最小値の位置を使いたいのですがPositionの時点で
結果がレベル2のリストの中に埋もれてしまいますよね、{{16}}のように。
取り出すのに ％［[1,1]］ とか思いつくのですがどうにもｷﾓｲです。
他のすっきりした方法はないですか？
0353１３２人目の素数さん
2006/09/16(土) 01:13:58別にリストから取り出す必要などなくそのままでいいんですね。
0354１３２人目の素数さん
2006/09/30(土) 20:46:270355１３２人目の素数さん
2006/10/03(火) 02:43:150356１３２人目の素数さん
2006/10/04(水) 03:08:39"重大な数値的エラーが含まれている可能性があります"
という警告が出ても、最後まで計算して結果を返してきますよね。
この場合の計算結果というのは、やはりほとんど信用出来ないのですか？
0357１３２人目の素数さん
2006/10/13(金) 02:39:51極座標でパラメータを与えてベクトル場のグラフ表示をする
方法を教えて下さい
0358１３２人目の素数さん
2006/10/17(火) 09:57:50こんな感じで関数を定義してみたらどう？
<< Graphics`PlotField`
PlotPolarVectorField[{f_, g_}, {r_,rmin_,rmax_}, {theta_, thetamin_, thetamax_}, options__] :=
Module[{h}, h[x_, y_] :=
If[rmin <= Norm[{x, y}] <= rmax && thetamin <= Arg[x + y I] <= thetamax, 1, 0];
PlotVectorField[h[x, y](f{Cos[g], Sin[g]} /.
{r -> Norm[{x, y}], theta -> Arg[x + y I] }),
{x, -rmax, rmax}, {y, -rmax, rmax}, options]]
PlotPolarVectorField[{r, r+theta}, {r, 2, 5}, {theta, -Pi, Pi}, PlotPoints->20]
↑ 極座標で表された各点(r,θ)において，長さr，偏角r+θのベクトルが
生えているようなベクトル場を，円環状領域 2≦r≦5, -π≦θ≦π において
表示するという例。
オプションには PlotVecotrField と同じオプション（ScaleFactor,ScaleFunction, MaxArrowLength, ColorFunction, PlotPoints）
が指定できます。
0359１３２人目の素数さん
2006/10/17(火) 22:28:30「マケマシタ６」
0360１３２人目の素数さん
2006/10/17(火) 23:06:07t3=0.95*t2-u2,
t2=0.95*t1-u1,
t4=0,t1=1000000,
u1+u2+u3=1000000
v=0.05*t1+u1=0.05*t2+u2=0.05*t3+u3},{v}]
という連立方程式を解きたいのですが、エラーとなってしまいます。どこがおかしいのでしょうか？
0361１３２人目の素数さん
2006/10/17(火) 23:19:40ヒント：=は代入，==は比較
0362１３２人目の素数さん
2006/10/17(火) 23:27:47t3:=0.95*t2-u2,
t2:=0.95*t1-u1,
t4:=0,t1:=1000000,
u1+u2+u3:=1000000
v==0.05*t1+u1=0.05*t2+u2=0.05*t3+u3},{v}]
こうですか？今家でちょっとmathematica動かせないです
0363１３２人目の素数さん
2006/10/18(水) 00:58:22何がやりたいのかさっぱり見えないので，
解きたい連立方程式を，普通の数学の記号で書いてもらえないか？
0364１３２人目の素数さん
2006/10/18(水) 01:04:32t4 == 0.95*t3 - u3
t3 == 0.95*t2 - u2
t2 == 0.95*t1 - u1
t4 == 0
t1 == 1000000
u1 + u2 + u3 == 1000000
v == 0.05*t1 + u1
v == 0.05*t2 + u2
v == 0.05*t3 + u3
を v について解きたいということなら，文字が8個でで式が9本だから，
普通は解なしになる。
実際，Mathematicaに解かしてみても解なしとなった。
0365362
2006/10/18(水) 02:12:11t2 == t1 - u2
t1 == t0 - u1
t3 == 0
t0 == 1000000
v == 0.05*t0 + u1
v == 0.05*t1 + u2
v == 0.05*t2 + u3
すいません、式はこうでした＞＜
0366１３２人目の素数さん
2006/10/18(水) 02:57:14それなら単に
Solve[{t3 == t2 - u3,
t2 == t1 - u2,
t1 == t0 - u1,
t3 == 0,
t0 == 1000000,
v == 0.05*t0 + u1,
v == 0.05*t1 + u2,
v == 0.05*t2 + u3}]
でOK.
解のリスト
{{t0 -> 1.0*10^6, t3 -> 0,
t1 -> 682791.4353687549,
u1 -> 317208.56463124516,
t2 -> 349722.44250594766,
u2 -> 333068.9928628073,
u3 -> 349722.44250594766,
v -> 367208.56463124504}}
が得られる。
ちなみに，vの値だけが欲しいからといって {v} をつけてはだめ。
v以外の文字が全て文字定数と見なされるため，
未知変数が１個，式が８本ということになって，解無しになってしまう。
また，解を近似値じゃなくて厳密値で求めたい場合は0.05を1/20に変えること。
0367１３２人目の素数さん
2006/10/18(水) 17:13:31グラフに値をプロットすることはできないのでしょうか？
たとえば
y=x+5のグラフにx=1のときの値をグラフ上にプロットできないのでしょうか？
0368362
2006/10/18(水) 18:04:58ほんとうにありがとうございました！
0369１３２人目の素数さん
2006/10/18(水) 20:19:53Clear["Global`*"]
y[x_]=x+5;
x1=1;
gridstyle={Dashing[{0.01,0.01}]};
Plot[y[x],{x,0,5},
GridLines->{{{x1,gridstyle}},{{y[x1],gridstyle}}},
Epilog->{
Text["x="<>ToString[x1],{x1,y[x1]+1},{0,0},Background->GrayLevel[1]],
Text["y="<>ToString[y[x1]],{x1+1,y[x1]},{0,0},Background->GrayLevel[1]]
}
];
0370１３２人目の素数さん
2006/10/18(水) 20:45:17おまけ
Clear["Global`*"]
y[x_] = x + 5;
x1 = 1;
Plot[y[x], {x, 0, 5},
Epilog -> {
{PointSize[0.02], RGBColor[1, 0, 0], Point[{x1, y[x1]}]},
Text["{ x=" <> ToString[ x1] <> ",y=" <> ToString[y[x1]] <> "}", {x1, y[x1] + 0.5}, {0, -1}]
}
];
0371１３２人目の素数さん
2006/10/21(土) 10:12:58ありがとうございます．
返事が遅れて申し訳ありません．
早速月曜日にでも試したいと思います．
ありがとうございました．
0372１３２人目の素数さん
2006/10/25(水) 00:59:44例えば
Integrate[Exp[-(x - a)^2/2c^2], {x, -Infinity, Infinity}]
とすると
If[Re[c^2] > 0, (答1), (答2)]
と、ご丁寧に条件つきで答を教えてくれるわけですが、
あらかじめこういった条件を前提として与えるにはどうすれば良いのでしょう？
Integrate[...] where Re[c^2]>0
みたいな感じのことをしたいのです。
0373１３２人目の素数さん
2006/10/25(水) 02:01:54極簡単な例として，y=2xを書きたいグラフの例とします。
このとき鉛直下向きを正のx，水平左向きをyの正の方向
としてグラフを書きたいのですが，どうすればいいのでしょうか？
よろしくお願いします。m(__)m
0374１３２人目の素数さん
2006/10/25(水) 12:15:25Integrate[Exp[-(x-a)^2/2c^2], {x, -Infinity, Infinity}, Assumptions->{c>0}]
0376１３２人目の素数さん
2006/10/25(水) 19:26:52なかなか難しい問題だった。
MirroringPlot[functions_, {x_, min_, max_}, (opts___)?OptionQ] :=
Module[{old, newTicks, newLines, new},
old = Plot[functions, {x, min, max}, opts, DisplayFunction -> Identity];
newTicks = AbsoluteOptions[old, Ticks][[1, 2]] /.
{position_, label_, length_, style_} -> {-position, label, length, style};
newLines = old[[1]] /.
{pointX_Real, pointY_Real} -> {-pointX, -pointY};
new = ReplacePart[old, newLines, 1] /.
{RuleDelayed[DisplayFunction, Identity] -> RuleDelayed[DisplayFunction, $DisplayFunction],
(Ticks -> _) -> (Ticks -> newTicks)};
Show[new]]
(* 使用例 *)
MirroringPlot[2x, {x, -2, 2}]
MirroringPlot[{x^2, x^4}, {x, -2, 2}, AspectRatio->Automatic]
上記のように，一度グラフィックスプリミティブを取得して，
その目盛りの出力位置の座標と，曲線のサンプリング点の座標の全てを正負反転させた
グラフィックスプリミティブを作り直し，それを出力するという方法で
関数 MirroringPlot を作成しました。
参考：http://support.wolfram.com/mathematica/graphics/2d/twoaxisgraph.html
0377376
2006/10/25(水) 19:35:41>>376 の関数 MirroringPlot は，鉛直下向きをyの正方向，
水平左向きをxの正方向とするプロットだった。
鉛直下向きをxの正方向，水平左向きをyの正方向としてプロットするには，
>>376 の定義を改変してもいいけど，プロットしたい関数の逆関数を，
必要ならば InverseFunction を使って求めて，それを >>376 の
MirroringPlot でプロットするのが簡単かな。
0378１３２人目の素数さん
2006/10/25(水) 20:41:160379１３２人目の素数さん
2006/10/25(水) 22:04:33ありがとうございます。
おもいっきり，活用＆勉強(プログラムを)させていただきます。
>>378
すみませんm(__)m
0380１３２人目の素数さん
2006/10/31(火) 17:20:080381１３２人目の素数さん
2006/11/03(金) 23:53:46このサイトのように3Dプロットで複数表示させるにはどのようにすればよいのでしょうか？
0382１３２人目の素数さん
2006/11/04(土) 01:48:22g1 = Plot3D[x^2 + y^2, {x, -2, 6}, {y, -2, 6},
ColorFunction->(RGBColor[0, 1, #] &), DisplayFunction->Identity];
g2 = Plot3D[4(x-2) + 4(y-2) + 8, {x, -2, 6}, {y, -2, 6},
ColorFunction->(RGBColor[1, #, 0] &), DisplayFunction->Identity];
Show[g1, g2, DisplayFunction->$DisplayFunction];
0383１３２人目の素数さん
2006/11/06(月) 10:03:000384383
2006/11/06(月) 11:04:410386１３２人目の素数さん
2006/11/09(木) 10:15:28どっちがいいと思う？
0387１３２人目の素数さん
2006/11/12(日) 04:12:28アップグレード代を考えると，待った方がいいんじゃないかな？
0388１３２人目の素数さん
2006/11/13(月) 13:07:46このプレミアサービス１年付きっての買っとけ
買ってから１年以内に新verが出た場合ただでもらえる
ttp://www.hulinks.co.jp/shop/camp_mathe52v4.html
0389１３２人目の素数さん
2006/11/13(月) 19:11:460390１３２人目の素数さん
2006/11/15(水) 12:09:040391１３２人目の素数さん
2006/11/15(水) 12:42:550392１３２人目の素数さん
2006/11/15(水) 18:17:11A,Bは三角関数を含み、数個の文字を使っています。
0393１３２人目の素数さん
2006/11/15(水) 20:03:59Expand
0394１３２人目の素数さん
2006/11/15(水) 21:01:07ありがとうございました。 もし等式の形のまま右辺をExpandできる方法があれば教えてください。
0395１３２人目の素数さん
2006/11/15(水) 21:07:51シツモンノイミガリカイデキナイ。
0396392
2006/11/15(水) 21:57:22初心者がおさわがせしました。
0397１３２人目の素数さん
2006/11/15(水) 23:41:14eq=(F==(A+B)/C)
eq2=(eq[[1]]==Expand[eq[[2]]])
これでeqの右辺だけExpandした式eq2が得られるけど、こんなことする必要性がわからんｗ
0398１３２人目の素数さん
2006/11/15(水) 23:44:23まあ、まあ、まあー
そう興奮しないで
0399１３２人目の素数さん
2006/11/17(金) 13:31:13Mathematicaのnotebookで論文書くとかしてるんじゃね？
0400１３２人目の素数さん
2006/11/17(金) 13:35:5512/12（火）東京ビッグサイト
ttp://www.wolfram.co.jp/news/events/JMC2006/
04010519
2006/11/18(土) 11:52:10Mathematica5.2をjavaで遠隔操作しようとしているのですが、行き詰ってしました・・・。
そもそも、あらかじめ作っておいたnbファイルをjavaから実行させて結果を出させることはできるんでしょうか？
もし、ご存知の方がいましたら教えてください。
よろしくお願いします。
0402１３２人目の素数さん
2006/11/18(土) 23:53:0504030519
2006/11/19(日) 00:21:47スクリプトを調べてはみたのですが、分かりやすい物がみつかりませんでした・・・。
すいません。
スクリプトとはどんなものなのでしょうか？
0404１３２人目の素数さん
2006/11/19(日) 17:17:31「javaで遠隔操作」ってのは，JSP/サーブレット？それともアプレットとか？
0405１３２人目の素数さん
2006/11/21(火) 11:14:08今のところ、Webサーバ上からを考えています。
0406１３２人目の素数さん
2006/11/21(火) 12:54:17そのWebサーバがイントラネット上ならともかく，インターネット上のサーバの場合，
「nbファイルを実行して結果を得る」行為は，Mathematica のカーネルを不特定多数に使わせることになるので，それは Mathematica のライセンス的にまずい。
そのサイトに自分しか使えないような認証をかけておくなら大丈夫だろうが。
Wolfram的には，そういう用途には webMathematica を使ってくれってことなんだろうね。
0407１３２人目の素数さん
2006/11/21(火) 18:53:42なるほど。確かに不特定多数に使わせることになりますね。
私もいろいろと試して見たのですが、やはりサーバ上からの場合はかなり難しいという結論になるんですね･･･。
それでは、同じマシン上でmathematicaとjavaを起動させて、javaからnbファイルを評価させることは可能でしょうか？
連続で質問してしまい、すいません。
0408１３２人目の素数さん
2006/11/22(水) 05:20:59http://documents.wolfram.com/v5/Add-onsLinks/JLink/Part2.WritingJavaProgramsThatUseMathematica/index.html
これなんかどうでしょうか？
0409１３２人目の素数さん
2006/11/22(水) 12:25:23教えていただいたJlinkをがんばってみることにします。
色々とアドバイスしていただき、ありがとうございました。
0410aki
2006/11/22(水) 17:05:07今、mathematicaをバッチ入力モードにする方法を探してます★
$BatchInput
で確認すると、初期設定ではFalseになっているので、それを変更しようとしています。。
とりあえず分かったことは、起動する際に読み込まれるらしいinit.mというファイルが関係しているようなのですが、
どうすればいいのか分からず困っています。。
もしご存知の方がいましたら、教えてください。
よろしくお願いしますm(__)m
0411１３２人目の素数さん
2006/12/06(水) 21:25:580412１３２人目の素数さん
2006/12/06(水) 21:56:400413１３２人目の素数さん
2006/12/08(金) 00:45:07お前は医学部の一年生でこれから何回も留年するんだろ？
0414１３２人目の素数さん
2006/12/09(土) 12:39:48駄目に決まってんだろ、あほ
0415１３２人目の素数さん
2006/12/10(日) 13:19:49だけど、卒業してから「パソコンが壊れたから新しいパソコンに入れなおす」
とかは無理。（サポートなし）
卒業後、１年以内であれば、安く最新のプロフェッショナル版に変更できる
ことにも注意。
0416１３２人目の素数さん
2006/12/12(火) 02:37:220417１３２人目の素数さん
2006/12/12(火) 11:58:51http://amazon.co.jp/dp/B000B6GGC4/
0418１３２人目の素数さん
2006/12/12(火) 13:45:34効かないんですが、設定かなにかが悪いのでしょうか？
行をふやすのはできます。
0419１３２人目の素数さん
2006/12/12(火) 17:50:07MathIDを登録しないでインストールしてから２週間するとどうなるの？使えなくなるの？？
0420１３２人目の素数さん
2006/12/12(火) 19:50:07ばくはつします
0421１３２人目の素数さん
2006/12/12(火) 20:10:40嘘付き？？
あぶねぇだろｗ
0422１３２人目の素数さん
2006/12/13(水) 18:05:36常識から言って爆発はしないだろw
0423１３２人目の素数さん
2006/12/14(木) 02:56:04安くってことは、5,000円ぐらいでアップデートできる？
それくらいなら払えるよ
0424１３２人目の素数さん
2006/12/14(木) 08:48:080425１３２人目の素数さん
2006/12/14(木) 14:39:52ここ読め
ttp://www.varsitywave.co.jp/products/mathematica/pro/index.html
0426１３２人目の素数さん
2006/12/14(木) 19:16:29それぞれのグラフが何のグラフであるかラベルをつけて
(ラベルのテーブルがあれば尚よい)
表示させるにはどうすればよいでしょうか。
0427１３２人目の素数さん
2006/12/15(金) 02:00:490428１３２人目の素数さん
2006/12/16(土) 10:22:50そういうソフトではありません。計算の確認など、教育の現場では重宝します。
0429１３２人目の素数さん
2006/12/16(土) 13:50:500430１３２人目の素数さん
2006/12/16(土) 14:21:48シンプソン法とか？
0431１３２人目の素数さん
2006/12/16(土) 14:27:260432１３２人目の素数さん
2006/12/16(土) 14:57:590433429
2006/12/16(土) 15:30:25"不定積分では被積分関数と積分ともに初等関数，指数積分関数，多対数および他の関連した関数
で表される場合には拡張リシュ(Risch)法が使用される．"
らしいです。
http://www.ti3.tu-harburg.de/paper/rump/Ru04a.pdf （Risch法の説明）
http://kako.ics.nara-wu.ac.jp/~kako/education.html (９章１０章あたり）
がそれっぽい感じです。
でもこんなの読む気にならない・・
0434426
2006/12/17(日) 18:00:57三種類のグラフを一枚の図に収めて、
それぞれのグラフが何のグラフであるかラベルをつけて
(ラベルのテーブルがあれば尚よい)
表示させるにはどうすればよいでしょうか。
もしくは、こういったことがMathematicaで
出来るか出来ないか、お答えお願いします。
0435１３２人目の素数さん
2006/12/17(日) 19:03:25もう少し状況を詳しく説明して。
「グラフ」というのは，y=x^2のグラフとか，そういう意味？
「ラベル」というのは「y=x^2」という文字列？
「ラベルのテーブル」とは何？
0436434
2006/12/17(日) 22:46:49>>その通りです。
「ラベル」というのは「y=x^2」という文字列？
>>その通りです。
「ラベルのテーブル」とは何？
>>三種類のグラフが何を指すかを示す文字列を表にしたものを言ってます。
0437１３２人目の素数さん
2006/12/17(日) 23:25:090438１３２人目の素数さん
2006/12/18(月) 02:08:37つまりこういうことかな。
f1[x_] := x^2; x1 = 1.9; offset1 = {1.2, 0}; label1 = "二次関数";
f2[x_] := x; x2 = 1.8; offset2 = {1.2, 0}; label2 = "一次関数";
f3[x_] := Sqrt[x]; x3 = 1.4; offset3 = {-1, 0.4}; label3 = "無理関数";
boxLeft = 2.2; boxTop = 4; boxHeight = 1.2; boxWidth = 1.4;
graphLabel[f_, pt_, offset_] :=
Text["y=" <> ToString[InputForm[f[x]]], {pt, f[pt]}, offset]
graphTableLabel[f_, position_, tableLabel_] :=
Text["y=" <>ToString[InputForm[f[x]]]<>" "<>tableLabel, position, {-1, 0}];
g = Plot[{f1[x], f2[x], f3[x]}, {x, 0, 2}, DisplayFunction -> Identity];
new = ReplacePart[g, Append[g[[1]], {graphLabel[f1, x1, offset1],
graphLabel[f2, x2, offset2], graphLabel[f3, x3, offset3]}], 1];
labelTable = Graphics[{Line[{{boxLeft, boxTop},{boxLeft + boxWidth, boxTop},
{boxLeft + boxWidth, boxTop - boxHeight}, {boxLeft, boxTop - boxHeight},
{boxLeft, boxTop}}],
graphTableLabel[f1, {boxLeft + 0.1, boxTop - 0.3}, label1],
graphTableLabel[f2, {boxLeft + 0.1, boxTop - 0.6}, label2],
graphTableLabel[f3, {boxLeft + 0.1, boxTop - 0.9}, label3]}];
Show[{new, labelTable}, AspectRatio->Automatic,
ImageSize->400, DisplayFunction->$DisplayFunction];
0439434
2006/12/18(月) 18:58:35どうもありがとうございます。しかしながら、作成した図を
eps形式で保存し、texで表示させたところ、"("や日本語フォントが
文字化けして表示されます("("は半角)。どうすれば正しく表示されますでしょうか。
0440434
2006/12/18(月) 19:08:21また、3種類のグラフを(白黒の濃淡で)色分けし、
各色がどのグラフを指すかわかるように、
図中のテーブルで指し示すにはどうすればよいでしょうか。
(つまり、頂いたプログラムのテーブル内を、
"y=^x"といった関数の文字列の代わりに、グラフの色で表したい。)
0441438
2006/12/19(火) 01:05:58うちの環境では文字化けは発生しなかったよ。
Windows版の Mathematica 5.0 日本語版 で，図を選択して，
編集→選択範囲の形式保存→EPS
でEPS保存して，
\documentclass{jarticle}
\usepackage{graphicx}
\begin{document}
\includegraphics{hoge.eps}
\end{document}
をコンパイルしたところ，DVIOUTで日本語部分も含めて正しく表示されました。
0442438
2006/12/19(火) 01:10:58f1[x_] := x^2; x1 = 1.9; offset1 = {1.2, 0};
label1 = "二次関数"; grayLevel1 = GrayLevel[0.6];
f2[x_] := x; x2 = 1.8; offset2 = {1.2, 0};
label2 = "一次関数"; grayLevel2 = GrayLevel[0.3];
f3[x_] := Sqrt[x]; x3 = 1.4; offset3 = {-1, 0.4};
label3 = "無理関数"; grayLevel3 = GrayLevel[0];
boxLeft = 2.2; boxTop = 4; boxHeight = 1.2; boxWidth = 1.4;
graphLabel[f_, pt_, offset_] :=
Text["y=" <> ToString[InputForm[f[x]]], {pt, f[pt]}, offset]
graphTableLabel[position_, tableLabel_] :=
Text[tableLabel, position, {-1, 0}];
g = Plot[{f1[x], f2[x], f3[x]}, {x, 0, 2}, DisplayFunction->Identity,
PlotStyle->{{grayLevel1}, {grayLevel2}, {grayLevel3}}];
0443438
2006/12/19(火) 01:12:36new = ReplacePart[g, Append[g[[1]], {graphLabel[f1, x1, offset1],
graphLabel[f2, x2, offset2], graphLabel[f3, x3, offset3]}], 1];
labelTable = Graphics[{Line[{{boxLeft, boxTop}, {boxLeft + boxWidth, boxTop},
{boxLeft + boxWidth, boxTop - boxHeight}, {boxLeft, boxTop - boxHeight}, {boxLeft, boxTop}}],
grayLevel1, Line[{{boxLeft + 0.1, boxTop - 0.3}, {boxLeft + 0.3, boxTop - 0.3}}],
grayLevel2, Line[{{boxLeft + 0.1, boxTop - 0.6}, {boxLeft + 0.3, boxTop - 0.6}}],
grayLevel3, Line[{{boxLeft + 0.1, boxTop - 0.9}, {boxLeft + 0.3, boxTop - 0.9}}],
graphTableLabel[{boxLeft + 0.4, boxTop - 0.3}, label1],
graphTableLabel[{boxLeft + 0.4, boxTop - 0.6}, label2],
graphTableLabel[{boxLeft + 0.4, boxTop - 0.9}, label3]}];
Show[{new, labelTable}, AspectRatio->Automatic,
ImageSize->400, DisplayFunction->$DisplayFunction];
0444434
2006/12/20(水) 08:49:04どうもありがとうございました。助かりました！
文字化けの問題ですが、当方はMathematica3.0を使っております。
「図を選択して， 編集→選択範囲の形式保存→EPS 」した段階で、
作成されたEPSファイルをViewerで見てみると、すでに文字化けしてました。
どうやらMathematicaの設定かVersionに問題があるのかもしれません。
0445１３２人目の素数さん
2006/12/21(木) 01:42:220446１３２人目の素数さん
2006/12/21(木) 07:45:39これ?
ttp://documents.wolfram.com/v4-ja/MainBook/1.11.8.html
Sum[]とかには対応してるのかな?
0447１３２人目の素数さん
2006/12/22(金) 12:39:53例えば
g=Plot[Sin[x],{x,0,2Pi}]
として、
GetWidth[g],GetHeight[g]みたいなのが欲しいのですが存在しないようです。
どなたかご存知の方よろしくお願いします。
0448１３２人目の素数さん
2006/12/23(土) 00:40:12Plot[Sin[x],{x,0,2Pi}];
AbsoluteOptions[%,AspectRatio]
■ このスレッドは過去ログ倉庫に格納されています