直線群の包絡線

直線群の包絡線の図を描く.

#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
|新しいページ |検索 |ページ一覧 |RSS |@ウィキご利用ガイド |管理者にお問合せ
|ログイン|