A交点座標 3点1方向計算(測角) FILE 3T1HO(SO) Lbl 0:A"KX=":B"KY=":C"BX=":D"BY=": E"SO=":F"X1=":G"Y1=":H"X2=":N"Y2="EXE Pol((A−C),(B−D)):J≧0⇒K=J:Goto 1: ≠⇒K=J+360:Lbl 1:I "K−BS=" ▲ K"B−KHO="▲ O=Frac E×100: S=Int E+(Int O÷60+Frac O÷36): P=K+S+180:P≧360⇒P=P−360:Goto 2 :≠⇒P=P:Lbl 2:Q=(N−G)÷(H−F): R=tanP:T=(((R×A)−(Q×F)+(G−B))) ÷(R−Q):V=Q×(T−F)+G: T"PX="▲V"PY="▲GOTO 0 KX=?       器械設置X座標入力   例題 -151966.562  EXE KY=?       器械設置Y座標入力   例題   42661.283 EXE BX=?       後視点X座標入力    例題 -151536.496  EXE BX=?       後視点Y座標入力    例題   42611.517 EXE SO=?       後視点基準に測角した角度  例題   320.0000  EXE X1=?     X1座標入力    例題  -151807.156EXE Y1=?     Y1座標入力     例題   42096.682 EXE X2=?     X2座標入力    例題  -151808.487EXE Y2=?     Y2座標入力    例題   42424.917 EXE J?            なにも入力しないで      173.3992551 EXE K-BS=?     器械点後視点点間距離出力        432.9358141 EXE B−KHO=?   後視点から器械点への入射角出角 例題  173.3992551 EXE 角度変換必要 SHIET °′″173°23′57.32″となります。 PX=-151808.7688 EXE PY= 42494.41705 EXE AC/on Break 入力画面に戻る、AC/on 2回押しで終了。