影の領域に 2 と 4 の間の x を描画する必要がありますが、問題に遭遇しました。表面部分ではそれを行う良い方法がないように感じます。そして、次の点の x 座標を見つける必要があります。 2本の線が交差します。
そして、上部と右側の黒いボックスの線を取り除く方法。
names default to here(1);
new window("Ex",
gb=graph box(
framesize(300,300),
x scale(-6,6),
y scale(0,20),
double buffer,
pen color(3);
y function(x*x,x);
pen color(4);
Vline(2,0,4);
vline(4,0,16);
yfunction(x-2,x,max(4),min(2));
yfunction(x-2.5,x,max(4),min(2));
yfunction(x-3,x,max(4),min(2));
yfunction(x-3.5,x,max(4),min(2));
yfunction(x,x,max(4),min(2));
yfunction(x-0.5,x,max(4),min(2));
yfunction(x-1,x,max(4),min(2));
yfunction(x-1.5,x,max(4),min(2));
yfunction(x+0.5,x,max(4),min(2));
yfunction(x+1,x,max(4),min(2));
yfunction(x+1.5,x,max(4),min(2));
)
);こんにちは@lehaofeng さん
実際のところ、あなたが求めていることはすべてわかりません。そこで、右上の黒い線（について質問していると思います）についてお手伝いさせてください。
グラフ内で右クリック > 境界線 > 「上」と「右」の選択を解除するだけです。
これをくれます:
お役に立てれば、
フロリアン
ありがとうございます！下の図のような効果が得られることを願っています
代わりに、色付きの塗りつぶしパターンを持つポリゴンを使用することもできます。
Names Default to Here( 1 );
// integration resolution
nSteps = 25;
// function range for AUC
xMin = 2;
xMax = 3;
// define function
fxn = Function( {x},
Return( x:*x );
);
// define polygon along top
polyX = Index( xMin, xMax, 1/nSteps );
polyY = fxn( polyX );
// finish (close) polygon
polyX ||= Transpose( Matrix( Eval List( List( xMax, xMin, xMin) ) ) );
polyy ||= Transpose( Matrix( Eval List( List( 0, 0, 4 ) ) ) );
New Window( "AUC",
Outline Box( "Plot",
Graph Box(
X Scale( -5, 5 ),
Y Scale( 0, 25 ),
Pen Color( "Black" );
Y Function( fxn( x ), x );
Fill Color( "Green" );
Fill Pattern( "right slant light" );
Polygon( polyX, polyY );
)
),
Outline Box( "AUC",
Table Box(
String Col Box( "Method", { "Polygon", "Calculus" } ),
Number Col Box( "Estimate", { Polygon Area( polyX, polyY ), 19/3 } )
)
)
);
