casio-5800p程序集錦（卡西歐5800編程計(jì)算機(jī)）

有關(guān)路基和隧道的CASIO5800P萬能曲線計(jì)

算程序

曲線任意里程中邊樁坐標(biāo)正反算

(CASIO僅-5800P計(jì)算器)程序

一、程序功能

本程序由一個(gè)主程序億HUCHENXU)和兒個(gè)子程序——正算子程序(SUB1)、反

算子程序(SUB2)、數(shù)據(jù)庫(SUB3)、算方位角程序(FA)、使用方位角算坐標(biāo)(NE)、

邊坡放樣程序(BIANPO)、隧道圓心放樣程序(SDYX)構(gòu)成，可以根據(jù)直線、圓

曲線、緩和曲線(完整或非完整型)的線元要素(起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線

方位角、線元長度、起點(diǎn)曲率半徑、止點(diǎn)曲率半徑)及里程邊距或坐標(biāo)，對該曲線

段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。

二、源程序

增加變量16-DimZ

1.主程序(ZHUCHENXU)

"1.SZ—XY,2.XY—SZ,3.SDYX,4.B1ANPO"?N：

Lbl1："ZHUANGHAO=''?S：Prog"SUB3"：N>2=>Goto2：Abs(S-O)一W：”

BIANZHU="?—Z:Prog"SUB1"："XS='':XTX/"YS='':Y—Y/"FS='':(F-90)-?F:

FADMS/Prog"FA"：Goto1:

Lbl2："CX="?X:X—I："CY="?Y:Y—J："DMG="?一Z[7]：Prog"SUB2"："S=

":(0+W)-S/"Z="Z—Z/IfN=3:ThenProg"SDYX":IfEnd：IfN=4:ThenProg"

BIANPO”:IfEnd:Goto2

2.正算子程序(SUB1)

0.1739274226->Z[1]：0.3260725774—B：0.0694318442-?K：0.3300094782-L：

(1-L)一F：(1-K).M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+

LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD)))—X：V+W(Z

[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))

+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD)))—Y：G+QEW(C+WD)

+90-F：X+ZcosF-X：Y+ZsinF—Y

3.反算子程序(SUB2)

G-90-Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2])->W：0—Z：Lbl0：Prog“SUB

1”：Z[2]+QEW(C+WD)-L：(J-Y)cosL-(LX)sinL^Z：

IfAbs(Z)<lE-6：IhenGotol：ElseW+Z—W：Goto0:IfEnd

Lbl1：0一Z：ProgHSUBln：(J-Y)+sinF—Z

4.數(shù)據(jù)庫(SUB3)

IfS<226100:ThenCls:Stop：Iffind

IfS<226255.833:Then226100—0：99037.97361U：4282.3590一V：201.3266

304一G：1(/5一p：I()45一R：253.543—H：0-Q:GotoIJffind

IfS>236005.651:ThenClsiStop:IfEnd

Lbl1:1+P-C：(P-R)+(2HPR)1D：18(RTT->E：

5.算方位角程序(FA)

LblO：“XC="？A:"YC="？T:X：Y

0->J：POI(X-A,Y-T)-I："BC="：I/IfJV0Then360+J—J：ElseJ->J:Iffi

nd

“FW="：JADMS/GotoO

6.使用方位角算坐標(biāo)(NE)

LblO："X="?X:“Y=”?Y:“L="?L:"F°''?F：LxCos(F)+X—N:"N="N/LxSi

n(F)+Y—E:"E="E/

GotoO

7.邊坡放樣程序(BIANPO)

“QPDJL="?-Z[3]:“QPDGD="?->Z[4]:"PG="?->Z[5]：2->Z[6]："Pl="?

-Z[8]；"P2=”?-Z[9]：“P3=”？-Z-101(沒有的話就刪)：Z[7]-Z[旬―

Z[ll]：IfZ[ll]<0ThenAbsZ[ll]-"T="：Z[ll]/Else"W="：Z[ll]

/IfEnd

Z[ll]-Z[5]—Z[12]：IfZ[12]<1ThenZ[8]xZ[ll]->Z[13]：ElseZ[8]xZ[5]+Z[9]

xZ[5]x(Z[12]-l)—Z[13]：IfEnd:AbsZ-(Z[13]+Z[6]xlntZ[12]+Z[3])—Z[14]:

“BP+C-J=":Z[14]/

說明：

Z[3]=QPDJL.......................起坡點(diǎn)離中樁距離

Z[4]="QPDGD”..................起坡點(diǎn)設(shè)計(jì)標(biāo)高

Z[5]="PG”.......................坡高

Z[6]="PTK”.......................平臺寬度

Z[7]="DMG”.......................實(shí)測地面高度

Z[8]="P1”.......................一級邊坡坡度

Z[9]="P2”.......................二級邊坡坡度

Z[10]="P3”.......................三級邊坡坡度(沒有的話就刪)

Z[14]="BP+C-J="......................邊坡超欠挖寬度(+表超，-表欠)

8.隧道圓心放樣程序(SDYX)

IFS<229000:THEN243.997+0.0205x(S-226520)-(S-227318)A2/2/l6000+1.503—Z

[10]:“NGC="：Z[10]/ELSE286.385-0.023x(S-230500)-(S-230593.753)A2/2/16500

0+1.503—Z[10]:“YLJ="：Z[10]JlfEnd

Z[10]-Z[7]—Z[15]:"+SG,-JD“：Z[15](Z「15F2+(ABS(Z)-6.8)A2)“R

=”:Z[16]/

三、使用說明

1、規(guī)定

(1)以道路中線的前進(jìn)方向(即里程增大的方向)區(qū)分左右；當(dāng)線元往左偏時(shí)，

Q=-l；當(dāng)線元往右偏時(shí)，Q=l；當(dāng)線元為直線時(shí)，Q=0。

(2)當(dāng)所求點(diǎn)位于中線時(shí)，Z=0；當(dāng)位于中線左鋤時(shí)，Z取負(fù)值；當(dāng)位于中線中

線右側(cè)時(shí)，Z取正值。

(3)當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次代替。

(4)當(dāng)線元為圓|11|線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等

于圓弧的半徑。

(5)當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10

的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)?，

曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓Illi線的

半徑。

(6)當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定

的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半

徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。

2、輸入與顯示說明

SZ一XY,2.XY—SZ,3.SDYX,4.BIANPO

N?選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo)；輸入2表示由

坐標(biāo)反算里程和邊距。輸入3表示隧道圓心放樣和計(jì)算實(shí)測半徑；輸入4表示進(jìn)

行路基邊坡放樣。

3、蓋板涵斜交操作說明：

（以左前點(diǎn)為例）

先把蓋板涵斜交角度減90后=人

再蓋板涵左長度*CosA=B,蓋板涵左長度*SinA=C,蓋板涵身寬度/C

osA=D

利用YQXJS程序計(jì)算此樁號正交時(shí)B寬度的坐標(biāo)值，及法線方位角。

再轉(zhuǎn)到NE程序，X,Y,F三項(xiàng)不要修改，只改L=C+D/2（計(jì)算后點(diǎn)D前

為一）

4、SUB3數(shù)據(jù)庫說明：

S待求樁號，0=曲線起點(diǎn)樁號，U曲線起點(diǎn)X坐標(biāo)，V曲線起點(diǎn)Y坐標(biāo)，G曲線

起點(diǎn)切線方位角，

P曲線起點(diǎn)半徑，R曲線終點(diǎn)半徑，H=曲線長度，Q轉(zhuǎn)向（直線0,左轉(zhuǎn)-1,右

轉(zhuǎn)1）

FX5800計(jì)算器公路測量常用程序集2.2版

一、程序功能

主要功能：采用線元法與交點(diǎn)法相結(jié)合計(jì)算多條線路坐標(biāo)正反

算，可算任意復(fù)雜線型及立交匝道，包括c型，s型、卵型、回頭曲

線等；極坐標(biāo)放樣，全線路基邊坡開挖口及坡腳放樣計(jì)算、路基任意

點(diǎn)設(shè)計(jì)高程、橫坡、設(shè)計(jì)半幅寬度.隧道欠超挖放樣計(jì)算。

新版本優(yōu)化：1、調(diào)整一次顯示結(jié)果；2、交點(diǎn)法中考慮了不對稱緩和

曲線；3、修改原版本部分地方筆誤.（紅色為修改處）

二、源程序

1.總主程序（1、坐標(biāo)計(jì)算放樣程序2、坐標(biāo)反算程序；3、高程

計(jì)算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路基邊坡及

開挖口放樣程序；6、路基標(biāo)準(zhǔn)距離放樣；7、橋梁錐坡計(jì)算放樣

程序；8、極坐標(biāo)計(jì)算程序；9、隧道超欠挖計(jì)算程序）運(yùn)行后輸

入1~9數(shù)子則選擇1至9的程序，返回時(shí)，在樁號輸入-1,返回

選擇選擇計(jì)算類型。輸入-2,返回選擇線路。坐標(biāo)計(jì)算中輸入-3,

則顯示本段曲線要素。

程序名：OZCX

Lbl0:17—DimZ：Norm2:1-A："A:XY=1,ZD=2,GC=3,GD=4,

BP=5,FM=6,ZP=7,JS=8,SD=9"?A:

A=l=>Goto1:A=2=>Goto2:A=3=>Goto3:A=4=>Goto4:

A=5=>Goto5:A=6=>Goto6:A=7=>Goto7:A=8=>Goto8:

A=9=>Goto9：

LbIl:Prog"DX":LbIA:Prog"QX":90一B:"PJ1"?B:B-

C:"PJ2"?C:B-Z[l]:C-*Z[8]:LbI"KM"?Z:Z=

-l=>Goto0:Z=-2=>GotoA:Z=-3=>GotoX:Prog

KM":?D:Porg"TUB":0-L:"LO"?L:Z[2]+Z[1]-Z[8]-

E:X+Lcos(E)-X:Y+Lsin(E)-Y:Prog"XY":Prog"

JS":GotoB：

LbI2:2-F:90-Z[l]:Prog"QX":LbIC:"KM"?Z:

Z=-l=>Goto0:Z=-2=>Goto2:Z=-3=>GotoX:Prog"KM":"X

0"?X:"YO"?Y:Prog"TUB":Porg"ZD":GotoC:

LbI3:Prog"QX":0-B:"H-B"?B:B-Z[9]:LbID:"KM"?

Z:

Z=-l=>Goto0:Z=-2=>Goto3:?D:Porg"H":Fix3:"H=":

Lcoate6,4,H-Z[9]：

"1=":Locate6,4,I：GotoD：

LbI4:Prog"QX":LbIE:"KM"?Z:Z=-l=>Goto0:Z=-2=>Got

o4:?D:Prog"GD":Fix3:"SJGD=":Locate7,4,L：Goto

E：

LbI5:Prog"QX":0.5-B:"TH-GD"?B:B-*Z[17]:LbIF:2-F:

90-Z[l]:"KM"?Z:Z=-1=>Goto0:Z=-2=>Goto5:Prog"K

M""XO"?X:"YO"?Y:OfM:"MO”?M:M-Z[4]:Prog"3F

BX"：

Fix2:P-D：Abs(D)-S-O:"LO=":Locate6,4,0：

Prog"ZD":Z[4]-T:"TW=":Lcoate6,4,T/GotoF:

LbI6:Prog"DX":LbIG:Prog"QX":LbIH:lfF:90-Z[l]:

"KM"?Z:Z=-l=>Goto0:Z=-2=>GotoG:Prog"KM":?D:Pro

g"THB":Prog"XY":Prog"JS":Prog"H":0-M:"MO"?M:

Fix2:H-M^T:"TW=":Locate6,4,T/GotoH:

LbI7:Prog"DX":LbII:Prog"QX":0-*D:"LD:Z-,Y+"?D:

Abs(D)-R:"LR"?R:"ZO"?Z:D—Z[6]:R—Z[7]:Z—Z[8]:

LbIJ:O—Y:"LO:SZ+,DZ-"?Y:Y=-l=>Goto0:Y=-2=>GotoI:

Prog"ZP":GotoJ:

LbI8:Prog"DX":LbIK:?X:X=-l=>Goto0:X=-2=>

Goto8:?Y:Prog"JS":GotoK:

LbI9:Porg"DX":LbIL:Prog"QX”：LbIM:2一F:90-Z[l]:"

KM"?Z:Z=-l=>Goto0:Z=-2=>GotoL:Z=-3=>GotoX:Prog"SD

1":0.5-A:“CQHD"?A:"XO"?X:"YO"?Y:0-M="MO"?M:

M—Z[8]:A-*Z[15]:Prog"5SD"：GotoM:

LbIX:MatFAGoto0

2、次程序:路基開挖邊線及填方坡腳線放樣程序(輸入填方放寬

值、大概樁號及測量坐標(biāo)、地面標(biāo)高計(jì)算出偏移距離、樁號、距

中距離、填挖高度)

程序名:3FBX

Prog“THB”:DfP:Prog”GD”:IfD<0:Then0.75-L->D:Goto

H:ElseL-0.75-D:GotoH:IfEnd

LbIH:Prog“H”:H-0.03-Z[4]-Z[4]:Prog“Wl”：FfZ[4]

<0:Then-Z[4]-^G:GotoW:ElseZ[4]-G:GotoT:

LbIW:Z[8]+Z[9]-A:IfG>A:ThenGotol:ElseIfG>Z[8]:T

henGoto2:ElseGoto3:IfEnd:

LbIl:L+Z[10]+Z[ll]+Z[12]+(G-A)XZ[7]+Z[9]XZ[6]+Z[8]X

Z[5]-*S:GotoZ:

LbI2:L+Z[10]+Z[ll]+(G-Z[8])XZ[6]+Z[8]XZ[5]->S:Goto

Z:

LbI3:L+Z[10]+GXZ[5]-S:GotoZ:

LbIT:L+Z[17]fT:IfG>Z[15]:Then(T+Z[16]+(G-Z[15])XZ

[14]+Z[15]XZ[13])^S:GotoZ:Else(T+GXZ[13])-S:Goto

Z:

LbIZ

3.次程序3.隧道超欠挖值計(jì)算放樣程序(輸入隧道線路，大概

樁號、輸入襯砌厚度、測量三維坐標(biāo)，計(jì)算準(zhǔn)確樁號及位置、計(jì)

算欠超挖值)

程序名：5SD

Prog”KM”:Prog“THB”：D-*Z[13]:0-D:Prog"H”:Cos(Z[l

0])XZ[4]-E:H+Z[5]-Z[5]:H+Z[7]-Z[7]:E+Z[5]一

Z[10]:IfZ[8]>Z[10]:ThenGotoR:ElseGotoS:IfEnd:

LbIR:V((Z[13]-Z[9])2+(Z[8]-Z[5])2)-Z[4]-Z[15]-L:G

otoL:LbIS:Z[4]-Z[6]-S:V(S-(Z[7]-Z[5])2)XS4-A

bs(S)-*T:Abs(Z[13]-Z[9])-T-*T:V(T2+(Z[8]-Z[7])2)-Z[6]

-Z[15]-L:GotoL:LbIL:Fix2:"L0="：Locate6,4,L：

Prog”ZD”:“H0="：Locate6,4,Z[8]-H/

4：極坐放樣計(jì)算程序(計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)

程序名：JS

X：Y：Z[ll]-K：Z[12]fL：Pol(X-K,Y-L):IFJ<0:ThenJ+3

60fJ:IFEnd:Int(J)+0.Ollnt(60Frac(J))+0.006Frac(60Frac

(J))一J:Fix4:"FWJ="：Locate6,4,J：

Fix3:"S=":Locate6,4,1/

5.路基寬度子程序6：路基標(biāo)準(zhǔn)半幅寬度計(jì)算程序(對于設(shè)計(jì)有

加寬漸變的有用，如路基寬度無變化，則把此程序直接輸入半幅

寬度值至L)

程序名：GD

1-S:Prog“G1”：Z-C-E:(B-A)*E/S+A-L:

6.坐標(biāo)計(jì)算次程序(THB)

程序名：THB

IfQ>l:ThenGotoJ:Elsel+P-C：(P-R)4-(2HPR)fS：1

80+n-E：IfF=l:ThenAbs(Z-O)-W：Prog〃A〃：Goto

2:ElseX—I：Y—J：Prog"B"：O+W-Z：D—D：G

oto2:IfEnd:

LbIJ:IfF=l:ThenProg〃Z“：Gotol:ElseProg"ZX"：

Goto2:IfEnd:

LbIl:I+DXcos(Z[2]+Z[l])-X:J+DXsin(Z[2]+Z[l])一Y:

Lbl2

7.線元法正算子程序(A)

程序名：A

0.1184634425-A：0.2393143352-B：0.2844444444-N：0.0

46910077-K：0.2307653449-L：0.5-M：U+W(Acos(G+QEKW

(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bco

s(G+QE(1-L)W(C+(l-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))

-X：

V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QE

MW(C+MWS))+Bsin(G+QE(l-L)W(C+(l-L)WS))+Asin(G+QE(l-K)W

(C+(1-K)WS)))-Y：

G+QEW(C+WS)-Z[2]：X+Dcos(Z[2]+Z[l])一X：

Y+Dsin(Z[2]+Z[l])一丫

8.線元法反算子程序(B)

程序名：B

G-90-T：Abs((Y-V)cos(T)-(X-U)sin(T))-W：0-D：L

bl0：Prog〃A〃：T+QEW(C+WS)-L：(J-Y)cos(L)-(I-X)

sin(L)-D：IFAbs(D)<0.01:ThenGoto1：ElseW+D-W:G

oto0:IfEnd:"*-1

Lbll:0-D：Prog〃A〃：(J-Y)4-sin(Z[2]+90)-D

9.交點(diǎn)法正算子程序(Z)

程序名：Z

H24-R4-24-HA(4)4-2688+RA(3)fA:H4-2TA⑶4-240+R,-B:

((H-N2)H-244-R)4-Sin(Abs(P))-((HA(4)-NA(4))4-26884-R

A(3))+sin(Abs(P))-E:(R+A)tan(Abs(P)4-2)+B-E-T:P+Abs

(P)->W:0-M:H-C:

IfZW0-T:ThenZ-0-*S:G->Z[2]:Goto2:IfEnd:

IfZW0-T+H:ThenZ-0+T->S:Prog“HX”:G+WK—Z[2]:Goto

4:IfEnd:

IfZ^O-T+HRXAbs(P)4-180+H-4-2-N4-2:Then180(Z-0+T-0.

5H)+R+r|fS:A+R(l-Cos(S))^B：II4-2-HA(3)4-2404-R2+Rs

in(S)-*A:R->M:G+WS^Z[2]:Goto4:IfEnd:

O-T+HRXAbs(P)4-180+H4-2+N4-2-Z-*S:(R+N2^-R4-24-NA(4)

4-26884-RA(3))tan(Abs(P)+2)+N+2-NA(3)+2404-R2+E->T:N

-II:ProgWHXW:G+P-*S:S-WK-*Z[2]:U+(T-A)Cos(S)-WBSin(S)

-I:V+(T-A)Sin(S)+WBcos(S)-J:Goto3:

LbI4:U+(A-T)cos(G)-WBsin(G)f]:V+(A-T)Sin(G)+WBcos(G)

—J:Goto3:

LbI2:U+Scos(Z[2])I:V+Ssin(Z[2])-J:LbI3:C->H

10.交點(diǎn)法緩和段轉(zhuǎn)化子程序(HX)

程序名：HX

S-SA(5)4-404-R24-H2+SA(9)+3456+-(4)4-HA(4)-A:SA(3)+

6+R+H-SA⑺4-3364-RA⑶9HA⑶+SA(11)4-422404-RA(5)4-

HA⑸-B:90s29n+R9H-K:RH+S-M

11.交點(diǎn)法反算子程序(zx)

程序名：zx

Z:0-*D:LbI0:Prog“Z”：Pol(X-I,Y-J):J-Z[2]-*J:Isin(J)

一S:Icos(J)-I:IfAbs(I)<0.l:ThenZ+I—Z:S-D:Goto2:E

IseGoto1:LbI1:IfM=0:ThenZ+I^Z:Goto0:ElesPol(M-

WS,I):(_JMn)/180-I:Z+I-Z:Goto0:IfEnd

LbI2

12.高程計(jì)算子程序(H)

程序名：H

Prog“SI”：C-TfF:Z-F—S:C+TfE:G-TIfQ:IfT=0:ThenQ+

SI^H:Goto0:ElseIfZ<F:ThenQ+SI^H:Goto0:ElseIfZ

WE:ThenQ+SI+S24-24-R^H:Goto0:

LbI0:H:IfD=0:ThenGotoI:ElseProg“I”：H+V-H:Goto

I:LbII

13.高程超高計(jì)算程序(I)

程序名：I

IfZ[3]=l:ThenProg“II”:Goto1:ElseProg"12”:Goto

1:IfEnd:

LbI1:IfW=l:ThenGotoZ:ElseGotoX:IfEnd

LbIZ:IfS=0:ThenAbs(D)XM^V:Goto2:ElseAbs(D)X((N-

M)X(Z-C)4-S+M)^V:Goto2:IfEnd:

LbIX:IfS=0:ThenAbs(D)XM-V:Goto2:ElseAbs(D)X(((3

((Z-C)4-S)-2((Z-C)(S)A⑶)X(N-M))+M)-V:Goto2:IfEn

d:

LbI2:Abs(D)fE:V+E-I:I(E-K)-V

14.導(dǎo)線點(diǎn)子程序(DX)

程序名：DX

Z[ll]—K:Z[12]一L:“XZ”？K:“YZ”？L:K—Z[U]:L—Z[12]

15.線路選擇子程序(線路選擇輸0時(shí)。則輸曲線參數(shù)(QX)

程序名：QX

1—A:"QX:X1=1,X2=2W?A:A-*Z[3]:

IfA=O:ThenGoto1:ElseGoto2:IfEnd:

LbI1:“JDO”？0:“XO”?U:"YO”?V:"FW"？G:“LS”?H:?P:?

R:"J=2,3;X=(0,1,-1)w?Q:IfQ=2:ThenH-*N:Goto2:ElseI

fQ=3:Then“LS”?N:LbI2

16.線路中線元段判別子程序(KM)

程序名：KM

IfZ[3]=0:ThenGoto0:ElseIfZ[3]=l:ThenProg“XI”：

Goto0:ElseProg"X2”:Goto0:IfEnd:LbI0

17.坐標(biāo)計(jì)算參數(shù)轉(zhuǎn)化子程序(F)

程序名：F

Mat-0：MatF[l,2]-U:MatF[l,3]^V:MatF[l,4]

—G:MatF[l,5]-H:MatF[l,6]-P:MatF[l,7]-R:MatF

Q=2=>H^N:Q=3=>MatF[1,9]-*N

18.橋梁錐坡放樣子程序(ZP)

程序名:ZP

V(Z[6]2(1-Y7Z[7]2))-X：Z[8]—Z:Prog”GD”:IfD<0:T

henL+X-D:Else-L-X—D:IfEnd:Z[8]+Y-Z:D:lfF:90-Z

[1]:Prog”KM”:Prog"THB”:Prog”XY”:Prog”JS”

19.顯示子程序(XY)

程序名：XY

Fix3:"X="：Locate6,4,X：

tlY="：Locate6,4,Y：

程序名：ZD

Fix3:"KM="：Locate6,4,Z：

"D=":Locate6,4,D：

20.數(shù)據(jù)子程序（附后示例）

①程序名：XI（線路1坐標(biāo)計(jì)算要素程序）

IfZW26615.555:Then[[25900,11587.421,1847.983,10V0

9'23.1”，715.555,IXIO'、ixiO45,0]]->MatF:Goto0:If

End:

IfZW26915.555:Then[[26615.555,11448.97,2550.016,10?

09'23.1v,300,1X1045,1800,1]]-*MatF:GotoO:IfEnd:

LbI0:Prog"F”

①-2程序名：X2（線路2坐標(biāo)計(jì)算要素程序）

IfZW122269.856:Then[[121656.952,2603848.019,50835

1.147,98°53,22.6〃，660,41°47'44.1”,1415.097,3,3

00]]—MatF:Goto0:IfEnd:

IfZW125115.9:Then[[123984.982,2601974.464,509885.4

41,140°41'06.8〃，700,-39°3T43.1",2800,3,400]]

~*MatF:Goto0:IfEnd:

LbI0:Prog"F”

說明：1、交點(diǎn)法：IfZW交點(diǎn)HZ點(diǎn)樁號：Then[[交點(diǎn)樁號，交

點(diǎn)X坐標(biāo)，交點(diǎn)丫坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)前段緩和

曲線長度，交點(diǎn)總偏角，圓半徑，3,交點(diǎn)后段緩和曲線長度]]

-MatF:Goto0:IfEnd:（如對稱緩和曲線，圓半徑后輸，2后

不用輸后段緩和長，總偏角分正負(fù)，左偏為負(fù)，右偏為正）

2、線元法：IfZW本段線元終點(diǎn)樁號:Then[[本段線元起點(diǎn)樁

號，線元起點(diǎn)X坐標(biāo)，線元起點(diǎn)丫坐標(biāo),線元起點(diǎn)切線方位角，線

元長度，線元起點(diǎn)半徑，線元終點(diǎn)半徑，線元判別]]一MatF:Go

to0:IfEnd:

（線元判別及線元半徑見后說明）

②-1程序名：S1（線路1高程豎曲線要素子程序）

IfZ[3]=l:ThenGoto1:ElseProg"S2”:Goto0:IfEnd:

LbIl:IfZW26157.8:Then-200000-R:157.8-「26000-C:3

7.IfG:0.01222—1:Goto0:IfEnd:

IfZW2742L915:Then300000-R:171.915一「27250-C:32.6

5-*G:-0.00356^1:Goto0:IfEnd:

IfZW27889.029:Then1000000-R:134.029一「27755-C:36.

64-*G:0.0079^1:Goto0:IfEnd:

LbI0

②-2程序名：S2（線路2高程豎曲線要素子程序）

IfZW183.007:Then1365-R:20.475-T:162.532-C:46.1一G:

0.003—I:Goto0:IfEnd:

IfZW321.264:Then-1200-R:38.732-T:282.532-C:50.175

-*G:0.033-*I:Goto0:IfEnd:

LbI0

程序字母說明：C-豎曲線交點(diǎn)樁號；G-交點(diǎn)樁號高程（未豎曲線

調(diào)整的）；T-豎曲線切線長（標(biāo)段結(jié)尾或開頭沒有豎曲線的輸0）;

R-豎曲線半徑（分正負(fù)：凹曲線為正，凸曲線為負(fù)）；I—豎曲

線前縱坡

③-1程序名：II（線路1高程超高參數(shù)子程序）

1.5fK:2-W:IfD<0:ThenGotoL:ElseGotoR:IfEnd:

LbIL:IfZW26615.555:Then0-S：-0.02-M:Goto0:IfEnd:

IfZW26735.555:Then120-S:26615.555-C：-0.02-M:0.02

—N:Goto0:IfEnd:

IfZW26795.555:Then60-S:26735.555-C:0.02-M:0.04-N:

Goto0:IfEnd

LbIR:IfZW26735.555:Then0-S：-0.02-M:Goto0:IfEnd

IfZW26795.555:Then60-S:26735.555-C：-0.02-M：-0.04

—N:Goto0:IfEnd

IfZW27436.951:Then0-S：-0.04-M:Goto0:IfEnd

LbI0

③-2程序名：12（線路2高程超高參數(shù)子程序）

0.5-*K:1-^W:IfD<0:ThenGotoL:ElseGotoR:IfEnd:

LbIL:If100:Then0-S：-0.015一業(yè)Goto0:IfEnd:

IfZW110:Then10^S:100-*C：-0.015^M：-0.02-*N:Goto0:1

fEnd:IfZW343.665:Then0-S:-0.02-M:Goto0:IfEnd

LbIR:IfZW100:Then0-S：-0.015-M:Goto0:IfEnd

IfZW110:Then10—S:100-C：-0.015-M：-0.02-N:Goto0:1

fEndIfZW375.665:Then0-S：-0.02-M:Goto0:IfEnd

LbI0

字程序中字母表示說明：

K—中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無分隔帶則

為0）;W—超高方式參數(shù)（W=l為一般直線方式超高，W=2為三

次拋物線方式超高）;S—超高漸變段距離（不是漸變段則輸入0）；

C-超高漸變段起點(diǎn)樁號（不是漸變段，無需輸入）；M—超高段

起點(diǎn)橫坡，N-超高漸變段終點(diǎn)橫坡（不是漸變段，無需輸入）。

@-1程序名：G1（線路1路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序）

IfZ[3]=l:ThenGotol:ElseProg"G2”:Goto0:IfEnd

LbI1:IfD<0:ThenGotoL:ElseGotoR:IfEnd:

LbIL:IfZW28110.727:ThenZ-C:17.25fA:Goto0:IfEnd:

IfZW28200.727:Then28110.727-C:17.25-A:21.25一B:90

-*S:Goto0:IfEnd

LbIR:ZW27927.478:ThenZfC:17.25-A:Goto0:IfEnd

IfZW28172:Then27927.478-C:17.25-A:27.031-B:244.52

2^S:Goto0:IfEnd

LbI0

@-2程序名：G2（線路2路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序）

IfD<O:ThenGotoL:ElseGotoR:IfEnd:

LbIL:IfZ^69.998:ThenZ-C:28.25-A:Goto0:IfEnd:

IfZ^82.402:Then69.998-C:28.25-A:25.545-B:12.404-

S:Goto0:IfEnd

LbIR:Z^69.998:ThenZfC:17.45-A:Goto0:IfEnd

IfZ^80.367:Then69.998-C:17.45-A:16.787-B:10.369-

S:Goto0:IfEnd:LbI0

字程序中字母表示說明：

C—寬度漸變段起點(diǎn)樁號（不是漸變段C=Z）；A—寬度漸變段起

點(diǎn)寬度；B—寬度漸變段終點(diǎn)寬度（不是漸變段，無需輸入）；S

-寬度漸變段距離（不是漸變段，無需輸入）。

⑤-1程序名：SD1（線路1隧道參數(shù)子程序）

IfZ[3]=1:ThenGoto1:ElseProg"SD2":Goto0:IfEnd:

LbI1:5.1^Z[4]:1.8fz[5]:1.4-Z[6]:0.59-Z[7]:0-Z[9]:

109OP30”-Z[10]:

LbI0

⑤-2程序名：SD2（線路2隧道參數(shù)子程序）

5.43fz[4]：1.634fz[5]:7.93fz[6]:1.634fz[7]:0-Z[9]:

90-Z[10]

字程序中字母表示說明：

Z[4]一隧道上拱半徑；Z[5]一隧道上拱圓心至設(shè)計(jì)面高度；Z[6]

一隧道中腰部半徑；Z[7]一中腰圓心至設(shè)計(jì)面高度；Z[9]一設(shè)計(jì)

隧道中線與設(shè)計(jì)路基中線偏移值，左為負(fù)數(shù)，右為正數(shù)；Z[10]

一上部拱跨隧道半幅角度；

@-1程序名：W1（線路1路基填挖邊坡參數(shù)子程序）

IfZ[3]=1:ThenGoto1:ElseProg"W2":Goto0:IfEnd:

LbI1:0.75fz[5]:1-Z[6]:1.25fz[7]:10-*Z[8]:10^Z[9]:2.

6fz[10]:2一Z[ll]:2-Z[12]:1.5->Z[13]:l.75-Z[14]:8一Z

[15]:2-Z[16]：LbI0

⑥-2程序名：W2（線路2路基填挖邊坡參數(shù)子程序）

1-*Z[5]:1-Z[6]:1.25fz[7]:10-Z[8]:10-*Z[9]:2.6fz[10]:

1.5-Z[ll]:L5-Z[12]:L5-Z[13]:1.75-Z[14]:8-Z[15]:2

-Z[16]

字程序中字母表示說明：

Z[5]一挖方第一階邊坡邊率；Z[6]一挖方第二階邊坡邊率；Z[7]

一挖方第三階邊坡邊率；Z[8]一挖方第一階高度；Z[9]一挖方第

二階高度；Z[10]一挖方路基碎落臺及水溝寬度；Z[ll]一挖方第

二臺階平臺寬度；Z[12]一挖方第三臺階平臺寬度；

Z[13]一填方第一階邊坡邊率；Z[14]一填方第二階邊坡邊率；Z

[15]一填方第一階高度；Z[16]-填方第二臺階平臺寬度。（注：

本程序只做出挖方三個(gè)臺階，填方二個(gè)臺階，如需增加，先需在

程序TUB和4FBZ程序中增加變量。再如一標(biāo)段有坡率及坡高不

一樣時(shí)，可以照其它參數(shù)程序一樣，用判別語句。)

三、使用說明

1、規(guī)定

(1)“KM”為所求點(diǎn)樁號，反算時(shí)為輸入大概樁號

(2)當(dāng)所求點(diǎn)位于中線時(shí)，D=0；當(dāng)位于中線左鋤時(shí)，

D取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，D取正值。

(3)當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮

大，以10的45次代替。(在用交點(diǎn)法時(shí)，P子母代表偏角)

(4)當(dāng)線元為圓曲線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元

相接，其曲率半徑均等于圓弧的半徑。(交點(diǎn)法為圓半徑)

(5)當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲

率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半

徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，

以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半

徑。

(6)當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率

半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線

的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓

曲線相接時(shí)，曲率半徑等于圓曲線的半徑。

(7)Q值是判別用采用線元法還是交點(diǎn)法。交點(diǎn)法值為2或

3,2為對稱緩利曲線段交點(diǎn)法，3為不對稱緩和段交點(diǎn)法。線元

法，根據(jù)線元段取值，直線段取0,緩和段和圓曲線段，根據(jù)左

偏取T,右偏取1.

（8）為了區(qū)別字母0及數(shù)子0,特把字母0加粗。

2、輸入與顯示說明

輸入部分：

"A:XY=1,ZD=2,GC=3,GD=4,BP=5,FM=6,ZP=7,

JS=8,SD=9"?輸入：1、坐標(biāo)計(jì)算放樣程序2、坐標(biāo)反算程

序；3、高程計(jì)算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、

路基邊坡及開挖口放樣程序；6、路基標(biāo)準(zhǔn)距離放樣；7、橋梁錐

坡計(jì)算放樣程序；8、極坐標(biāo)計(jì)算程序；9、隧道超欠挖計(jì)算程序

XZ?YZ?為置儀點(diǎn)坐標(biāo)，第一次運(yùn)行輸一次，以下運(yùn)行不

需再輸入，下次再運(yùn)行此程序調(diào)上次輸值，如需改，則輸入，不

需改，則按確認(rèn)鍵。

“QX:X1=1,X2=2"？選擇經(jīng)路，坐標(biāo)計(jì)算中輸入。值，變?yōu)?/p>

輸入線元段曲線要素。輸1為第一條線路。輸2為第二條線路，

本程序暫設(shè)計(jì)實(shí)例為2條線路。

KM?正算時(shí)所求點(diǎn)的里程（反算輸入大概樁號）輸入-1,

返回輸入選擇計(jì)算類型，輸入-2,返回選擇線路，輸入-3,調(diào)出

本段線元參數(shù)，以矩陣顯示，再運(yùn)行從頭開始。

D?正算時(shí)所求點(diǎn)距中線的邊距（左側(cè)取負(fù)，值右側(cè)取正

值，在中線上取零）

xo?反算時(shí)所求點(diǎn)的X坐標(biāo)（放樣程序中實(shí)測X坐標(biāo)）

Y0?反算時(shí)所求點(diǎn)的丫坐標(biāo)（放樣程序中實(shí)測丫坐標(biāo)）

顯示部分：

L?涵洞放樣程序中涵距中心樁號前后距離,前為正,后為

負(fù).

M0?邊坡放樣程序中原地面標(biāo)高輸入

H-B?計(jì)算面至路面高差（默認(rèn)路面為0）

PJ1?PJ2?涵洞計(jì)算中第一個(gè)夾角同PJo第二夾角為邊線

至路前進(jìn)方向夾角。（同理適合在橋梁中斜交橋，平行布置中，橋

臺樁基坐標(biāo)計(jì)算）默認(rèn)值均為90度.

TH-GH?邊坡放樣中填方超放寬值，默認(rèn)值為0.5m.

"LD:Z-Y+"?橋梁錐坡向左右方向邊長，左為負(fù)數(shù)，右為

正數(shù)。

"LR"?錐坡向路線前進(jìn)或向后退方向邊長。

"Z0"?錐坡頂邊樁號

輸出部分

X=***正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)

丫二***正算時(shí)，計(jì)算得出的所求點(diǎn)的丫坐標(biāo)

FWJ=***正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方位角

S=***正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)距離

KM=***反算時(shí)，計(jì)算得出的所求點(diǎn)的里程

D=***反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距

H=***所求點(diǎn)位置設(shè)計(jì)路面頂標(biāo)高

1=***所求點(diǎn)位置設(shè)計(jì)路面橫坡（D輸0時(shí)為，本段

路基縱坡）

SJLG=***所求點(diǎn)位置路基設(shè)計(jì)半幅標(biāo)準(zhǔn)寬度

L0=***邊樁放樣程序中實(shí)測點(diǎn)至設(shè)計(jì)邊坡點(diǎn)距離，正

向內(nèi)移，負(fù)向外移。（隧道程序中為超欠挖值，正為超挖，負(fù)為

欠挖）

TW=***邊樁放樣程序中，實(shí)測放樣邊坡點(diǎn)至止樁號設(shè)

計(jì)頂填挖高度值

H0=***隧道放樣程序中測量點(diǎn)至設(shè)計(jì)面高度

四、結(jié)束語

1、本套程序?qū)嵗€路給二條，如標(biāo)段像匝道有多條線時(shí)，同理

增加。

2、由于本人沒做過隧道，隧道程序只是參照本項(xiàng)目另一個(gè)標(biāo)的

圖紙所做，如有不同，可以調(diào)整參數(shù)。原理應(yīng)是一樣的。

3、為了更好的開發(fā)計(jì)算器程序，本人特建一QQ群，歡迎各位測

友加入，QQ群號是：24817026c

4、所有對程序有建議或問題的，加本人QQ后可以直接留言，由

于工作原因，可能不能馬上給予答復(fù)，敬請諒解?。観Q為好友

時(shí)請注明：計(jì)算器程序）

主要功能：采用線元法與交點(diǎn)法相結(jié)合計(jì)算多條線路坐標(biāo)正反算，可算任意復(fù)雜線型

及立交匝道，包括c型，s型、卵型、回頭曲線等；極坐標(biāo)放樣，全線路基邊坡開挖口

及坡腳放樣計(jì)算、路基任意點(diǎn)設(shè)計(jì)高程、橫坡、設(shè)計(jì)半幅寬度計(jì)算.橋梁錐坡放樣計(jì)算、

隧道欠超挖放樣計(jì)算。

2009年11月16日.根據(jù)網(wǎng)友調(diào)試成功;更改THB程序中一處漏錯.

2009年11月18日完成2.1版，經(jīng)群友調(diào)試后，整理上傳。新版本建主程序合并原所有

計(jì)算類型，在主程序中可選擇操作類型。隧道欠超挖增加變量襯砌厚度，因有設(shè)計(jì)襯砌

厚度根據(jù)石巖來定的。增加錐坡放樣計(jì)算。I/B]

[B]2009年12月4日更新為2.2版,新版本:1、調(diào)整一次顯示結(jié)果；2、交點(diǎn)法中考慮了

不對稱緩和曲線；3、修改原版本部分地方筆誤.（紅色為修改處）

2009年12月5日，修改F程序中最后一句為：Q=3=>MatF[l,9]—N.解決了線元法和

對稱緩和交點(diǎn)法只要輸八個(gè)參數(shù)的問題.不對稱緩和段輸九個(gè)參數(shù).

2009年12月8日，經(jīng)網(wǎng)友調(diào)試成功，修改F子程序中后面一句:Q=2=>H—N:Q=3=>Mat

F[l,9]—N.

曲^任意里程中遏格坐檄正反算5800p

TYQXJS（主程序名）

Lbl0:4—>Dimz:Cls

“l(fā).SZ—XY”

”2.XY一SZ”?一NCs

“XO“？U:“YO”?V:“SO"？O:“FO"？G:“LS”？H:,,RO,,?P:,,RN,,?R:?Q

l+P-C：（P-R）+（2HPR）-D：180「一E

N=2=>Goto2

Lbll:Cls:?S

S=0=>Goto0（注:常S輸入0畤，程序畬由Lbl0始重新建行）

?Z:Abs（S?O）—W

PrognSUBl":Cls

“xs="：x/

“YS=”:Y/

“FS=”:F-90ADMS，

Goto1

LbI2:Cls:?X

X=0=>Goto0（注:常X輸入0畤，程序由畬Lbl0始重新遵行）

?Y:X—I:Y—J

Prog”SUB2”:O+W—S:Cls

“S=":S/

“z="：z/

Goto2

注:缸色部可以不要，亦可以要,它的作用是揩S或X輸入0畤,程序畬重新由始

行,（即是可以言十算下段^元）

SUB1（子程序名）

0.1739274226—AO3260725774—B

0.0694318442—K03300094782一L

1?L—F:1?K—M

G+QEKW(C+KWD)—Z[1]

G+QELW(C+LWD)—Z[2]

G+QEFW(C+FWD)—Z[3]

G+QEMW(C+MWD)-Z[4]

Axcos(Z[l]HX(剩虢可省略)

X+Bcos億[2])-X

X+Bcos(Z[3])一X

X+Acos(Z[4])->X

u+wx—x

Asin(Z[l])-Y

Y+BsiMZ[2])一Y

Y+Bsin(Z[3])->Y

Y+Asin(Z[4])->Y

V+WY—Y

G+QEW(C+WD)+90-F

X+Zcos(F)一X

Y+Zsin(F)->Y

SUB2(子程序名)

G?90一T

(Y-V)cos(T)-(X-U)sin(T)^W

Abs(W)-W:0一Z

Lbl4:ProgMSUBr,

T+QEW(C+WD)-L

(J-Y)cos(L)-(I-X)sin(L)->Z

IfAbs(Z)<lE-6:Then0-Z:ProgMSUBl"

(J?Y)+sin(F)—Z

ElseW+Z—W:Goto4:IfEnd

注:IE-6即是10的負(fù)6次方，亦即是等於0.000001

輸入畤按SHIFT—log—(-)—6

亦可直接酹IfAbs(Z)<lE-6離成IfAbs(Z)<0.000001

注意:本程序是根摞yhhf編癮的4800P改嘉而成,以下是源程序及算例

大家有冏題亦可在以卜^址查看及向yshf贊冏

曲線任意里程中邊樁坐標(biāo)正反算(CASIOfx-4800P計(jì)算器)程序

一、程序功能

本程序由一個(gè)主程序(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)行正反算。本程序也可以在CASIOfx4500P計(jì)算器及CASIO

僅-4850P計(jì)算器上運(yùn)行。

特別申明：(1).適用于弧長小于2倍半徑的各種線元坐標(biāo)正反算，精度優(yōu)

于1mm；

(2).在引用該核心計(jì)算部分時(shí)，請注明來源。

二、源程序

1.主程序(TYQXJS)

"l.SZ=>XY"："2.XY=>SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：

R"

RN"：Q：C=l-P：D=(P-R)-(2HPR)：E=180^7t：N=l=>Goto1：/>Goto2A—」

Lbl1：{SZ}：SZ：W=Abs(S-O)：Prog"SUB1"：X"XS"=XJ

Y"YS"=Y/

F"FS"=F-90J

Goto1<一1

Lbl2：{XY}：XY：I=X：J=Y：Prog"SUB2"：S"S『O+W/

Z"Z"=Z/

Goto2

2.正算子程序(SUB1)

A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=l-L：

M=l-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW

(C+FWD))+Acos(G+QEMW(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+ZsinF

3.反算子程序(SUB2)

T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl0：Prog"SUB1"：L=T+QEW(C+

WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<lE-6=>Gotol：/>W=W+Z：Goto0A」

Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)-sinF

三、使用說明

1、規(guī)定

(1)以道路中線的前進(jìn)方向(即里程增大的方向)區(qū)分左右；當(dāng)線元往左偏時(shí)，

Q=-l；當(dāng)線元往右偏時(shí)，Q=l；當(dāng)線元為直線時(shí)，Q=0o

(2)當(dāng)所求點(diǎn)位于中線時(shí)，Z=0；當(dāng)位于中線左惻時(shí)，Z取負(fù)值；當(dāng)位于中線中線右

側(cè)時(shí)，Z取正值。

(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í)，曲率半徑等于圓曲線的半徑。止點(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、輸入與顯示說明

輸入部分：

1.SZ=>XY

2.XY=>SZ

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

算

里程和邊距。

X0?線元起點(diǎn)的X坐標(biāo)

Y0?線元起點(diǎn)的丫坐標(biāo)

S0?線元起點(diǎn)里程

F0?線元起點(diǎn)切線方位角

LS?線元長度

R0?線元起點(diǎn)曲率半徑

RN?線元止點(diǎn)曲率半徑

Q?線元左右偏標(biāo)志（左偏Q=-l,右偏Q=l,直線段Q=0）

S?正算時(shí)所求點(diǎn)的里程

Z?正算時(shí)所求點(diǎn)距中線的邊距（左側(cè)取負(fù)，值右側(cè)取正值，在中線上取零）

X?反算時(shí)所求點(diǎn)的X坐標(biāo)

Y?反算時(shí)所求點(diǎn)的丫坐標(biāo)

顯示部分：

XS=xxx正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)

YS=xxx正算時(shí)，計(jì)算得出的所求點(diǎn)的丫坐標(biāo)

FS=xxx正算時(shí)，所求點(diǎn)對應(yīng)的中線點(diǎn)的切線方位角

S=xxx反算時(shí)，計(jì)算得出的所求點(diǎn)的里程

Z=xxx反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距

四、算例

某匝道的由五段線元（直線+完整緩和曲線+圓曲線+非完整緩和曲線+直線）組

成，各段線元的要素（起點(diǎn)里程S0、起點(diǎn)坐標(biāo)X0Y0、起點(diǎn)切線方位角F0、線元長度

LS、起點(diǎn)曲率半徑R0、止點(diǎn)曲率半徑RN、線元左右偏標(biāo)志Q）如卜.：

soX0Y0F0LSRORNQ

500.00019942.83728343.5611251631.00269.2561E451E450

769.25619787.34028563.3781251631.0037.4921E45221.75-1

806.74819766.56628594.5741202554.07112.779221.75221.75-1

919.52719736.07228701.893911730.6380.285221.759579.228-1

999.81219744.03828781.659804050.00100.0001E451E450

1、正算

（注意：略去計(jì)算方式及線元要素輸入，請自行根據(jù)所求點(diǎn)所在的線元輸入線元

要素）

S=700Z=-5計(jì)算得XS=19831.41785YS=28509.72590

S=700Z=0計(jì)算得XS=19827.33592YS=28506.83837

S=700Z=5計(jì)算得XS=19823.25398YS=28503.95084

S=780Z=-5計(jì)算得XS=19785.25749YS=28575.02270

S=780Z=0計(jì)算得XS=19781.15561YS=28572.16358

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

S=870Z=-5計(jì)算得XS=19747.53609YS=28654.13091

S=870Z=0計(jì)算得XS=19742.68648YS=28652.91379

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

S=940Z=-5.123計(jì)算得XS=19741.59118YS=28722.05802

S=940Z=0計(jì)算得XS=19736.47687YS=28722.35642

S=940Z=3.009計(jì)算得XS=19733.47298YS=28722.53168

2、反算

X=19831.418Y=28509.726計(jì)算得S=699.9999974Z=-5.00018164

X=19827.336Y=28506.838計(jì)算得S=699.9996493Z=0.000145136

X=19823.25398Y=28503.95084計(jì)算得S=699.9999985Z=5.000003137

X=19785.25749Y=28575.02270計(jì)算得S=780.0000035Z=-5.000001663

X=19781.15561Y=28572.16358計(jì)算得S=780.0000025Z=-0.000002