CASIO萬(wàn)能坐標(biāo)程序介紹

真正的全線貫通坐標(biāo)計(jì)算，在曲線元要素輸入時(shí)僅需要輸入第一段全部

曲線元要素，后面曲線元要素除起點(diǎn)半徑、終點(diǎn)半徑、曲線長(zhǎng)、轉(zhuǎn)向需輸入

外其他要素均從前一曲線按辛普森8等分計(jì)算得出；辛普森公式任意等分，

滿足所有精度要求；全線曲線元數(shù)據(jù)一次性程序化輸入，擴(kuò)充變量數(shù)據(jù)庫(kù)，

無(wú)需修改程序內(nèi)容；傻瓜操作，適用初級(jí)用戶。

一、程序：MC

W'.JS2.SZM:W=1=>Z[2]=0:Goto1

AW=2=>O"KOULINGVO,123456=>O=0:"OUT”JGoto4AO=0:

Z[l]=0:Goto0-J

Lbi0j

,,N07,：Z[l]+11一」

Z[l]=0=>{ABCREFGU}:A"X0”:B"Y0”:C"F0”:R"R0”:E"RN”:F"D0'':G"LS'':U"

G”:Z[Z[l]x8+3]=A:Z[Z[l]x8+4]=B:Z[Z[l]x8+5]=C:Z[Z[l]x8+6]=

R-l:Z[Z[l]x8+7]=E-l:Z[Z[l]x8+8]=F:Z[Z[l]x8+9]=F+G:Z[Z[l]x8+l0]=U:

“NEXT”/IszZ[l]:Goto0AZ[1]=1=>D=Z[9]:Z=0:Z[2]=0:GOTO

2AD=Z[(Z[1]-1)x8+9]:Z=0:Z[2]=Z[1]-1:GOTO2<-J

LbiA:Z[Z[1]x8+3]=X:Z[Z[1]x8+4]=Y:Z[Z[1]x8+5]=J:Z[Z[l]x8+8]=D:

{REGU}:R"Ro”：E“RN”:G"LS'':U"G”:Z[Z[l]x8+6]=R-l:Z[Z[l]x8+7]=E-l:

Z[Z[l]x8+9]=D+G:Z[Z[l]x8+10]=U:"NEXT”/IszZ[l]:Goto0<—1

Lbi1一」

{DZ}:D：Z：Z[2]=0:Goto2<—>

Lbi2<—1

Z[2]>Z[l]=>GoTo4AD<Z[Z[2]x8+9]=>A=Z[Z[2]x8+3]:B=Z[Z[2]x8+4]:C

=ZlZl2]x8+5]:R=Z[Z[2]x8+6J:E=Z[Z[2]x8+7J:F=Z[Z[2]x8+8]:G=Z[Z[2]x8+9]:

U=Z[Z[2]x8+10]:Goto3AIszZ[2]:Goto2

Lbi34—1

W=2=>N=8：，>N=5AP=U(E?R)：Abs(G?F)：Q=Abs(D-F)；N：S=90Q-TC：

J=C+(NPQ+2UR)NS：L=l<-1

X=A+Q+6x(CosC+CosJ+4g(Cos(C+((L+0.5)PQ+2UR)x(L+.5)S),L,0,(N-1))

+2g(Cos(C+(LPQ+2UR)LS),L,1,(N-1)))+ZCos(J+90)」

Y=B+Q+6x(SinC+SinJ+4￡(Sin(C+((L+0.5)PQ+2UR)x(L+.5)S),L,0,(N-1))

+2￡(Sin(C+(LPQ+2UR)LS),L,1,(N-1)))+ZSin(J+90):W=2=>GOTOAA

Z=O=>"X”:X:Pause0:"Y”:Y/Goto1A

ZvO=>“XL”:X:PauseO:"YL”:Y/Goto1A僅4850①

Z>0=>uXR,,:X:Pause0:“YR”:Y/Goto1一」

Z=0=>X"X”/Y"Y”/Goto1A

Z<0=>X"XL''/Y"YL”/Goto1Afx4800②

Z>0=>X"XR”Gotol一」

Lbi4-J

二、說明

a、編制說明

本程序是運(yùn)用復(fù)化辛普生公式根據(jù)曲線段——直線、圓曲線、緩和曲線

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

線元長(zhǎng)度、起點(diǎn)曲率半徑、上點(diǎn)曲率半徑)及里程邊距，對(duì)該曲線段范圍內(nèi)

任意里程中邊樁坐標(biāo)進(jìn)行計(jì)算，以及對(duì)卡西歐擴(kuò)充變量的靈活應(yīng)用，實(shí)現(xiàn)了

真正意義上的的全線貫通及曲線要素輸入程序化(在不修改程序內(nèi)容的情況

下可通過運(yùn)行程序輸入任意多段曲線元要素)。通過對(duì)N二？進(jìn)行修改，可

對(duì)辛普森公式進(jìn)行任意等分進(jìn)行運(yùn)算。(注：N為不小于2的整數(shù)，N越大

精度越高，計(jì)算速度越慢；N越小精度越低，運(yùn)算速度越快，一般曲線取N=4

就能滿足精度要求，在能滿足精度的情況下盡量N取小值，己獲得最佳運(yùn)算

速度，不要盲目的追求精度）。

b、程序操作說明

程序分為兩部分：LJS為計(jì)算，2.SZ為設(shè)置。

1、首先用Shift+Defm鍵對(duì)計(jì)算器內(nèi)存變量進(jìn)行擴(kuò)充，擴(kuò)充變量數(shù)為

8xX+2（X為曲線元段數(shù)，變量數(shù)視內(nèi)存情況盡量大些），運(yùn)行程序，選2

進(jìn)行曲線要素設(shè)置，為防止誤操作在正確輸入口令123456時(shí)方可進(jìn)行設(shè)置，

否則顯示OUT跳到程序尾（LBI4）o在執(zhí)行程序中將第一段曲線元要素按規(guī)

律輸入到擴(kuò)充內(nèi)存變量中

（A“XO”:B“YO”:C“FO”:R“R（T:E“RN”:F“D（r：G“LS”:U"G”）,以后曲線僅需輸

入R“R0”、E“RN”:G“LS”:U"G”，其他參數(shù)自動(dòng)計(jì)算得出。在顯示NEXT時(shí)

為提示是否輸入下一曲線，按EXE繼續(xù)輸入，如不需再輸入則退出程序。

2、選1.JS進(jìn)行坐標(biāo)運(yùn)算，D輸入樁號(hào)，Z輸入左右距離（負(fù)為左，正為

右，0為中）程序首先自動(dòng)判斷其在哪一線元內(nèi)，并把其線元要素調(diào)出進(jìn)行

計(jì)算，即可對(duì)全線進(jìn)行坐標(biāo)計(jì)算。

c、變量說明

XO：YO：F0------------曲線元起點(diǎn)X、Y坐標(biāo)及起點(diǎn)正切線方位角

RO：RN------------------曲線元起點(diǎn)及終點(diǎn)半徑

DO：LS：Q-----------曲線元起點(diǎn)樁號(hào)、路線長(zhǎng)度及線路左右偏標(biāo)志（左

直線=0,右=1）

D------------------------曲線元中待求點(diǎn)樁號(hào)

Z------------------------計(jì)算邊樁距中線平距，左邊輸入負(fù)值，右邊輸入正

值，中樁輸入0

X：Y(中)

XL:YL(左)

XR:YR(右)------待求點(diǎn)的X,Y坐標(biāo)

擴(kuò)充變量：Z[Z[l]x8+3]:Z[Z[l]x8+4]:Z[Z[l]x8+4]:Z[Z[l]x8+6]:

Z[Z[l]x8+7]:Z[Z[l]x8+8]:Z[Z[l]x8+9]:Z[Z[l]x8+10]:分別為各線元

XO:YO:FO;RO:RN:DO:LS:G,

(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,坐標(biāo)顯示XY；當(dāng)位于中線左側(cè)時(shí)，Z

取負(fù)值，坐標(biāo)顯示XLYL,；當(dāng)位于中線右側(cè)時(shí)，Z取正值，坐標(biāo)顯示XRYRo

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

方代替。

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

均等于圓弧的半徑。

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

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

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

曲率半徑等于圓曲線的半徑。

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

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

時(shí)，曲率半徑等

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

(7)當(dāng)兩段緩和曲線相連時(shí)，相連處要素均輸為10的45次方(可以看作

緩直+直緩)。

「B1本程序可在48004850上運(yùn)行，只需將輸出部分進(jìn)行修改。(4850

①4800②)F/B1

鄭石高速路面NO.9標(biāo)余官營(yíng)互通E匝道

序號(hào)XoYoFoRoRNDOLSG

1744383.112510406.45643。34n00.0n700070000170-1

中點(diǎn)樁號(hào)中點(diǎn)X中點(diǎn)Y終點(diǎn)樁號(hào)終點(diǎn)X終點(diǎn)Y

85744445.055510464.662170744507.700510522.112

2744507.700510522.11242。10"30.8"7000500170116.0711

中點(diǎn)樁號(hào)中點(diǎn)X中點(diǎn)Y終點(diǎn)樁號(hào)終點(diǎn)X終點(diǎn)Y

228.036744550.193510561.637286.071744590.136510603.713

3744590.136510603.71349018”02.3”500500286.071299.2821

中點(diǎn)樁號(hào)中點(diǎn)X中點(diǎn)Y終點(diǎn)樁號(hào)終點(diǎn)X終點(diǎn)Y

435.712744669.415510729.969585.353744707.945510873.987

4744707.945510873.98783。35”44.8”500無(wú)窮大585.353601

中占樁號(hào)中占x中占Y線占樁號(hào)線占X線占Y

615.353744710.545510903.872645.353744712.24751093

3.823

2008年1月27日更新，加入了坐標(biāo)反算功能，坐標(biāo)正算加入斜角計(jì)算功能。

程序特點(diǎn)：

真正的全線貫通坐標(biāo)正反計(jì)算！在曲線元要素輸入時(shí)僅需要輸入第一段全部

曲線元要素，后面曲線元要素除起點(diǎn)半徑、終點(diǎn)半徑、曲線長(zhǎng)、轉(zhuǎn)向需輸入

外其他要素均從前一曲線按辛普森8等分計(jì)算得出，解決了主線坐標(biāo)計(jì)算無(wú)

法獲得第二段及其以后曲線元起點(diǎn)參數(shù)的問題；辛普森公式任意等分，滿足

所有精度要求；全線曲線元數(shù)據(jù)一次性程序化輸入，參數(shù)存儲(chǔ)采用擴(kuò)充變量

數(shù)據(jù)庫(kù)，無(wú)需修改程序內(nèi)容；多功能采用單程序編程，藍(lán)餛搗領(lǐng)餐米映絳潁

峋阪慫閑溷齦簧倒喜僮鯨毛鸚視貿(mào)蹌〃??？

一、程序：MC

WU1.ZS2.FS3.SZ^:W=1=>Z[2]=0:V=0：Goto1AW=2=>Goto

4AW=3=>OUKOULING”:0#123456=>0=0:“OUT”/GotoDAO=0:

V=0:Z[l]=0:Goto0<—?

Lbi0<—1

”N0.”：Z[l]+1」

Z[1]=O=>{ABCREFGU}:A“XO”:B“YO”:C“FO”:R“RO”:E“RN”:F“DO”:G“LS”:U"

G”:Z[Z[l]x8+3]=A:Z[Z[l]x8+4]=B:Z[Z[l]x8+5]=C:Z[Z[l]x8+6]=

R-l:Z[Z[l]x8+7]=E-1:Z[Z[1]x8+8]=F:Z[Z[1]x8+9]=F+G:Z[Z[l]x8+l0]=U:

“NEXT”，IszZ[l]:Goto0AZ[1]=1=>D=Z[9]:Z=0:Z[2]=0:GOTO

2AD=Z[(Z[1]-1)x8+9]:Z=0:Z[2]=Z[1]-1:GOTO2<—1

LbiA一」

Z[Z[l]x8+3]=X:Z[Z[l]x8+4]=Y:Z[Z[l]x8+5]=J:Z[Z[1]x8+8]=D:

{REGU}:R“Ro”：E"RN”:G"LS”:U"G”:Z[Z[l]x8+6]=R-l:Z[Z[l]x8+7]=E-l:

Z[Z[l]x8+9]=D+G:Z[Z[l]x8+10]=U:"NEXT”/IszZ[l]:Goto0一」

Lbi1-J

{DZO}:D：Z：O“RO：Z[2]=0:Goto24—1

Lbi24—1

V^l=>Z[2]>Z[l]=>GoToDAAD<Z[Z[2]x8+9]=>

A=Z[Z[2]x8+3]:B=Z[Z[2]x8+4]:C=Z[Z[2]x8+5]:R=Z[Z[2]x8+6]:

E=Z[Z[2]x8+7]:F=Z[Z[2]x8+8]:G=Z[Z[2]x8+9]:U=Z[Z[2]x8+10]:Goto3AIsz

Z[2]:Goto2

Lbi3」

W=3=>N=8：#>N=4AP=U(E-R)^Abs(G-F)：Q=Abs(D-F"N：S=90Q-n：

J=C+(NPQ+2UR)NS：L=li—1

X=A+Q+6x(CosC+CosJ+4g(Cos(C+((L+0.5)PQ+2UR)x(L+.5)S),L,0,(N-1))

+2g(Cos(C+(LPQ+2UR)LS),L,1,(N-1)))+ZCos(J+O)1

Y=B+Q-6x(SinC+SinJ+4￡(Sin(C+((L+0.5)PQ+2UR)x(L+.5)S),L,0,(N?l))

+2￡(Sin(C+(LPQ+2UR)LS),L,1,(N-1)))+ZSin

(J+O):V=1=>Goto6AV=2=>Goto9AV=3=>GOTOCAW=3=>G0T0AA

Z=O=>"X”:X:Pause0:"Y”:Y/Goto1A

ZvO=>"XL”:X:Pause0:"YL”:Y/Goto1Afx4850①

Z>O=>"XR'':X:PauseO:"YR”:Y/Goto1<—1

Z=0=>X"X”/Y“Y”/Goto1A

Z<0=>X"XL”/Y“YL”/Goto1Afx4800②

Z>0=>X"XR”/Y“YR”/Goto1一」

Lbi4一」

{MH}：M“X”：H"Y"：Z[2]=0：GOTO5-J

Lbi5一」

V=l：D=Z[Z[21x8+9]：Z=0：0=90：GOTO2<—1

Lbi67

K=((H-B)Cos(C-90)-(M-A)Sin(C-90))x((H-Y)Cos(J-90)

-(M-X)Sin(J-90))：K<0=>Goto7AIszZ[2]：Goto54—1

Lbi7」

D=F+Abs((H-B)Cos(C-90)-(M-A)Sin(C-90))：D>G=>IszZ[2]:Goto5AGoto

8一」

Lbi8-J

V=2：GOTO3<-

Lbi9一」

K=(H-Y)Cos(J-90)-(M-X)Sin(J-90)：AbsK<E-3=>GotoBAD=D+K：GOTO

8一」

LbiB一」

V=3：Z=0：Goto34―?

LbiC—」

Z=(H-Y)-SinO+90)：“D”:D:Pause0:"Z"Z/

(Z=(H-Y)^Sin(J+90)：D"D"/"Z"Z1)4800輸出

GOTO47

LbiD一」

二、說明

a、編制說明

本程序是運(yùn)用復(fù)化辛普生公式根據(jù)曲線段——直線、圓曲線、緩和曲線(完

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

長(zhǎng)度、起點(diǎn)曲率半徑、止點(diǎn)曲率半徑)及里程邊距，對(duì)該曲線段范圍內(nèi)任意

里程中邊樁坐標(biāo)進(jìn)行計(jì)算，以及對(duì)卡西歐擴(kuò)充變量的靈活應(yīng)用，實(shí)現(xiàn)了真正

意義上的的全線貫通及曲線要素輸入程序化(在不修改程序內(nèi)容的情況下可

通過運(yùn)行程序輸入任意多段曲線元要素)。通過對(duì)N=?進(jìn)行修改，可對(duì)辛

普森公式進(jìn)行任意等分進(jìn)行運(yùn)算。(注：N為不小于2的整數(shù)，N越大精度

越高，計(jì)算速度越慢；N越小精度越低，運(yùn)算速度越快，一般曲線取N=4就

能滿足精度要求，在能滿足精度的情況下盡量N取小值，已獲得最佳運(yùn)算速

度，不要盲目的追求精度)

b、程序操作說明

程序分為兩部分：LJS為計(jì)算，2.SZ為設(shè)置。

1、首先用Shift+Defm鍵對(duì)計(jì)算器內(nèi)存變量進(jìn)行擴(kuò)充，擴(kuò)充變量數(shù)為8xX+2

（X為曲線元段數(shù)，變量數(shù)視內(nèi)存情況盡量大些），運(yùn)行程序，選2進(jìn)行曲

線要素設(shè)置，為防止誤操作在正確輸入口令123456時(shí)方可進(jìn)行設(shè)置，否則顯

示OUT跳到程序尾（LBI4）o在執(zhí)行程序中將第一段曲線元要素按規(guī)律輸入

到擴(kuò)充內(nèi)存變量中（A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G“LS”:U“G"）,

以后曲線僅需輸入R“R0”、E“RN”:G“LS”:U"G”，其他參數(shù)自動(dòng)計(jì)算得出。

在顯示NEXT時(shí)為提示是否輸入下一曲線，按EXE繼續(xù)輸入，如不需再輸入

則退出程序。

2、選1.JS進(jìn)行坐標(biāo)運(yùn)算，D輸入樁號(hào)，Z輸入左右距離（負(fù)為左，正為右,

0為中）程序首先自動(dòng)判斷其在哪一線元內(nèi)，并把其線元要素調(diào)出進(jìn)行計(jì)算,

即可對(duì)全線進(jìn)行坐標(biāo)計(jì)算。

c^變量說明

XO：YO：F0------------曲線兀起點(diǎn)X、Y坐標(biāo)及起點(diǎn)正切線方位角

RO：RN------------------曲線元起點(diǎn)及終點(diǎn)半徑

DO：LS：Q---------曲線元起點(diǎn)樁號(hào)、路線長(zhǎng)度及線路左右偏標(biāo)志（左二1,直

線=0,右=1）

D------------------------曲線元中待求點(diǎn)樁號(hào)

Z---------------------------計(jì)算邊樁距中線平距，左邊輸入負(fù)值，右邊輸入正值,

中樁輸入0

RJ：坐標(biāo)正算右夾角

X：Y（中）

XL:YL（左）

XR:YR（右）-------------待求點(diǎn)的X,Y坐標(biāo)

擴(kuò)充變量：Z[Z[l]x8+3]:Z[Z[l]x8+4]:Z[Z[l]x8+4]:Z[Z[l]x8+6]:Z[Z[l]x8+7]:

Z[Z[l]x8+8]:Z[Z[l]x8+9]:Z[Z[l]x8+10]:分別為各線元

XO:YO:FO;RO:RN:DO:LS:G,

(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,坐標(biāo)顯示XY；當(dāng)位于中線左側(cè)時(shí)，Z

取負(fù)值，坐標(biāo)顯示XLYL,；當(dāng)位于中線右側(cè)時(shí)，Z取正值，坐標(biāo)顯示XRYR。

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

次方代替。(對(duì)于特別長(zhǎng)的直線應(yīng)適當(dāng)提高10的次方數(shù)，以防止以大半徑曲

線誤算，建議以10的90次方計(jì)算)

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

均等于圓弧的半徑。

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

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

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

曲率半徑等于圓曲線的半徑。

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

計(jì)規(guī)定的值；與圓曲線相接時(shí)，

本程序可在48004850上運(yùn)行，只需將輸出部分進(jìn)行修改。(4850①4800

②)

鄭石高速路面NO.9標(biāo)余官營(yíng)互通E匝道

序號(hào)XoYoFoRoRNDOLSG

1744383.112510406.45643。34u00.0n700070000170-1

中點(diǎn)樁號(hào)中點(diǎn)X中點(diǎn)Y終點(diǎn)樁號(hào)終點(diǎn)X終點(diǎn)Y

85744445.055510464.662170744507.700510522.112

2744507.700510522.11242。10"30.8"7000500170116.0711

中點(diǎn)樁號(hào)中點(diǎn)X中點(diǎn)Y終點(diǎn)樁號(hào)終點(diǎn)X終點(diǎn)Y

228.036744550.193510561.637286.071744590.136510603.713

3744590.136510603.71349o18”02.3”500500286.071299.2821

中點(diǎn)樁號(hào)中點(diǎn)X中點(diǎn)Y終點(diǎn)樁號(hào)終點(diǎn)X終點(diǎn)Y

435.712744669.415510729.969585.353744707.945510873.987

4744707.945510873.98783。35”44.8”500無(wú)窮大585.353601

中占樁號(hào)中占x中占Y段占樁號(hào)段占X段占Y

615.353744710.545510903.872645.353744712.247510933.823

計(jì)算時(shí)間測(cè)試（秒），計(jì)算精度滿足1mm時(shí)測(cè)試每段曲線元的終點(diǎn)

4等分

正算：2.32.42.52.6

反算：9.612.416.517.0

5等分

正算：2.52.72.82.9

反算：11.813.818.719.1

X

程序特點(diǎn)：

全線標(biāo)高數(shù)據(jù)一次性程序化輸入，擴(kuò)充變量數(shù)據(jù)庫(kù)，無(wú)需修改程序內(nèi)容；全

線貫通計(jì)算，標(biāo)高計(jì)算時(shí)將全線數(shù)據(jù)分為4等分，首先判斷待求點(diǎn)在哪個(gè)區(qū)

間，再循環(huán)選擇，提高運(yùn)算時(shí)間；傻瓜操作，適用初級(jí)用戶。

一、程序：MC

W“1.BG2.SZ”：W=l=>Goto1AO“KOULING“：0^123456=>0=0：Goto5

△0=0：Z[1]=0:Goto0<一!

Lbi0」

,,No7,：Z[l]+1A

{ZHPR}：Z“D0”：H“BG”：P“PD”：R“R0”：Z[Z[l]x4+3]=Z：Z[Z[l]x4+4]=H：

Z[Z[l]x4+5]=P：Z[Z[l]x4+6]=R："NEXT”/IszZ[l]：GotoO4—1

Lbi1一」

Z[2]=Z[1]一?

{D}：D<Z[Int(Z[2]-4+l)x4-3]=>Z[2]=Int(Z[2]-4)：Goto2AD<Z[Int(Z[2]

-^2+1)x4+3]=>Z[2]=Int(Z[2]^2)：Goto2AD<Z[Int(Z[2]x.75+l)x4+3]=>Z[2]=Int

(Z[2]x.75)：Goto2AGoto2<—1

Lbi2一」

D<Z[Z[2]X44-3]=>DSZZ[2]：Goto2AGoto34—1

Lbi34—1

Z[Z[2]X4+6]^0=>G=Z[Z[2]X4+4]+(D-Z[Z[2]X4+3])XZ[Z[2]X4+5]^100+(D-Z[Z[

2]x4+3])A2^Z[Z[2]x4+6]：Goto

4AG=Z[Z[2]x4+4]+(D-Z[Z[2]x4+3])xZ[Z[2]x4+5]^100：Goto4」

Lbi4一」

{Z}：Z：G=G-0.02Abs(Z):“GAG7(4850輸出)

{Z}：Z：G=G-0.02Abs(Z):G"G”/(4800輸出)

Goto1<-->

Lbi5一」

“OUT”/

程序操作說明

程序分為兩部分：1.BG為標(biāo)高計(jì)算，2.SZ為參數(shù)設(shè)置。

1、首先用Shift+Defm鍵對(duì)計(jì)算器內(nèi)存變量進(jìn)行擴(kuò)充，擴(kuò)充變量數(shù)為4xX+2

（X為標(biāo)高參數(shù)段數(shù)，變量數(shù)視內(nèi)存情況盡量大些），運(yùn)行程序，選2進(jìn)行

標(biāo)高參數(shù)設(shè)置，為防止誤操作在正確輸入口令123456時(shí)方可進(jìn)行設(shè)置，一組

參數(shù)輸入完畢后顯示“NEXT”，如輸入完畢請(qǐng)退出，按“EXE”繼續(xù)。

2、選1.BG進(jìn)行標(biāo)高運(yùn)算，D輸入樁號(hào)，Z輸入距離，程序首先自動(dòng)判斷其

待求點(diǎn)在哪一段參數(shù)內(nèi)，并將參數(shù)調(diào)出進(jìn)行計(jì)算，即可對(duì)全線進(jìn)行標(biāo)高計(jì)算。

c、變量說明

Z“D0”-----------------------起點(diǎn)樁號(hào)（非變坡點(diǎn)）

H“BG”----------------------起點(diǎn)標(biāo)高（非變坡點(diǎn)）

P“PD”-----------------------前坡度（％）

R“R0”-----------------------豎曲線半徑（凸曲線為負(fù)值；凹曲線為正值，直坡為0）

沙發(fā)：'路橋人回4A評(píng)入

一+10分

萬(wàn)能坐標(biāo)計(jì)算？怎么個(gè)萬(wàn)能法？

評(píng)?

2樓：MACHAO樓主CASIO編程版主回+101

本程序的主要特點(diǎn)是參數(shù)輸入不需要修改程序內(nèi)容，直接在程序運(yùn)行中輸入，可自動(dòng)實(shí)現(xiàn)全線坐

標(biāo)計(jì)算

3樓：工程測(cè)量回轉(zhuǎn)評(píng)公

好東西！頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂

頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂

頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂

頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂

頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂頂

4樓：zcj007回

好！試一試

評(píng)?

6樓：zcj007回4Ah

一+107T

能運(yùn)行啊，不知道精度怎么樣??？摟住

評(píng).

7樓：'Pym_54回+4分

呵呵，下來(lái)看看，謝謝。

8樓：’徐工回

先下來(lái)用用，謝謝

9樓：zcj007回

樓住請(qǐng)問一下你這個(gè)跟工測(cè)網(wǎng)里的有什么區(qū)別？

10樓：'weilai回

為什么你的程序沒有l(wèi)b5程序.

評(píng)?

11樓：qingkongl330回“公

一+5分

利用復(fù)化辛普生公式寫的程序這是我見的最好的了頂

12樓：qingkongl330回

樓主還記得我嗎呵呵這段時(shí)間在工地沒顧上和你聯(lián)系不好意

思了樓主我看你還是把Lbi5+」

用法和朋友們說說吧我怕解釋的不好讓大家笑話了呵呵

13樓：'hejie回

不行啊，太多太煩

14樓：'xx回

還要這樣的靠近里程，那麻煩拉

15樓：machao樓主CAS10編程版主回

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋友可以和我聯(lián)

系

16樓：machao樓主CASIO編程版主回

工測(cè)網(wǎng)上的那個(gè)程序也是我編的，是一樣的

17樓：machao樓主CASO編程版主回

不過在這里修改比較方便，這里顯示的都是我最新修改過的，謝謝大家的支持！

18樓：machao樓主CAS10編程版主回

qingkongl330你好，LBI5其實(shí)也沒太大作用，只是一個(gè)結(jié)束語(yǔ)句，程序中有幾處需要跳出程序

的，我就讓他挑到LBI5

19樓：’徐工回

請(qǐng)問如何輸入空格啊，

20樓：qingkongl330回

主程序：ZBJISJ

(L)：L"K”：LW終點(diǎn)樁號(hào)=%=起點(diǎn)樁號(hào)：B=線型長(zhǎng)度：C=起點(diǎn)X：D=起點(diǎn)Y：￡=方位角：R=

起點(diǎn)半徑：V=終點(diǎn)半徑：W>LW終點(diǎn)樁號(hào)=油=起點(diǎn)樁號(hào)：B=線型長(zhǎng)度：C=起點(diǎn)X：D=起點(diǎn)Y：E=

方位角：R=起點(diǎn)半徑：V=終點(diǎn)半徑：^>ooooo(按線元數(shù)據(jù)輸入既可)：prog'SIMPSON"

子程序：SIMPSON

I“DP”：F=90：R=l/R：V=l/V：

T=(V-R)+B：H=(L-A)-rN：P=TNH+R：S=90H4-n：W=E+(P+R)NS:W<0=>W=W+360：W>W=W/

G=l：“X="：X=C+H4-6X(cosE+cosW+4XE(cos(E+((G+0.5)HT+R*2)(G+9.5)S),

G,0,(N-l))+2L(cos(E+：THG+R*2)GS),G,1,(N-l)))+Icos(W+F)：Pause0：

“Y="：Y=D+H4-6X(sinE+sinW+4XE(sin(E+((G+0.5)HT+R*2)(G+0.5)S,G,0,

(N-l))+2XE(sin(E+(THG+Rx2)GS,G,1,(N-l)))+Isin(W+F)J“FWI="W-DMS

樓主你好:我沒什么水平.瞎搞個(gè)程序起個(gè)拋磚引玉的作用.我運(yùn)用你的程序擴(kuò)展了一下此程序.

自己覺得還不錯(cuò).當(dāng)然不是這個(gè)程序.我覺得程序本身就可以計(jì)算待測(cè)點(diǎn)的方位角.所以我就讓他

自己計(jì)算了.輸入也就簡(jiǎn)單了.就說到這里吧.謝謝共享！??！

評(píng)?

21樓：ccy回

一+5分

樓主你好！”多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋

友可以和我聯(lián)系”能給我■份嗎？謝謝！ccy_er@

22樓：wangzhengping1963回

請(qǐng)問:Defm42的擴(kuò)充變量怎樣計(jì)算

23樓：長(zhǎng)大需要時(shí)間回工評(píng)入

—+5分

這程序太有用拉,但我還是新手不知道怎么用那變量,你能解釋的清楚點(diǎn)嗎!先謝謝拉

24樓：’dgg回

樓主：你好

請(qǐng)跟我發(fā)一下

多條匝道的全線貫通正反算、及標(biāo)高程，我的郵箱是zhang8763@163.com,再次表示感謝！??！

25樓：’測(cè)量的回c評(píng)入

看起來(lái)行的通沒編過啊不知道好用不

26樓：'xiaoyang回

樓主你好！

請(qǐng)發(fā)下多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線！

表示感謝！

27樓：'xiaoyang回

我的176151882@qq.com

28樓：dengyangya回

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線

樓主可以把程序發(fā)一份給我呢！謝謝了

我的郵箱是dengyangyang@sina.con

評(píng).

29樓：liuchuang347回十§)

樓主可以把程序發(fā)一份給我呢！謝謝了

我的郵箱是1iuchuang347@sohu.con

回+5評(píng)、

30樓：guoshubinl978

感謝樓主

程序太好了匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線，能否給我一份

靜候佳音

guoshubinl978@163.com

31樓：四海測(cè)量回

樓主那個(gè)G表示是什么啊輸入無(wú)限多段線元要素怎么輸啊

評(píng)?

32樓：chanzuimao回匚入

—+5分

樓主，你好，可以給我講講如何編程嗎？基礎(chǔ)的，因?yàn)槲疫€是學(xué)生還沒來(lái)得及學(xué)呢，但我很渴望

得到您的指導(dǎo)，謝謝了！QQ405725282

shengxiaozhe@l63.com

33樓：四海測(cè)量回

這個(gè)程序我輸入后,根本運(yùn)行不了.

34樓：蘭遠(yuǎn)照回

我也有這個(gè)程序，不過我的編法跟你不一樣。我的用坐標(biāo)計(jì)算樁號(hào)及寬度的是基于用樁號(hào)計(jì)

算坐標(biāo)之上再編的。

35樓：'hubin回

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線

樓主可以把程序發(fā)一份給我呢！謝謝了

我的郵箱是hubinl9731228@126.con

36樓：’紅螞蟻0

感謝樓主

程序太好了匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線，能否給我一份

靜候佳音

我的郵箱是zhd-tang@163.com

37樓：楊小回

樓主，你好!請(qǐng)發(fā)下多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！我的郵箱是

vx.i59@tom.com

評(píng)?

38樓：謝小能xiexiaoneng回“入

一+5分

無(wú)私奉獻(xiàn)的精神值得加分！

評(píng).

39樓：'eagle回入

—+5分

CAST05800P中聽不中看不中用，計(jì)算起來(lái)慢如蝸牛，強(qiáng)烈建議CASIO公司符其更名為CASI04550P,

以免誤導(dǎo)眾測(cè)量人。大家把省下來(lái)的人民幣用于購(gòu)買正版的軟件更合適，不信試試!有同感者頂

一下，我用4800計(jì)算YSHF的任意曲線正反算程序，反算時(shí)須6秒，移植到5800后須13秒，我

當(dāng)時(shí)差點(diǎn)把它砸了。致電CASIO公司，回答含糊其辭，令人失望。

評(píng).

40樓：'tiger回

一+5分

很好用，謝謝你的幫助。希望樓主能編平豎曲線結(jié)合，能計(jì)算隧道全斷面超欠挖的程序。

我朋友是一名30年炮工班長(zhǎng)，有多名親屬及朋友跟我一起打了十來(lái)?xiàng)l隧道，欲承包隧道炮工勞

務(wù)，有信息者定謝師工

提供信息者我將為你編一個(gè)任意曲線隧道斷面及邊坡超欠挖程序?yàn)樯洹?/p>

CASI05800P中聽不中看不中用，計(jì)算起來(lái)慢如蝸牛，強(qiáng)烈建議CASIO公司將其更名為CASI04550P,

以免誤導(dǎo)眾測(cè)量人。大家把省下來(lái)的人民幣用于購(gòu)買正版的軟件更合適，不信試試！有同感者頂

一下，我用4800計(jì)算YSHF的任意曲線正反算程序，反算時(shí)須6秒，移植到5800后須13秒，我

當(dāng)時(shí)差點(diǎn)把它砸了。致電CASIO公司，回答含糊其辭，令人失望。

41樓：'youcaitou回

一+5分

加分

42樓：’測(cè)量0

樓主，你好!請(qǐng)發(fā)下多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線，郵

箱:zhyx200577@126.com

43樓：’祝明科回

樓主，怎么程序在4800計(jì)算器卜不能運(yùn)行

43樓：'SDFF回

樓主,可一給我一個(gè)全線貫通的程序嗎?QQ;542996709.先下謝謝啦

44樓：’小劉回+10評(píng)］

您好,樓主,我在武廣線上搞測(cè)量啊,請(qǐng)問您能給我發(fā)一份完整的MC程序到我的油箱里面么?非常

謝謝.

45樓：’小劉回代評(píng)公

+57T

我的電子油箱是aDDlebov0110@yahoo.com.cn,我急著等著用啊,有勞樓主了。

評(píng)?

46樓：xtwgs回ARh

一+5分

上面例子運(yùn)行不了啊

48樓：樂樂回+5評(píng)“

樓主，你好!請(qǐng)發(fā)下多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！我的郵箱是

chejianjunnihao@163.com

49樓：’小白回

樓主你好：

多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！程序給我發(fā)一份吧，多謝

了?。。。。。。。。。?！

我的郵箱：baiyuemingl23@163.com

50樓：’小白回評(píng)：

+5分

忘打分了我補(bǔ)上?。。?！

51樓：'shizi畫

15樓：machao樓主回

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋友可以和我聯(lián)

系

16樓：machao樓主回

工測(cè)網(wǎng)上的那個(gè)程序也是我編的，是一樣的

可以發(fā)給我?份嗎謝謝樓主sgcyl502@126.com

52樓：zcj007回二4八

—+5分

樓主你好：

多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！程序給我發(fā)一份吧，多謝

了！?。。。。。。。。。?/p>

我的郵箱：zcj21130126.com

53樓：wangzhengpingl963回

多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！請(qǐng)把程序給我發(fā)二M吧,謝謝了

我的郵箱：wangzhengping42@163.com

54樓：Tiqingdei回

一+5分

多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！程序給我發(fā)一份吧，多謝了！

我的郵箱：1iqingdei@163.com

評(píng).

55樓：'測(cè)量回工

—+5分

樓主，你好!請(qǐng)發(fā)下多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線，郵

箱:zhyx200577@126.com

56樓：xtwgs回

MACHAO,你這個(gè)能將數(shù)據(jù)庫(kù)加入到一起的話就更好了！

57樓：xtwgs回

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，能給我發(fā)一份

嗎？xtwgs@163.com,謝謝

評(píng).

58樓：”1198088回'

一+5c分

多條匝道的全線貫通正反算、及標(biāo)高程序我己經(jīng)編好，可以算坡腳線

樓主可以把程序發(fā)一份給我呢！謝謝了

我的郵箱是：1980qqq@sina.com

59樓：'yl198088回

W“LJS2.SZW:W=l=>Z[2]=0:Goto1AW=2=>0"KOULING”:0^123456=>0=0:

“OUT”/Goto5A0=0:Defm42:Z[l]=0:Goto0一」

請(qǐng)問樓主我把程序輸入后怎么只顯示W(wǎng)"LJS2.SZ"：不能運(yùn)行呢？

60樓：'machao回

這個(gè)程序已經(jīng)把數(shù)據(jù)庫(kù)內(nèi)置到擴(kuò)充變量了，選擇2.SZ設(shè)置曲線元要素，然后礪LJS進(jìn)行坐標(biāo)

計(jì)算。

61樓：’蘿卜回

這個(gè)程序我也用了一下，不知道怎么運(yùn)行不了，可以的詔發(fā)個(gè)完整的到我郵箱

2401ingl@163.com謝謝了！

62樓：陳偉回

求解：：：：：：：：：：

我前幾天下了一個(gè)4850的程序,那分主程序和子程序.那我在編寫的時(shí)候是不是把主程

序和子程序都得編進(jìn)去啊???？

63樓：lihaojin回

樓主，你好：

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋友可以和我聯(lián)

系

謝謝，請(qǐng)發(fā)給我一份好嗎？

e-mai1:1ihaojinef@sohu.com

64樓：’路橋人0k評(píng)1

一+5分

[H!]-[wji[HJ：

LO非常好的程序?。。【褪怯袔讉€(gè)問題請(qǐng)樓主解答一下：

1.R=Z[2]*8+6]2.G=Z[2]*8+9]（是不是輸入有誤了）3.設(shè)置部分是不是也是有點(diǎn)輸

入有誤了，就能輸入一個(gè)線元要素

我的油箱是rzj75132253@163.comqq:499301954

這個(gè)程序是真的很好！帶大家謝謝你！

65樓：'后視回工廠評(píng)入.

一+5分

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋友可以和我聯(lián)

系

謝謝，請(qǐng)發(fā)給我一份好嗎？

chenbayd1984@126.com

66樓：xhh31回上匚入

1+5分

多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋友可以和我聯(lián)

系

謝謝，請(qǐng)發(fā)給我一份好嗎？

xiaohonghui_31@163.com

評(píng)?

67樓：'WYH回

一+5分

樓主你好！”多條匝道的全線貫通正反算、及標(biāo)高程序我已經(jīng)編好，可以算坡腳線，有需有的朋

友可以和我聯(lián)系”能給我一份嗎？謝謝

WYHLYM685860163.COM

評(píng)：

68樓：'mixiao

回+5分

樓主，你好!請(qǐng)發(fā)卜.多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線，郵

箱:hj29712633@yahoo.com

69樓：hxgl23回

你好，曲率半徑我還有點(diǎn)搞不明白請(qǐng)樓主再明確一下好嗎？

70樓：’狼圖騰回

多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！程序給我發(fā)一份吧,多謝了?。。。。?！

我的郵箱wangliudang0209@

71樓：machao樓主CAS二0編程版主回

輸入部分是一個(gè)循環(huán)語(yǔ)句，可以輸入無(wú)數(shù)段曲線元素。

72樓：machao樓主CASIO編程版主0

坐標(biāo)正反算程序我已經(jīng)編好，這段二作太忙，無(wú)法靜下心來(lái)把編制說明完成，一部分可以優(yōu)化的

部分也無(wú)法完成。有志同道合的朋友請(qǐng)和我聯(lián)系，一起完成這個(gè)程序。在此向支持我的朋友們說

聲謝謝，并表示抱歉。

我的電話/p>

QQ：383674288

有什么問題清和我聯(lián)系

73樓：’路橋人回代評(píng)入

一+□7T

回；

75樓：qingkongl330回

請(qǐng)大家仔細(xì)研究!樓主的程序沒什么錯(cuò)!大家如什么不需要的可以自行刪去.這個(gè)程序是很好的程

序.解決了線元需多次輸原始數(shù)據(jù)的麻煩問題.我頂！

76樓：'hui回遼評(píng)］

你好!請(qǐng)發(fā)下多條匝道的全線貫通正反算、及標(biāo)高程序，可以算坡腳線！我的郵箱是

dianhui@

77樓：'machao回

為使最新版本能盡快與大家分享，請(qǐng)志同道合的朋友盡快和我聯(lián)系，一起完贏個(gè)程序

在此表示感謝

評(píng).

78樓：'huang回入