1、.(高斯平面)坐標(biāo)系工程坐標(biāo)系轉(zhuǎn)換大地坐標(biāo)系->工程坐標(biāo)系 =待轉(zhuǎn)換點(diǎn)為P，大地坐標(biāo)為：Xp、Yp 工程坐標(biāo)系原點(diǎn)o: 大地坐標(biāo)：Xo、Yo 工程坐標(biāo)：xo、yo工程坐標(biāo)系x軸之大地方位角：adX=Xp-XodY=Yp-YoP點(diǎn)轉(zhuǎn)換后之工程坐標(biāo)為xp、yp: xp=dX*COS(a)+dY*SIN(a)+xoyp=-dX*SIN(a)+dY*COS(a)+yo工程坐標(biāo)系->大地坐標(biāo)系=待轉(zhuǎn)換點(diǎn)為P，工程坐標(biāo)為：xp、yp工程坐標(biāo)系原點(diǎn)o: 大地坐標(biāo)：Xo、Yo工程坐標(biāo)：xo、yo工程坐標(biāo)系x軸之大地方位角：adx=xp-x

2、ody=yp-yoP點(diǎn)轉(zhuǎn)換后之工程坐標(biāo)為xp、yp:xp=Xo+dx*COS(a)-dy*SIN(a)yp=Yo+dx*SIN(a)+dy*COS(a) 坐標(biāo)方位角計(jì)算程序置鏡點(diǎn)坐標(biāo)：ZX  ZY后視點(diǎn)坐標(biāo)：HX  HY方  位  角：W兩點(diǎn)間距離: SLb1 0A,  B,  C,  DAZX=:BZY=:CHX=:DHY=:W=tg1(D-B)÷(C-A):(D-B)>0=>(C-A)>0=&g

3、t;W=W:(D-B)>0=>(C-A)<0=>W=W+180:(D-B)<0=>(C-A)<0=>W=W+180:(D-B)<0=>(C-A)>0=>W=360+WW=WS=(D-B)2+(C-A)2) Goto 0CASIO  fx4500p坐標(biāo)計(jì)算程序根據(jù)坐標(biāo)計(jì)算方位角WW360W：“ALF(12)”ÞL1  A“X1”：B“Y1”：Pol(C“X2”A，D“Y2”B：“S”W0直線段坐標(biāo)計(jì)算L1   X“X(0)”：

4、Y“Y(0)”：S“S(0)”：A“ALF”L2   Lb1 2L3   L：L“LX”L4   M“X(Z)”X(LS)cosAL5   N“Y(Z)”Y(LS)sinAL6   B：B“B(L)”：Q“Q”L7   O“X(L)”MBcos(AQ180)L8   P“Y(L)”NBsin(AQ180)L9   C：C“B(R)”L10 

5、; U“X(R)”MCcos(AQ)L11  V“Y(R)”NCsin(AQ)L12  Goto  2園曲線段坐標(biāo)計(jì)算L1   S“S(0)-Km”：X“X(0)”：Y“Y(0)”：A“ALF”：R“R”：K“K(L1,R2)”L2   Lb1 2L3   L：L“L(X)”L4   V180×（LS）R：WV2L5   CA(-1)K×W：D2R

6、sinW：FA(-1)K×VL6   M“X(Z)”XDcosCL7   N“Y(Z)”YDsinCL8   E：E“B(L)”：Q“Q”L9   O“X(L)”MEcos(FQ180)L10  P“Y(L)”NEsin(FQ180)L11  G：G“B(R)”L12  T“X(R)”MGcos(FQ)L13  U“Y(R)”NGsin(FQ)L14  Goto

7、60; 2正向緩和曲線段坐標(biāo)計(jì)算L1   S“ZH-Km”：X“X(ZH)”：Y“Y(ZH)”：A“ALF”：R“R”：H“LS”：K“K(L1,R2)”L2   Lb1 2L3   L：L“L(X)”L4   D30（LS）2RH：CLS（LS）590（R×H）2：BAD(-1)K：EA3D(-1)KL5   U“X(Z)”XCcosBL6   V“Y(Z)”YCsinBL7 

8、;  G：G“B(L)”：Q“Q”L8   F“X(L)”UGcos(EQ180)L9   I“Y(L)”VGsin(EQ180)L10  J：J“B(R)”L11  M“X(R)”UJcos(EQ)L12  N“Y(R)”Vjsin(EQ)L13  Goto  2卵形曲線坐標(biāo)計(jì)算X1,D2)”ÞL1   S“Km-YH”：E“X(YH)”：F“Y(YH)”：G“ALF”：B“

9、R1”：D“A”：K“K(L1,R2)”：Q“R1-R2L2   Lb1 2L3   Z：Z“L(X)”L4   J“L1”D2B： R“RP”D2B(D2(-1)Q(ZS)B)：L“LP”D2RL5   M(LJ)(L5J5)40D4(L9J9)3456D8L6   N(L3J3)6D2(L7J7)336D6(L11J11)42240D10L7   TG(-1)Q(-1)K×J2

10、15;90D2L8   X“X(Z)”E(-1)QMcosT(-1)KNsinTL9   Y“Y(Z)”F(-1)QMsinT(-1)KNcosTL10  A“ALF(P)”G(-1)K(ZS)×90×(1B1R)L11  H：H“B(L)”：U“Q”L12  W“X(L)”XHcos(AU180)L13  V“Y(L)”YHsin(AU180)L14  C：C“B(R)”L15  I“X(R)”

11、XCcos(AU)L16  P“Y(R)”YCsin(AU)L17  Goto  2公路逐樁坐標(biāo)計(jì)算4800程序公路逐樁坐標(biāo)計(jì)算程序(可以計(jì)算對稱、不對稱緩和曲線)Lb1 0Z=.  V=.W=V+2：FixmKLb1 1K>ZW+5Z+4=>W=W+1:Goto 1    (判斷樁號在哪個(gè)交點(diǎn)范圍，就是該交點(diǎn)曲線起點(diǎn)至下一交點(diǎn)曲線起點(diǎn))S=K-ZW+5Z+3      &#

12、160;                       （計(jì)算該樁號與曲線起點(diǎn)的距離） R=ZW+2Z+2：L=ZW+3Z+2:E=ZW+4Z+2    （讀取該交點(diǎn)曲線要素R、Ls1 、Ls2）Pol（ZW-ZW-1,ZW+Z+2-ZW+Z+1）     &#

13、160; （計(jì)算該交點(diǎn)與下一交點(diǎn)直線方位角）J<0=>J=J+360A=JPol（ZW-1-ZW-2,ZW+Z+1-ZW+Z）      （計(jì)算該交點(diǎn)與上一交點(diǎn)直線方位角）J<0=>J=J+360C=A-J:A=J                        &#

14、160;   （計(jì)算偏角）W=V+2=>Goto2（如果樁號在起點(diǎn)與第一交點(diǎn)曲線起點(diǎn)之間，則轉(zhuǎn) Lb1 2 ）I=Abs（tan（c÷2）M=L÷2-L3÷240R2:N=E÷2-E3÷240R2P=L2÷6R-L4÷336R3-R（1-cos（90L÷R）Q=E2÷6R-E4÷336R3-R（1-cos（90E÷R）D=（P-Q）I÷2 : F=（P+Q+2R）I÷2M=F+M-

15、D:Q=F+N+DN=RAbsC÷180+（L+E）÷2X=ZW-1-McosAY=ZW+Z+1-MsinAM=ZW-1+Qcos（A+C）V=ZW+Z+1+Qsin（A+C）       Q=AbsC÷CSL=>P=0:Goto3（如果樁號在第一緩和曲線內(nèi)，則轉(zhuǎn) Lb1 3）SN-E=>S=S-L:Goto4（如果樁號在圓曲線內(nèi)，則轉(zhuǎn) Lb1 4）SN=>S=N-SQ=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Got

16、o3 （如果樁號在第二緩和曲線內(nèi)，則轉(zhuǎn) Lb1 3）P=A+C:S=S-N:D=M+ScosP:F=V+SsinPGoto6                                     &

17、#160;     （如果樁號在直線內(nèi)，則轉(zhuǎn) Lb1 6）Lb1 2P=A+CD=ZW-1+ScosPF=ZW+Z+1+SsinP:Goto6Lb1 3I=S-S5÷40R2÷L2+S9÷3456R4÷L4J=Q（S3÷6RL-S7÷336R3÷L3）P=P+A+90QS2÷RL:Goto5Lb1 4M=90（2S+L）÷RI=RsinM+L÷2-L3÷240R2J=Q（L2÷

18、24R+R（1-cosM）P=A+QMLb1 5D=X+IcosA-jsinA:F=Y+JcosA+IsinA Lb1 6DX=（結(jié)果顯示X坐標(biāo)）FY=（結(jié)果顯示Y坐標(biāo)）PAT=（結(jié)果顯示該樁號方位角）BO：BSO      （輸入邊樁距離，交角）P=P+OLXB=D+BcosP（結(jié)果顯示邊樁X坐標(biāo)）MYB=F+BsinP（結(jié)果顯示邊樁Y坐標(biāo)）以上是坐標(biāo)計(jì)算程序，括號內(nèi)是程序計(jì)算的大致原理及說明，中間部分為直線、圓曲線、緩和曲線計(jì)算的各種公式，大家也知道，書上也有。   &#

19、160; 該程序是最基本的，如再加幾條語句就可以處理斷鏈。    該程序還需變量輸入，把整條線路曲線要素一次輸入到4800中，就可以計(jì)算線路任意中、邊樁坐標(biāo)。如有需要，需RMB ￥200，附有變量輸入方法及詳細(xì)使用說明。聯(lián)系：   曲線任意里程中邊樁坐標(biāo)正反算(CASIO fx-4800P計(jì)算器)程序曲線任意里程中邊樁坐標(biāo)正反算(CASIO fx-4800P計(jì)算器)程序一、程序功能        本程序由一個(gè)主程序(

20、TYQXjs)和兩個(gè)子程正算子程序(SUB1)、反算子程序(SUB2)序構(gòu)成，可以根據(jù)曲線段直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、線元長度、起點(diǎn)曲率半徑、止點(diǎn)曲率半徑）及里程邊距或坐標(biāo)，對該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。另外也可以將本程序中核心算法部分的兩個(gè)子程序移植到其它相關(guān)的程序中，用于對曲線任意里程中邊樁坐標(biāo)進(jìn)行正反算。本程序也可以在CASIO fx-4500P計(jì)算器及 CASIO fx-4850P計(jì)算器上運(yùn)行。二、源程序1.主程序(TYQXjs)"1.SZ =>

21、0;XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷：N=1=>Goto 1：>Goto 2Lbl 1：SZ：SZ：W=Abs(S-O)：Prog "SUB1"：X&qu

22、ot;XS"=XY"YS"=YGoto 1Lbl 2：XY：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+WZ"Z"=ZGoto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+Q

23、EMW(C+MWD)：Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs(Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：>W=W+Z：Goto

24、0;0Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF三、使用說明1、規(guī)定        (1) 以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)，Q=-1；當(dāng)線元往右偏時(shí)，Q=1；當(dāng)線元為直線時(shí)，Q=0。        (2) 當(dāng)所求點(diǎn)位于中線時(shí)，Z=0；當(dāng)位于中線左鍘時(shí)，Z取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，Z取正值。 &#

25、160;      (3) 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次代替。        (4) 當(dāng)線元為圓曲線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。         (5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的

26、半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。         (6) 當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。2、輸入與顯示說明       輸入部分：     

27、 1. SZ => XY      2. XY = > SZ       N "  選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo) ；輸入2表示由坐標(biāo)反算              里程

28、和邊距。     X0 .線元起點(diǎn)的X坐標(biāo)      Y0 .線元起點(diǎn)的Y坐標(biāo)      S0 .線元起點(diǎn)里程     F0 .線元起點(diǎn)切線方位角     LS .線元長度     R0 .線元起點(diǎn)曲率半徑 &

29、#160;   RN .線元止點(diǎn)曲率半徑     Q .  線 元左右偏標(biāo)志(左偏Q=-1，右偏Q=1，直線段Q=0）      S . 正算時(shí)所求點(diǎn)的里程      Z .正算時(shí)所求點(diǎn)距中線的邊距(左側(cè)取負(fù)，值右側(cè)取正值，在中線上取零)      X

30、0;.反算時(shí)所求點(diǎn)的X坐標(biāo)      Y .反算時(shí)所求點(diǎn)的Y坐標(biāo)       顯示部分：       XS=×××    正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)       YS=×××   &#

31、160;正算時(shí)，計(jì)算得出的所求點(diǎn)的Y坐標(biāo)       S=×××    反算時(shí)，計(jì)算得出的所求點(diǎn)的里程       Z=×××    反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距四、算例        某匝道的由五段線元（直線+完整緩和曲線+圓曲線+非完

32、整緩和曲線+直線）組成，各段線元的要素（起點(diǎn)里程S0、起點(diǎn)坐標(biāo)X0 Y0、起點(diǎn)切線方位角F0、線元長度LS、起點(diǎn)曲率半徑R0、止點(diǎn)曲率半徑RN、線 元左右偏標(biāo)志Q）如下：S0   X0       Y0                   F0    

33、;        LS R0 RN     Q500.000    19942.837    28343.561     125 16 31.00    269.256     1E45 1E45&#

34、160;     0769.256    19787.340    28563.378     125 16 31.00      37.492     1E45 221.75     -1806.748  &

35、#160; 19766.566    28594.574     120 25 54.07     112.779    221.75 221.75     -1919.527    19736.072    28701.893  

36、;     91 17 30.63       80.285    221.75 9579.228   -1999.812    19744.038    28781.659       80 40 50.00

37、     100.000    1E45 1E45       0         1、正算          （注意：略去計(jì)算方式及線元要素輸入，請自行根據(jù)所求點(diǎn)所在的線元輸入線元要素）    &#

38、160;       S=700  Z=-5    計(jì)算得  XS=19831.41785   YS=28509.72590            S=700  Z=0     計(jì)算得  XS=19827.33

39、592   YS=28506.83837            S=700  Z= 5    計(jì)算得  XS=19823.25398   YS=28503.95084            S=780 

40、; Z=-5    計(jì)算得  XS=19785.25749   YS=28575.02270            S=780  Z=0     計(jì)算得  XS=19781.15561   YS=28572.16358   

41、60;        S=780  Z= 5    計(jì)算得  XS=19777.05373   YS=28569.30446                       

42、S=870  Z=-5    計(jì)算得  XS=19747.53609   YS=28654.13091            S=870  Z=0     計(jì)算得  XS=19742.68648   YS=28652.91379  

43、;          S=870  Z= 5    計(jì)算得  XS=19737.83688   YS=28651.69668                   S=940 

44、60;Z=-5.123    計(jì)算得  XS=19741. 59118  YS=28722.05802            S=940  Z=0            計(jì)算得  XS=19736.47687  

45、; YS=28722.35642            S=940  Z= 3.009    計(jì)算得  XS=19733.47298   YS=28722.53168               &#

46、160;   2、 反算             X=19831.418   Y=28509.726   計(jì)算得  S=699.9999974  Z= -5 .00018164           &

47、#160; X=19827.336   Y=28506.838   計(jì)算得  S=699.9996493  Z= 0.000145136             X=19823.25398   Y=28503.95084    計(jì)算得  S=699.99999

48、85  Z= 5.000003137           X=19785.25749   Y=28575.02270  計(jì)算得  S=780.0000035  Z= -5 .000001663           X=19781.15561

49、   Y=28572.16358   計(jì)算得  S=780.0000025  Z=- 0.000002979           X=19777.05373   Y=28569.30446   計(jì)算得  S=780.0000016  Z= 4.99999578 

50、;                    X=19747.536   Y=28654.131   計(jì)算得  S=870.0001137  Z= -4.99941049          &#

51、160;X=19742.686   Y=28652.914   計(jì)算得  S=870.0003175  Z=- 0.00041814           X=19737.837   Y=28651.697   計(jì)算得  S=870.0002748  Z= 4.99980

52、8656          X=19741.5912   Y=28722.0580   計(jì)算得  S=939.9999786  Z= -5.123024937          X=19736.4769   Y=28722.3564  &#

53、160;計(jì)算得  S=939.9999862  Z=- 0.000027710          X=19733.4730   Y=28722.5317   計(jì)算得  S=940.0000238  Z= 3.00898694 point=10/point自己寫的fx-4800小程序一、 ZBFS(坐標(biāo)反算)NEXY ,

54、Fixm 。F ,Pol(N-X,E-Y) 。J0J=J 。J0J=J+360 。說明：“ ，”表示回車符；“ ?！北硎窘K止符。   二、 ZBFS-2(坐標(biāo)反算)NEXY,Pol(N-X,E-Y)。J0J=J 。J0J=J+360 。S=I。R=J。說明：“ ，”表示回車符；“ 。”表示終止符。三、ZBZS(坐標(biāo)正算）SRXY,V=X+Rec(S,R),W=Y+J,N=V。E=W用全站儀測設(shè)公路中樁和邊樁程序程序說明： 本程序用于用全

55、站儀測設(shè)中樁和邊樁，采用坐標(biāo)變換的方法編制而成，在使用fx-4500計(jì)算器時(shí)，可直接輸入以下程序便可使用；而在使用fx-4800計(jì)算器時(shí)，見fx-4800程序清單。 注意：因程序的0(零)和O易混淆,所以字母O用較大的全角符號，零仍用標(biāo)準(zhǔn)字。程序輸入時(shí)應(yīng)連續(xù)輸入，無空格。而且輸入時(shí)文件名需和給出的一樣，否則會(huì)出現(xiàn)調(diào)用文件錯(cuò)誤。變量說明： <程序運(yùn)算符定義>X 輸入擺站點(diǎn)的x坐標(biāo) C 輸入第一個(gè)曲線角樁x坐標(biāo) I 輸入中間曲線角樁的x坐標(biāo)Y 輸入擺站點(diǎn)的y坐標(biāo) D 輸入第一個(gè)曲線角樁y

56、坐標(biāo) J 輸入中間曲線角樁的y坐標(biāo) E 最后一個(gè)曲線角樁x坐標(biāo) R 中間曲線半徑 L 中間曲線緩和曲線長 F 最后一個(gè)曲線角樁y坐標(biāo) K 第一個(gè)K為中間角樁樁號 S 中間角樁曲線總長，檢驗(yàn)用 K 第二個(gè)K為要測設(shè)的樁號 B 測中樁時(shí)輸入0，測邊樁時(shí)輸入寬度（左輸負(fù)值，右輸正值） 程 序 清 單注 釋文件:F1 文件名：1 L1 L2

57、60;L3Defm 8 XYCDIJEFRLK:Fixm:Z2=0:Prog B Z5=0.5L-L Xy 3/240R2:Z3=Z5+(R+L2/24R)Abs tan T2:Z=K-Ans:S=R Abs T/180+L:SH=Z+Ans:G=RL:Prog 2文件:F2 文件名：2 L1 Lbl 0:Fixm:K L2 Lbl 6:B:Norm:K(-1) Xy Z2>(H-L)(-1

58、) Xy Z2>Goto 4Frac Z22=0=>Z6=Z:>Z6=HA=90T/Abs T L3 B<0>N=0:>N=1B=Abs B L4 =Abs(K-Z6:K(-1) Xy Z2>Z6(-1) Xy Z2>Goto 2Q=Z3+:Z4=B L5B0>Prog CProg D:P=0 L6 Prog E:Goto 

59、0 L7 Lbl 2:L>Goto 3 L8 Q=Z3-+ Xy 5/40G2:Z4= Xy 3/6G- Xy 7/336G Xy 3:Prog D:P=B L9 B0>Prog FProg E:Goto 0 L10 Lbl 3:Q=Z3-Z5:Z4=R+L2/24R:Prog D L11 Z8=U+A(2(-L)/R-1+L

60、/R):B0>Prog G:>P=RProg E:Goto 0 L12Lbl 4:M=C:=D:C=E:D=F:E=M:F=:Z2=Z2+1:Prog B:Goto 6文件:F3 文件名：0 L1Pol(M,):W<0>W=W+360文件:F4 文件名：B L1 L2M=E-I:=F-J:Prog 0:T=W:M=I-C:=J-D:Prog 0:U=W:T=T-W T<-180>T=T+360T>180&

61、gt;T=T-360文件:F5 文件名：C L1 A=-90(-1) Xy (N+Z2)文件:F6 文件名：D L1 Z7=I-QcosU+Z4cos(U+A):Z1=J-QsinU+Z4sin(U+A)文件:F7 文件名：E L1 L2M=Z7+PcosZ8-X:=Z1+PsinZ8-Y:Prog 0 WFix 3:VNorm文件:F8 文件名：F L1Z8=U+A+A2/G+90+A(-1) Xy (N+Z2)文

62、件:F9 文件名：G L1P=R+AB(-1) Xy (N+Z2)/90此處L2句加入： M+X+Y可顯示測點(diǎn)坐標(biāo)值CASIO 4800超高及高程（源程序）超高及高程（源程序）L1: R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(GF)÷2:X“X(R+1,L-1)”:P“P(R+,L-1)”L2: Lbl 6 : SL3: S+TN<0 D=O+(SN)F: SN<0

63、60;D=O+(SN)FU(SN+T)2÷2÷V: SNT D=O+(SN)GU(TS+N)2÷2÷V: D=O+(SN)G D“ H=”  L4: R< E= : M= Goto 1: R< E= : M= Goto 1:L5: Lbl 1 : M  L C=L: Goto&

64、#160;2: C=ML6: Lbl 2 : P X >0 Goto 3 : Goto 4L7: Lbl 4 : S Z I=0.02 : Goto 5: S<Z+C I=0.02(0.02EPX)÷C×(SZ) : Goto 5: S<HC I=EPX : G

65、oto 5: S<H I=EPX+(0.02EPX)÷C×(SH+C) : Goto 5: I=0.02 : Goto 5L8: Lbl 3 : Z1=0.04÷(EPX+0.02)×C : S Z + Z1 I=0.02 : Goto 5: S<Z+C I=0.02+(EPX0.02)÷

66、;(CZ1)×(SZZ1) : Goto 5: S<HC I=EPX : Goto 5: S<HZ1 I=EPX(EPX0.02)÷(CZ1)×(SH+C) : Goto 5: I=0.02 : Goto 5L9: Lbl 5 : B : W“HB”=DIBL10: Goto 6說明： R:平曲線

67、半徑 L“LS”:緩和曲線長 P：偏轉(zhuǎn)，Z=1,Y=1X“XL”：線路（Z,Y）左線1,右線1 Z“ZH”: 直緩點(diǎn)里程H“HZ” ：緩直點(diǎn)里程 V“RS”：豎曲線半徑 F“I 1” ：前坡堵（帶符號）G“I2”： 后坡度值（帶符號） O“BPH”：變坡點(diǎn)高程 N“BP”： 變坡點(diǎn)里程T： 切線長 E：最大超高值 C ：漸變段長度（LC） I： 橫坡值 M：最大漸變長度（Lmax） B ：距中心距離 W“HB”：邊部高程   公路中線坐標(biāo)計(jì)算程序 CASIO 4500公路中線坐標(biāo)計(jì)算程序 casio 4500ZXCLCX Defm16 Lbl1 X