直線の平行と垂直 - KeTCindyによる図入り教材の作成

=============================================
直線の平行と垂直

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

parallel-vertical-line.zip

Addax(1);
Setax(["","x","e","y","n","O","sw5"]);
／／　線と重ならない位置に原点名Oを書く
／／　「直線を加える」ボタンを押し，原点(Aになる)でクリックしてから
／／　適当なところ(Bになる)までドラッグして離し直線を描く
／／　「垂線を描く」ボタンを押し，直線AB上でクリックして点Aまでドラッグして垂線を描く
／／　「点を加える」ボタンを押し、今描いた垂線上でクリックする(Cになる)
Lineplot([A,B]);
Lineplot([A,C]);
／／直線ABと直線ACを描く
Paramark([B,A,C],[0.5]);
／／　直角マークを描く
／／　「直線を加える」ボタンを押し，Aでクリックしてからx軸上をドラッグして離す(Dになる)
／／　「垂線を描く」ボタンを押し，直線AD上でクリックして点Dまでドラッグして垂線を描く
／／　「2つの曲線の交点を求める」ボタンを押し，今描いた垂線上でクリックしてから
／／　直線AB上でクリックする（交点がEになる）
／／　「平行線を描く」ボタンを押し，直線AB上でクリックし直線AC上までドラッグして
／／　適当なところ(Fになる)で離して平行線を描く
／／そのまま直線AC上でクリックし直線AB上までドラッグして適当なところ(Gになる)で離して平行線を描く
／／「点を加える」ボタンを押し、今描いた２つの平行線上で順にクリックする(H,Kになる)
／／「2つの曲線の交点を求める」ボタンを押し，DEとACの交点をとる(Lになる)
Setcolor("navyblue");
Lineplot([F,H]);
Lineplot([G,K]);
Listplot([E,L]);
／／色を変えて直線を描く
Setcolor("black");
／／黒色に戻しておく
Letter([D,"ne","1"]);
Expr([E,"se","\textrm{P}(1,m)",L,"ne","\textrm{Q}(1,m`)",B,"n1","y=mx",C,"s1","y=m`x",H,"n1","\ell",K,"n1","\ell `"]);
／／点の名前，座標，直線の名前や式などを書く．点を動かして表示位置を調整する