全套4850測量程序

1、全套4850測量程序CASIOfx-4850p公路工程計算器程序集編號主程序名（其中文含義）程序計算功能FANGYANG（放樣）計算路線中、邊樁坐標，測站點與路線中、邊樁坐標間的距離和方位角等CHAOGAO（超高）計算設(shè)計高程、左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計標高之差值及設(shè)計高程YYLDFWJ（任意兩點方位角）計算任意兩點間的距離和方位角四SQXBG（豎曲線標局）計算豎曲線設(shè)計標局五TIANWAG-C（填挖高差）計算左、中、右處填挖高差六BZZB（邊樁坐標）主要進行橋梁及涵洞各點放樣計算七ZHUIPO（錐坡）進行錐坡放樣計算編號子程序名（其中文含義）程序計算功能XY（坐標計算子程序）利用

2、交點參數(shù)數(shù)據(jù)庫進行計算P-Q-XJ-S（平曲線計算子程序）利用交點坐標進行計算曲線要素YAO-SU（平曲線要素計算子程序）進行平曲線要素計算ZB（平曲線的坐標計算子程序）進行平曲線的坐標計算X1（曲線要素數(shù)據(jù)庫子程序）曲線要素數(shù)據(jù)庫（按樁號先后順序依次輸入）ZHONGZHUANG（中樁坐標計算之子程序）計算任意點中樁坐標及其切線方位角ZHHY（直緩點緩圓點處中樁坐標計算之子程序）計算ZH至HY間中樁坐標及其8 切線方位角HYYH（緩圓點圓緩點坐標計算之子程序）位角YHHZ（圓緩點直緩點坐標計算之子程序）位角S0（緩和曲線長度等于零坐標計算之子程序）線方位角計算HY至YH間中樁坐標及其切線方計算

3、YH至HZ間中樁坐標及其切線方計算S=0的圓曲線中樁坐標及其切ZXZB（直線段坐標計算之子程序）計算直線段中樁坐標及其切線方位角CHAOGAO-1（超高計算之子程序）計算左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計標高之差值JK-B2（加寬計算之子程序）計算內(nèi)側(cè)路基寬度JU-LIFWJ（任意兩點間距離、方位角計算之子程序）計算任意兩點間的距離和方位角SQXBG-1（豎曲線標局計算之子程序）計算豎曲線設(shè)計標局SQXCANSHU（豎曲線參數(shù)）輸入各個豎曲線相關(guān)參數(shù)（按樁號先后順序依次輸入）CANSHU（圓曲線參數(shù)）輸入各個平曲線相關(guān)參數(shù)（按樁號先后順序依次輸入）S244-QIAO（S244線橋梁坐標參數(shù)

4、）S244線橋梁坐標參數(shù)數(shù)據(jù)庫（按樁號先后順序依次輸入）S244-BM（S244線橋梁附近的導線點參數(shù)）S244線橋梁附近的導線點參數(shù)數(shù)據(jù)庫（按樁號先后順序依次輸入）常用字母的一般含義：（輸入時）1. 判斷參數(shù)M,當M>0時，調(diào)用子程序相應(yīng)參數(shù)；當MV0時，直接輸入相應(yīng)參數(shù)。任意點的樁號為Z。2. 圓曲線（ZH）起點樁號Q,其坐標為（X,Y）,方位角為A;圓曲線（HZ）起點樁號C,其坐標為（N,E）,方位角為B;圓曲線半徑為R,緩和段長度為S,內(nèi)側(cè)路基最大加寬值為J,路面寬度為K（半幅寬度），路拱橫坡度為B（必須取負數(shù)），最大超高橫坡度為H（必須取非負數(shù)）。3. 豎曲線：第一坡度值為I（

5、上坡為正值，下坡為負值），第二坡度值為J（上坡為正值，下坡為負值），豎曲線半徑為R,變坡點樁號為N,變坡點高程為Ho計算邊樁坐標時：V為旋轉(zhuǎn)角度（左為負值，右為正值。正交時V取90或-90）,K為邊樁到中樁的距離。主程序名及內(nèi)容備注一FANGYANG（放樣）原名為JU-LIFWJFY（距離方位角放樣即偏角法放樣）M“1-11XY,2-12JU-LI,3-13XYJU-LI,4-14YSZH,MV0-INPUTJDXY”：V=M:Z67=0M>10=>GotoW:豐M<0=>Goto3Lbl7:T):T“INPUTQIAN-HOUJU-LI(QIAN+,HOU-)”：Z5

6、1=T:U):U“INPUTP(ZHUANGWEISHU)”：Z52=U:Goto1Lbl3:Z67=-1:Prog“P-Q-XJ-S”LblW:V=14=>Prog"X1”V=14=>GotoVV>10=>V=V-10:Z67=1:豐>V=VV=AbsV:V=1=>Z67=1:Goto6:豐>V>1=>V<4=>"INPUTCE-ZHAN-DIANX,Y”：X,Y):豐V=4=>GotoVLbl6:Goto7Lbl9:Z:Z67=1=>ProgX，Prog“YAO-SU”:Prog“XY”Z67

7、=-1=>K=Z15Goto9Lbl1:P):P"SHIFUOINPUTV,K(P>0,NOP<0,YES)”：Z65=P:P<0=>GotoKV=Z55:K=Z61:“INPUTV1=":V):Z55=V:"INPUTK1=K):Z61=K:Z52=1=>GotoKV=Z56:K=Z62:“INPUTV2=”：V):Z56=V:"INPUTK2=”：K):Z62=K:Z52=2=>GotoKV=Z57:K=Z63:“INPUTV3=”：V):Z57=V:"INPUTK3=”：K:Z63=KZ52=3=

8、>GotoKV=Z58:K=Z64:“INPUTV4=”：V):Z58=V:"INPUTK4=”：K):Z64=KLblK:Z67=1=>Goto9M=1=>Goto0“INPUTCE-ZHAN-DIANX,Y”：I"X”：J"Y”Z:Z1=I:Z2=J:"INPUTHOU-SHI-DIANN,E”:NE:Z10=N:Z11=E:P=N-IF=E-I:Prog“JU-LIFWJ”“HOU-SHI-DIAN”:“JU-LI=”:LA“FWJ=”:W->DMSZ12=WLbl0:Z:Prog“CANSHU”M4=>Goto2“Z

9、H=”:QA“X=”:XA“Y=”:YA“A-FWJ=”:AA“HZ=”:CA“N=”:NA“E=”:EA“B-FWJ=”:BA“R=”“S=”:SA（輸入M值，當M<0時，則需要輸入圓曲線交點參數(shù)；當M>0,則直接調(diào)用子程序中的對應(yīng)參數(shù)，M=1,2,3,4時調(diào)用其自程序CANSHU的參數(shù)，M=11,12,13,14時，調(diào)用X1的參數(shù)。）輸入前后距離，前為正值，后為負值。輸入每個斷面的樁數(shù)（為14）。輸入測站點坐標X、Y值。是否輸入V,K值，當輸入正數(shù)時，計算過程中不必輸入V,K;當輸入負值時，計算過程中需要輸入V,K。輸入第14個樁位的K,V值：K為邊樁到中樁的距離（左為負值，右

10、為正值），V為旋轉(zhuǎn)角度（左為負值，右為正值。正交時V取90或-90）;當V或K為負值時，計算左側(cè)邊樁；當V、K同時為正值時，計算右側(cè)邊樁；當K=0時，計算中樁。輸入測站點坐標X、Y值輸入后視點坐標N、E值。顯示結(jié)果含義：HOU-SHI-DIAN（后視點）；JU-LI=為測站點與后視點的計算距離；FWJ=為測站點與后視點的計算方位角。曲線的ZH樁號、坐標X、Y、方位角;曲線的HZ樁號、坐標N、E、方位角;曲線半徑R;緩和段長度S;主程序名及內(nèi)容備注（接上頁）“JIA-KUAN-ZHI=”:JA“CHAO-GAO-ZHI=":HAGoto0Lbl2:Prog“ZHONGZHUANG”Z3

11、=W:Z4=N1:Z5=E1:Z53=0LblB:D=Z:K=Z7:Z53=1+Z53Z65<0=>GotoNP=Z53:V=Z54+P:K=Z60+P:GotoPLblN:K:K=0=>V=90:GotoPVLblP:Kv0=>V=-AbsV:K=AbsK:>V<0=>V=-AbsV:K=AbsK:冷V=AbsVK=AbsKP=Z4+cos(Z3+V)XK-Z1F=Z5+sin(Z3+V)xK-Z2Vv0=>V=AbsV:K=-AbsK:QV=AbsV:K=AbsKM=2=>Goto5“N2=”：P+Z1“E2=”：F+Z2M=1=>

12、;Goto8Lbl5:Prog“JU-LIFWJ”“FWJ=”:WA“JU-LI=”:LAM勻=>Goto8“SHUIPINGJIAO=W=Abs(W-Z12):W->DMSLbl8:I=Z1:J=Z2:N=Z10:E=Z11:Z7=KU=Z52:T=Z51“NOWZ=”:ZAZ53=U=>Z=Z+T“NO.”：Z53“NEXTZ=”：Z:Z=D=>GotoB:冷Goto0LblV:V=14=>Prog“P-Q-XJ-S”V=14=>Z:GotoW加寬值；超高值。輸入樁位的K,V值：K為邊樁到中樁的距離（左為負值，右為正值），V為旋轉(zhuǎn)角度（左為負值，右為正值

13、。正交時V取90或-90）;當V或K為負值時，計算左側(cè)邊樁；當V、K同時為正值時，計算右側(cè)邊樁；當K=0時，計算中樁。N2=為該樁位的X坐標值；N1=為該樁位的Y坐標值；FWJ=為測站點與路線中、邊樁坐標間的方位角。JU-LI=為測站點與路線中、邊樁坐標間的距離;SHUIPINGJIAO=為測站點與后視點及測站點與路線中、邊樁間的水平夾角NOWZ=為現(xiàn)在的樁號;NO.為現(xiàn)在的樁號的第幾個樁位；NEXTZ=為下一樁位的樁號。二CHAOGAO(超高)M“SHIFUOINPUTCANSHU(M>0,NOM<0,YES)”M>0=>Goto0“INPUTVZUO=>V&l

14、t;0YOU=>V>0”:VQC:S"S1=”:Z1=S:S):S"S2=”：Z20=S:S=Z1:JBH:Z8=C:Z4=V:Z9=K:Z10=J:Lbl0:Z):M<0=>GotoAI“INPUTI(IA0=>SHE-JIGAO-CHENG豐>JI-SUANCHAO-GAO)Z15=I:Prog“SQSBG-1”:Z8=GZ15<0=>Goto1“SHE-JIGAO-CHENG=”：GALbl1:Prog“CANSHU”A<B=>Z4=1:豐>Z4=-1B=Z6:GotoBLblA:C=Z8:V=Z4:K

15、=Z9:J=Z10LblB:Prog“CHAOGAO-1”“I1=100*I1“I2=100*I2“B1=”：B1“B2=”：B2“Z1=”：Z1計算設(shè)計高程、左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計標高之差值及設(shè)計高程輸入M值，當M<0時，則需要輸入圓曲線參數(shù)；當M>0,則直接調(diào)用子程序中的對應(yīng)參數(shù)。輸入v值，當圓曲線為左轉(zhuǎn)彎時，則V為負值，當圓曲線為右轉(zhuǎn)彎時，則V為正值圓曲線（ZH）起點樁號Q,圓曲線（HZ）起點樁號C,緩和段長度為S,路面寬度為K（半幅寬度），內(nèi)側(cè)路基最大加寬值為J,路拱橫坡度為B（必須取負數(shù)），最大超高橫坡度為H（必須取非負數(shù)）。顯示結(jié)果含義:G為設(shè)計高程。I

16、1為左側(cè)路面橫坡度，負值為左側(cè)低于中樁，正值為左側(cè)高于中樁。I2為右側(cè)路面橫坡度，負值為右側(cè)低于中樁，正值為右側(cè)高于中樁。B1為左側(cè)路面寬度B2為右側(cè)路面寬度主程序名及內(nèi)容備注（接上頁）“Z2=”：Z2“Z3=”：Z3M<0=>Goto0“H1=”：H1=Z8+Z1“H2=”：H2=Z8+Z2“H3=”：H3=Z8+Z3Goto0Z1為左側(cè)路面邊緣與設(shè)計高程之差Z2為中樁處與設(shè)計高程之差Z3為右側(cè)路面邊緣與設(shè)計高程之差H1為左側(cè)路面邊緣設(shè)計標高H2為中樁處設(shè)計標高H3為右側(cè)路面邊緣設(shè)計標高三YYLDFWJ（任意兩點方位角）Lbl0:XYNE:P=N-X:F=E-YProg“JU-L

17、IFWJ”“JU-LI=”:LA“FWJ=”:WAXYNE:Goto0計算任意兩點間的距離和方位角輸入第一點的坐標X,Y;輸入第一點的坐標N,E。顯示結(jié)果含義：L為任意兩點間的距離W為任意兩點間的方位角四SQXBG（豎曲線標高）M:M>0=>Goto1IJRNH:Lbl1:Z）:Prog“SQSBG-1”“SHE-JIGAO-CHENG=”：GAGoto1計算豎曲線設(shè)計標高（輸入M值，當M0時，則需要輸入圓曲線參數(shù)；當M>0,則直接調(diào)用子程序中的對應(yīng)參數(shù)。）顯示結(jié)果含義:G為設(shè)計高程五TIANWAG-C（填挖高差）N“INPUTJIE-GOU-CENG-HOU-DU”H“IN

18、PUTSHI-XIAN-GAO-CHENG”:M=3Z8=N:Z9=H:ZLblA:D=ZProg“SQSBG-1”Z15=G:Prog“CANSHU”A<B=>Z4=1:豐>Z4=-1B=Z6:Prog“CHAOGAO-1”Z5=I1:“INPUTV（V=1,2,3ZUOZHONGYOU）”：VV=1=>Goto1:冷V=2=>Goto2:冷V=3=>Goto1:冷Goto4Lbl1:J=Z11:“KUAN-DU>=SHE-JI=>J>=0冷J0”J,F:Z11=JV=1=>I=Z5:H=Z1:冷I=Z2:H=Z3Z7=Z10+H+

19、IJ-Z8-Z9+F:Goto3Lbl2:J=Z12:“ZUO=>J<0冷YOUJ>0豐>ZHONGJ=0”J,F:Z12=J:J>0=>I=Z5:>I=-I2Z7=Z15+Z2-IJ-Z8-Z9+FLbl3:“TIAN-WAGAO-CHA=”：Z7Lbl4:N=Z8:H=Z9:Z:Z=D=>GotoB:豐>GotoA計算左、中、右處填挖高差（必須調(diào)用平、豎曲線參數(shù)才能進行計算）輸入結(jié)構(gòu)層厚度N值（即本結(jié)構(gòu)層頂面至設(shè)計高程之差值）；輸入視線高程H值。輸入樁號Z值。輸入v值，當計算左側(cè)邊樁高差時，則V=1;當計算中樁高差時，則V=2,當計算右

20、側(cè)邊樁高差時，則V=3值。輸入邊樁加寬值J,當邊樁至中樁之距離大于該側(cè)設(shè)計路基寬度時，則J為正值；當邊樁至中樁之距離小于該側(cè)設(shè)計路基寬度時，則J為負值。輸入中樁或邊樁處的前視讀尺數(shù)F值。當V=2時，J為偏左或偏右的距離，左為負值，右為正值，不偏離J=0;鋪穩(wěn)定層適用中樁左右偏離，其他J=0。顯示結(jié)果含義：為所側(cè)點至本結(jié)構(gòu)層頂面之填挖高差（正值為填，負值為挖）。主程序名及內(nèi)容備注六BZZB(邊樁坐標)I“INPUTI(I>0=>JU-LIFWJFY豐>X,YFY)”:Z15=IM“INPUTM(M=244=>S244-QIAO)”：M244=>GotoBLblA:Z

21、“INPUTLI-CHENG”：Z>148=>Z/1000Z>148=>GotoAZ>130=>Prog“S244-QIAO”P=N-X:F=E-Y:"QIAO-LIANGZHONG-XINZHUANG-HAOZ=”：ZAProg“JU-LIFWJ”N=(X+N)/2:E=(Y+E)/2:Z15<0=>GotoCI“INPUTBMBIAN-HAO”：Z13=I:Prog“S244-BM”“X=”:XA“Y=”:YA“H=”：HAGotoCLblB:Z15v0=>Goto1“INPUTCE-ZHAN-DIANX,Y”:XYLbl1:

22、“JI-SUAN-YUAN-DIANN,E,FWJ”：NE:W=Z2:WLbl0:Z=Z14:Z:Z“INPUTQIAN-HOUJU-LI(QIAN+,HOU)”:VK:Z14=Z:Z>0=>A=0:Z1=Z:>A=180:Z1=-1N2=N+cos(W+A)XZ1+cos(W+V)xKE2=E+sin(W+A)xZ1+sin(W+V)xKI=Z15:Z=14:Z15<0=>Goto2P=N2-X:F=E2-Y:Prog“JU-LI-FWJ”“FWJ=”:WA“JU-LI=”:LAW=Z2:Goto0Lbl2:“N2=”:N2“E2=”:E2Goto0主要進行橋梁

23、及涵洞各點坐標計算放樣輸入I值（距離方位角放樣時I>0,坐標放樣時Iv0）。輸入M值（M=244時，進行S244線橋梁放樣計算）輸入S244線橋梁的里程樁號。顯示橋梁中心樁號輸入橋梁附近的導線點編號輸入測站點坐標輸入計算原點的坐標N、E。輸入前后距離，角度及左右距離。顯示測站點與計算點的方位角和距離。顯示計算點的坐標。I 7ZHUIPO(錐坡)“INPUTI(I>0=>JUFWJFY冷X,YFY)”：ABWVXYKM:Z3=W:I<0=>Goto0“INPUTCE-ZHAN-DIANN,Y”：NELbl0:Z1=M/K:Z2=BV(1-Z12)N2=X+A*Z1c

24、osW+Z2cos(W+V)E2=Y+A*Z1sinW+Z2sin(W+V)I<0=>Goto1P=N2-X:F=E2-Y:Prog“JU-LI-FWJ”“FWJ=”:WA“JU-LI=”:LAW=Z3:Goto2Lbl1:“N2=”:N2“E2=”:E2Lbl2:M):Goto0進行錐坡放樣計算子程序名及內(nèi)容備注1XY(坐標計算子程序)Prog“ZB”:Z53=0LblB:Z69=Z:B=Z70:Z53=1+Z53Z65<0=>GotoNP=Z53:U=Z54+P:B=Z60+PLblP:Bv0=>U=AbsU:B=-AbsB:>U<0=>U=

25、AbsU:B=-AbsB:豐>U=AbsU:B=AbsBGoto3LblN:B):B"K(ZUO-,YOU+)”:B0=>U=Z68:U:U"V(ZHENGJIAOV=+90)”:U=AbsU:Z68=ULbl3:N2=N+Bcos(W+U):E2=E+Bsin(W+U)V>1=>I=PoL(N2-X,E2-Y:J<0=>J=J+360:4J=JV=2=>GotoA“N2=”:N2“E2=”:E2AV=1=>Goto9“FWJ=”：J->DMS“JU-LI=”:IAV=2=>Goto9J>S“HOU-SHI-

26、DIAN-FWJ0”=>F=J-S:4F=J+360-S“JI-SUANSHUI-PING-JIAO0=”:F->DMSI:I“CE-JU-LI”:"CE-X=":Rec(I,J)+X“CE-Y=”:J+YALbl9"NOWZ=”:ZAZ53=Z52=>Z=Z+Z51“NO.”：Z53“NEXTZ=”:Z:Z=Z69=>GotoBLbl2利用交點參數(shù)數(shù)據(jù)庫進行計算當M輸入11時，計算并顯示坐標；輸入12時，為距離方位角放樣；輸入13時，計算并顯示施檢表(6、7)中的各項數(shù)據(jù)；輸入4時，計算并顯示交點要素，并可與施工圖紙中的直線、曲線及轉(zhuǎn)角表

27、的數(shù)據(jù)相核對，檢驗子程序X1的要素輸入是否正確。N2=為施檢表（7）中的X設(shè)計坐標；E2=為施檢表（7）中的Y設(shè)計坐標；FWJ=為施檢表（7）中的計算方位角；JU-LI=為施檢表（7）中的計算距離；HOU-SHI-DIAN-FWJ0輸入測站點至后視的方位角；JI-SUANSHUI-PING-JIAO0=為施檢表（7）中的計算水平角；CE-JU-LI輸入測站點至求算點的實測距離；CE-X=為施檢表（7）中的X實測坐標；CE-Y=為施檢表（7）中的Y實測坐標；P-Q-XJ-S（平曲線計算子程序，利用交點坐標計算）V=14=>Goto1“QI-DIAN”：XY:Z1=X:Z2=Y:“JD”：N

28、E:P=1:Z3=N=N:Z4=E:K“JD-Z=”:K:“ZHONG-DIANU"X=B"Y=Z5=U:Z6=B:R:H"S1=Z19=H:L“S2=”：Z20=LLbl1:Prog“YAO-SU”“JD0=”:A->DMS“FWJ0=”：F->DMS“T1=”：TA“T2=”：CA“L=”：DA“E=（R+H2/24R）/sin（tan-1（R+H2/24R）/（T-（H/2-H3/240R2）-R“ZH=”:OA“HY=”:O+H“QZ=”:O+H+(AbsAR3.1415927/180-H/2-L/2)/2“YH=”:O+D-L“HZ=”:O+

29、DV豐14=>K=Z15利用交點坐標進行計算曲線要素(顯示計算結(jié)果，與主程序聯(lián)合使用或單獨使用均可。)QI-DIAN含義為起點，依次輸入起點的坐標X、Y,交點的坐標N、E、樁號，終點的坐標X、Y,及該曲線的半徑R、第一緩和段長度S1、第二緩和段長度。顯示含義：JD0為交點偏角；FWJ0為該曲線的起點處方位角；T1為第一切線長度；T2為第二切線長度；L為該緩和曲線總長度；E為曲中至交點的距離；ZH為直緩點樁號；HY為緩圓點樁號；QZ為曲中點樁號；YH為圓緩點樁號；HZ為緩直點樁號。子程序名及內(nèi)容備注YAO-SU(平曲線要素計算子程序)J=0:PoL(Z2P+1-Z2P-1,Z2P+2-Z2

30、P:F=JFv0=>F=F+360:aF=FPoL(Z2P+3-Z2P+1,Z2P+4-Z2P+2:A=JAv0=>A=A+360:冷A=AA=A+FT=(H/2-H3/240R2)+(R+L2/24R)-(R+H2/24R)cosAbsA)/sinAbsAC=(L/2-L3/240R2)+(R+H2/24R)-(R+L2/24R)cosAbsA)/sinAbsAD=AbsAR3.1415927/180-H/2-L/2+H+L:O=K-T:J=0Z<O+H=>G=Rec(T,F+180)+Z2P+1:M=J+Z2P+2Z>O+H=>Z<(O+D)-L=

31、>G=Rec(T-(H/2-H3/240R2),F+180)+Z2P+1:M=J+Z2P+2:I=Rec(R+H2/24R,F+90(A/AbsA):G=I+G:N=J+M'Z>(O+D)-L=>G=Rec(C,F+A)+Z2P+1:M=J+Z2P+2進行平曲線要素計算(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)ZB(平曲線的坐標計算子程序)Z<O=>C=O-Z:N=Rec(C,F+180)+G:E=J+M:W=FZ>O=>Z<O+H=>C=Z-O:T=C-C5/40R2H2:K=C3/6RH-C7/336R3H3I=P

32、oL(T,K:J=J:N=Rec(I,F+J(A/AbsA)+G:E=J+M:W=90C2/RH*3.1415927(A/AbsA)+F'Z>O+H=>Z<(O+D)-L=>C=Z-(O+H):W=F-90(A/AbsA)+(A/AbsA)(90H+180C)/R*3.1415927:N=Rec(R,W)+G:E=J=J+M:W=W90(A/AbsA)'Z>(O+D)-L=>ZO+D=>C=(O+D)-Z:T=C-C5/40R2L2:K=C3/6RH-C7/336R3H3:I=PoL(T,K:J=J:N=Rec(I,F+180+A-J(

33、A/AbsA)+G:E=J+M:W=-90C2/RL*3.1415927(A/AbsA)+F+A'Z>O+D=>C=Z-(O+D):N=Rec(C,F+A)+G:E=J+M:W=F+A進行平曲線的坐標計算(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)X1(曲線要素數(shù)據(jù)庫子程序)Z1=:Z2=:Z3=:Z4=:Z5=:Z6=:Z7=:Z8=:Z9=Z10=:Z11=:Z12=Zn*2+1=:Zn*2+2=:Zn*2+3=:Zn*2+4=Z>QIDIAN(起點樁號)=>ZVHZ-1(JD1的HZ)=>P=1:K=:R=:H=L=:GotoAZ<

34、HZ-2（JD2的HZ）=>P=2:K=:R=:H=:L=:GotoAZ<HZ-3（JD3的HZ）=>P=3:K=:R=:H=:L=:GotoAZ<HZ-(n-1)(JDn-1的HZ)=>P=n-1:K=:R=:H=:L=:GotoAZ>HZ-(n-1)(JDn-1的HZ)=>ZVZHONGDIAN(終點樁號)=>P=n:K=R=:H=:L=LblA曲線要素數(shù)據(jù)庫Z1為路線起點的X坐標；Z2為路線起點的Y坐標；Z3為交點JD1的X坐標；Z3為交點JD1的Y坐標；Z4為交點JD2的X坐標；Z5為交點JD2的Y坐標；Zn*2+1為交點JDn的X坐標；

35、Zn*2+2為交點JDn的X坐標；Zn*2+3為路線終點的X坐標；Zn*2+4為路線終點的X坐標；P為計算圓曲線的編碼，分別以1、2、3n順序輸入。K為交點里程樁號。R為圓曲線半徑。H為第一緩和段長度。L為第二緩和段長度。(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)ZHONGZHUANG(中樁坐標計算之子程序)BA=>I=1:豐>I=-1Z<Q=>Prog"ZXZB”:GotoAZ乂=>Prog"ZXZB”:GotoAS=0=>Prog"S0":GotoAZVQ+S=>Prog"ZHHY”:

36、豐>C-S>Z=>Prog"HYYH”芋>Prog"YHHZ”LblA由計算器自動判斷所輸入樁號所屬位置(如直緩點至緩圓點段、緩圓點至圓緩點、圓緩點至直緩點、緩和曲線長度等于零、直線段)，并調(diào)用相應(yīng)的子程序。(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)子程序名及內(nèi)容備注ZHHY(直緩點緩圓點處中樁坐標計算之子程序)L=Z-QN1=X+cosA(L-L5+(40R2S2)-IL3sinA+(6RS)E1=Y+sinA(L-L5+(40R2S2)+IL3cosA+(6RS)W=A+28.6479IL2+(RS)計算ZH至HY間中樁坐標及其切線

37、方位角(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)HYYH(緩圓點圓緩點坐標計算之子程序L=Z-Q-SZ3=180L+(3.1415927R)+28.6479S+RN1=X+cosA(Rsinz3+S+2-S3+(240R2)-IsinA(R(1-cosZ3)+S2+(24R)E1=Y+sinA(RsinZ3+S+2-S3+(240R2)+IcosA(R(1-cosZ3)+S2+(24R)W=A+IZ3計算HY至YH間中樁坐標及其切線方位(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)YHHZ(圓緩點直緩點坐標計算之子程序)L=C-ZN1=N-cosB(L-L5+(40R2

38、S2)-IL3sinB+(6RS)E1=E-sinB(L-L5+(40R2S2)+IL3cosB+(6RS)W=B-28.6479IL2+(RS)計算YH至HZ間中樁坐標及其切線方位角(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)S0(緩和曲線長度等于零坐標計算之子程序)L=Z-Q:Z3=180L+(3.1415927R)N1=X+RcosAsinz3-IRsinA(1-cosZ3)E1=Y+RsinAsinz3+IRcosA(1-cosZ3)W=A+IZ3計算S=0的圓曲線中樁坐標及其切線方位角(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)ZXZB(直線段坐標計算之子程序

39、)Z<Q=>L=Q-Z:Z3=A+180:F=X:J=Y:W=A:>L=Z-C:Z3=B:F=N:J=E:W=BN1=F+LcosZ3:E1=J+LsinZ3計算直線段中樁坐標及其切線方位角（不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。）JK-B2（加寬計算之子程序）ZVQ=>Goto1Z乂=>Goto1S=0=>Goto1ZVQ+S=>GotoC:4ZX-S=>GotoC:豐>GotoDLblC:ZWQ+S=>L=Z-Q:冷L=C-ZT=L+S:P>0=>Goto2:冷Goto3Lbl3:B2=（4T3-3T4）

40、J+K:GotoELbl2:B2=K+TJ:GotoELblD:B2=K+J:GotoELbl1:B2=KLblE計算內(nèi)側(cè)路基寬度（不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。）JU-LIFWJ(任意兩點間距離、方位角計算之子程序)L=V(P2+F2):P>0=>Goto1:4Goto2Lbl1:F>0=>W=tan-1(F+P)¥>W=360-tan-1(-F+P)Goto3Lbl2F>0=>W=180-tan-1(-F+P):#>W=180+tan-1(F+P)Lbl3計算任意兩點間的距離和方位角（不顯示計算結(jié)果，必須與主程

41、序聯(lián)合使用，不能單獨使用。）子程序名及內(nèi)容備注CHAOGAO-1（超高計算之子程序）Z7=K:P=2:W=2:Prog“JK-B2”Z<Q=>Goto5:冷Z>C=>Goto5:豐>S=0:Goto5Z<Q+S=>Gotol:冷Z>C-S=>Gotol:冷Goto2Lbl1:Z<Q+S=>L=Z-Q:>L=C-ZP>0=>Goto7I=(H-B)L+S+B:Goto8Lbl7:I=B+(H-B)(3-2L+S)L2+S2Lbl8:W<0=>Goto6I<-B=>Z5=-BK+IK:Z2=

42、-KB:>Z5=2IK:Z2=IKGoto3Lbl2:W<0=>Goto9I=H:Z5=2HK:Z2=HK:Goto3Lbl5:I=B:W<0=>Goto4Z5=0:Z2=-BKLbl3:I<-B=>G=-B:冷G=IZ6=-G(B2-K):GotoCLbl6:Z5=IK:Z2=0I<-B=>Z6=BB2:>Z6=-1B2GotoCLbl4:Z5=BK:Z2=0:Z6=BK:GotoCLbl9:I=H:Z5=KH:Z2=0:Z6=-H(K+J)LblC:I<-B=>I3=B:#>I3=-IZ4<0=>Go

43、toDI1=I:I2=I3:B1=Z7:Z1=Z5:Z3=Z6:GotoELblD:I1=I3:I2=I:B1=B2:B2=Z7:Z1=Z6:Z3=Z5LblE計算左右兩側(cè)路基橫坡度、寬度、左中右處設(shè)計標高之差值當選用拋物線公式計算超高時，P取非負數(shù)；當選用線性公式計算超高時，P取負數(shù)。當設(shè)計標高為未加寬時路基內(nèi)側(cè)邊緣標高，并以未加寬時路基內(nèi)側(cè)邊緣為旋轉(zhuǎn)軸進行超高時，W取非負數(shù)。（一般新建公路時米用。）當設(shè)計標高為中樁標高，并以中樁為旋轉(zhuǎn)軸進行超高時，W取負數(shù)。（一般舊路改建時采用。）（不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。）SQXBG-1（豎曲線標高計算之子程序）M<0=

44、>GotoBProg“SQXCANSHU”LblB:W=I-J:W>0=>D=W:冷D=-WT=RD忌:E=T2+(2R):Z<N=>Z1=-I:>Z1=-JTVN-Z=>Goto2:豐>Goto1Lbl1:Z-N>T=>Goto2:冷Goto3Lbl2:G=H+Z1(N-Z):Goto0Lbl3:W>0=>Z2=-1:>Z2=1Z<N=>Z3=-1:冷Z3=1G=H+Z1(N-Z)+Z2(T+Z3(N-Z)2+(2R)Lbl0計算豎曲線設(shè)計標高(不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。)SQ

45、XCANSHU(豎曲線參數(shù)數(shù)據(jù)庫)Z>QIDIAN(起點樁號)ZVN1+T1=>I1=:J1=:R1=:N1=H1=:GotoAZVN2+T2=>I2=:J2=:R2=:N2=:H2=:GotoAZVN3+T3=>I3=:J3=:R3=:N3=:H3=:GotoAZ<Nn-1+Tn-1=>In-1=:Jn-1=:Rn-1=:Nn-1=:Hn-1=:GotoA:GotoAZ>Nn-1+Tn-1=>Z<ZHONGDIAN（終點樁號）=>In=:Jn=Rn=:Nn=:Hn=LblA輸入各個豎曲線相關(guān)參數(shù)（必須按樁號先后順序依次輸入）。豎曲線：第一坡度值為I（上坡為正值，下坡為負值），第二坡度值為J（上坡為正值,下坡為負值），豎曲線半徑為R,變坡點樁號為N,變坡點高程為Ho（不顯示計算結(jié)果，必須與主程序聯(lián)合使用，不能單獨使用。）子程序名及內(nèi)容備注CANSHU（圓曲線參數(shù)數(shù)據(jù)庫）K=:Z6=:J=0