定積分に関する平均値の定理 - KeTCindyによる図入り教材の作成

定積分に関する平均値の定理を表わす図を作成する．

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

sekibunn-heikinnti.zip

if(1==1,
Setcolor([0.3,0,0,0.1]);
　Shade(["part1","part2","part3"]);
　Shade(["part4","part5","part6"]);
Setcolor("black");
);
／／　1==0とするとプログラムする時図が見やすい
／／　部分曲線で囲まれた図形を塗る
Mkbezierptcrv([A,B,C],["nodisp"]);
／／　3点A,B,Cを通るベジェ曲線データを作るが表示はしない
Putoncurve("Fc","bza",[F.x,F.x]);
Putoncurve("Gc","bza",[G.x,G.x]);
Putoncurve("Hc","bza",[H.x,H.x]);
／／　x座標がF,G,Hのx座標に等しい曲線上の幾何点を作る
Setcolor([0.3,0,0,0.1]);
Listplot([K,F]);
Listplot([Hc,H]);
Setcolor("black");
Listplot([L,K]);
Listplot([Gc,G],["do"]);
Putpoint("M",[0,Fc.y]);
Putpoint("N",[0,Gc.y]);
Putpoint("O",[0,Hc.y]);
Listplot([Fc,M],["do"]);
Listplot([K,N],["do"]);
Listplot([Hc,O],["do"]);
Partcrv("1",Fc,Gc,"bza",["nodisp"]);
Partcrv("2",Gc,K,"sgLK",["nodisp"]);
Partcrv("3",K,Fc,"sgKF",["nodisp"]);
Partcrv("4",L,Gc,"sgLK",["nodisp"]);
Partcrv("5",Gc,Hc,"bza",["nodisp"]);
Partcrv("6",Hc,L,"sgHcH",["nodisp"]);
Partcrv("7",Fc,Hc,"bza");
Partcrv("8",Hc,Fc,"bza",["da"]);
／／　部分曲線を作り描画する．ただし["nodisp"]があると
／／　描画しない．最後の行は曲線"bza"とは逆向きに切断点
／／　Hc,Fcを指定して切断点の外側の2つの部分曲線を描く
Expr([F,"s1","a",G,"s1","c",H,"s1","b"]);
Expr([M,"w","m",N,"w","K",O,"w","M"]);
Expr([C,"nw","y=f(x)"]);ß