2つの曲線に囲まれた図形の面積 - KeTCindyによる図入り教材の作成

2つの曲線でできる２つの領域を別の色で塗る．

#ref error ：ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=)

mensekisankakukansu.zip

Setcolor([0.3,0,0,0]);
Shade(["en1"]);
Setcolor([0.3,0,0,0.3]);
Shade(["en2"]);
Setcolor("black");
／／　Shade は前におく．
Plotdata("1","sin(x)","x=[0,pi]");
Plotdata("2","cos(x)","x=[0,pi]");
Putintersect("A","gr1","gr2");
／／　2曲線の交点に幾何点Aをとる．
／／　複数の交点があるときには，コンソールに表示される．
／／　そのときは，Putintersect("A","gr1","gr2", 2); などとする．
xA=[A.x,0];
Listplot("1a",[A,xA],["do,1,1.5"]);
Listplot("1b",[ [0,1],[pi/2,1] ],["do,1,1.5"]);
Listplot("1c",[ [0,-1],[pi,-1] ],["do,1,1.5"]);
Listplot("2",[ [0,cos(0)],[0,sin(0)] ],["notex"]);
Listplot("3",[ [pi,cos(pi)],[pi,sin(pi)] ],["notex"]);
／／　sg2, sg3 はEnclosingにより閉曲線を作るためにだけ必要
／／　（TeXには書き出さない）
Enclosing("1",["Invert(gr2)","sg2","gr1"],[A,"notex"]);
Enclosing("2",["gr2","sg3","Invert(gr1)"],[A,"notex"]);
／／　領域の境界である閉曲線を作る．
Fontsize("s");
Expr([B,"e","y=\cos x",C,"e","y=\sin x"]);
Fontsize("ss");
Htickmark([A.x,"\dfrac{\pi}{4}",pi/2,"sw","\dfrac{\pi}{2}",pi,"se","\pi"]);
Vtickmark([1,"1",-1,"-1"]);
Fontsize("s");