二直線平行移動付四点交点計算 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+360: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+360: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−P): R=Q×Y−S×N+V−Z:T=R÷(Q−S): U=S×(T−N)+V: T"PY=" ▲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=315 角度変換必要     SHIFT °′″ この例題は、45°&315°ですが、45.123456と出た場合は、度分秒に変換 してください。 PX=1038.535534 PY=1035.606602