平均変化率 - KeTCindyによる図入り教材の作成

平均変化率を説明する図を描く．

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

average-rate-change.zip

Drwxy();
Deffun("f(x)",["regional(y)","y=(3/2)^{x}-0.5","y"]);
Plotdata("1","f(x)","x");
／／　y=f(x)のグラフを描く．
Putpoint("A",[1,f(1)]);
Putpoint("B",[3,f(3)]);
Putpoint("C",[3,f(1)]);
Setcolor([1,0,0,0]);
Setpen(0.5);
Listplot("1",[A,B,C,A]);
／／　線分を描く．
Bowdata([A,C],[1.5,1.3,"Expr=\color{black}x_2-x_1"]);
Bowdata([C,B],[1.5,0.5,"Expr=\hspace{2zw}\color{black}y_2-y_1"]);
／／　弓形を描く．
Setcolor([0,0,0,1]);
Setpen(1);
Paramark([B,C,A],[0.3]);
／／　垂直記号を描く．
Listplot("2",[ [0,f(1)],[1,f(1)],[1,0] ],["do"]);
Listplot("3",[ [0,f(3)],[3,f(3)],[3,0] ],["do"]);
Listplot("4",[ [1,f(1)],[3,f(1)] ],["do"]);
／／　点線を描く．
Htickmark([1,"s","x_1",3,"s","x_2"]);
Vtickmark([f(1),"w","y_1",f(3),"w","y_2"]);
Expr([[3.5,f(3.5)],"n","y=f(x)"]);