5800曲线数据库.doc

正算Fix 4：?S：?Z：Prog “PM-SJ”： Abs(S-O) W：ProgSUB1： XS=：XYS=：YF-90F：Prog“SQX-SJ”: Prog“SQX”：“H=”：H反算Fix 4: ?S：?X：？Y：Prog“PM-SJ”： X I： Y J：ProgSUB2： S=：O+WSZ=：ZProg“SQX-SJ”：Prog“SQX” ：“H=”：H子程序(ZCXZ)1P C： (P-R)(2HPR) D： 180 E： 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+ZcosF X： Y+ZsinF Y子程序(ZCXF)G-90T： Abs(Y-V)cos T-(X-U)sin（T）) W： 0 Z：Lbl0：ProgSUB1： T+QEW(C+WD) L： (J-Y)cos L-(I-X)sin L Z：if Abs Z10-6：thenGoto1：Elss W+Z W：Goto0：IfEndLbl1： 0 Z：ProgSUB1： (J-Y)sin F Z数据库 SJQIf S 21500And S24242.49：Then 2797510.896U：499864.127 V：21500O：299/31/16/G：2742.49H：0P：0R：0 Q：IfEndIf S 24242.49And S24641.425：Then 2798862.246U：497477.685 V：24242.49O：299/31/16/G：398.935H：2800P：2800R：-1 Q：IfEndIf S 24641.425And S24808.39：Then 2799033.466U：497117.735 V：24641.425O：291/21/28.05/G：166.965H：2800P：1100R：-1 Q：IfEndIf S 24808.39And S25218.467：Then 2799087.164U：496959.724 V：24808.39O：285/18/4.14/G：410.077H：1100P：1100R：-1 Q：IfEndIf S 25218.467And S25382.671：Then 2799120.013U：496553.343V：25218.467O：263/56/29.18/G：164.204H：1100P：0R：-1 Q：IfEndIf S 25382.671And S25590.455：Then 2799094.590U：496391.162 V：25382.671O：259/39/53.95/G：207.784H：0P：1850R：1 Q：IfEndIf S 25590.455And S26636.188：Then2799061.15U：496186.116 V：25590.455O：262/52/57.34/G：1045.733H：1850P：1850R：1 Q：IfEndIf S 26636.188And S26843.972：Then 2799223.923U：495167.169 V：26636.188O：295/16/10.81/G：207.784H：1850P：0R：1 Q：IfEndIf S 26843.972And S27017.53：Then 2799319.582U：494982.745 V：26843.972O：298/29/14.2/G：173.558H：0P：1300R：-1 Q：IfEndIf S 27017.53And S28249.613：Then 2799398.933U：494828.427 V：27017.53O：294/39/45.39/G：1232.083H：1300P：1300R：-1 Q：IfEnd子程序（竖曲线数据库）SQX-SJIf S999.812（竖曲线终点里程）：Then 0.0357（前坡度：上坡正下坡负）E：0.0227（后坡度：上坡正下坡负）F：600R（竖曲线半径）：780G（变坡点里程）：110C（变坡点高程）：IfEnd子程序（竖曲线计算公式）SQXE-FJ：If J0：Then -RR：Else RR：Abs（R*J2）T：IfEndIf SG-T：Then G-SL：C-LEH：IfEndIf SG-T And SG：Then G-SL：（S+T-G）2RN：C-LE+N H：IfEndIf SG And SG+T： Then S-GL：（G +T- S）2RN：C+LF+N H：IfEndIf SG+T ：Then S-GL： C+LF H：IfEnd三、使用说明1、规定(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2)当