maximaで領域の塗りつぶしをしたい。

Question

load(implicit_plot)
implicit_plot([x^2+y^2=4,x+y=1],[x,-5,5],[y,-5,5])

とするとグラフAが得られますが、これをグラフBのように色分けしたいのです。

（１）plot2dとかimplicit_plotを使う場合
・maximaのplot2d、つまり陽関数表現で出力する場合には三項演算子を使って記述するテクニックが各所に掲載されています。　http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14115604074　http://stackoverflow.com/questions/38589530/filledcurves-with-multiple-functions-in-gnuplot?rq=1　http://stackoverflow.com/questions/13394080/gnuplot-fill-the-space-between-two-functions
・implicit_plotを用いた陰関数表現の場合にはついては記載がみつかりません。

（２）draw2dを使う場合
draw2d出力についても調べましたが、http://www.johnlapeyre.com/qinf/qinf_html/maxima_html/maxima_48.html　によると、
"When filled_func is true, the region bounded by the function defined with object 'explicit' and the bottom of the graphic window is filled with fill_color."
であり、
○draw2d(filled_func=true,explicit(x^2,x,-5,5),explicit(x-1,x,-5,5));
×draw2d(filled_func=true,implicit(x^2+y^2=4,x,-5,5,y,-5,5),implicit(x+y=1,x,-5,5,y,-5,5));
要するに陽関数表現の時のみfilled_funcは有効になるようです。

陰関数表現されたグラフを色分けする方法ってないんでしょうか？
maxima自体のマクロとか、外部プログラムでも実現できれば助かるのですが。。

このあたりについて詳しい方がおられましたらよろしくお願いします。

jurupapa · Accepted Answer

draw2d(x_voxel=100,y_voxel=100,region((x^2+y^2-4)*(x+y-1)<=0,x,-4,4,y,-4,4),implicit(x^2+y^2=4,x,-4,4,y,-4,4),explicit(-x+1,x,-4,4));

詳しくはMaximaマニュアル52章drawの中のグラフィックオブジェクトregionの定義を参照してください。
http://maxima.osdn.jp/maxima_52.html#IDX1891

GBde · Answer

頭の中で　(例えば　負)領域D の塗り絵 を　しない日はないでしょう.
　
http://userdisk.webry.biglobe.ne.jp/020/691/47/N000/000/006/147981151225318507179.gif

12の倍返しの2*12次　代数曲線の　負領域に　塗り絵をしました。

FAQ で　塗り絵したら　其の部分の面積を　求めずにはイラレナイ筈。
　　
　　　　　    どうぞ!

GBde · Answer

https://people.richland.edu/james/spring15/m122/projects/draw.html
に　塗り絵　在り。

GBde · Answer

http://www.wolfram.com/mathematica/new-in-11/?src=google&412-JA

GBde · Answer

mathematica なら　↓で　瞬時に叶います;

RegionPlot[(x^2 + y^2 - 4)*(x + y - 1) <= 0, {x, -3, 3}, {y, -3, 3}]

maximaで領域の塗りつぶしをしたい。

draw2d(x_voxel=100,y_voxel=100,region((x^2+y^2-4)*(x+y-1)<=0,x,-4,4,y,-4,4),implicit(x^2+y^2=4,x,-4,4,y,-4,4),explicit(-x+1,x,-4,4));

頭の中で (例えば 負)領域D の塗り絵 を しない日はないでしょう.

mathematica なら ↓で 瞬時に叶います;

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

頭の中で　(例えば　負)領域D の塗り絵を　しない日はないでしょう.

mathematica なら　↓で　瞬時に叶います;