Mathematicaの

のプロットは、私は私がフレームを成し遂げることができていてもシェーディングを生成する方法を確認していない以下のMathematicaの

enter image description here

のようなプロットを生成する方法に日陰。私は、Mathematicaのプロット内の特定の領域を陰影付けする一般的なアプローチを知りたい。助けてください。ありがとうございました。

2011-12-31 Anonymous

おそらくRegionPlotをお探しですか？、いずれかの特定の理由で、あなたがあなたの写真の点線効果をしたい場合は

RegionPlot[(-1 + x)^2 + (-1 + y)^2 < 1 && 
x^2 + (-1 + y)^2 < 1 && (-1 + x)^2 + y^2 < 1 && x^2 + y^2 < 1, 
{x, 0, 1}, {y, 0, 1}]

Mathematica graphics

出典

2011-12-31 21:26:02

、あなたはとてもようにこれを達成することができます使用

pts = RandomReal[{0, 1}, {10000, 2}]; 
pts = Select[pts, 
    And @@ Table[Norm[# - p] < 1, {p, 
    {{0, 0}, {1, 0}, {1, 1}, {0, 1}}}] &]; 
Graphics[{Thick, 
    Line[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}], 
    Circle[{0, 0}, 1, {0, Pi/2}], 
    Circle[{1, 0}, 1, {Pi/2, Pi}], 
    Circle[{1, 1}, 1, {Pi, 3 Pi/2}], 
    Circle[{0, 1}, 1, {3 Pi/2, 2 Pi}], 
    PointSize[Small], Point[pts] 
}]

Mathematica graphics

出典

2012-01-01 06:05:55

が、私は疑問に思ういくつかのポイントが「漏れて」いるように見える理由：[こちらをクリック]（HTTP：//i.stack .imgur.com/O9tBA.png）グラフィックスレンダリングで不正確な四捨五入やその他の不正確さがあるかもしれません。左上隅にのみリークすることに注意してください。 – Szabolcs

元の投稿にもこの効果があるようです。もちろん、ポイントの直径は正です。この効果はPointSize [Large]を使用すると悪化し、PointSize [Tiny]ではそれほど悪くはありません。 –

注意のop_（以下はとなります）カーブや交差点のための方程式の）：！

t[op_] :=Reduce[op[(x - #[[1]])^2 + (y - #[[2]])^2, 1], y] & /@ Tuples[{0, 1}, 2] 
tx = Texture[[email protected][NormalDistribution[1, .005], 1000 {1, 1}]]; 

Show[{ 

    Plot[y /. ToRules /@ #, {x, 0, 1}, PlotRange -> {{0, 1}, {0, 1}}] &@ t[Equal], 
    RegionPlot[And @@ #, {x, 0, 1}, {y, 0, 1}, PlotStyle -> tx] &@ t[Less]}, 

Frame->True,AspectRatio->1,FrameStyle->Directive[Blue, Thick],FrameTicks->None]

enter image description here

出典

2012-01-01 16:16:53

答えて

関連する問題