Mathematicaで3次元のグラフを描いています。
見る角度を変更したいのですが...
例えば、もう少し横から見たいとか...
そういう設定をすることは可能ですか?
可能でしたら、設定方法を教えてください。

また、グラフを同じ表に幾つも載せているのですが、
一つ一つのグラフの色を変えること
グラフ1が赤で、グラフ2が黄色...
みたいにすることは可能ですか?
設定方法を教えてください。

宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

siegmund です.



Plot3D[{Sin[x y], Hue[0.5]}, {x, 0, 3}, {y, 0, 3}, ViewPoint -> {1, 2, 3}]
で,Hue の中の数値を 0~1 の間で変えてみる,なんていうのはいかがでしょう.
    • good
    • 0
この回答へのお礼

本当に有り難うございました。
これで、報告会までにきれいな図を使って報告が出来そうです。

お礼日時:2002/02/07 03:08

Plot3D でしょうか?


それなら,ViewPoint というオプションで視点(どの点から見るか)を変えられます.
例えば,点 {1,2,3}から見たければ
Plot3D[Sin[x y],{x,0,3},{y,0,3},ViewPoint -> {1,2,3}]
としてみてください.
{1,2,3} のところを変えるといろいろ変わります.
デフォルトは,{1.3,-2.4,2} です.

後半は
g1 = Plot[Sin[x], {x, 0, 3}, PlotStyle -> RGBColor[1, 0, 0]]
g2 = Plot[Cos[x], {x, 0, 3}, PlotStyle -> RGBColor[0, 1, 0]]
Show[g1, g2]
がわかりやすいんじゃないでしょうか.
1行目で sin のグラフを赤で描き,
2行目で cos のグラフを緑で描く.
3行目で2つあわせて表示.
RGBColor は Red,Green,Blue,で色を表示します.

この回答への補足

有り難うございます。もう一つ付け加えて聞きたいことがあるのですが、前半の視点を変えてみる方法と後半の色を変えて表示する方法を一度に行うにはどのようにしたら宜しいのでしょうか?教えていただけませんでしょうか?

補足日時:2002/02/06 17:44
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QMathematicaで3Dグラフを重ねて書くには?

Mathmaticaで3次元のグラフを書いています。

出来る事なら6つのグラフを一つの画面上に書きたいのですが...
Mathmaticaでそのようなグラフを書くことは可能でしょうか?

可能ならば、どのようなプログラムを書き込んだら、良いのでしょうか?
教えていただけませんでしょうか?

Aベストアンサー

Plot3Dとかでつくったものはとりあえず1回個別に出力する必要があると思います。
それでよければ
g1=Plot3D...
g2=Plot3D...
:
gn=Plot3D...
として
Show[g1,g2,...,gn];
とすればいいのではないでしょうか?
g = Graphics[
{LineとかCircleとかのリスト}
]
Show[g]
とすればLineとかCircleとかが一度に表示されます。

QMathematicaでx(y)のグラフを書きたい

例えば、y=x^2などだとこれをそのままPlotすればかけますが、x=y^2などはどうやって書くのでしょうか。
y=... の形に直して書くということはできないとします。

基本的な質問かもしれませんが、自分で調べてもわかりませんでした。
宜しくお願いします。

Aベストアンサー

どう調べたか知らんけどこういうこと?

参考URL:http://reference.wolfram.com/mathematica/Compatibility/tutorial/Graphics/ImplicitPlot.ja.html

QMathematicaでグラフの書き方教えてください

Mathematicaで下記の二つの式をグラフで書きたいのですが、Mathematica初心者なものでいまいちわかりません。勉強するにも時間がないので焦っています。どうか分かる方おしえてください。
・7x^2-22xy+7y^2=18
・11x^2-14xy+11y^2=18

Aベストアンサー

陰関数表示は

<< Graphics`ImplicitPlot`

としてから,

ImplicitPlot[7x^2-22x y+7y^2==18, {x, -2, 2}]

ImplicitPlot[11x^2-14x y+11y^2==18, {x, -2, 2}]

などとすれば表示されます.言わずもがなでしょうが,xy は x y,= は == としてね.
上は双曲線,下は楕円ですね.

Qmathematicaでグラフの名前の付け方

mathematicaで、ある関数f(x,a)をプロットするとします。
f(x,1)とf(x,2)のグラフを同時に描画することはできるのですが、
それぞれの関数に名前を付け、グラフ中に表示させることはできますか?
例えば、f(x,1)はa=1,f(x,2)はa=2と表示させたいです。

出来れば、それぞれの曲線は異なる色で出力されるので、赤の曲線:a=1、青の曲線:a=2
とグラフの右上あたりに表示させたいです。

よろしくお願いします。

Aベストアンサー

例えばgf1とgf2を関数f(x,1)とf(x,2)をプロットしたものとすると、Show[gf1, gf2, PlotRange→{*}, Epilog→{Inset[Style[a==1, Larger, Bold], {**}], Inset[Style[a==2, Larger, Bold], {***}]}]などと私はしています。
ただし*は座標範囲, **と***はそれぞれのラベルを表示させる座標です。
私も使いこなせていないのであくまで一例と思ってください。
ヘルプを見ながらがんばってください。

Q円柱を有る角度で切った場合の長軸の角度の求め方を教えてください

以前円柱を有る角度で切断した場合に出来る楕円の計算方法をお教え頂きましたが。今回Ф76.2の円柱で軸は初めはZ軸に平行で、X軸周りに13度、Y軸周りに8度に傾けて切断した時の断面形状の計算式はお教え頂いた計算の仕方から、Z軸に平行な単位ベクトルez=(0,0,1)をX軸周りに13度まわすと (0、sin13°、cos13°)これを更にY軸周りに8度まわすと (cos13°sin8°、sin13°、cos13°cos8°)でZ軸とのなす角をθとすると ezとpの内積は 1・1・cosθ=0+0+cos13°cos8°
  θ≒arccos(0.9648)≒15.228°
  楕円形状は 短円=76.2
  長円=76.2/cos15.228°≒78.972
だと思うのですが(余り自身が有りませんが)、長円はx軸に対して角度が付いた状態で有ると思いますが、その角度の計算方法が分かりません申し訳ありませんが再度お教え下さい。

Aベストアンサー

#1です。
A#1の補足質問の回答
>X軸13度回転の断面長=76.2/COS(13度)≒78.204
OKです。
>θ≒arccos(0.9648)≒15.228°
OKです。

>長軸直径=76.2/cos15.228°≒78.972 
私の計算では78.973ですのでほぼ合っていますね。

>長軸直径方向とはx軸との角度θを求めるなら
>θ=arccos(長い方の直径/13度位置長さ)=arccos(78.972/78.204)=8度
この計算ではダメです。
pを成分に分けたものをp(px,py,pz)とすると
θ=arccos(px/√(px^2+py^2))≒58.917°
となります。この場合の長軸の直径の方向をz軸から遠ざかる方向にとっています。逆のz軸に向かう方向の長軸方向をとるなら
θ'=180°-θ
とします。


人気Q&Aランキング

おすすめ情報