CASIO 5800P路线任意点切线方位角
程序名:“QXFWJ” (线元任意点切线方位角计算)
Lb1 1:"KO"?F:"KZ"?G:"RO"?R:"RZ"?H:"FWJ"?J:"K"?K: K-F→O:(1÷H-1÷R)÷(G-F)×O(O为字母O)→I:J+(I+2÷R)×O(O为字母O)×90÷π→N:"N=":▲DMS◢
Goto 1↙
说明:K0 线元起点里程
KZ 线元终点里程
R0 线元起点曲率半径,
CASIO 5800P路线任意点切线方位角
程序名:“QXFWJ” (线元任意点切线方位角计算)
Lb1 1:"KO"?F:"KZ"?G:"RO"?R:"RZ"?H:"FWJ"?J:"K"?K: K-F→O:(1÷H-1÷R)÷(G-F)×O(O为字母O)→I:J+(I+2÷R)×O(O为字母O)×90÷π→N:"N=":▲DMS◢
Goto 1↙
说明:K0 线元起点里程
KZ 线元终点里程
R0 线元起点曲率半径,