直線群の包絡線の図を描く.
#ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=)
hourakusen3.zip
Deffun("f(x,k)",["regional(y)","y=k*x+k^2","y"]);
Setcolor("cyan");
Setpt(3);
repeat(8,k,
Plotdata("p"+text(k),"f(x,"+text(k/4)+")","x",["Num=2"]);
Plotdata("m"+text(k),"f(x,"+text(-k/4)+")","x",["Num=2"]);
Drwpt([ [k/2,-k^2/16] ]);
Drwpt([ [-k/2,-k^2/16] ]);
);
Setcolor("black");
Plotdata("c","-x^2/4","x",["dr,1.5"]);
Expr([A,"e","y=-\dfrac{\,1\,}{4}x^2"]);
最終更新:2016年10月30日 14:52