「三角関数の極限値」の編集履歴（バックアップ）一覧はこちら

「三角関数の極限値」(2016/10/30 (日) 13:43:51) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

&ref(sin_limit.png,,title=,width=400,)
//&ref(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","(ラジアン)"]);

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

&ref(sin_limit.png,,title=,width=400,)
&ref(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","(ラジアン)"]);