卡西欧5800 CASIOFX(简单易用的定位放样程序)

卡西欧CASIOFX--------5800道路坐标放样程序1，主程序﹙TYQXJS）LB14:”1.SZ＝＞XY”:”2.XY＝＞XZ”:?N:?S:Prog“SUBO“↙1÷P→C：（P-R）÷（2HPR）→D：180÷∏→E：N=1＝＞Gto1:Goto2:↙LB11:?Z:Abs(S-0)→W:Prog“SUB1”:“XS=”:X◢“YS=”:Y◢F-90→F:“FS=”:F▶DMS◢Goto4↙LB12:?X:?Y:X→I:Y→J：Prog“SUB2“:0＋W→S:“S=“:S◢“Z=“:Z◢Goto4↙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反算子程序﹙SUB2﹚G－90→T：Abs﹙﹙Y－V﹚cos﹙T﹚－﹙X－U﹚sin﹙T﹚﹚→W:0→Z:Lb14:Prog“SUB1”:T＋QEW﹙C＋WD﹚→L:﹙J－Y﹚cos﹙L﹚－﹙I－X﹚sin﹙L﹚→Z：IFAbs﹙Z﹚＜IE－6:Then0→Z:Prog“SUB1“:﹙J－Y﹚÷sin﹙F﹚→Z:EIseW＋Z→W:Goto4:IfEnd4数据库子程序SUB0Goto1↙同时保存多个曲线时旳指针LB11：IFS＜*******﹙线元终点里程﹚：Then*******→G﹙线元起点方位角﹚：********→0﹙线元起点里程﹚;*******→U﹙线元起点坐标X﹚：*******→V﹙线元起点坐标Y﹚：********→P﹙线元起点曲率半径﹚：******→R﹙线元终点曲率半径﹚：*******→H﹙线元起点至终点长度：0或1.-1→Q：Return:IfEnd↙LB11：IFS＜*******﹙线元终点里程﹚：Then*******→G﹙线元起点方位角﹚：********→0﹙线元起点里程﹚;*******→U﹙线元起点坐标X﹚：*******→V﹙线元起点坐标Y﹚：********→P﹙线元起点曲率半级﹚：******→R﹙线元终点曲率半径﹚：*******→H﹙线元起点至终点长度﹚：0或1，-1→Q：Return:IfEnd↙…………………………为了便于解读，每增加一个线元就增加一行语句，每加一条曲线就增加一个LB1，每增加一个就增加一个文件。使用说明（！）。以道路中线的前进方向（即里程增大的方向）区分左右：当线元往左偏时，Q=-1；当线元往右偏时；Q=1；当线元为直线时，Q=0.﹙2﹚，当所求点为中线时，Z=0；当位于中线左则侧，Z取负值；当为于中线右侧时，Z取正值。（3），当线元为直线时，其起点，止点的曲率半径为无穷大，以10的45次代替。（4），当线元为圆曲时，无论其起点，止点与什么线元相接，其曲率半径等于圆弧的半径。（5）当线元为完整缓和曲线时，起点与直线相接时，曲率半径无穷大，以10的45次代替，与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替，与圆曲线相接时，曲率半径等于圆曲线的半径。（6），当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值。与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值。与圆曲线相接时，曲率半径等于圆曲线的半径。2，输入与显示说明输入部分SZ＝＞XYXY＝＞SZN?，选择计算方式，输入1表示进行由里程，边距计算坐标；输入2表示由坐标反算里程和边距。S?，正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对，Z?正算时所求点距中线的边距（左侧取负值。右侧取正值，在中线上取零）X?反算时所求点的X坐标。Y?反算时所求点的Y坐标显示部分XS＝×××××正算时，计算得出的所求点的X坐标。YS＝×××××正算时，计算得出的所求点的Y坐标。FS＝×××××正算时，所求点对应的中线点的曲线方位角。S＝××××××反算时，计算得出的所求点的里程。Z＝××××××反算时，计算得出的所求点的边距。