请大神给个卡西欧5800 道路坐标正算反算以及高层 的编程。谢谢

Question

同上，我现在自己手上也有些编程，不过不好用，大家有没有些简单好用的编程呢？最好有详细说明，我先在此谢过啦

Answer 1

5800P坐标正反算程序

U：“XO”起点的X坐标，

V：“YO”起点的Y坐标，

O：“SO”起点的里程桩号，

G：“FO”起点的方位角，

H：“LS”计算段线元的长度，

P：“RO”线元起点的曲率半径，

R：“RN”线元终点曲率半径，

“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。

DY=ZB:LC：输入1为正算，既输入里程桩号和偏距算坐标，输入2为反算，既输入坐标算里程桩号和偏距。

S:“LC”？S：待求点的里程桩号，

Z:“PJ”？Z：待求点的里程偏距（在中线上取零，左侧取负值，右侧取正值）。

1． 当线元为直线时，其起点，终点的曲率半径为无穷大，以10的45次方代替。

2． 当线元为圆曲线时，无论其起点，终点与什么线元相接，其曲率半径均等于圆曲线的半径。

3． 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。终点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

4． 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值，与圆曲线相接时，曲率半径等于圆曲线半径，终点与直线相接时，曲率半径等于设计规定值，与圆曲线相接时，曲率半径等于圆曲线半径。

5． 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定值，与圆曲线相接时，曲率半径等于圆曲线半径。终点与直线相接时，曲率半径等于设计规定值，与圆曲线相接时，曲率半径等于圆曲线半径。

1．坐标正反算主程序A-ZBZS3

U：“XO ”？U：V：“YO”？V：O：“SO”？O：G：“FO”？G：H：“LS”？H：P：“RO”？P：R：“RN”？R：“Q”？Q：

(1÷P)->C:(P-R)÷(2HPR)->D:(180÷Π)->E:N：“DY=ZB:LC”?N:If N=1:Then Goto 1:Else Goto 2:IfEnd:

Lbl1:

S:“LC”？S：Z:“PJ”？Z：Abs（S-O）->W：Prog“SUB1”：“XS=”：X◢

“YS=”：Y◢

“FS=”：F-90◢

Goto 1:

Lbl 2:

“X”?X: “Y”?Y:X->I:Y->J:Prog “SUB2”:S: “LC=”:O+W->S◢

Z: “PJ=”:Z◢

Goto 2:

2．坐标正算子程序SUB1

0.1739274226->A：0.3260725774->B：0.0694318442->K：0.3300094782->L：1-L->F：1-K->M：

U+W（Acos(G+QEKW（C+KWD）)+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））->X：

V+W（Asin（G+ QEKW（C+KWD）)+ Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））->Y：

G+QEW（C+WD）+90->F：X+Zcos(F)->X：Y+Zsin（F）->Y：

3.坐标反算子程序SUB2

G-90->T:Abs((Y-V)cos(T)-(X-U)sin(T))->W:0->Z:Lbl0:Prog “SUB1”:T+QEW(C+WD)->L:(J-Y)cos(L)-(I-X)sin(L)->Z:If Abs(Z)<10^(-3):Then Goto 1:Else W+Z->W:Goto 0:IfEnd:

Lbl 1:0->Z:Prog “SUB1”:(J-Y)÷sin(F)->Z: