END="?B←┘ Abs（B）=0=>Got">
当前位置：文档之家 › 卡西欧fx-5800p计算器测量程序

卡西欧fx-5800p计算器测量程序

  • 格式：doc
  • 大小：55.00 KB
  • 文档页数：4

卡西欧fx-5800p计算器测量程序（作者：水江华）

1.坐标反算程序

"ZBFS QH1-4"◢

Deg：Fix 3←┘

"X+YiS(m）="?A←┘

Lb1 0:"X+YiE(m)，0=>END="?B←┘

Abs（B）=0=>Goto E←┘

Arg（B-A)→J

J<0=>J+360→J

"DIST(m）="：Abs（B-A)◢

" α（DMS)=":J▶DMS◢

Goto 0←┘

Lb1 E:"ZBFSQH1-4=>END"

2.坐标正算程序

"ZBZS QH1-3"◢

Deg：Fix 3←┘

"XS(m)= "？A:"YS(m)= "？B←┘

Lb1 1:"DIST(m)= "？L←┘

If L≤0:Then Goto 2:IfEnd←┘

" α（Deg)="？R←┘

A+Lcos（R）→C←┘

B+Lsin（R）→D←┘

Fix 3："XE(m)= ":C◢

"YE(m)= ":D◢

Goto 1←┘

Lb1 2:"ZBZSQH1-3=>END"

3.单一闭、附合导线近似平差程序

"BFHDXPC QH1-8"◢ Deg:Norm 1:FreqOn←┘

n→N←┘

If List Y[N]=0:Then N-1→DimZ:Goto 0←┘

Else N→DimZ:Goto 1: IfEnd←┘

Lb1 0: "CLOSE Or CONECT TRAVE"◢

"ANGLE NUM=":N◢

"SIDE NUM=":N-1◢

"UNKNOWN P NUM=":N-2◢

"CLOSE(0)，CONNECT(≠0)="?→Z←┘

Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘

If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘

"XB(m)= "？C:"YB(m)= "？D←┘

C+Di→U：U→V←┘

If A>0：Then Pol（C-A，D-B）：Cls←┘

J<0=>J+360→J：J→R←┘

"DIST A→B(m)="：I◢

"αA→B(DMS)="：R▶DMS◢

IfEnd←┘

If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘

E+Fi→V←┘

"XD(m)，≤0=>αC→D(Deg)="？G←┘

If G>0：Then

"YD(m)= "？H←┘

Pol（G-E，H-F）：Cls←┘

J<0=>J+360→J：J→S←┘

"DIST C→D(m)="：I◢

"αC→D(DMS)="：S▶DMS◢

Else "αC→D(Deg)="？S：IfEnd←┘

Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘ IfEnd←┘

∑y→M←┘

For 1→I To N←┘

If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘

If L>180：Then L-180→L：Else L+180→L：IfEnd←┘

Nent←┘

3600(L-S)→T←┘

"α CLOSE ERROR(S)="：T◢

40→W←┘

Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘

-T÷N÷3600→P：0→O←┘

For 1→I To N←┘

If I=1：Then R+List X[I]+P→L←┘

Else L+List X[I] +P→L：IfEnd←┘

If L>180：Then L-180→L：Else L+180→L：IfEnd←┘

If I

Nent←┘

3600(L-S)→T←┘

"CHECK α CLOSE ERROR(S)="：T◢

U+O-V→O←┘

Int(M÷Abs(O))→K←┘

"DELTA X(m)= "：ReP(O)◢

"DELTA Y(m)= "：ImP(O)◢

"RELAT CLOSE ERROR=1÷"：K◢

K<4000=>"RELAT CLOSE ERROR OVER! "←┘

For 1→I To N-1←┘

Z[I]-OList Y[I]÷M→X←┘ If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘

Norm 1："POINT n="：I◢

Fix 3："X(m)= "：ReP(Y)◢

"Y (m)= "：ImP(Y)◢

Nent←┘

Y-V→Q←┘

"CHECK X (m)= "：ReP(Q)◢

"CHECK Y (m)= "：ImP(Q)◢

Goto E←┘

Lb1 1："NO DIRECT TRAVE"◢

"ANGLE NUM="：N-1◢

"SIDE NUM="：N◢

"UNKNOWN P NUM="：N-1◢

"XA(m)= "？A:"YA(m)= "？B←┘

"XB(m)= "？C:"YB(m)= "？D←┘

A+Bi→U:C+Di→V←┘

0→H:U+List Y[1]

For 1→I To N-1←┘

H+List X[1]→H←┘

If H>180：Then H-180→H：Else H+180→L：IfEnd←┘

以下未完程序由读者完成

合集下载

工程测量中CASIO fx—5800P编程计算器线路坐标通用程序应用探讨

工程测量中CASIO fx—5800P编程计算器线路坐标通用程序应用探讨

工程测量中CASIO fx—5800P编程计算器线路坐标通用程序应用探讨

随着CASIO fx-5800P可编程计算器在工程测量中广泛应用，编辑一个线路正算程序，不同的工程只需改变通用程序数据库的曲线要素，然后输入里程和到中桩的左右偏距，即可提供线路任意点坐标。

标签：线路正算；里程；线元；坐标；偏距

前言

1 程序中涉及的几个概念说明

1.1 线路正算：根据里程和到中桩的左右偏距，求坐标。

1.2 偏距：系指线路某点在法线方向偏离线路中线的距离。直线上垂直于线路方向，曲线上垂直于切线方向。

1.3 主程序名称：“MG-ZB”

Lbl 3：“DKI”？K：Prog“DAT-M”： Prog“GBZS”？坻

Goto3？坻

注：（ DAT-M与数据库程序“DAT-M”对应）

1.3.1 子程序1：程序名“GBZS”

Lbl 0：（P-R）÷（2（H-O）PR）→D：“L（-ZUO+YOU）”？L：“YJJ”？M：Abs（K-O）→J：Prog“SUB1”：F-M→F

“F=”：F？襍DMS？襊

“X=”：U→X？襊

“Y=”：V→Y？襊◢

1.3.2 子程序2：程序名“SUB1”

4→DimZ：0.1184634425→A：0.2393143352→B：0.2844444444→Z[4]：0.0469100770→C：0.2307653449→E：0.5→Z[1]：I+J（ACos（G+QCJ（1÷P+CJD）×180÷∏）+BCos（G+QEJ（1÷P+EJD） ×180÷∏）+ Z[4]Cos（G+QZ[1]J（1÷P+Z[1]JD）

×180÷∏）+BCos（G+Q（1-E）J（1÷P+（1-E）JD）×180÷∏）+ACos（G+Q（1-C）J（1÷P+（1-C）JD）×180÷∏））→X：

S+J（ASin（G+QCJ（1÷P+CJD） ×180÷∏）+BSin（G+QEJ（1÷P+EJD） ×180÷∏）+Z[4]Sin（G+QZ[1]J（1÷P+Z[1]JD） ×180÷∏）+ BSin（G+Q（1-E）J（1÷P+（1-E）JD） ×180÷∏）+ASin（G+Q（1-C）J（1÷P+（1-C） JD） ×180÷∏）） →Y：

CASIO fx—5800计算器 工程测量与公路测量程序

CASIO fx—5800计算器 工程测量与公路测量程序

CASIO fx—5800计算器 工程测量与公路测量程序

1、坐标正算

〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?J

X+ICos(J)→U:Y+ISin(J)→V

〝X=〞:U （待求点的X坐标）

〝Y=〞:V （待求点的Y坐标）

说明：X0 Y0：已知点坐标I：两点的距离J：方位角

２、坐标反算

Lbl 0

〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V

Pol(U-X,V-Y):

J<0 J+360→J

〝I=〞:I

〝J=〞:J DMS

GOTO 0

说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角

３、圆曲线

〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R

Lbl 1

〝DQHAO=〞?L

L

〝PY=〞?K

180(L-G)÷(πR) →E

2RSin(0.5E) →F

ReC(Abs(F),D+0.5E)：Cls

〝X=〞:X+I+KCos(D+E+90) →A

〝Y=〞:Y+J+KSin(D+E+90) →B

D+E→o:o<0 360+o→0o

〝FWJ=〞:o DMS

Goto 1

Lbl 2

〝END〞

说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量

４、竖曲线

〝QZHAO =〞?J: 〝H+B〞=?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

〝GC=〞:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H Goto 0

FX5800P计算器公路测量常用程序集2.3版

FX5800P计算器公路测量常用程序集2.3版

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。)

卡西欧FX5800计算器公路测量常用程序集2.3版

一、程序功能

主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例

二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。

0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。

程序名：0（数子0）

1.主程序：一般坐标计算及放样程序

程序名:1XY

Prog ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1]

→A :A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-1

2.主程序：由大概桩号及坐标反算桩号及距离

程序名:2ZD

Prog＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-1

卡西欧5800P计算器隧道施工测量程序设计

卡西欧5800P计算器隧道施工测量程序设计

百度文库 - 让每个人平等地提升自我

1 卡西欧5800p计算器隧道施工测量程序设计

王庆军

随着铁路、公路建设的快速发展，我国隧道建设的施工技术也大幅度提高，由于工期紧迫促成测量放样的过程也是一个重要环节，如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度，导致开挖掘进造成隧道超欠挖，所以现在通过编程计算器结合带红外线的全站仪进行配套操作，这样不仅提高了施测效率还保证了放样精度，现通过本文分析讲解隧道超欠挖的计算原理和程序设计。

何为超欠挖？：隧道分为（超挖和欠挖），超挖即为隧道开挖轮廓线大于隧道设计轮廓线，欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。

超欠挖的影响：隧道超欠挖不止直接影响到了施工进度、安全质量，还会让开挖费用增加，更重要的是由此造成了过量超填混凝土的费用。超挖在实际施工中由于重视不够或方法不当，以至于在施工过程中会不知不觉地提高工程成本，从而也减少了应得的利润。

超欠挖是如何产生的？

在目前的隧道施工中，掘进技术有两种方法，一种是传统的“钻爆法（开挖台阶法）”；一种是“全断面掘进法（盾构掘进法）”。受各种条件的制约，“钻爆法”仍是山区隧道施工的主要掘进方法。所以隧道超欠挖的形成也是不可避免的，下面讲述一下形成超欠挖的三种情况。

1、岩层变化：由于隧道开挖过程中随着岩层的变化，地质条件和围岩裂隙的发生会出现不可避免的超欠现象，所以岩体是超欠挖的主要因素之一。 百度文库

- 让每个人平等地提升自我

2

2、爆破方式：由于工作面（掌子面）是一个不平整的岩体面，导致钻孔间距控制不当或间距过大、过小，容易影响其他孔位的爆破效果，或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。

3、测量放线：由于隧道过程中能见度低，操作有限，测量人员进入隧道测量时导致前后视照准误差，同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。 百度文库

- 让每个人平等地提升自我

3