「微分積分法の基本定理」の編集履歴（バックアップ）一覧はこちら
微分積分法の基本定理 - (2016/10/30 (日) 14:18:14) の１つ前との変更点
追加された行は緑色になります。
削除された行は赤色になります。
微分積分法の基本定理に関する図を作成する．
&ref(sekibunn-kihonnteiri.png,,title=,width=400,)
&ref(sekibunn-kihonnteiri.zip)
・4点A,B,C,Dを取ってベジェ曲線を描く
・幾何点E,Fと幾何線分EFを作る
・幾何線分EF上に5点G,H,K,L,Mをとる
Addax(1);
／／ 座標軸を書く
Setax([2,"t"]);
／／ 横軸名をtとする
if(1==1,
Setcolor([0.3,0,0,0]);
Shade(["part1","sg1","sg2","sgGGc"]);
Setcolor([0.3,0,0,0.1]);
Shade(["part2","sgLcL","sg3","sg4"]);
Setcolor("black");
);
／／ 1==0とするとShadeがかからずプログラムしやすい
Setcolor([0.3,0,0,0]);
Mkbezierptcrv([A,B,C,D],["da"]);
Setcolor("black");
Putoncurve("Gc","bza",[G.x,G.x]);
Putoncurve("Hc","bza",[H.x,H.x]);
Putoncurve("Kc","bza",[K.x,K.x]);
Putoncurve("Lc","bza",[L.x,L.x]);
Putoncurve("Mc","bza",[M.x,M.x]);
／／ ベジェ曲線上にG,H,K,L,Mの対応点を作る
Partcrv("1",Gc,Hc,"bza",["nodisp"]);
Listplot("1",[Hc,H],["nodisp"]);
Listplot("2",[H,G],["nodisp"]);
Partcrv("2",Hc,Lc,"bza",["nodisp"]);
Listplot("3",[L,H],["nodisp"]);
Listplot("4",[H,Hc],["nodisp"]);
／／ Shadeで塗る領域を決める準備
Setcolor([0.5,0,0,0]);
Listplot([G,Gc]);
Listplot([Lc,L]);
Listplot([Mc,M],["do"]);
Setcolor("black");
Listplot([Kc,K],["do"]);
Partcrv("3",Gc,Mc,"bza");
Listplot("5",[L,[Lc.x,Kc.y],[H.x,Kc.y],H],["dr,0.5"]);
Fontsize("s"); //フォントサイズをsmallに設定
Htickmark([G,"s1","a",H,"s1","x",K,"s1","c"]);
Htickmark([L,"s","X",M,"s1","b"]);
Expr([N,"e","S(x)"]); // 幾何点Nは領域内にとる
Expr([D,"nw-3","y=f(t)"]);
Fontsize("n");
微分積分法の基本定理に関する図を作成する．
&ref(sekibunn-kihonnteiri.png,,title=,width=400,)
//&ref(sekibunn-kihonnteiri.zip)
・4点A,B,C,Dを取ってベジェ曲線を描く
・幾何点E,Fと幾何線分EFを作る
・幾何線分EF上に5点G,H,K,L,Mをとる
Addax(1);
／／ 座標軸を書く
Setax([2,"t"]);
／／ 横軸名をtとする
if(1==1,
Setcolor([0.3,0,0,0]);
Shade(["part1","sg1","sg2","sgGGc"]);
Setcolor([0.3,0,0,0.1]);
Shade(["part2","sgLcL","sg3","sg4"]);
Setcolor("black");
);
／／ 1==0とするとShadeがかからずプログラムしやすい
Setcolor([0.3,0,0,0]);
Mkbezierptcrv([A,B,C,D],["da"]);
Setcolor("black");
Putoncurve("Gc","bza",[G.x,G.x]);
Putoncurve("Hc","bza",[H.x,H.x]);
Putoncurve("Kc","bza",[K.x,K.x]);
Putoncurve("Lc","bza",[L.x,L.x]);
Putoncurve("Mc","bza",[M.x,M.x]);
／／ ベジェ曲線上にG,H,K,L,Mの対応点を作る
Partcrv("1",Gc,Hc,"bza",["nodisp"]);
Listplot("1",[Hc,H],["nodisp"]);
Listplot("2",[H,G],["nodisp"]);
Partcrv("2",Hc,Lc,"bza",["nodisp"]);
Listplot("3",[L,H],["nodisp"]);
Listplot("4",[H,Hc],["nodisp"]);
／／ Shadeで塗る領域を決める準備
Setcolor([0.5,0,0,0]);
Listplot([G,Gc]);
Listplot([Lc,L]);
Listplot([Mc,M],["do"]);
Setcolor("black");
Listplot([Kc,K],["do"]);
Partcrv("3",Gc,Mc,"bza");
Listplot("5",[L,[Lc.x,Kc.y],[H.x,Kc.y],H],["dr,0.5"]);
Fontsize("s"); //フォントサイズをsmallに設定
Htickmark([G,"s1","a",H,"s1","x",K,"s1","c"]);
Htickmark([L,"s","X",M,"s1","b"]);
Expr([N,"e","S(x)"]); // 幾何点Nは領域内にとる
Expr([D,"nw-3","y=f(t)"]);
Fontsize("n");
