求卡西欧CASIO fx－5800P编程里（纯输入符号）四等水准测量计算程序

工程测量(1)小写o为大写字母“O”，与零区分。(2)程序中没有空格符号。 1、坐标正算 〝X0=〞?X：〝Y0=〞?Y：〝I=〞?I：〝J=〞?J X+ICos(J)→U：Y+ISin(J)→V 〝X=〞：U◢ 〝Y=〞：V◢ 说明：X0 Y0：已知点坐标，I：两点的距离，J：方位角 ２、坐标反算 Lbl 0 〝X1=〞?X：〝Y1=〞?Y：〝X2=〞?U：〝Y2=〞?V Pol(U-X，V-Y)： J<0J+360→J 〝I=〞：I◢ 〝J=〞：JDMS◢ Goto 0 说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角 ３、圆曲线 〝X0=〞尺前液?X：〝Y0=〞?Y：〝FWJ=〞?D：〝QDHAO=〞?G：〝ZDHAO=〞?C：〝R=〞?R Lbl 1 〝DQHAO=〞?L L<G Or L﹥悔岁CGoto 2 〝PY=〞?K 180(L-G)÷(πR)→E 2Rsin(0.5E)→F Rec(Abs(F)，D+0.5E) 〝X=〞：X+I+Kcos(D+E+90)→A◢ 〝Y=〞：Y+J+Ksin(D+E+90)→B◢ D+E→o：o<0360+o→o 〝FWJ=〞：oDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量 ４、竖曲线 〝QZHAO =〞?J：〝HB〞=?B：〝I1=〞?C：〝I2=〞?D：〝R=〞?R：〝T=〞?T： ((D-C)÷100)÷Abs((D-C)÷100)→A：Abs(0.5R(D-C)÷100)→S 〝T〞：S◢ J-T→X J＋T→Y Lbl 0 〝DQ=〞?L If L<X：Then Goto1：Else If L﹥Y：Then Goto1：If End：If End 〝GC=〞：B+C(L-J)÷100+A(L-J+T)2÷(2R)→H◢ Goto 0 Lbl 1 〝END〞 说明：QZHAO：竖曲线中点里程，HB：交点高程（不是交点路面高），I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。 5．正算偏移 〝X0=〞?A：〝Y0=〞?B：〝FWJ=〞?D： Lbl 0 〝LS=〞?L：〝PY=〞?C Rec(L，D) 〝X=〞：A+I+Ccos(D+90)→X◢ 〝Y=〞：B+J+Csin(D+90)→Y◢ Goto 0 说明：X0 Y0：已知点坐标，LS：两点距离（里程之差），FWJ：方位角 6.万能公式 〝X0=〞?A：〝Y0=〞?B：〝FWJ=〞?C：〝1÷R-QD=〞?D：〝1÷R-ZD=〞?E： 〝QDHAO=〞?F：〝ZDHAO=〞?G Lbl 1 〝DQHAO=〞?H：〝PY=〞?o If H<F：Then Goto 2：Else If H﹥G：Then Goto 2：If End：IfEnd (E-D)÷Abs(G-F)→P：Abs(H-F)→Q：PQ→I：C+90Q(I+2D)÷π→J：C+45Q(I÷8+D)÷π→M：C+135Q(3I÷8+D)÷π→N：C+45Q(I÷2+2D)÷π→K A+Q(cos(C) +4(cos(M)+cos(N))+2cos(K)+cos(J))÷12→U： B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))÷12→V 〝X=〞：U+oCos(J+90)→X◢ 〝Y=〞：V+oSin(J+90)→Y◢ 〝FWJ=〞：JDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点坐陵物标，FWJ：起始点方位角，1÷R-QD：起始点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标

可以登陆亦文轩文具网免费下载测量程序

Fx-5800价格和fx-4850相当，但程序不能共享，Fx-5800的编程语言更接近BASIC程序语言。

2、5800变量输入语句改为?，赋值语句改为—＞。贺仿程序中和1850一样，除可以使用26个字母变量A~Z存储数据和独立于字母变量存储器的额外变量存储器Z[1]，Z[2]，Z[3]，Z[4]……外，另外可以使用统计串友拍皮列存储器List X，List Y，List Freq。

3、程序命令由4850的16个增加到了34个，取消了⊿、≠=>、｛｝命令，使得由⊿、≠=>、｛｝等重要程序命令构成的fx-4850程序无法在5800上运行。

同时，5800的条件语句修改为更易于使用的If~Then~Else~IfEnd形式，新增For~To~Step~Next循环、条件循环Do~LpWhile与While~WhileEnd语句。

4、5800增加了数据通讯功能，使用SB-62数据线连接好两台机器的3Pin通讯口可方便地传输程序与数据，避免了4850只能以手工输入的方式录入程序，容易出现程序输入错误的弊端。

5、5800有矩阵计算功能，可以编写严密平差程序时组成与解算法方程，能够满足测量专业测量平差编程的计算要求。同时字母变量除了可以输入26个大写英文字母外，还能用小写英文字母、希腊字母。

现在购买的可以送大礼包，

FX-5800P计算器大礼包说明：

1.FX-5800P计算器

2.SB-62(与fx-5800配套进口的数据线)

3.<<casioFX-4800P/4850P与FX-5800P编程计算器功能比较与程序转换>>覃辉编著 同济大学出版社（与书配套程序）全路段主线坐标正反算（正交/斜交）

匝道全段坐标正反算（正交/斜交) 全路段中边桩高程（带超高，加宽）

有电子版的好差范例，初学者使用简单，快捷.让你短时间成为一个熟练的测量者

4.FX-5800P与FX-4800P/FX-4850P语言的对比及特点说明

(CASIO-4850)竖曲线标高计算程序--全线贯通

(CASIO-4850)竖曲线标高计算程序

1,加了水准点数据.

2,加了竖曲线数据库(实现了全线贯通)

3,加了测量仪器的选择功能

4,能进行现场高程放样工作

(能计算除了超高闷纤段以外的任意桩号的中桩及任意距离边桩高程)

[SJG]------------------主程序

E“LGP”:N“JGC”:Lbi 0:A“BM”:O“HS”: “1,SZY”: “-1,QZY”:K“SZY,QZY”:{LM}:L“K”:M“ZBJ”:Prog“SQX”⊿T=RAbs(J-I)/2:C=B-L:F=1:I>J=>F=-1←┘

L ≤0=>{AO}:Goto 0 : ≠>L<B-T=>Z=0:P=I: ≠>L<B=>Z=1:P=I :≠>L<B+T=>Z=1:P=J: ≠>Z=0:P=J⊿⊿⊿⊿ ←┘

Fix 3:G=H-N-CP+ZF(T-AbsC) 2/(2R)+ME:Goto 1←┘

Lbi 1:{D}:D“QS”:Fix 3:X=A+KO-KD:G:Pause 0:X: Pause 0:Q=G-X: “+T,-W=”:Q◢

Goto 0←┘

[SQX]------------------子程序

L≤932.25(第二竖曲线起点桩号)=>H=179.17(第一竖曲线交点高程):B=160(第一竖曲线交点桩号):R=7000(第一竖陆罩宴曲线半径):I=-0.003(第一竖曲线前坡度):J=0.005(第一竖曲线后坡度):Goto 1⊿

L≤1173.96(第三竖曲线起点桩号)=>H=183.17(第二竖曲线交点高程):B=960(第二竖曲线交点桩号):R=18000(第二竖曲线半径):I=0.005(第二竖曲线前坡度):J=0.00808(第二竖曲线后坡度):Goto 1⊿

Lbi 1

…………………………继续添加竖曲线要素(坡度上+下早银-),括号内的数据供测试程序用

说明:

选择主程序进入

1, LGP?----------输入路拱坡度,负值 (按EXE键)

2, JGC?----------输入结构层厚度(按EXE键)

3, BM?-----------输入水准点高程(按EXE键)

4, HS?------------输入后视读数(全站仪测量时带+,-号)(按EXE键)

5, 1,SZY

-1,QZY

SZY,QZY?----选择测量仪器:输入1用水准仪,输入-1用全站仪 (按EXE键)

6, K≤0 BREAK

K?--------------输入放样桩号, K值≤0时返回程序起始位置 (按EXE键)

7, ZBJ?-----------输入边桩至中桩的距离,中桩放样时输入0 (按EXE键)

8, QS?-------------输入前视读数(全站仪测量时带+,-号) (按EXE键)

显示:

9,12.3-------------设计高程

11.2-------------实测高程

+T,-W

1.1(填挖量,+填-挖)

(按EXE键 重复6,7,8,9步,进行下一个桩点的放样工作.

---