関数の連続 - KeTCindyによる図入り教材の作成

関数の連続について，連続でない例を説明する図を作成する．

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

renzoku.zip

Setax([7,"sw"]);
Drwxy();
Plotdata("1","x+2","x");
／／　直線を描く
Putpoint("P",[2,4]);
Putpoint("Q",[2,1]);
Listplot("1",[ [P.x,0],P,[0,P.y] ],["do"]);
Listplot("2",[ [Q.x,0],Q,[0,Q.y] ],["do"]);
Htickmark([2,"2"]);
Vtickmark([1,"1",4,"4"]);
／／　点をとって，座標を表示
Setcolor("cyan");
／／　色を指定
Listplot("3",[K+1.4*(P-K),K+1.1*(P-K)]);
Listplot("4",[K+0.6*(P-K),K+0.9*(P-K)]);
Arrowhead(K+1.1*(P-K),"sg3");
Arrowhead(K+0.9*(P-K),"sg4");
／／　Pへの矢印を線分と鏃で描く
Listplot("5",[B+1.4*(E-B),B+1.1*(E-B)]);
Listplot("6",[B+0.6*(E-B),B+0.9*(E-B)]);
Arrowhead(B+1.1*(E-B),"sg5");
Arrowhead(B+0.9*(E-B),"sg6");
／／　x軸上で同様
Listplot("7",[K+1.4*(D-K),K+1.1*(D-K)]);
Listplot("8",[K+0.6*(D-K),K+0.9*(D-K)]);
Arrowhead(K+1.1*(D-K),"sg7");
Arrowhead(K+0.9*(D-K),"sg8");
／／　y軸上で同様
Setcolor("black");
／／　黒に戻す
Setpt(5);
Drwpt("P,0");
Drwpt("Q");
／／　Pを白丸，Qを黒丸で表示