逆ベクトルを定義する図を描く.
- 画面で2点A,Bをとり,直線ABを引く.
- 直線AB上に点Cを加え,点Cを通る直線ABの垂線を引く.
- 垂線AC上に点Dをとり,原点に点Eをとる.
- 線分EA,EB,CD上に中点F,G,Hを加える.
Addax(1);
Lineplot([A,B]);
// 直線ABを引く.
Arrowdata([E,B],[2,10]);
Expr([A,"ne","\mathrm{A}(x_0,y_0)",B,"ne","\mathrm{P}(x,y)",G,"se","\vec{p}"]);
Drwxy();
Setcolor("cyan");
Arrowdata([E,A],[2,10]);
Expr([F,"nw","\vec{a}",H,"e2","\vec{n}=(a,b)"]);
Arrowdata([C,D],[2,10]);
Paramark([B,C,D],[0.5]);
// 角BCDに直角マークを書く.
Setcolor("black");
Pointdata("A",A,["Size=4"]);
Pointdata("B",B,["Size=4"]);
Figpdf();
// 図全体を描画範囲の大きさでPDFに書き出す.
最終更新:2016年10月30日 14:59