卡西欧FX-5800 程序问题，高手帮忙看看！（圆（缓和）曲线坐标计算及方位角放样）

程序病句如：If H=0: Then “FWJ=”F:Goto1 :Else“Y(ZD)=”M:Pol((H-P),(M-Q)):If J<0:Then360+JJ:ElseJ:IfEnd:Sin-1(I÷2÷R)Z[1]:J-GZ[1]F:“YHC=”:2Z[1]R×(π÷180)◢ IfEnd

程序本身有错如：Then360+JJ  多了个J

运行程序前确认以对5800计算器进行了额外变量扩充否则程序正确也不行

建议好好看看说明书上IF语句的运用（有此类病句）！！！

还漏了些最基本的程序结构错误如：“LC=”B:B<0Goto 0应为“LC=”B:B<0：Goto 0

永远不要单纯的拿来主义!要通过自己的思考和实践尽量多的去掌握程序的计算原理 这样对你才会有真正的提高和帮助！按照我说的些东西修改后若还不对 再给我看修改后的程序！

望采纳！！!~ ~~谢谢。

不知道你那里的曲线隧道的曲线是不是完整的缓圆缓型或者就圆曲线，抑或带缓和曲线的不完整曲线，如果是完整缓和曲线或圆曲线，可以用交点法的计算，如果不完整曲线，可以用线元法计算，你说的那个5800坐标正反算程序也不知道是用哪种方法编的，如果是线元法的话，都是通吃的，就是每段曲线都要分开算，比如缓圆缓就得分三段算。（具体缓和曲线是不是完整的最简单的方法就是（A的平方除以圆曲线半径是不是等于缓和曲线长度，等于缓和曲线长度就是完整的，反之就是不完整。A是回旋参数或叫缓和曲线参数），具体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= 边桩放样程序中实测点至设计边坡点距离，正向内移，

大哥,你问的是两个不同的问题,前者是工程施工,施工放样需要全站仪和水平仪,如果是比较简单的,就用水平仪或经纬仪先定好一点来确定另一外的点,你需要根据定好的点,用仪器确定另外一点的角度,距离,高程,就能确定另一点了

后者编程的,我不会,不好意思!

公路平/竖曲线放样、坐标反算桩号GL3－25PHF程序fx-5800p

F1 GL3－25PHF （K+，XY ≠ 0）输入其他进入反算。输入0时进入测站点、后视点坐标(X0,Y0,H0)、(X1,Y1)输入及两点距离(D0)、方位角(T0)输出。H0=0时，不计算竖曲线。

L1 Z［1→Q:Lbl 8:“GL3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto 8:IfEnd:0→V:0→N:“K，X≠0”？V:V≠0=>Goto 0:“X0”？C:“Y0”？D:“H0”？H:“X1”？E:E－C→I:“Y1”？F:F－D→J:Prog“1”:“T0O=”:J▲DMS◢“D0=”:I◢ 放样点桩号(Kp+)斜交角(ApO)距离(Sp)输入 143

L2 Lbl 0:Z［1→Q:If V=0:Then 90→Z:“Kp+”？K:“ApO”？Z:“Sp”？B:Goto 4:IfEnd:If N≠－2:Then“Xp”？C:“Yp”？D:1T→P:1→G:IfEnd:Lbl 7:C－Z［4+G→I:D－Z［Q+4+G→J:Prog“1”:If N=－2:Then I→P:J→Z:G→B:Goto 4:IfEnd:If P－I>0:Then I→P:J→Z:G→B:IfEnd:If G<Q-2:Then G+1→G:Goto 7:IfEnd:Lbl 4:1→G:Z［3］→W:Lbl 5:Z［1→Q

L3 Q-2→N:Z［3→A:Z［4+G→X:Z［Q+4+G→Y:Z［2Q+3+G→R:R=0 =>1μ→R:Z［3Q+1+G→L:Z［3+G］－X→I:Z［Q+3+G］－Y→J:Prog“1”:J→O:Z［5+G］－X→I:Z［Q+5+G］－Y→J:Prog“1”:J→U:Prog“P”

L4 If V≠0:Then If G<B:Then G+1→G:W+I－2T+S→W:Goto 5:IfEnd:Prog“F”:Goto 0:IfEnd:N=0=> Goto 0:N=－1=>Goto 5:H=0=>Goto 0:1→G:Lbl 6:Z［1→Q

L3 Q-2→N:Z［4Q+1→A:Z［4Q+G→W:Z［5Q+G→U:Z［6Q-1+G→R:Z［5Q-1+G］－U→I:Z［4Q-1+G］－W→J:Prog“1”:J→O:Z［5Q+1+G］－U→I:Z［4Q+1+G］－W→J:Prog“1”:Prog“H”:N=－1=>Goto 6:Goto 0

F2 CS3－25PHF （参数输入完成时，可取消此子程序） I输入0时进入转点号N(N－P为平曲线、N－H为竖曲线，均输入1至8、15、25的整数)及其参数的输入(平曲线K、X、Y、R？、L)、（竖曲线K、H、R）输入桩号、坐标或高程、园半径、缓和曲线长度。

L1 ？I:If I=0:Then 172→DimZ:1→N:IfEnd:Z［1→Q:Lbl 8:“GL3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto 8:IfEnd:While N≤Q:“N－P”？N:N＞Q=>Goto 1:If N=2:Then ？K:K→Z［3］:IfEnd:？X:X→Z［3+N］:？Y:Y→Z［Q+3+N］:N=1 Or N=Q=>Goto 0:？R:R→Z［2Q+2+N］:？L:L→Z［3Q+N］:Lbl 0:WhileEnd:Lbl 1:1→N

L2 While N≤Q:“N－H”？N: N＞Q=>Goto 8:？K: K→Z［4Q-1+N］:？H:H→Z［5Q-1+N］:N=1 Or N=Q=> Goto 2:？R:R→Z［6Q-2+N］:Lbl 2:WhileEnd

F3 P

L1 Prog“2”:If M=180:Then 0→T:Goto 1:IfEnd:L÷2－L^3÷240÷R2+(L2÷24÷R+R)tan(5M→T:Lbl 1:RMπ÷180+L→S:V≠0=>Goto 0:If K<A－T:Then“K+!”:K◢0→N:Goto 0:IfEnd:If G≥N And K>W－T+S:Then“K+!”:K◢0→N:Goto 0:IfEnd:If K>W－T+S:Then G+1→G:W+I－2T+S→W:－1→N:Goto 0:IfEnd:Prog“5” 警告桩号(K+!)的输入已超出范围。 测站点、放样点间的距离(Dp)、方位角(TpO)输出。放样点的坐标(Xp,Yp,Hp0)输出。

L2 X+TA－MA+NJ→X:Y +TJ－MJ－NA→Y:X－C→I:Y－D→J:Prog“Z1”:“TpO=”:J▲DMS◢“Dp=”:I◢“Xp”:X◢“Yp”:Y◢1→N:Lbl 0

F4 1

L1 If I=0 And J=0:Then 180→J:Else Pol(I,J:J<0=>J+360→J:IfEnd

F5 2

L1 O－J→M:M<0=>M+360→M:If M<180:Then 180－M→M:1→Q:Else M－180→M:－1→Q:IfEnd

F6 3

L1 90(2I－L)÷π÷R→A:RsinA+L÷2－L∧(3)÷240÷R2→M:L2÷24÷R+R(1－cosA→N:A－J→A:M－QBcosA→M:QN－BsinA→N

F7 4 (缓和段计算：可适当选取2至6项，当无缓和曲线时，可仅选1项，以减少字节。)

L1 RL→A:I－I∧(5)÷40÷A2+ I∧(9)÷3456÷A∧(4)－I∧(13)÷599040÷A∧(6)+I∧(17)÷175472640÷A∧(8)－I∧(21)÷78033715200÷A∧(10→M

L2 I∧(3)÷6÷A－I∧(7)÷336÷A∧(3)+I∧(11)÷42240÷A∧(5)－I∧(15)÷9676800÷A∧(7)+I∧(19)÷350096640÷A∧(9)－I∧(23)÷1880240947200÷A∧(11→N: 90I2÷π÷A－J→A:M－Qbcos(A→M:QN－Bsin(A→N

F8 5

L1 K－W+T→I:Z→J:If I<S－L:Then If I≤0:Then I+Bcos(Z→M:BsinZ→N:Goto 2:IfEnd:Q=1=>180－Z→J:If I≤L:Then Prog“4”:Else Prog“3”:IfEnd:Lbl 2:O→J:Goto 3:IfEnd:S－I→I

L2 If I≤0:Then I－Bcos(Z→M:－Bsin(Z→N:Else Q≠1=>180－Z→J:Prog“4”:－N→N:IfEnd:U→J:Lbl 3:cos(J→A:sin(J→J

F9 H （不需要计算中桩高程时，可取消此子程序） 警告桩号(K+!)的输入已超出范围

L1 Prog“2”:If M=180:Then 0→T:Goto 1:IfEnd:Rtan(5M→T:Lbl 1:If K< Tsin(O+A:Then“K+!”:K◢Goto 0:IfEnd:If G≥N And K>W－Tsin(O:Then“K+!”:K◢Goto 0:IfEnd:If K>W－Tsin(O:Then G+1→G:－1→N:Goto 0:IfEnd

L2 U+Tcos(O+Rcos(O－90Q→M:W+Tsin(O+Rsin(O－90Q→N:K－W－Tsin(O→L:If L≤0:Then U+(T+L÷sin(O))cos(O→H:“Hp0=”:H◢Goto 0:IfEnd:M+Q√(R2－(K－N)2)→H:“Hp0=”:H◢Lbl 0 中桩高程输出（Hp0=）

F10 F （不需要反算时，可取消此子程序） 转点半径为0时可能输出的两种桩号、偏离距离（K1+=、K2+=、Sp1=、Sp2=）情况

L1 Z－O→I:U－Z→J:IF Abs(I≤90:Then If T≤Pcos(I:Then W－Pcos(I→K:－Psin(I→B:If Abs(J≥90:Then Goto 9:Else“K1+=”:K◢“Sp1=”:B◢IfEnd:IfEnd:IfEnd:IF Abs(J≤90:Then If T≤Pcos(J:Then W－2T+S+ Pcos(J→K:－Psin(J→B:If Abs(I≥90:Then Goto 9: Else“K2+=”:K◢“Sp2=”:B◢Goto 0:IfEnd:IfEnd:IfEnd:If Pol(C－X－Tcos(O)，D－Y－Tsin(O))<Pol(C－X－Tcos(U)，D－Y－Tsin(U)):Then－1→H:Else 1→H:IfEnd:(R+L2÷24÷R)÷cos(5M→N:O－Q(90－5M→J:C－X－Ncos(J→I:D－Y－Nsin(J→J:Prog“1”

L2 cos-1((I2+N2－P2)÷2÷I÷N→N:If N≤5M－90L÷π÷R:ThenW－T+5S+HπNR÷180→K:Q(R－I→B:Goto9:IfEnd:If L=0:Then－2→N:G+H→G:Goto 0:IfEnd:“ZHY－100!－YHZ”◢0→B:0→Z警示准备进入缓和段的桩号反算，计算约需100秒。

L3 If H=－1:ThenW－T→E:E+L→G:ElseW－T+S→E:E－L→G:IfEnd:Lbl8:Z+1→Z:(E+G)÷2→F:Z=1=>E→K:Z=2=>F→K:Z=3=>G→K:Prog“5”

L4 C－X－TA+MA－NJ→I:D－Y－TJ+MJ+NA→J:C－I→M:D－J→N:Prog“1”

L5 If Z=1:Then I→P:Goto 8:IfEnd:If Z=2:Then I→V:Goto 8:IfEnd:If Abs(E－G>1μ:Then If P>V And P>I:then F→E:0→Z:Goto 8:IfEnd:If I>P And I>V:Then F→G:0→Z:Goto 8:IfEnd:IfEnd:F→K:I→B:J→V

L6 If H=－1:Then X+Tcos(O)－M→I:Y+Tsin(O)－N→J:Else X+Tcos(U)－M→I:Y+Tsin(U)－N→J:IfEnd:Prog“1”:J→O:V→J:Prog“2”:－HQB→B:Lbl 9:“K+=”:K◢“Sp=”:B◢N=0:Lbl 0 反算桩号、偏离距离输出（K+=、Sp=）

全站仪后方交会（两已知点，任意设站，观测两边多余一角可计算测站点坐标）

F D1�6�1D2–XY

L1 “X1”？C:“Y1”？D:“X2”？E:“Y2”？F:(E–C）2+（F–D）2→M:“D1”？S:T“D2”:“Ap°”？U

L2 cos -1（（M+S 2–T 2）÷2÷S÷√(M→V:cos -1（（M+T 2–S 2）÷2÷T÷√(M→W

L3 180–U–V–W→P:If Abs(P≥0°0°30°:Then“Μp°！”:P▲DMS◢IfEnd:1÷tan（V→V:1÷tan（W→ W

L4 （CW+EV+D–F）÷（V+W→X:（DW+FV+E–C）÷（V+W→Y:“Xp=”:X◢“Yp=”:Y

两线交点、坐标变换

F L×L�6�1XY–AB

L1 “0–1–2=>L×L�6�1X–A�6�1A–X”？I:If I=0:Then Lbl 0:“XA-1”？C:“YA-1”？D:“XA-2”？E:“YA-2”？F:C–E→K:D–F→L:“XB-1”？O:“YB-1”？P:“XB-2”？Q:“YB-2”？R:O–Q→M:P–R→N

L2 （K（OR–QP）–M（CF–ED））÷（ML–KN→X:“Yp”:（LX+CF–ED）÷K→Y:“Xp”:X◢“Yp”:Y◢Goto 0:IfEnd

L6 If I=1:Then“X0”？C:“Y0”？D:“T°=”？J:Lbl 1:“Xp=”？E:“Yp=”？F:（E–C）cos(J)+（F–D）sin(J)→A:（F–D）cos(J)–（E–C）sin(J)→B:“Ap=”:A◢“Bp=”:B◢Goto 1:IfEnd

L7 If I=2:Then:“X0”？C:“Y0”？D:“T°=”？J:Lbl 2:E“Ap=”:F“Bp=”:C+Ecos(J)–Fsin(J→X:“Xp=”:X◢D+Esin(J)+Fcos(J→Y:“Yp=”:Y◢Goto 2:IfEnd

坡顶开挖线放样程序

F P�6�1D�6�1×–– H0、H0×为任意点（下点）的设计、地面高程，S0×、H1δ为坡度方向到另外1点（上点）的距离、高程，i设计的坡度，上点平移⊿Sp距离后到达坡顶开挖线。

L1 “H0=”？H:“H0×=”？M:“S0×=”？P:“H1δ=”？N:“i=”？I:P（（M–H）÷（M–N+P×I）–1→S:B=P+S:“◢Sp=”:S

地形图等分线程序

F H1-0�6�15-H2

L1 Lbl 0:“H1”？A:“H2”？B:“S0”？S:（A–B）÷S→K

L2 10A–10 Int A→L:If L-5≥0:Then L–5→L:01L÷K→E:“S1=”:E◢05÷K→F:“Sn=”:F◢Int（KS÷05→G:“N=”:G◢Goto 0:IfEnd

方格网4点求格交点高程程序

F H1-H4�6�1�6�1S0-3

L1 “H1”？A:“H2”？B:“S01”？K:“SP1”？L: A+(B-A)L÷K→E:“H3”？C:“H4”？D:“S02”？M:“SP2”？N: C+(D-C)N÷M→F:“S03”？O:“SP3”？P:E+(F-E)P÷O→H:“H=”:H

方格网2点求格交点高程程序

F H1－H2�6�1�6�1S0－2

L1 “H1”？A:“H2”？B:“S0”？L:“S1”？M:A+(B-A)M÷L→H:“H=”:H

楼上右CDb1 - > cdbl这个问题应该是完整的拼写错误

楼主你的代码是没有上市呢？

殿下数字和字母的按钮时，你应该调用每个num_Click，和oper_click活动，并通过在相应的数字，不知道楼主是不是上或没有写呢？

另外，我用vbnet字符串串联不允许被写入到不使用+字符串与string2中

房东还不清楚房东的问题或错误消息的症状起来，让大家看看

以上就是关于卡西欧FX-5800 程序问题，高手帮忙看看！（圆（缓和）曲线坐标计算及方位角放样）全部的内容，包括:卡西欧FX-5800 程序问题，高手帮忙看看！（圆（缓和）曲线坐标计算及方位角放样）、隧道测量 曲线隧道放样，知道里程，高程，距离怎样用5800算出坐标放样啊、求卡西欧5800坐标正反算程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！