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

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

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

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