対数関数の導関数 - KeTCindyによる図入り教材の作成

対数関数の導関数の定義を説明する図を作成する．

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

taisu.zip

Setax([7,"sw"]);
Drwxy();
／／　座標軸を先に描く
Plotdata("1","log(x)","x=[0.1,5]");
／／　y=log(x)のグラフを描く
Putoncurve("P","gr1");
Putoncurve("Q","gr1");
Listplot("1",[ [P.x,0],P,[0,P.y] ],["do"]);
Listplot("2",[ [Q.x,0],Q,[0,Q.y] ],["do"]);
Htickmark([P.x,"x",Q.x,"x+\Delta x"]);
Vtickmark([P.y,"y",Q.y,"y+\Delta y"]);
／／　グラフ上に2点P，Qをとり，座標を表示
Expr(A,"w","y=\log x");
／／　グラフの方程式を記入
Setcolor("cyan");
／／　色を指定
Listplot("3",[ [Q.x,0],[P.x,0] ]);
Listplot("4",[ [0,Q.y],[0,P.y] ]);
Arrowhead(P,"Invert(gr1)");
Arrowhead([P.x,0],"sg3");
Arrowhead([0,P.y],"sg4");
Partcrv("1",P,Q,"gr1");
／／　グラフ上，および座標軸上で矢印を描く
Setcolor("black");
／／　黒に戻す
Setpt(2);
Drwpt("P,Q");
／／　大きさ2で点を描く