9.クロソイド曲線との交点計算 (F-BASIC) - おこちゃんの測量プログラム

lprint type"dc" '-----------クロソイドの交点計算------------- defdbl A,C,D,K-Z:defstr H,N:defint B,I,J PI=3.141592653589793#:EE=0.0000000001# RA=206264.806471#:RAA=180#/PI:RRA=PI/180# dim N1$(10),N$(10),TTT(10),TT(10),TTR(10),TS(10),TR(10),X(10),Y(10),T1(10),XP(10),YP(10),L(10),H$(10),S4(10),RR(10) def fnRAN(T)=(fix(T)+fix*1*100#)/60#+(T*100#-fix(T*100#))/36#)/RAA:'---度分秒からラジアンへ def fnDEG(T)=fix(T)+fix(((T)