主线匝道施工放样程序4850PB.docx

1、主线匝道施工放样程序4850PBGISGFYCXB放样程序( fx-4850P )MDefm 45Lbl 7XXK1=Z25XXXK2：XZ26XClsZ262Goto 0 XXXA=Z27=X X0oto Y YYYA=Z28=YClsXXXBYYYBZ23XZ24YPol（Z23-Z27Z24-Z28）J0J360JF=J DMS Z40=JD=I（计算后视点方位角距离）ClsLbl 0Lbl YMMMM10Goto 8M1PAA Goto AM2PBB Goto AM3PCC Goto AM4PDD Goto AM5PLA Goto AM11PAAA Goto AM12PBBB Goto

2、 AM13PCCC Goto AM14PDDD Goto ALbl YClsLbl 8KKCDClsK0Goto 7K161240.227PJD21 Goto AK163826.133PJD22 Goto AK166083.699PJD23 Goto AK167003.247PJD24 Goto AK168133.984PJD25 Goto AK168746.094PJD26 Goto AK169293.139PJD27 Goto AK170166.502PJD28 Goto AK171127.165PJD29 Goto AK175428.300PJD30 Goto AK178669.069P

3、JD31 Goto AK179805.707PJD32 Goto AK181350.250PJD33 Goto AK184137.466PJD34 Goto AK186078.570PJD35 Goto AK188716.259PJD36 Goto ALbl AZ1“P1”=S2/24/R-S4/2688/ R3（后切线常数）Z2“P2”=W2/24/R-W4/2688/ R3（前切线常数）Z3“Q1”=S/2- S3/24零/ R2+ S5/3456零/ R4（后切线常数）Z4“Q2”=W/2-W3/24零/ R2+ W5/3456零/ R4（前切线常数）Z5=tan-1 (R+Z2)/(R

4、+Z1)- cos A)/sin A)（反算角度）31.5920Z6“T1”=（R+Z1）tan Z5+Z3（后切线长）Z7“T2”=(R+Z2)tan (A-Z5)+Z4（前切线长）Z8“B零1”=18零S/2/R/（Z10过度常数）Z9“B零2”=180W/2/R/（Z10过度常数）Z10=-8-Z9（计算园曲线长过度常数）Z11“LY”=RZ10/180（园曲线长）Z12=“Lh”=S+W+Z11（曲线全长）Z13=（直缓点）469.93Z14=“HY”=Z13+S（缓园点）Z15=“YH”=Z14+Z11（园缓点）Z16=“HZ”=Z13+Z12（缓直点）判别中桩里程位于曲线何处KZ1

5、3=GoTo 1KZ14=GoTo 2KZ15=GoTo 3KZ16=GoTo 4KZ16 =GoTo 9LbI 1:L=Z13-K:V=QUQ180Z42L GoTo5LbI2:L=K-Z13:Z42=根号(L3/(6RS)-L7/(336R3S3)+L11/(42240R5S5)2+(L-L5/(40R2S2)+L9/(3456R4S4)2):U=Q+3零L2B/RSV=Q+9零L2B/RS:Goto 5LbI 3L=K-Z14:Z17=R sin (90(S+2L)/（R)）+Z3:Z18=R(1-cos(90(S+2L)/R)+Z1:Z42=(Z172+Z182):U=Q+B tan-

6、1 (Z18/Z17)V=Q+9零B(S+2L)/ RGoto 5LbI 4L=Z16-K:Z19=Z7sin A-(L-L5/(4零R2W2)+L9/(3456 R4W4)sin A+(L3/(6RW)-L7/(336R3W3)+ L11/(4224零 R5W5)cos A:Z20=Z6+Z7cos A-(L-L5/(4零 R2W2)+ L9/(3456 R4W4)cos A-( L3/(6RW)- L7/(336 R3W3)+ L11/(4224零 R5W5)sin AZ42=(Z192+Z202U=Q+B tan-1 (Z19/Z20)V=Q+BA-9零BL2/RWGoto 5LbI 5

7、X=O+Z42 cos UY=P+Z42 sin UZ23XZ24YZ25=1PFDZ262Goto TClsLbI 6:NNSZZ21=NZ21=0Goto VXZ=Z23=XZ21 cos （V90）YZZ24YZ21 sin （V90）Z25=1PFDLbI VNNSYZ22=NZ220Goto 0XYZ23XZ22 cos （V90）YYZ24=YZ22 sin （V90）Z25=1PFDGoto 0LbI 9V=QBAXX=Z6cos Q（Z7+（K-Z16）cos（Q+BA）YY= PZ6sin Q(Z7+(K-Z16)sin(Q+BA) Z23XZ24YZ25=1PFDZ262G

8、oto TGoto 6LbI TNN“A 31=NNNSZ32=NZ33=Z32sin（Z31）X1=Z34=XZ33 cos（V）Y1Z35=YZ33 sin（V）ClsX2Z36=XZ33 cos（V180）Y2Z37=YZ33 sin（V180）ClsNNSZ1Z38=NXZ3=X=Z34Z38 cos（V-Z31）YZ3Y=Z35Z38 sin（V-Z31）ClsXZ4X=Z36Z38 cos（V-Z31）YZ4Y=Z37Z38 sin（V-Z31）ClsNNSY1Z39=NX5=X=Z34Z39 cos（V-Z31+180）Y5Y=Z35Z39 sin（V-Z31+180）ClsX6

9、X=Z36Z39 cos（V-Z31+180）Y6Y=Z37Z39 sin（V-Z31+180）Goto 0子程序曲线元素JD21Z13159354.29（ZH）O2609401.755（ZHX） P=150829.977（ZHY） Q=1681848A=15525R=2500S=300（LS1）W=300（LS2）B=-1 JD22Z13=161240.230O=2607679.229 P=151574.988Q=1522643A=62922R=800S=300W=300B=-1JD23Z13=163826.130O=2607106.050P=153921.480Q=901721A=7335

10、40R=1601.885S=200W=200B=1JD24Z13=166083.690O=2605851.541P=155581.058Q=163531A=393548R=1041.176S=200W=200B=-1JD25Z13=167003.240O=2605127.075P=156105.769Q=1241713A=25622R=1191.897S=200W=200B=1JD26Z13=168133.98O=2604254.777P=156802.059Q=1492335A=252728R=860S=230W=230B=1JD27Z13=168746.100O=2603679.631P=

11、156987.581Q=174514A=9328R=2195.234S=200W=200B=-1JD28Z13=169293.140O=2603141.236P=157079.397Q=1654736A=21238R=1804.071S=200SW=200B=1JD29Z13=170166.500O=2602276.563P=157132.497Q=1871043A=152816R=1405.684S=200W=200B=-1JD30Z13=171127.170O=2601322.587P=157193.069Q=1714227A=283429R=1200S=200W=200B=1JD31Z1

12、3=175428.300O=2597254.658P=155896.714Q=2001656A=451523R=1200S=200W=200B=-1JD32Z13=178669.070O=2594249.334P=156825.761Q=155133A=2287R=1500S=200W=200B=1JD33Z13=179805.710O=2593142.689P=157029.132Q=177940A=145314R=2000S=200W=200B=-1JD34Z13=181350.220O=2591651.805P=157408.207Q=1621626A=74341R=6000S=0W=0

13、B=-1JD35Z13=184137.46O=2589113.920P=158555.882Q=1543244A=151928R=6000S=0W=0B=1JD36Z13=188044.67O=2585319.956P=159450.445Q=1695212A=71926R=5253.969S=0W=0B=1 以下为匝道及联线子程序库羊街立交匝道数据库AACD?KK569.93Goto BK823.61Goto CK916.73Goto DLbI B469.93Z132608752。093O151111.024P8628.5Q66637.9A65R50S0W1BGoto WLbI C569.9

14、3Z132608717.279O151197.032P152846.3Q182383.5A64R0S99.349W1BGoto WLbI D821.06Z132608699.172O151057。197P334455.9Q2123.9A2490.75R0S0W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）BBCD?KK354.62Goto BK437.21Goto CK。Goto DLbI B109.07Z132608403.146O151213.153P3345924.4Q46175.7A220R100.659S35W1BGoto WLbI C354.62Z132

15、608638.711O151194.145P211630.2Q49743.8A66R52S0W-1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）CCCD?KK111.45Goto BK557.25Goto CLbI B0Z132609159.606O150873.99P1681934.8Q2531.7A3052.322R0S0W-1BGoto WLbI C222.94Z132608942.61O150925.057P166143.2Q99485.3A150R40S106.6W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）DD CD?KK44

16、5.23Goto BLbI B47.51Z132608725.313O150789.688P8628.5Q662434.6A300R50S50W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）LA（联接线数据库）CD?KK1153.36Goto BLbI B439.27Z132608689.235O150204.00P26628.5Q934133.3A400R60S60W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）改移老路数据库GYCDKK339.13Goto BK531.79Goto CK648.51Goto DK886Goto ELb

17、I BZ13=251.02O=2608847.23P=150386.477Q=2694341.7A=9000R=40S=0W=0B=-1Goto WLbI CZ13=399.13O=2608721。756P=150347.072Q=1794341.7A=71455.7R=60S=0W=0B=-1Goto WLbI D Z13=531.79O=2608646.577P=150443.048Q=1083846A=361558.4R=100S=0W=0B=1Goto WLbI E Z13=648.51O=2608565.596P=150523.611Q=1445444.4A=102547R=500S

18、=0W=0B=-1Goto WLbI WReturn （此语句必须有否则不能返回主程序）蒙自立交匝道数据库AAACD?KK414.34Goto BK608.57Goto CK1394.63Goto DLbI B164.29Z132592356.324O157200.381P344497Q1933647.5A55R128.378S83.333W1BGoto WLbI C414.34Z132592435.507O157307.335P1673451.7Q644134A111R0S137.8W1BGoto WLbI D1129.62Z132591957.831O156805.229P2321625.

19、7Q292156.7A400R60S60W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）BBBCD?KK128.72Goto BK333，88Goto CK600.33Goto DLbI B0Z132592436.465O157311.732P347359.3Q451741.3A115.5R0S74.838W-1BGoto WLbI C128.73Z132592530.894O157230.189P3021728Q384625.3A220R39.29S130.816W1BGoto WLbI D333.88Z132592689.678O157108.429P34014

20、23Q151559.4A1000R0S0W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）CCCCD?KK199.46Goto BK720.87Goto CLbI B0Z132592709.93O157070.201P170849.6Q54116.3A2009.25R0S0W-1BGoto WLbI C199.46Z132592515.426O157114.023P1642733.3Q674852.3A350R50S164.314W1BGoto WLbI WReturn （此语句必须有否则不能返回主程序）DDD CD?KK456.98Goto BLbI B13.01Z132592063.248O156954.568P521625.7Q11100A200R60S60W1BGoto WLbI WReturn （此语句必须有否则不能返回主）