「定積分に関する平均値の定理」の編集履歴（バックアップ）一覧はこちら
定積分に関する平均値の定理 - (2016/02/04 (木) 03:04:35) の最新版との変更点
追加された行は緑色になります。
削除された行は赤色になります。
定積分に関する平均値の定理を表わす図を作成する．
&ref(sekibunn-heikinnti.png,,title=,width=400,)
&ref(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)"]);ß
定積分に関する平均値の定理を表わす図を作成する．
&ref(sekibunn-heikinnti.png,,title=,width=400,)
&ref(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)"]);ß
