点と平面の距離

点と平面の距離を説明する図を描く.

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

distance.zip

  • 画面で,点A,B,Cをとる.
  • 直線ABとBCを描く.
  • Aを通りBCに平行な直線とCを通りABな直線の交点Dをとる.
Start3d();
Ptseg3data();
Putaxes3d(5);
Xyzax3data("","x=[0,3]","y=[0,5]","z=[0,4]");
if(1==1,
pD=[ [A3d,B3d,C3d,D3d],[ [1,2,3,4] ] ];
// 四角形ABCDのリストを作る.
VertexEdgeFace("1",pD,["Pt=fix","Edg=nogeo"]);
// 頂点と面から辺を求め,辺を描く
Perppt("H","E","A-B-C","put");
// 画面上に点Eをとり,Eから平面に下した垂線の足をとる.
Spaceline("1",[F3d,G3d]);
// 画面上に直線EHを描き,その上に点F,Gをとり,線分FGを描く.
Perppt("I","K","A-B-C","put");
Spaceline("2",[K3d,I3d]);
// 同様に線分KIを描く.
Arrowhead(K,K-I);
// 矢印を描く
Skeletonparadata("1",["phe3d1"],["sl3d1","ax3d","sl3d2"]);
Skeletonparadata("2",["ax3d","sl3d1"],["phe3d1","ax3d"]);
// スケルトンをかける.
Nohiddenbyfaces("1","phf3d1",[],["do"]);
// 面と空間直線を陰線処理する.
Pointdata("1",E,["Size=3"]);
Pointdata("2",H,["Size=3"]);
// 点E,Hを描く.
Paramark([K,I,H],[0.3]);
Paramark([E,H,L],[0.3]);
// 垂直記号を描く.
Expr([E,"e2","\mathrm{A}(x_0,\,y_0,\,z_0)"]);
Expr([H,"e2","\mathrm{H}"]);
Expr([I,"n10e8","\vec{n}"]);
Expr([ [0,0],"s2","\mathrm{O}"]);
Expr([C,"w8","\alpha"]);
);
最終更新:2016年10月30日 15:12
|新しいページ |検索 |ページ一覧 |RSS |@ウィキご利用ガイド |管理者にお問合せ
|ログイン|
添付ファイル