三角関数の極限値 - KeTCindyによる図入り教材の作成

三角関数の極限値の証明で用いる図を描く．

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

sin_limit.zip

Addax(0);
if(1==1,
Setcolor([0.2,0,0,0]);
Shade(["join1"],[]);
Setcolor([0,0,0,1]);
);
／／　扇形の内部を塗りつぶす．
Putpoint("P",[0,0]);
Putpoint("A",[8,0]);
Circledata("1",[P,A],["Rng=[0,pi/6]"]);
／／　円弧を描く．
Putpoint("B",Rotatepoint(A,pi/6,P));
Putpoint("C",[8,8*tan(pi/6)]);
Listplot("1",[P,A]);
Listplot("2",[P,B]);
Listplot("3",[A,B,C,A]);
／／　線分を描く．
Joincrvs("1",["sg1","cr1","sg2"]);
／／　閉曲線を作る．
Paramark([C,A,P],[0.5]);
／／　垂直記号を描く．
Setcolor([1,0,0,0]);
Setpen(0.5);
Bowdata([P,A],[0.8,0.5,"Expr=\color{black}r"]);
Bowdata([B,P],[0.8,0.5,"Expr=\color{black}r"]);
Bowdata([A,C],[1,0.5,"Expr=\hspace{1zw}
\color{black}r\tan\theta"]);
／／　弓形を描く．
Setcolor([0,0,0,1]);
Setpen(1);
Anglemark("1",[A,P,B],["E=1.2,\theta",2]);
／／　角度マークを描く．
Letter([A,"se","A",B,"nw","B",C,"ne","C",P,"sw","O",P,"n1e25","(ラジアン)"]);