「関数の極限」の編集履歴（バックアップ）一覧に戻る

関数の極限 - (2016/02/01 (月) 17:29:53) のソース

関数の極限を表す図を描く．

&ref(limit.png,,title=,width=400,)
&ref(limit.zip)

Drwxy(); 
／／　座標軸を描く．
Deffun("f(x)",["regional(y)","y=x^2","y"]);
Plotdata("1","f(x)","x=[-2.9,2.9]");
／／　放物線を描く．
Listplot("1",[[1.2,0],[1.2,f(1.2)],[0,f(1.2)]],["do"]);
Listplot("2",[[1.8,0],[1.8,f(1.8)],[0,f(1.8)]],["do"]);
Listplot("3",[[2,0],[2,f(2)],[0,f(2)]],["do"]);
Listplot("4",[[2.2,0],[2.2,f(2.2)],[0,f(2.2)]],["do"]);
Listplot("5",[[2.8,0],[2.8,f(2.8)],[0,f(2.8)]],["do"]);
／／　点線を描く．
Ptsize(5);
Drawpoint([[2,f(2)]]);
／／　点を描く．
Setcolor([0,0,1]);
Arrowhead([1.8,f(1.8)],"gr1"); 
Arrowhead([2.2,f(2.2)],[2.2,f(2.2)]-[2.8,f(2.8)],"gr1"); 
Arrowdata([[0,f(1.2)],[0,f(1.8)]]); 
Arrowdata([[0,f(2.8)],[0,f(2.2)]]); 
Arrowdata([[1.2,0],[1.8,0]]); 
Arrowdata([[2.8,0],[2.2,0]]); 
Plotdata("2","f(x)","x=[1.2,1.8]");
Plotdata("3","f(x)","x=[2.2,2.8]");
／／　色を指定して，矢印を描く．
Setcolor([0,0,0]);
Htickmark([2,"s","2"]); 
Vtickmark([f(2),"w",text(f(2))]);
Expr([[2.9,f(2.9)],"n","y=x^2"]);