ベクトルの成分を説明する図を描く.
- 画面で3点A,B,C,Dをとる.
- 線分AB, AC, ADの中点G, H, Kを加える.
Addax(1);
Arrowdata([A,B],[2,10]);
Putpoint("E",[B.x,0]);
//座標(b.x,0)に幾何点Eをとる.
Putpoint("F",[0,B.y]);
Listplot("1",[E,B,F],["da"]);
Expr([B,"n2","\mathrm{A}(a_1,a_2)",G,"n2","\vec{a}",H,"s2","\vec{i}",K,"w2","\vec{j}"]);
Drwxy();
Setcolor("cyan");
//ベクトルの色を黒に戻す.
Arrowdata([A,C],[2,10]);
Arrowdata([A,D],[2,10]);
Setcolor("black");
//注) ベクトルの色を黒に戻す.
Htickmark([1,"1",B.x,"a_1"]);
Vtickmark([1,"1",B.y,"a_2"]);
Figpdf();
//図全体を描画範囲の大きさでPDFに書き出す.
最終更新:2016年10月30日 14:57