文档介绍：Fx-5800计算机程序QXJS-000              主程序Lbl4:“=>=>”:?Q:Q=1=>Goto1:Q=2=>Goto2:Q=3=>Goto3↙Lbl1:?S:s=0=>stop:Prog“QXJS-SUB0”?Z:Prog“QXJS-SUB1”:cls:“N=”:Locate8,1,N:“E=”:Locate8,2,E:“F=”:F▼DMS◢Goto4↙Lbl2:Prog“QXJS-SUB0”:“N=”:?B:“E=”:?C:B→N:C→E:Prog“QXJS-SUB2”:cls:“S=”:Locate3,1,S:“Z=”:Locate3,2,Z◢Goto4↙Lbl3:?S:Prog“QXJS-SUB0”:?Z:“cezhanx”?B:“cezhany”?C:Prog“QXJS-SUB1”:Pol(N-B,E-C):IfJ<0:ThenJ+360→J:ElseJ→J:IfEnd:cls:“HD=”:Locate4,1,I:“HR=”:J▼DMS◢Goto4↙QXJS-SUB0            数据库子程序Goto1↙              同时保存多个曲线时的指针Lbl1↙IFS<***(线元终点里程):Then***→A(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径):***→L(线元起点至终点长度):Return:IfEnd↙IFS<***:Then***→A:***→O:***→U:***→V:***→P:***→R:***→L:Return:IfEnd↙………………………..为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件。QXJS-SUB1            (1÷R-1÷P)÷L→D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90)→N:E+Zsin(F+90)→EQXJS-SUB2            反算子程序Lbl1:0→Z:1→Q:Prog“QXJS-SUB0”:Prog“QXJS-SUB1”↙Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→S↙Abs(W)>=>Goto1↙Lbl2:0→Z:Prog“QXJS-SUB1”:(C-E)÷sin(F+90)→Z↙三、使用说明    1、规定    (1)以道路中线的前进方向(即里程增大的方向)区分左右;当曲线半径在左时,P、R取负值,当曲线半径在右时,P、R取正值,当曲线半径为无穷大(即直线)时,P、R以10的45次代替。 (2)当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。 (3)当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。  (4)当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替;与圆曲线相接时,曲率