求卡西欧5800坐标正反算程序

1主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)

程序名:1ZD-XY

Lb1 0:Norm

2

F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)

Z[1]=90（与路线右边夹角）

Prog＂THB＂：F=1=>Goto

1:F=2=>Goto 2

Lb1 1:Fix 3:＂ X=＂：Locate 6,4,X◢

＂ Y＝＂：Locate

6,4,Y◢

Prog＂3JS”:Goto 0:

Lb1 2:Fix 3:＂　KM＝＂：Locate 6,4,Z◢

＂D＝＂：Locate

6,4,D◢

Goto 0

2．主程序2：高程序横坡程序(设计任意点高程及横坡)

程序名：2GC

LbI 0:Norm

2

“KM”Z:D:

Prog”H”:Fix 3:” H=”:Locate 6,4,H◢

“ I=”: Locate

6,4,I◢

Goto

0

3主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)

程序名：3JS

X：Y：

1268．123→K(置仪点X坐标)

2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）

Y-L→E：X-K→F：Pol(F,E):IF

J<0:Then J+360→J:Int(J)+001Int(60Frac(J))+0006Frac(60Frac(J))

→J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate

6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)

Fix 3:” S=”:Locate

6,4,I◢

4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)

程序名：4JH-XY

LbI

0:Norm

2

90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)

1→F:Prog”THB”:L:

Z[2]-Z[1]

→E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂ X=＂：Locate 6,4,X◢

＂ Y＝＂：Locate

6,4,Y◢

Prog＂3JS”:Goto

0:

5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）

程序名：5FBX

LbI

0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog

“THB”:Z:D:”M0”M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 075-L→D:Goto

H:Else L-075→D:Goto H:IfEnd

LbI H:Prog”H”:H-003-Z[4] →Z[5]:Z[6] →L:If

Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:

LbI W:Prog

“W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else

Goto 3:IfEnd:

LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto

Z:

LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:

LbI

3:L+Z[12]+G×Z[7]:Goto z:

LbI T:L+05→N:If G>Z[17]:Then

(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:

LbI

Z:Z[3]→D:Fix 2:Abs(D)-S→T:” L0=”:L Locate 6,4,T◢

＂　KM＝＂：Locate

6,4,Z◢

＂D＝＂：Locate 6,4,D◢

“ TW=”: Locate 6,4,Z[5]◢

Goto

0

6．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)

程序名：6GD

Prog

“G0”Z-C→E:(B-A)×E/S+A→L:L:

7．坐标计算次程序（THB）

程序名：THB

18→DimZ：＂KM＂Z：Prog

＂X0＂

1÷P→C： (P-R)÷(2HPR) →S： 180÷π→E：F=1=>Goto 1：F=2=>Goto 2←┘

Lbl

1：D： Abs(Z－O) →W：Prog "A"：X：Y：Goto 3

LbI 2:X：Y：X→I：Y→J：Prog

＂B＂：O＋W→Z：D→D：Goto 3

LbI 3:IF F＝1Then X：Y：Else Z：D

8

正算子程序(A)

程序名：A

01184634425→A： 02393143352→B：02844444444→N

0046910077→K： 02307653449→L：05→M：

U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+QE(1-L)W(C+(1-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+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS)))

→Y：

G+QEW(C+WS)+Z［1］→Z［2］：X+Dcos（Z［2］）→X： Y+Dsin（Z［2］）→Y

9

反算子程序(B)

程序名：B

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

"A"： T+QEW(C+WS) →L： (J-Y)cos(L)-(I-X)sin(L)→D：IF Abs(D)<001:Then Goto1：Else

W+D→W:Goto 0←┘

Lbl 1:0→D：Prog "A"：(J-Y)÷sin(Z［2］)

→D:

10．高程计算子程序（H）

程序名：H

Prog “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If

T=O:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then

Q+LI+L2÷2÷R→H:Goto 0:

LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto

I:LbI I:H:I:

11高程超高计算程序（I）

程序名：I

Prog”I0”:

W=1=> Goto

0:W=2=>Goto 1:

LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else

Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:

LbI 1:If L=0:Then Abs(D)×M→V:Goto

2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:

LbI

2:Abs(D)→E:V÷E→I:I(E-K)→V:

12．数据子程序(附后示例)

①程序名：X0（坐标计算要素程序）

If Z≥25900

And Z≤26615555:Then

25900→O:11587421→U:1847983→V:101。09’231”→G:715555→H:1×1045→P: 1×1045→R:

0→Q:Goto 0: IfEnd:

If Z≥26615555 And Z≤26915555:Then

26615555→O:1144897→U:2550016→V:101。09’231”→G:300→H:1×1045→P: 1800→R:1→Q:Goto

0:IfEnd:

If Z≥26915555 And Z≤27316952:Then

26915555→O:11382792→U:2842531→V:105。55’5183”→G:401396→H:1800→P:

1800→R:1→Q:Goto 0:IfEnd:

……

LbI

0:O:U:V:G:H:P:R:Q:

程序字母说明：O-线元起点桩号；U-起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角;

H－线元长度，P－线元起点曲率半径，R－线元终点曲率半径,Q－线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。

②程序名：SO(高程竖曲线要素子程序)If Z≥25900 And

Z≤261578:Then -200000→R:1578→T:26000→C:371→G:001222→I:Goto 0:IfEnd:

If

Z≥261578 And Z≤27421915:Then

300000→R:171915→T:27250→C:3265→G:-000356→I:Goto 0:IfEnd:

If Z≥27421915

And Z≤27889029:Then 1000000→R:134029→T:27755→C:3664→G:00079→I:Goto

0:IfEnd:

……

LbI

0:R:T:G:C:I:

程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I－竖曲线前纵坡

③程序名：I0（高程超高参数子程序）

15→K:2→W:If

D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≥25900 And Z≤26615555:Then

0→L:-002→M:Goto 0:IfEnd:

If Z≥26615555 And Z≤26735555:Then

120→L:26615555→C:-002→M:002→N:Goto 0:IfEnd:

If Z≥26735555 And

Z≤26795555:Then 60→L:26735555→C:002→M:004→N:Goto 0:IfEnd

If Z≥26795555

And Z≤27436951:Then 0→L:004→M: Goto 0:IfEnd

……

LbI R: If Z≥25900 And

Z≤26735555:Then 0→L:-002→M: Goto 0:IfEnd

If Z≥26735555 And

Z≤26795555:Then 60→L:26735555→C:-002→M:-004→N:Goto 0:IfEnd

If Z≥26795555

And Z≤27436951:Then 0→L:-004→M: Goto 0:IfEnd

……

LbI 0

K:W:L:C:M:N:

字程序中字母表示说明：

K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;L－超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。

④程序名：GO(路基标准半幅宽度参数子程序)

If

D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≥25900 And Z≤28110727:Then

Z→C:1725→A:Goto 0:IfEnd:

If Z≥28110727 And Z≤28200727:Then

28110727→C:1725→A:2125→B:90→S:Goto 0:IfEnd

……

LbI R: If Z≥25900 And

Z≤27927478:Then Z→C:1725→A: Goto 0:IfEnd

If Z≥27927478 And Z≤28172:Then

27927478→C:1725→A:27031→B:244522→S:Goto 0:IfEnd

……

LbI 0

C:A:B:S:

字程序中字母表示说明：

C－宽度渐变段起点桩号（不是渐变段C=Z）；A－宽度渐变段起点宽度;

B－宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。

⑤程序名：WO(路基填挖边坡参数子程序)075→Z[7]:1→Z[8]:125→Z[9]:10→Z[10]:10→Z[11]:26→Z[12]:2→Z[13]:2→Z[14]:

15→Z[15]:175→Z[16]:8→Z[17]:2→Z[18]

字程序中字母表示说明：

Z[7]－挖方第一阶边坡边率；Z[8]－挖方第二阶边坡边率；Z[9]－挖方第三阶边坡边率；Z[10]－挖方第一阶高度；Z[11]－挖方第二阶高度；Z[12]－挖方路基碎落台及水沟宽度；Z[13]－挖方第二台阶平台宽度；Z[14]－挖方第三台阶平台宽度；

Z[15]－填方第一阶边坡边率；Z[16]－填方第二阶边坡边率;

Z[17]－填方第一阶高度；Z[18]-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和5FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）

三、使用说明1、规定

(1)

Z“KM”为所求点桩号，反算时为输入大概桩号

(2)

当所求点位于中线时，D=0；当位于中线左铡时，D取负值；当位于中线中线右

侧时，D取正值。

(3)

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

(4)

当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆

弧的半径。

(5)

当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半

径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6)

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

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

2、输入与显示说明 输入部分：

1

F＝1：ZD => XY

2F＝2： XY = > ZD

F

选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。Z［1］为线元边桩与中线右夹角。

KM？正算时所求点的里程（反算输入大概桩号）

D ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)

X0 ？反算时所求点的X坐标（放样程序中实测X坐标）

Y0

？反算时所求点的Y坐标（放样程序中实测Y坐标）

显示部分：

L 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负

M0

边坡放样程序中原地面标高输入

X= 正算时，计算得出的所求点的X坐标

Y=

正算时，计算得出的所求点的Y坐标

FWJ=

正算时，计算得出的所求点的至置仪点方位角（在3JS程序中应输入X、Y坐标值于K、L）

S=

正算时，计算得出的所求点的至置仪点距离

KM= 反算时，计算得出的所求点的里程

D=

反算时，计算得出的所求点的边距

H= 所求点位置设计路面顶标高

I=

所求点位置设计路面横坡

L0= 边桩放样程序中实测点至设计边坡点距离，正向内移，

这个是我月个朋友编写的“卡西欧4800计算全站仪坐标程序”一共是5个程序。1个主程序，4个子程序，好用的话大家帮我推荐一下：

平曲线坐标计算程序（CASIO fx-4800P）

A子程序：X＞M⇒Prog“B”：Goto 0：≠⇒X=M⇒Prog“C”：≠⇒X＜M⇒Prog“B”：Q=Q+180：Lb1 0：Q=Q+360：Q≥360⇒Q=Q-360◢≠⇒Q=Q◢

B子程序：Q“Q”=tan-1（（Y-N）÷（X-M）

C子程序：Y≥N⇒Q=90◢

≠⇒Q=270◢

D子程序：C“SO”=√（（X-M）2+（Y-N）2）

PQX主程序：

R“R”S“LS1”U“LS2”W“ZG”P“WZH”：A=90S÷Rπ：B=90U÷Rπ：C=S2÷24R：D=U2÷24R：E=S÷2-S＾3÷240R2：F=U÷2-U＾3÷240R2：Q“T1”=E+（R+C）tan（AbsW÷2）+（D-C）÷sin AbsW◢

K“T2”=F+（R+C）tan（AbsW÷2）-（D-C）÷tan AbsW◢

O“S”=（AbsW-A-B）Rπ÷180+S+U◢

J“JD”T“XJD”V“YJD”：A“ZH”=J-Q◢

B“HY”=A+S◢

E“YH”=A+O-U◢

F“HZ”=A+O◢

G“XZH”=T+Q cos（P+180）◢

H“YZH”=V+Q sin（P+180）◢

I“XHZ”=T+K cos（P+W）◢

J“YHZ”=V+K sin（P+W）◢

M“XO”N“YO”：Prog“A”：Prog“D”◢

Lb1 O：｛Z｝：Z“ZHUANG HAO”：｛D｝：D：｛T｝：T“JG”：Lb1 0：Z≤A⇒Goto 1：≠⇒Z＞A⇒Z≤B⇒L=Z-A：Goto 2：≠⇒Z＞B⇒Z≤E⇒L=S：Goto 2：≠⇒Z＞E⇒Z≤F⇒L=F-Z：Goto 2：≠⇒Z＞F⇒C=Z-F：Goto 8△Lb1 1：C=A-Z：X=G+C cos（P+180）：Y=H+C sin（P+180）：V=P：Goto 9△Lb1 2：Z＞A⇒Z≤E⇒K=RS：Goto Y：≠⇒Z＞E⇒Z≤F⇒K=RU：Goto Y△Lb1 Y：K=0⇒V=P：X=G：Y=H：Goto 6≠⇒Goto 3：Lb1 3：X=L-L＾5÷40K2+L＾9÷3456K＾4-L＾13÷599040K＾6：Y=L＾3÷6K-L＾7÷336K＾3+L＾11÷42240K＾5-L＾15÷9676800K＾7：C√（X2+Y2）：V=90L2÷πK：Q=tan-1（Y÷X）：Goto A△Lb1 A：W＜O⇒Q=-Q：V=-V·GotoB△ Lb1 B：Z＞A⇒Z≤E⇒Goto 5：≠⇒Z＞E⇒Z≤F⇒Goto 7△Lb1 5：X=G+C cos（P+Q）：Y=H+C sin（P+Q）：V=P+V ：Goto C△ Lb1 C：Z＞A⇒Z≤B⇒Goto 9：≠⇒Z＞B⇒Goto 6△ Lb1 6：∠L=Z-B：Q=90L÷πR：C=2R sinQ：Goto D△ Lb1 D：W＜O⇒Q=-Q：Goto E△ Lb1 E：X=X+C cos（V+Q）：Y=C sin（V+Q）+Y：V=V+2Q：Goto 9△ Lb1 7：X=I+C cos（P+W+180-Q）：Y=J+C sin（P+W+180-Q）：V=P+W-V：Goto 9△ Lb1 8：X=I+C cos（P+W）：Y=J+C sin（P+W）：V=P+W：Goto 9△ Lb1 9：X=X+D cos（V+T）：“X=”：Pause 0：Y=Y+D sin（V+T）◢

Prog“A”：Prog“D”：◢

Goto O

程序执行输入说明

R：输入半径

Ls1：缓和曲线第一段长度

Ls2：缓和曲线第二段长度

ZG：转角 即路线偏角（左转为负，右转为正）

WZH：后段切线方位角（按路线前进方向，在路线方向后为后段切线）

T1：第一段切线长度

T2：第二段切线长度

S：平曲线长度（包括缓和曲线和圆曲线）

JD：交点桩号

XTD：交点桩号X轴坐标

XTD：交点桩号Y轴坐标

ZH：直缓点桩号

HY：缓圆点桩号

YH：圆缓点桩号

HZ：缓直点桩号

XZH：直缓点X轴坐标

YZH：直缓点Y轴坐标

XHZ：缓直点X轴坐标

YHZ：缓直点Y轴坐标

XO：置仪点（测站点）X轴坐标 不用输

YO：置仪点（测站点）Y轴坐标 不用输

X：后视点X轴坐标 不用输

Y：后视点Y轴坐标 不用输

Q：方位角（置仪点至后视点方位角，当输入桩号“ZHUANG HAO”即所求点桩号时，会计算置仪点至放样点的方位角）

SO：距离（置仪点至后视点距离，当输入桩号“ZHUANG HAO”即所求点桩号时，会计算置仪点至放样点的距离，适用于利用经纬仪+测距仪使用）

ZHUANG HAO：输入所求点桩号。

D：所求点至中桩的距离，左边桩为“—”；右边桩为“+”，当D=0时，即求中桩点的坐标。

JG：所求点中桩与四桩的夹角。

5800中边桩坐标计算程序ZZZZZZ(主程序)Lb1 1:”NOI”H:Prog”Z1”换行(E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I换行C＋（I＋2D）×Q×90÷π→J换行C＋（I÷8＋2D）×Q×45÷（4π）→M换行C＋（3I÷8＋2D）×Q×135÷（4π）→N换行C＋（5I÷8＋2D）×Q×225÷（4π）→U换行C＋（7I÷8＋2D）×Q×315÷（4π）→V换行C＋（I÷4＋2D）×Q×45÷（2π）→K换行C＋（I÷2＋2D）×Q×45÷π→L换行C＋（3I÷4＋2D）×Q×135÷（2π）→Z换行A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosL＋cosZ）＋cosJ）→X换行B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinL＋sinZ）＋sinJ）→Y换行“X=”:X◢“Y=”:Y◢ “W L“O:"WR"R“XL=”:X＋O×cos（J－90）◢ “YL=”:Y＋O×sin（J－90）◢ “XR=”:X＋R×cos（J＋90）◢ “YR=”:Y＋R×sin（J＋90）◢Goto 1换行 Z1（数据库）If H≤终点桩号：Then起点桩号→F:终点桩号→G：起点X坐标→A:起点Y坐标→B：起点切线方位角→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。N个Lb1 0：Return换行曲率左偏为负右偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。。。等等需要使用时把主程序Z1改为Z2依次类推NOI？为要求点里程

一、 坐标计算源程序

1主程序(TYQXjs)

"1SZ => XY"："2XY => 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：≠>Go to 2Δ←┘

Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢

Y"YS"=Y◢

Goto 1←┘

Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢

Z"Z"=Z◢

Goto 2

以上就是关于求卡西欧5800坐标正反算程序全部的内容，包括:求卡西欧5800坐标正反算程序、谁能给我个 卡西欧4800坐标方位角计算编程程式、卡西欧5800计算器的各种程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！