| 平行移動交点計算 変更箇所 投稿者:管理者 投稿日:2009/12/27(Sun) 10:56:54 No.51 | |
|
二直線平行移動付四点交点計算
FILE 4TEN Lbl 0:A"X1=":B"Y1=":C"X2=":D"Y2=" :E"X3=":F"Y3=":G"X4=":H"Y4=" M"1−2W=":L"3−4W="EXE J=tan-1((B−D)÷(A−C)):J≧0⇒K=J :Goto 1:≠⇒K=J+180:Lbl 1: K"1−2HO="▲ N=A+(M×(cos(K+180+90+180): V=B+(M×(sin(K+180+90+180): W=C+(M×(cos(K+270+180): X=D+(M×(sin(K+270+180): I=tan-1((F−H)÷(E−G)):I≧0⇒K=I :Goto 2:≠⇒K=I+180:Lbl 2: K"3−4HO="▲ Y=E+(L×(cos(K+180+90+180): Z=F+(L×(sin(K+180+90+180): O=G+(L×(cos(K+270+180): P=H+(L×(sin(K+270+180): S=(X−V)÷(W−N):Q=(P−Z)÷(O−Y): R=Q×Y−S×N+V−Z:T=R÷(Q−S): U=S×(T−N)+V: T"PX=" ▲U"PY=" ▲Goto 0
二直線平行移動付四点交点計算 X1=? X1座標入力 例題 1020.000 EXE Y1=? Y1座標入力 例題 1010.000 EXE X2=? X2座標入力 例題 1030.000 EXE Y2=? Y2座標入力 例題 1020.000 EXE X3=? X3座標入力 例題 1010.000 EXE Y3=? Y3座標入力 例題 1050.000 EXE X4=? X4座標入力 例題 1050.000 EXE Y4=? Y4座標入力 例題 1010.000 EXE 1-2W=? 1-2移動量入力 例題 5.000 EXE 3-4W=? 3-4移動量入力 例題 10.000 EXE 例題は基線に対して右方向移動で計算しました。
1-2HO= 45 角度変換必要 SHIFT °′″ 3-4HO=135 角度変換必要 SHIFT °′″
この例題は、45°&315°ですが、45.123456と出た場合は、度分秒に変換 してください。 PX=1024.393398 PY=1021.464466
四点交点計算の場合 X1=? X1座標入力 例題 4 EXE Y1=? Y1座標入力 例題 5 EXE X2=? X2座標入力 例題 11 EXE Y2=? Y2座標入力 例題 12 EXE X3=? X3座標入力 例題 7 EXE Y3=? Y3座標入力 例題 4 EXE X4=? X4座標入力 例題 6 EXE Y4=? Y4座標入力 例題 12 EXE 1-2W=? 1-2移動量入力 例題 0 EXE 3-4W=? 3-4移動量入力 例題 0 EX
1-2HO= 45 角度変換必要 SHIFT °′″ 3-4HO=97.12501635 角度変換必要 SHIFT °′″
PX=6.555555556 PY=7.555555556
|
|