文档介绍：卡西欧5800坐标正反算主程序“=>XY”:“=>KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q:1/P->C:(P-R)/(2*H*P*R)->D:180/∏->E:IFN=1:THENGOTO1:ELSEGOTO2:IFENDLbl1:”DKI”?S:”D”?Z:Abs(S-O)->W:PROG“SUB1”:”XS”:X◢“YS”:Y◢GOTO1Lbl2:”X”?X:”Y”?Y:X->I:Y->J:Prog“SUB2”:O+W->S“S”:S◢“Z”:Z◢GOTO2子程序“SUB1”->A:->B:->K:->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子程序“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:IFAbs(Z)<1*10^(-6):THENGOTO1:ELSEW+Z->W:GOTO0:IFENDLbl1:0->Z:Prog”SUB1”:(J-Y)/SIN(F)->Z说明:输入与显示输入部分:=>=>SZN?选择计算方式,输入1表示进行由里程、边距计算坐标;输入2表示由坐标反算里程和边距。XA?线元起点的X坐标YA?线元起点的Y坐标DKA?线元起点里程CA?线元起点切线方位角LS?线元长度RA?线元起点半径(直线上输10的45次方)RB?线元止点半径(直线上输10的45次方)Q?线元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)DKI?正算时所求点的里程D?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)X?反算时所求点的X坐标Y?反算时所求点的Y坐标显示部分:XS=×××正算时,计算得出的所求点的X坐标YS=×××正算时,计算得出的所求点的Y坐标S=×××反算时,计算得出的所求点的里程Z=×××反算时,计算得出的所求点的边距规定以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。(2)当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。(3)当线元为直线时,其起点、止点的半径为无穷大,以10的45次代替。(4)当线元为圆曲线时,无论其起点、止点与什么线元相接,其半径均等于圆弧的半径。(5)当线元为完整缓和曲线时,起点与直线相接时,半径为无穷大,以10的45次代替;与圆曲线相接时,半径等于圆曲线的半径。止点与直线相接