CASIO萬能坐標程序介紹

真正的全線貫通坐標計算，在曲線元要素輸入時僅需要輸入第一段全部

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

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

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

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

一、程序：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、編制說明

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

(完整或非完整型)的線元要素(起點坐標、起點里程、起點切線方位角、

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

任意里程中邊樁坐標進行計算，以及對卡西歐擴充變量的靈活應用，實現(xiàn)了

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

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

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

精度越高，計算速度越慢；N越小精度越低，運算速度越快，一般曲線取N=4

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

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

b、程序操作說明

程序分為兩部分：LJS為計算，2.SZ為設置。

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

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

進行曲線要素設置，為防止誤操作在正確輸入口令123456時方可進行設置，

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

律輸入到擴充內(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ù)自動計算得出。在顯示NEXT時

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

2、選1.JS進行坐標運算，D輸入樁號，Z輸入左右距離（負為左，正為

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

計算，即可對全線進行坐標計算。

c、變量說明

XO：YO：F0------------曲線元起點X、Y坐標及起點正切線方位角

RO：RN------------------曲線元起點及終點半徑

DO：LS：Q-----------曲線元起點樁號、路線長度及線路左右偏標志（左

直線=0,右=1）

D------------------------曲線元中待求點樁號

Z------------------------計算邊樁距中線平距，左邊輸入負值，右邊輸入正

值，中樁輸入0

X：Y(中)

XL:YL(左)

XR:YR(右)------待求點的X,Y坐標

擴充變量：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)以道路中線的前進方向(即里程增大的方向)區(qū)分左右；當線元往左

偏時，Q=-l；當線元往右偏時，Q=l；當線元為直線時，Q=0o

(2)當所求點位于中線時，Z=0,坐標顯示XY；當位于中線左側(cè)時，Z

取負值，坐標顯示XLYL,；當位于中線右側(cè)時，Z取正值，坐標顯示XRYRo

(3)當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次

方代替。

(4)當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑

均等于圓弧的半徑。

(5)當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，

以10的45次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點

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

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

(6)當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計

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

時，曲率半徑等

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

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

緩直+直緩)。

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

①4800②)F/B1

鄭石高速路面NO.9標余官營互通E匝道

序號XoYoFoRoRNDOLSG

1744383.112510406.45643。34n00.0n700070000170-1

中點樁號中點X中點Y終點樁號終點X終點Y

85744445.055510464.662170744507.700510522.112

2744507.700510522.11242。10"30.8"7000500170116.0711

中點樁號中點X中點Y終點樁號終點X終點Y

228.036744550.193510561.637286.071744590.136510603.713

3744590.136510603.71349018”02.3”500500286.071299.2821

中點樁號中點X中點Y終點樁號終點X終點Y

435.712744669.415510729.969585.353744707.945510873.987

4744707.945510873.98783。35”44.8”500無窮大585.353601

中占樁號中占x中占Y線占樁號線占X線占Y

615.353744710.545510903.872645.353744712.24751093

3.823

2008年1月27日更新，加入了坐標反算功能，坐標正算加入斜角計算功能。

程序特點：

真正的全線貫通坐標正反計算！在曲線元要素輸入時僅需要輸入第一段全部

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

外其他要素均從前一曲線按辛普森8等分計算得出，解決了主線坐標計算無

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

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

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

峋阪慫閑溷齦簧倒喜僮鯨毛鸚視貿(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、編制說明

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

整或非完整型)的線元要素(起點坐標、起點里程、起點切線方位角、線元

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

里程中邊樁坐標進行計算，以及對卡西歐擴充變量的靈活應用，實現(xiàn)了真正

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

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

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

越高，計算速度越慢；N越小精度越低，運算速度越快，一般曲線取N=4就

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

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

b、程序操作說明

程序分為兩部分：LJS為計算，2.SZ為設置。

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

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

線要素設置，為防止誤操作在正確輸入口令123456時方可進行設置，否則顯

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

到擴充內(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ù)自動計算得出。

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

則退出程序。

2、選1.JS進行坐標運算，D輸入樁號，Z輸入左右距離（負為左，正為右,

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

即可對全線進行坐標計算。

c^變量說明

XO：YO：F0------------曲線兀起點X、Y坐標及起點正切線方位角

RO：RN------------------曲線元起點及終點半徑

DO：LS：Q---------曲線元起點樁號、路線長度及線路左右偏標志（左二1,直

線=0,右=1）

D------------------------曲線元中待求點樁號

Z---------------------------計算邊樁距中線平距，左邊輸入負值，右邊輸入正值,

中樁輸入0

RJ：坐標正算右夾角

X：Y（中）

XL:YL（左）

XR:YR（右）-------------待求點的X,Y坐標

擴充變量：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)以道路中線的前進方向(即里程增大的方向)區(qū)分左右；當線元往左

偏時，

Q=-l；當線元往右偏時，Q=l；當線元為直線時，Q=0?

(2)當所求點位于中線時，Z=0,坐標顯示XY；當位于中線左側(cè)時，Z

取負值，坐標顯示XLYL,；當位于中線右側(cè)時，Z取正值，坐標顯示XRYR。

(3)當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45

次方代替。(對于特別長的直線應適當提高10的次方數(shù)，以防止以大半徑曲

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

(4)當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑

均等于圓弧的半徑。

(5)當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大,

以10的45次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點

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

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

(6)當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設

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

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

②)

鄭石高速路面NO.9標余官營互通E匝道

序號XoYoFoRoRNDOLSG

1744383.112510406.45643。34u00.0n700070000170-1

中點樁號中點X中點Y終點樁號終點X終點Y

85744445.055510464.662170744507.700510522.112

2744507.700510522.11242。10"30.8"7000500170116.0711

中點樁號中點X中點Y終點樁號終點X終點Y

228.036744550.193510561.637286.071744590.136510603.713

3744590.136510603.71349o18”02.3”500500286.071299.2821

中點樁號中點X中點Y終點樁號終點X終點Y

435.712744669.415510729.969585.353744707.945510873.987

4744707.945510873.98783。35”44.8”500無窮大585.353601

中占樁號中占x中占Y段占樁號段占X段占Y

615.353744710.545510903.872645.353744712.247510933.823

計算時間測試（秒），計算精度滿足1mm時測試每段曲線元的終點

4等分

正算：2.32.42.52.6

反算：9.612.416.517.0

5等分

正算：2.52.72.82.9

反算：11.813.818.719.1

X

程序特點：

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

線貫通計算，標高計算時將全線數(shù)據(jù)分為4等分，首先判斷待求點在哪個區(qū)

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

一、程序：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為標高計算，2.SZ為參數(shù)設置。

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

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

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

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

2、選1.BG進行標高運算，D輸入樁號，Z輸入距離，程序首先自動判斷其

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

c、變量說明

Z“D0”-----------------------起點樁號（非變坡點）

H“BG”----------------------起點標高（非變坡點）

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

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

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

一+10分

萬能坐標計算？怎么個萬能法？

評?

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

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

標計算

3樓：工程測量回轉(zhuǎn)評公

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

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

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

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

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

4樓：zcj007回

好！試一試

評?

6樓：zcj007回4Ah

一+107T

能運行啊，不知道精度怎么樣啊？摟住

評.

7樓：'Pym_54回+4分

呵呵，下來看看，謝謝。

8樓：’徐工回

先下來用用，謝謝

9樓：zcj007回

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

10樓：'weilai回

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

評?

11樓：qingkongl330回“公

一+5分

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

12樓：qingkongl330回

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

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

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

13樓：'hejie回

不行啊，太多太煩

14樓：'xx回

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

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

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

系

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

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

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

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

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

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

的，我就讓他挑到LBI5

19樓：’徐工回

請問如何輸入空格啊，

20樓：qingkongl330回

主程序：ZBJISJ

(L)：L"K”：LW終點樁號=%=起點樁號：B=線型長度：C=起點X：D=起點Y：￡=方位角：R=

起點半徑：V=終點半徑：W>LW終點樁號=油=起點樁號：B=線型長度：C=起點X：D=起點Y：E=

方位角：R=起點半徑：V=終點半徑：^>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

樓主你好:我沒什么水平.瞎搞個程序起個拋磚引玉的作用.我運用你的程序擴展了一下此程序.

自己覺得還不錯.當然不是這個程序.我覺得程序本身就可以計算待測點的方位角.所以我就讓他

自己計算了.輸入也就簡單了.就說到這里吧.謝謝共享?。?！

評?

21樓：ccy回

一+5分

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

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

22樓：wangzhengping1963回

請問:Defm42的擴充變量怎樣計算

23樓：長大需要時間回工評入

—+5分

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

24樓：’dgg回

樓主：你好

請跟我發(fā)一下

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

25樓：’測量的回c評入

看起來行的通沒編過啊不知道好用不

26樓：'xiaoyang回

樓主你好！

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

表示感謝！

27樓：'xiaoyang回

我的176151882@qq.com

28樓：dengyangya回

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

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

我的郵箱是dengyangyang@sina.con

評.

29樓：liuchuang347回十§)

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

我的郵箱是1iuchuang347@sohu.con

回+5評、

30樓：guoshubinl978

感謝樓主

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

靜候佳音

guoshubinl978@163.com

31樓：四海測量回

樓主那個G表示是什么啊輸入無限多段線元要素怎么輸啊

評?

32樓：chanzuimao回匚入

—+5分

樓主，你好，可以給我講講如何編程嗎？基礎的，因為我還是學生還沒來得及學呢，但我很渴望

得到您的指導，謝謝了！QQ405725282

shengxiaozhe@l63.com

33樓：四海測量回

這個程序我輸入后,根本運行不了.

34樓：蘭遠照回

我也有這個程序，不過我的編法跟你不一樣。我的用坐標計算樁號及寬度的是基于用樁號計

算坐標之上再編的。

35樓：'hubin回

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

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

我的郵箱是hubinl9731228@126.con

36樓：’紅螞蟻0

感謝樓主

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

靜候佳音

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

37樓：楊小回

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

vx.i59@tom.com

評?

38樓：謝小能xiexiaoneng回“入

一+5分

無私奉獻的精神值得加分！

評.

39樓：'eagle回入

—+5分

CAST05800P中聽不中看不中用，計算起來慢如蝸牛，強烈建議CASIO公司符其更名為CASI04550P,

以免誤導眾測量人。大家把省下來的人民幣用于購買正版的軟件更合適，不信試試!有同感者頂

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

當時差點把它砸了。致電CASIO公司，回答含糊其辭，令人失望。

評.

40樓：'tiger回

一+5分

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

我朋友是一名30年炮工班長，有多名親屬及朋友跟我一起打了十來條隧道，欲承包隧道炮工勞

務，有信息者定謝師工

提供信息者我將為你編一個任意曲線隧道斷面及邊坡超欠挖程序為射。

CASI05800P中聽不中看不中用，計算起來慢如蝸牛，強烈建議CASIO公司將其更名為CASI04550P,

以免誤導眾測量人。大家把省下來的人民幣用于購買正版的軟件更合適，不信試試！有同感者頂

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

當時差點把它砸了。致電CASIO公司，回答含糊其辭，令人失望。

41樓：'youcaitou回

一+5分

加分

42樓：’測量0

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

箱:zhyx200577@126.com

43樓：’祝明科回

樓主，怎么程序在4800計算器卜不能運行

43樓：'SDFF回

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

44樓：’小劉回+10評］

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

謝謝.

45樓：’小劉回代評公

+57T

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

評?

46樓：xtwgs回ARh

一+5分

上面例子運行不了啊

48樓：樂樂回+5評“

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

chejianjunnihao@163.com

49樓：’小白回

樓主你好：

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

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

我的郵箱：baiyuemingl23@163.com

50樓：’小白回評：

+5分

忘打分了我補上?。。?！

51樓：'shizi畫

15樓：machao樓主回

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

系

16樓：machao樓主回

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

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

52樓：zcj007回二4八

—+5分

樓主你好：

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

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

我的郵箱：zcj21130126.com

53樓：wangzhengpingl963回

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

我的郵箱：wangzhengping42@163.com

54樓：Tiqingdei回

一+5分

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

我的郵箱：1iqingdei@163.com

評.

55樓：'測量回工

—+5分

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

箱:zhyx200577@126.com

56樓：xtwgs回

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

57樓：xtwgs回

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

嗎？xtwgs@163.com,謝謝

評.

58樓：”1198088回'

一+5c分

多條匝道的全線貫通正反算、及標高程序我己經(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一」

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

60樓：'machao回

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

計算。

61樓：’蘿卜回

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

2401ingl@163.com謝謝了！

62樓：陳偉回

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

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

序和子程序都得編進去啊???？

63樓：lihaojin回

樓主，你好：

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

系

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

e-mai1:1ihaojinef@sohu.com

64樓：’路橋人0k評1

一+5分

[H!]-[wji[HJ：

LO非常好的程序?。。【褪怯袔讉€問題請樓主解答一下：

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

入有誤了，就能輸入一個線元要素

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

這個程序是真的很好！帶大家謝謝你！

65樓：'后視回工廠評入.

一+5分

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

系

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

chenbayd1984@126.com

66樓：xhh31回上匚入

1+5分

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

系

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

xiaohonghui_31@163.com

評?

67樓：'WYH回

一+5分

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

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

WYHLYM685860163.COM

評：

68樓：'mixiao

回+5分

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

箱:hj29712633@yahoo.com

69樓：hxgl23回

你好，曲率半徑我還有點搞不明白請樓主再明確一下好嗎？

70樓：’狼圖騰回

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

我的郵箱wangliudang0209@

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

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

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

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

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

聲謝謝，并表示抱歉。

我的電話/p>

QQ：383674288

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

73樓：’路橋人回代評入

一+□7T

回；

75樓：qingkongl330回

請大家仔細研究!樓主的程序沒什么錯!大家如什么不需要的可以自行刪去.這個程序是很好的程

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

76樓：'hui回遼評］

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

dianhui@

77樓：'machao回

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

在此表示感謝

評.

78樓：'huang回入