微分積分法の基本定理 - KeTCindyによる図入り教材の作成

微分積分法の基本定理に関する図を作成する．

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

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");