Mapleでグラフと点を同座標平面に出力させるには?

質問

度々すいません。Win2k&Maple7の環境です。

with(plots);implicitplot({y-1=1/2*x-1/2,y-1=2*x-2,y-3=-x+2},x=-5..5,y=-5..5);

で3本のグラフが描けましたが、この図に更に点(2,2)も表示させたい場合にはどうすればいいのでしょうか?

グラフの出力の仕方は参考書に沢山載っているのですが点の出力の仕方が載ってません。

回答No.2

inara · ベストアンサー

#1です。
たぶんこの後、内接円を描くのだと思います。円も入れたグラフの描き方の例を示します。

with(plots):
xc:=2:yc:=2:rc:=0.7:
line1:=implicitplot(y-1=1/2*x-1/2,x=0..5,y=0..5,color=red):
line2:=implicitplot(y-1=2*x-2,x=0..5,y=0..5,color=green):
line3:=implicitplot(y-3=-x+2,x=0..5,y=0..5,color=blue):
point1:=plot([[xc,yc]],style=point,symbol=point,color=red):
circle1:=implicitplot((x-xc)^2+(y-yc)^2=rc^2,x=0..5,y=0..5,color=cyan):
display([line1,line2,line3,point1,circle1],labels=[x,y],axes=boxed,scaling=constrained);

xc,ycは円の中心のx,y座標、rcは円の半径です（円と中心点を描くのに同じ座標を使うので、plotコマンド内でいちいち書かなくてもいいように変数にしました）。また、点描画はpointplotでなくても、plotコマンドで描けます。上の例では完全な点ですが、小さい円を描画したいときはplot(.. ,symbol=circle, ..)としてください。３本の直線は色分けしました。display(.. ,scaling=constrained, ..)は円がちゃんと円に見えるようにグラフの縦横比を自動調節してくれるオプションです。

お礼

大変有り難うございます。
色分けの機能は大変重宝します。

回答No.1

inara

Erika111さんはいつもMapleの質問ですね。だんだんグラフが完成しているようです。

さて、Mapleで複数のグラフ（コマンド違いのもの）を同時に描くには、以下のように、それぞれの描画命令をリスト化してdisplayコマンドを用います。pointplotは点を描くコマンドです。

with(plots):
a:=implicitplot({y-1=1/2*x-1/2,y-1=2*x-2,y-3=-x+2},x=-5..5,y=-5..5):
b:=pointplot([2,2]):
display([a,b]);

ちなみに私のMaple環境はWinXP&Maple5(V) student versionです。
参考文献：「はじめてのMaple V リリース4」シュプリンガー・フェァラーク東京株式会社(1997)

お礼

大変有り難うございます。
お陰さまで求まりました。

文献のご紹介もありがとうございます。