CASIO万能坐标程序介绍

真正的全线贯通坐标计算，在曲线元要素输入时仅需要输入第一段全部

曲线元要素，后面曲线元要素除起点半径、终点半径、曲线长、转向需输入

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

满足所有精度要求；全线曲线元数据一次性程序化输入，扩充变量数据库，

无需修改程序内容；傻瓜操作，适用初级用户。

一、程序：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、编制说明

本程序是运用复化辛普生公式根据曲线段——直线、圆曲线、缓和曲线

(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、

线元长度、起点曲率半径、上点曲率半径)及里程边距，对该曲线段范围内

任意里程中边桩坐标进行计算，以及对卡西欧扩充变量的灵活应用，实现了

真正意义上的的全线贯通及曲线要素输入程序化(在不修改程序内容的情况

下可通过运行程序输入任意多段曲线元要素)。通过对N二？进行修改，可

对辛普森公式进行任意等分进行运算。(注：N为不小于2的整数，N越大

精度越高，计算速度越慢；N越小精度越低，运算速度越快，一般曲线取N=4

就能满足精度要求，在能满足精度的情况下尽量N取小值，己获得最佳运算

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

b、程序操作说明

程序分为两部分：LJS为计算，2.SZ为设置。

1、首先用Shift+Defm键对计算器内存变量进行扩充，扩充变量数为

8xX+2（X为曲线元段数，变量数视内存情况尽量大些），运行程序，选2

进行曲线要素设置，为防止误操作在正确输入口令123456时方可进行设置，

否则显示OUT跳到程序尾（LBI4）o在执行程序中将第一段曲线元要素按规

律输入到扩充内存变量中

（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”，其他参数自动计算得出。在显示NEXT时

为提示是否输入下一曲线，按EXE继续输入，如不需再输入则退出程序。

2、选1.JS进行坐标运算，D输入桩号，Z输入左右距离（负为左，正为

右，0为中）程序首先自动判断其在哪一线元内，并把其线元要素调出进行

计算，即可对全线进行坐标计算。

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=-l；当线元往右偏时，Q=l；当线元为直线时，Q=0o

(2)当所求点位于中线时，Z=0,坐标显示XY；当位于中线左侧时，Z

取负值，坐标显示XLYL,；当位于中线右侧时，Z取正值，坐标显示XRYRo

(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次

方代替。

(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径

均等于圆弧的半径。

(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，

以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点

与直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时,

曲率半径等于圆曲线的半径。

(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计

规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接

时，曲率半径等

于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。[/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日更新，加入了坐标反算功能，坐标正算加入斜角计算功能。

程序特点：

真正的全线贯通坐标正反计算！在曲线元要素输入时仅需要输入第一段全部

曲线元要素，后面曲线元要素除起点半径、终点半径、曲线长、转向需输入

外其他要素均从前一曲线按辛普森8等分计算得出，解决了主线坐标计算无

法获得第二段及其以后曲线元起点参数的问题；辛普森公式任意等分，满足

所有精度要求；全线曲线元数据一次性程序化输入，参数存储采用扩充变量

数据库，无需修改程序内容；多功能采用单程序编程，蓝馄捣领餐米映绦颍

峋阪怂闲溷龈簧倒喜僮鲸毛鹦视贸跄〃摺？

一、程序：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、编制说明

本程序是运用复化辛普生公式根据曲线段——直线、圆曲线、缓和曲线(完

整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元

长度、起点曲率半径、止点曲率半径)及里程边距，对该曲线段范围内任意

里程中边桩坐标进行计算，以及对卡西欧扩充变量的灵活应用，实现了真正

意义上的的全线贯通及曲线要素输入程序化(在不修改程序内容的情况下可

通过运行程序输入任意多段曲线元要素)。通过对N=?进行修改，可对辛

普森公式进行任意等分进行运算。(注：N为不小于2的整数，N越大精度

越高，计算速度越慢；N越小精度越低，运算速度越快，一般曲线取N=4就

能满足精度要求，在能满足精度的情况下尽量N取小值，已获得最佳运算速

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

b、程序操作说明

程序分为两部分：LJS为计算，2.SZ为设置。

1、首先用Shift+Defm键对计算器内存变量进行扩充，扩充变量数为8xX+2

（X为曲线元段数，变量数视内存情况尽量大些），运行程序，选2进行曲

线要素设置，为防止误操作在正确输入口令123456时方可进行设置，否则显

示OUT跳到程序尾（LBI4）o在执行程序中将第一段曲线元要素按规律输入

到扩充内存变量中（A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G“LS”:U“G"）,

以后曲线仅需输入R“R0”、E“RN”:G“LS”:U"G”，其他参数自动计算得出。

在显示NEXT时为提示是否输入下一曲线，按EXE继续输入，如不需再输入

则退出程序。

2、选1.JS进行坐标运算，D输入桩号，Z输入左右距离（负为左，正为右,

0为中）程序首先自动判断其在哪一线元内，并把其线元要素调出进行计算,

即可对全线进行坐标计算。

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=-l；当线元往右偏时，Q=l；当线元为直线时，Q=0«

(2)当所求点位于中线时，Z=0,坐标显示XY；当位于中线左侧时，Z

取负值，坐标显示XLYL,；当位于中线右侧时，Z取正值，坐标显示XRYR。

(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45

次方代替。(对于特别长的直线应适当提高10的次方数，以防止以大半径曲

线误算，建议以10的90次方计算)

(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径

均等于圆弧的半径。

(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大,

以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点

与直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时,

曲率半径等于圆曲线的半径。

(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设

计规定的值；与圆曲线相接时，

本程序可在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

程序特点：

全线标高数据一次性程序化输入，扩充变量数据库，无需修改程序内容；全

线贯通计算，标高计算时将全线数据分为4等分，首先判断待求点在哪个区

间，再循环选择，提高运算时间；傻瓜操作，适用初级用户。

一、程序：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为参数设置。

1、首先用Shift+Defm键对计算器内存变量进行扩充，扩充变量数为4xX+2

（X为标高参数段数，变量数视内存情况尽量大些），运行程序，选2进行

标高参数设置，为防止误操作在正确输入口令123456时方可进行设置，一组

参数输入完毕后显示“NEXT”，如输入完毕请退出，按“EXE”继续。

2、选1.BG进行标高运算，D输入桩号，Z输入距离，程序首先自动判断其

待求点在哪一段参数内，并将参数调出进行计算，即可对全线进行标高计算。

c、变量说明

Z“D0”-----------------------起点桩号（非变坡点）

H“BG”----------------------起点标高（非变坡点）

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

R“R0”-----------------------竖曲线半径（凸曲线为负值；凹曲线为正值，直坡为0）

沙发：'路桥人回4A评入

一+10分

万能坐标计算？怎么个万能法？

评・

2楼：MACHAO楼主CASIO编程版主回+101

本程序的主要特点是参数输入不需要修改程序内容，直接在程序运行中输入，可自动实现全线坐

标计算

3楼：工程测量回转评公

好东西！顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

4楼：zcj007回

好！试一试

评・

6楼：zcj007回4Ah

一+107T

能运行啊，不知道精度怎么样啊？搂住

评.

7楼：'Pym_54回+4分

呵呵，下来看看，谢谢。

8楼：’徐工回

先下来用用，谢谢

9楼：zcj007回

楼住请问一下你这个跟工测网里的有什么区别？

10楼：'weilai回

为什么你的程序没有lb5程序.

评・

11楼：qingkongl330回“公

一+5分

利用复化辛普生公式写的程序这是我见的最好的了顶

12楼：qingkongl330回

楼主还记得我吗呵呵这段时间在工地没顾上和你联系不好意

思了楼主我看你还是把Lbi5+」

用法和朋友们说说吧我怕解释的不好让大家笑话了呵呵

13楼：'hejie回

不行啊，太多太烦

14楼：'xx回

还要这样的靠近里程，那麻烦拉

15楼：machao楼主CAS10编程版主回

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋友可以和我联

系

16楼：machao楼主CASIO编程版主回

工测网上的那个程序也是我编的，是一样的

17楼：machao楼主CASO编程版主回

不过在这里修改比较方便，这里显示的都是我最新修改过的，谢谢大家的支持！

18楼：machao楼主CAS10编程版主回

qingkongl330你好，LBI5其实也没太大作用，只是一个结束语句，程序中有几处需要跳出程序

的，我就让他挑到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(按线元数据输入既可)：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分

楼主你好！”多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋

友可以和我联系”能给我■份吗？谢谢！ccy_er@

22楼：wangzhengping1963回

请问:Defm42的扩充变量怎样计算

23楼：长大需要时间回工评入

—+5分

这程序太有用拉,但我还是新手不知道怎么用那变量,你能解释的清楚点吗!先谢谢拉

24楼：’dgg回

楼主：你好

请跟我发一下

多条匝道的全线贯通正反算、及标高程，我的邮箱是zhang8763@163.com,再次表示感谢！！！

25楼：’测量的回c评入

看起来行的通没编过啊不知道好用不

26楼：'xiaoyang回

楼主你好！

请发下多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线！

表示感谢！

27楼：'xiaoyang回

我的176151882@qq.com

28楼：dengyangya回

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线

楼主可以把程序发一份给我呢！谢谢了

我的邮箱是dengyangyang@sina.con

评.

29楼：liuchuang347回十§)

楼主可以把程序发一份给我呢！谢谢了

我的邮箱是1iuchuang347@sohu.con

回+5评、

30楼：guoshubinl978

感谢楼主

程序太好了匝道的全线贯通正反算、及标高程序，可以算坡脚线，能否给我一份

静候佳音

guoshubinl978@163.com

31楼：四海测量回

楼主那个G表示是什么啊输入无限多段线元要素怎么输啊

评・

32楼：chanzuimao回匚入

—+5分

楼主，你好，可以给我讲讲如何编程吗？基础的，因为我还是学生还没来得及学呢，但我很渴望

得到您的指导，谢谢了！QQ405725282

shengxiaozhe@l63.com

33楼：四海测量回

这个程序我输入后,根本运行不了.

34楼：兰远照回

我也有这个程序，不过我的编法跟你不一样。我的用坐标计算桩号及宽度的是基于用桩号计

算坐标之上再编的。

35楼：'hubin回

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线

楼主可以把程序发一份给我呢！谢谢了

我的邮箱是hubinl9731228@126.con

36楼：’红蚂蚁0

感谢楼主

程序太好了匝道的全线贯通正反算、及标高程序，可以算坡脚线，能否给我一份

静候佳音

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

37楼：杨小回

楼主，你好!请发下多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！我的邮箱是

vx.i59@tom.com

评・

38楼：谢小能xiexiaoneng回“入

一+5分

无私奉献的精神值得加分！

评.

39楼：'eagle回入

—+5分

CAST05800P中听不中看不中用，计算起来慢如蜗牛，强烈建议CASIO公司符其更名为CASI04550P,

以免误导众测量人。大家把省下来的人民币用于购买正版的软件更合适，不信试试!有同感者顶

一下，我用4800计算YSHF的任意曲线正反算程序，反算时须6秒，移植到5800后须13秒，我

当时差点把它砸了。致电CASIO公司，回答含糊其辞，令人失望。

评.

40楼：'tiger回

一+5分

很好用，谢谢你的帮助。希望楼主能编平竖曲线结合，能计算隧道全断面超欠挖的程序。

我朋友是一名30年炮工班长，有多名亲属及朋友跟我一起打了十来条隧道，欲承包隧道炮工劳

务，有信息者定谢师工

提供信息者我将为你编一个任意曲线隧道断面及边坡超欠挖程序为射。

CASI05800P中听不中看不中用，计算起来慢如蜗牛，强烈建议CASIO公司将其更名为CASI04550P,

以免误导众测量人。大家把省下来的人民币用于购买正版的软件更合适，不信试试！有同感者顶

一下，我用4800计算YSHF的任意曲线正反算程序，反算时须6秒，移植到5800后须13秒，我

当时差点把它砸了。致电CASIO公司，回答含糊其辞，令人失望。

41楼：'youcaitou回

一+5分

加分

42楼：’测量0

楼主，你好!请发下多条匝道的全线贯通正反算、及标高程序，可以算坡脚线，邮

箱:zhyx200577@126.com

43楼：’祝明科回

楼主，怎么程序在4800计算器卜不能运行

43楼：'SDFF回

楼主,可一给我一个全线贯通的程序吗?QQ;542996709.先下谢谢啦

44楼：’小刘回+10评］

您好,楼主,我在武广线上搞测量啊,请问您能给我发一份完整的MC程序到我的油箱里面么?非常

谢谢.

45楼：’小刘回代评公

+57T

我的电子油箱是aDDlebov0110@yahoo.com.cn,我急着等着用啊,有劳楼主了。

评・

46楼：xtwgs回ARh

一+5分

上面例子运行不了啊

48楼：乐乐回+5评“

楼主，你好!请发下多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！我的邮箱是

chejianjunnihao@163.com

49楼：’小白回

楼主你好：

多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！程序给我发一份吧，多谢

了！！！！！！！！！！！

我的邮箱：baiyuemingl23@163.com

50楼：’小白回评：

+5分

忘打分了我补上！！！！

51楼：'shizi画

15楼：machao楼主回

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋友可以和我联

系

16楼：machao楼主回

工测网上的那个程序也是我编的，是一样的

可以发给我•份吗谢谢楼主sgcyl502@126.com

52楼：zcj007回二4八

—+5分

楼主你好：

多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！程序给我发一份吧，多谢

了！！！！！！！！！！！

我的邮箱：zcj21130126.com

53楼：wangzhengpingl963回

多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！请把程序给我发二M吧,谢谢了

我的邮箱：wangzhengping42@163.com

54楼：Tiqingdei回

一+5分

多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！程序给我发一份吧，多谢了！

我的邮箱：1iqingdei@163.com

评.

55楼：'测量回工

—+5分

楼主，你好!请发下多条匝道的全线贯通正反算、及标高程序，可以算坡脚线，邮

箱:zhyx200577@126.com

56楼：xtwgs回

MACHAO,你这个能将数据库加入到一起的话就更好了！

57楼：xtwgs回

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，能给我发一份

吗？xtwgs@163.com,谢谢

评.

58楼：”1198088回'

一+5c分

多条匝道的全线贯通正反算、及标高程序我己经编好，可以算坡脚线

楼主可以把程序发一份给我呢！谢谢了

我的邮箱是：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"LJS2.SZ"：不能运行呢？

60楼：'machao回

这个程序已经把数据库内置到扩充变量了，选择2.SZ设置曲线元要素，然后砺LJS进行坐标

计算。

61楼：’萝卜回

这个程序我也用了一下，不知道怎么运行不了，可以的诏发个完整的到我邮箱

2401ingl@163.com谢谢了！

62楼：陈伟回

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

我前几天下了一个4850的程序,那分主程序和子程序.那我在编写的时候是不是把主程

序和子程序都得编进去啊???？

63楼：lihaojin回

楼主，你好：

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋友可以和我联

系

谢谢，请发给我一份好吗？

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分

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋友可以和我联

系

谢谢，请发给我一份好吗？

chenbayd1984@126.com

66楼：xhh31回上匚入

1+5分

多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋友可以和我联

系

谢谢，请发给我一份好吗？

xiaohonghui_31@163.com

评・

67楼：'WYH回

一+5分

楼主你好！”多条匝道的全线贯通正反算、及标高程序我已经编好，可以算坡脚线，有需有的朋

友可以和我联系”能给我一份吗？谢谢

WYHLYM685860163.COM

评：

68楼：'mixiao

回+5分

楼主，你好!请发卜.多条匝道的全线贯通正反算、及标高程序，可以算坡脚线，邮

箱:hj29712633@yahoo.com

69楼：hxgl23回

你好，曲率半径我还有点搞不明白请楼主再明确一下好吗？

70楼：’狼图腾回

多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！程序给我发一份吧,多谢了！！！！！！

我的邮箱wangliudang0209@

71楼：machao楼主CAS二0编程版主回

输入部分是一个循环语句，可以输入无数段曲线元素。

72楼：machao楼主CASIO编程版主0

坐标正反算程序我已经编好，这段二作太忙，无法静下心来把编制说明完成，一部分可以优化的

部分也无法完成。有志同道合的朋友请和我联系，一起完成这个程序。在此向支持我的朋友们说

声谢谢，并表示抱歉。

我的电话/p>

QQ：383674288

有什么问题清和我联系

73楼：’路桥人回代评入

一+□7T

回；

75楼：qingkongl330回

请大家仔细研究!楼主的程序没什么错!大家如什么不需要的可以自行删去.这个程序是很好的程

序.解决了线元需多次输原始数据的麻烦问题.我顶！

76楼：'hui回辽评］

你好!请发下多条匝道的全线贯通正反算、及标高程序，可以算坡脚线！我的邮箱是

dianhui@

77楼：'machao回

为使最新版本能尽快与大家分享，请志同道合的朋友尽快和我联系，一起完赢个程序

在此表示感谢

评.

78楼：'huang回入