文档库 最新最全的文档下载
当前位置:文档库 › 卡西欧5800命令解读

卡西欧5800命令解读

卡西欧5800命令解读
卡西欧5800命令解读

1.

Norm 1 指数显示

Norm 2 小数显示

2.

?→x 只显示?

字符+?→x 显示字符+?

?x 显示 x?

“字符”?x 显示字符+?

有→则不显示该变量当前值

3.(判断表达式)语句1 : 语句2。。。

如果判断表达式为真(或非零),则不跳过语句1.

如果判断表达式为假(或是零),则会跳过语句1.

4. If...then…else…ifend

如果语句为真,则执行then(不执行else),然后执行ifend.

如果语句为假,则执行else(不执行then),然后执行ifend.

5. Break 中断语句

中断For,Do,While循环,并从该循环的下个命令起继续运行

6.Dsz

使控制变量递减一,在变量的值为零时执行转移

7. Isz

Isz<变量>:<语句1><语句2>,变量应为A~Z

以1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2 8. Cls

Dsz<变量>:<语句1> <语句2>。变量应为A~Z。

以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2

9. Locate 定位显示语句

句法1:Locate <列数>, <行数>,<数值>

句法2:Locate <列数>, <行数>,<表达式>

句法3:Locate <列数>, <行数>, "字符串"

fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n

无条件转移至Lbi n 位置

11. Getkey

返回与上次按键相对应的代码,Getkey=

12. DO ~ LpWhile循环语句

Do <语句块>LpWhile<条件>

先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。无,论条件是否为真,语句块至少被执行一次。

13. Pol

计算两坐标点之间距离,坐标为(4,4),与原点的距离就是POL(4,4)=4√2

14. Abs

求绝对值

15. Fix

取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数

16. Rnd

随机函数

17. 角度单位设置语句

Deg:设置角度单位为十进制度,按键输入Deg。执行该语句后,状态行

显示。

Rad:设置角度单位为弧度,按键输入Rad。执行该语句后,状态行显示。Grd:设置角度单位为哥恩,按键输入Grd。执行该语句后,状态行显示。

18. Dim

定义变量

19. RCL

键面命令,Rcl+A 显示变量A的当前值

20. STO

键面命令,STO+A 给变量A赋值,显示→A

21.INS

键面命令,切换键标记样式,覆盖与插入切换

22. ←

键面命令,角度度分秒格式与小数格式转换

23. ?DMS

常将反三角函数计算出的十进制角度转换成六十进制度分秒形式,cos-1(x)?DMS 24. Pol

键面命令,将直角坐标转换为极坐标,Pol(△x,△y)

25. Rec

键面命令,将极坐标转换为直角坐标,Rec(r,θ)

26. CALC

键面命令,对一个表达式的变量代入不同的值

27.And,Or,Not

<条件1>And<条件2>,<条件1>与<条件2>同时为真时为真。

<条件1>Or<条件2>,<条件1>与<条件2>有一个为真时为真。

Not<条件>,<条件>为假时为真。

28.If~Then~Else~IfEnd

句法1:If <条件> Then <语句块>IfEnd

条件为真时执行Then 后的语句块,否则从IfEnd 后开始执行

句法2:If <条件> Then <语句块1>Else<语句块2>IfEnd

条件为真时执行语句块1,否则执行语句块2,然后执行IfEnd 后的语句

29. For~To~Step~Next

句法1:For <始值> <控制变量>To<终值> <语句块> Next控制变量的取值从始值开始,步长为1,重复执行语句块,直至终值为止。一般始值小于终值,如果始值大于终值,则不执行语句块而是直接执行Next 后的语句。

句法2:For <始值> <控制变量>To<终值>Step<步长><语句块>Next

它与For~To~Next 句法的功能相同,唯一区别是增加了步长语句Step

30. While~WhileEnd 循环语句

句法:While <条件> <语句块>WhileEnd

先测试条件,当条件为真时执行语句块,然后再测试条件,条件为真时重复执行语句块,直到,条件为假时执行WhileEnd 后的语句结束循环

31. Prog~Return 调子程序语句

句法:Prog "subfilename"

按键输入Prog。

fx-5800P 的子程序是独立于主程序的程序,它也保存在计算器内存中,主程序与子程序的变量都是全局的,子程序执行完成后通过Return 语句返回主程序,继续执行主程序中Prog

语句后的语句.

32. Return 返主程序语句

在子程序中应至少有一条Return 语句,当执行到该语句时,控制执行返回调用该子程序的主程序。主程序中一般不应有Return 语句,若在主程序中使用了Return 语句,程序执行到该语句时会停止执行。

33.Stop终止程序语句

程序被Stop 语句终止后就不再执行任何语句,通常用于调试程序设置临时中断点,程序调试通过后,将其删除。

34.清除语句

①Cls:清除屏幕显示的文字、表达式及计算结果。

②ClrStat:清除统计串列List X,List Y,List Freq。

③ClrMemory:清除字母变量A~Z 与数值答案寄存器。

④ClrMat:清除矩阵Mat A~Mat F 与矩阵答案寄存器Mat Ans

的内容与维数。

⑤ClrVar:清除内置公式变量及用户自定义公式变量的值。

其中后四个语句为按(CLR)键调出清除语句菜单选择。

额外变量Z[n]的数值没有专门的语句命令清除,只能执行语句0 DimZ 清除。

35. 数值显示格式设置语句

Fix :n 为0~9 间的整数,设置以n 位固定小数格式显示计算结果,按键输

入Fix。执行该语句后,状态行显示FIX。

Sci :n 为0~9 间的整数,设置以n 位固定小数科学格式显示计算结果,按键

输入Sci。执行该语句后,状态行显示SCI。

Norm :n 为1 或2,设置以正常格式显示计算结果,按键输入Norm。

ENG:其下有EngOn 与EngOff 两个语句,EngOn 为打开工程格式显示;按

键输入EngOn,执行该语句后,状态行显示ENG;EngOff 为关闭工程格式显示,按

键输入EngOff,执行该语句后,状态行的ENG 消失。

36. END

结束程序运行

测绘工程的专业课程:矿山测量学、测量学、控制测量学、误差理论与测量平差、大地控制测量学、投影测量学、摄影测量、数字图像处理、遥感原理与应用、GPS定位原理及应用、地图投影、地球形状及外部重力场、工程测量、土地及测绘法、计算机制图、地理信息系统原理等。

中国矿业大学测绘工程的课程表:制图基础、测绘学概论、测量学基础、地图学、工程力学、误差理论与测量平差、大地测量学、地球科学导论、摄影测量学、遥感技术基础、计算机制图及应用、GPS及现代定位技术、工程测量学、数字遥感图象处理、地理信息系统、管理学概论、环境科学导论、测绘软件设计、变形与沉陷工程学、数字摄影测量、

主要课程:矿山测量学、测量学、误差理论与测量平差、大地控制测量学、摄影测量学、数字图像处理、遥感原理与应用、地图投影、计算机制图、地理信息系统原理等。

主要课程:《测量学基础》《工程制图》《大地测量学》《GPS原理及应用》《测量平差》《摄影测量学》<工程测量学>

主要课程:大地测量学基础,空间测地理论与技术,影像与制图,工程测量学,数字摄影测量学,地理信息系统原理及应用,高等测量平差,变形监测与数据处理,工程与工业摄影测量学,工程监理,工程制图,地震地质学基础等

上一篇下一篇返回列表分享

CASIO fx—5800计算器工程测量与公路测量程序2010-01-28 16:31

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:方位角

2、坐标反算

Lbl 0

"X1=″?X:"Y1=″?Y:"X2=″?U:"Y2=″?V

Pol(U-X,V-Y):

If J<0 J+360→J :Else J---J: IfEed (加换行)

"I=″:I (加黑三角符号

"J=″:J DMS (加黑三角符号

GOTO 0

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

3、圆曲线

"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:偏移量

4、竖曲线

"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

Lbl 1

"END″

说明:QZHAO:曲中点里程,H+B:曲中点高程,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

(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=″: J DMS

Goto 1

Lbl 2

"END″

说明:X0Y0:起开点坐标,FWJ:起开点方位角,1÷R-QD:起开点曲率,1÷R-ZD终点曲率,QDHAO:起点里程,ZDHAO终点里程,DQHAO:待求点里程,XY:待求点坐标

6、标高计算

"QZHAO=″?J:"QDHAO=″?G:"ZDHAO=″?K:"B—HB=″?B:"SX=″?Q:"I1=″?C:

"I2=″?D:"R=″?R:"T=″?T

(D-C)÷100→W:W÷Abs(W)→A:"T″:0.5RAbs(W) →S

"o-YIGAO=″?o

J-T→X:J+T→Y

Lbl 1

"L—DQHAO=″?L:"PY=″?U:"XIELV=″?V

If L

"HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

"HO=″:o-H→Z

Goto 1

Lbl 2

L

"HL=″:B+0.01 (L-J)C+0.01UV+Q →H

"H0=″:o-H→H

Goto 1

Lab 3

L>K Goto 4

"HL=″:B+0.01 (L-J)D+0.01UV+Q →H

"HO=:o-H→Z

Goto 1

Lbl 4: "END″

说明:QZHAO:曲中点里程(竖曲线),QDHAO:起点里程,ZDHAO:终点里程,B—HB曲中点高程,SX:上下(路面标高下多少为水稳层面),I1:第一坡度,I2:第二坡度,R:半径,T切线长,L—DQHAO:待求点里程,PY:偏移(中桩到边桩的距离),XIELV:斜率(横坡的坡度,左负右正)o-YIGAO:仪器高

卡西欧5800基本测量程序(完整版)

卡西欧5800 程序 (完整版)

说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN "ZH(θ) F(1)"M↓ (0为正算、1为反算) If M=θ:Then "ZHUANG HAO"A:"KUAN DU"W:Else"X="H:"Y="W:"Z="Q:IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If A

………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog"ZFXZ"↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1:"NO TASK"↓ Lb1 2:If M=1:Then If A=1:Then "ZHUANG HAO":Z◢"SJ KUAN DU":B◢ IfEnd:IfEnd↓ "-------END-------" KUAN DU (拓展功能程序,用于反算) 1→M:Prog"MAIN"↓ Z→A:W→E:θ→W↓ Prog"GAO CHENG"↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ "……":D◢ (同上) ◢ "----------END---------" YUAN

卡西欧5800P计算器程序

卡西欧5800P计算器TYQXJSI坐标正反算 (经过修改) 1.主程序(TYQXJSI) 10→DimZ:"1.SZ → XY":"2.XY → SZ":?N:"XO"? U:"YO"? V:"SO"? O:"FO"? G:"LS"? H:"RO"? P:"RN"? R:? Q: 1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:If N=1: Then Goto 1: Else Goto 2: IfEnd Lbl 1:"DK? +?"? S:?Z: Abs(S-O)→W:If W>H or SH or S157297: Then Prog”OPRP2-0”: Else Prog”OPRP1-50” IfEnd: IfEnd Else If N=3: Then Prog”OPRP4”: IfEnd :IfEnd

2. 正算子程序(SUB1) 0.1739274226 →Z[3]:0.3260725774→B:0.0694318442→K: 0.3300094782→L:(1-L) →F:(1-K)→M: (U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X: V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y:G+QEW(C+WD)+90→F:(X+Zcos(F))→X:(Y+Zsin(F))→Y 注:Z[3]替代源程序A。 3. 反算子程序(SUB2) G-90 →Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(Z[2])) →W:0→Z:Lbl 0:Prog "SUB1":Z[2]+QEW(C+WD)→L: (J-Y)cos(L)-(I-X)sin(L)→Z:If Abs(Z)<10^(-6):Then Goto1:Else W+Z→W:: IfEnd: Goto 0 Lbl 1:0→Z:Prog "SUB1":(J-Y)÷sin(F)→Z 注:Z[2]替代源程序T。 ] 4、隧道超欠挖计算(OPRP1) "PZ":Z-2.0→L◢

卡西欧5800路基测量程序讲课稿

卡西欧5800路基测 量程序

晋-测量-斐斐(532901847) 21:20:03 一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX)构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量16→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY,2.XY → SZ,3.SDYX,4. BIANPO "?N: Lbl 1:”ZHUANGHAO=”?S: Prog "SUB3":N≥2=>Goto 2: Abs(S- O)→W:”BIANZHU=”?→Z:Prog "SUB1": "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA":Goto 1: Lbl 2:”CX=”?X: X→I:”CY=”?Y: Y→J:”DMG=”?→Z[7]:Prog "SUB2":"S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 →Z[1]:0.3260725774→B:0.0694318442→K: 0.3300094782→L: (1-L) →F: (1-K)→M: U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW

卡西欧5800计算器工程应用程序.

卡西欧5800计算器测量专用程序 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化:1、优化程序语句、2、取消原线元法计算,化线元法为交点法。 3、高程计算修改, 4、附计算坐标及高程参数设计要素输入实例 二、源程序(绿色为程序名;蓝色为输入计算器内容)0.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。 程序名:0(数子0) ClrMat:ClrVar:12→DimZ:Norm 2:Do:"(XY=1,ZD=2 ,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9)===>QING AN 1-9":Getkey→Z[3]:While Z[3]=35:Prog"1XY”:WhileEnd:While Z[3]=36:Prog"2ZD":WhileEnd: While Z[3]=37:Prog"3GC":WhileEnd: While Z[3]=21:Prog"4GD":WhileEnd: While Z[3]=22:Prog"5BP":WhileEnd: While Z[3]=23:Prog"6FM":WhileEnd: While Z[3]=31:Prog"7ZP":WhileEnd: While Z[3]=32:Prog"8JS":WhileEnd: While Z[3]=33:Prog"9SD":WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”: 1.主程序:一般坐标计算及放样程序

公路测量卡西欧5800万能程序

一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线,有效计算范围仅包括平曲线部分和前后的两条直线段,使用时需要输入平曲线设计参数,无坐标反算桩号功能。改进后的程序名称为:道路中边桩坐标放样正反算程序(全线贯通),增加了可实现全线贯通的数据库功能和坐标反算桩号功能,主要是: 1.使用道路平面数据库子程序,可将一段或若干段道路的交点法格式平面参数(可容易从直线、曲线及转角表中获得)以数据库子程序形式输入计算器,程序在计算时省却了输入原始数据的麻烦; 2.坐标正算方面,输入桩号即可进行道路的中、边桩坐标计算,若输入了测站坐标,还可同时计算全站仪极坐标放样数据(拨角和平距); 3.坐标反算方面,输入平面坐标,即可计算对应的桩号和距中距离(含左右信息); 4.对于存在断链的道路,可分段分别编写数据库子程序,然后在主程序中添加一个路段选择的功能即可实现(可参照立交匝道程序中匝道的选择)。程序的特点: 1.可进行中桩坐标的正、反算,程序代码简洁,便于阅读和改写; 2.主程序通过调用数据库子程序,省却了使用时输入平面参数的繁琐; 3.使用数据库子程序,换项目只需改写数据库子程序,程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段(合同段起止桩号: K4+800~K9+600)。这里摘取直线、曲线及转角表资料如下.

.

. 三、程序代码 .

. .

. .

卡西欧fx-5800计算器缓和曲线编程

1fx-5800P计算器编程 缓和曲线程序 14→DimZ :“ZHK”:?K:?R :? A:?L:? T:? F:“Y+1,Z-1”:?P:“JDX”:?Q:“JDY”:?W:180÷(πR)→Z:0.5L-L^3÷(240R2)→Z[8]:“LZ”:ZL÷2→B:A÷Z+L→Z[13]◢ “ZHK=”:K◢ “HYK=”:K+L→Z[1]◢ “YHK=”:K+ Z[13] -L→Z[2]◢ “HZK=”:K+ Z[13]→Z[3]◢ “ZHX=”:Q+Tcos(F+180)→U◢ “ZHY=”:W+Tsin(F+180)→V◢ “HZX=”:Q+ Tcos(F+PA)→Z[6]◢ “HZY=”:W+ Tsin (F+PA)→Z[7]◢ Lb1 0:“CDZH”:?M If M≤K:Then Goto 6:Else If M≤Z[1] :Then Goto 1:Else If M≤Z[2] :Then Goto 2:Else If M≥Z[3] :Then Goto 7:Else If M≥Z[2] :Then Goto 5:If End:If End:If End:If End:If End Lb1 1:M-K→G:√((G-G^(5)÷(40L2R2)+G^(9)÷(3456R^(4)L^(4)))2+(G^(3)÷(6RL)-G^(7)÷(336R^(3)L^(3)) +G^(11)÷(42240R^(5)L^(5)))2)→D F+PZG2÷(6L)→C:F+PBG2÷L2→H:Goto 3 Lb1 2:M-Z[1]→G:R(1-cos(B+ZG))+L2÷(24R)→Z[9]:√(Z[9]2+(Rsin(B+ZG)+Z[8])2)→D F+Ptg-1(Z[9]÷(Rsin(B+ZG)+Z[8]))→C:F+P(B+ZG)→H Lb1 3 “X=”:U+Dcos(C)→X◢ “Y=”:V+Dsin(C)→Y◢ Lb1 B:“ZBJS1,FY-1”:?J If J>0:Then Goto 4:Else If J〈0:Then Goto A:If End:If End Lb1 4:“ZB”:?S “ZBX”:X+Scos(H-90)◢ “ZBY”:Y+Ssin(H-90)◢ “YB”:?N “YBX”:X+Ncos(H+90)◢

卡西欧5800基本测量程序(完整版)

卡西欧 5800 程序 (完整版) 说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功

能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN "ZH(θ) F(1)"?M↓ (0为正算、1为反算) If M=θ:Then "ZHUANG HAO"?A:"KUAN DU"?W:Else"X="?H:"Y="?W:"Z="?Q:IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If AP-T+S+D:Then Goto 1 :IfEnd:IfEnd↓

Prog"ZFXZ"↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1:"NO TASK"↓ Lb1 2:If M=1:Then If A=1:Then "ZHUANG HAO":Z◢"SJ KUAN DU":B◢ IfEnd:IfEnd↓ "-------END-------" KUAN DU (拓展功能程序,用于反算) 1→M:Prog"MAIN"↓ Z→A:W→E:θ→W↓ Prog"GAO CHENG"↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ "……":D◢ (同上) ◢ "----------END---------" YUAN K(B÷(2R))→F↓

卡西欧5800程序

道路中边桩坐标放样正反算CASIO fx-5800P程序(全线贯通) 一、前言 本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线,有效计算范围仅包括平曲线部分和前后的两条直线段,使用时需要输入平曲线设计参数,无坐标反算桩号功能。 改进后的程序名称为:道路中边桩坐标放样正反算程序(全线贯通),增加了可实现全线贯通的数据库功能和坐标反算桩号功能,主要是: 1.使用道路平面数据库子程序,可将一段或若干段道路的交点法格式平面参数(可容易从直线、曲线及转角表中获得)以数据库子程序形式输入计算器,程序在计算时省却了输入原始数据的麻烦; 2.坐标正算方面,输入桩号即可进行道路的中、边桩坐标计算,若输入了测站坐标,还可同时计算全站仪极坐标放样数据(拨角和平距); 3.坐标反算方面,输入平面坐标,即可计算对应的桩号和距中距离(含左右信息); 4.对于存在断链的道路,可分段分别编写数据库子程序,然后在主程序中添加一个路段选择的功能即可实现(可参照立交匝道程序中匝道的选择)。 程序的特点: 1.可进行中桩坐标的正、反算,程序代码简洁,便于阅读和改写; 2.主程序通过调用数据库子程序,省却了使用时输入平面参数的繁琐; 3.使用数据库子程序,换项目只需改写数据库子程序,程序通用性强。 二、道路示例项目基本资料 基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段(合同段起止桩号:K4+800~K9+600)。这里摘取直线、曲线及转角表资料如下(若图片不清晰,请参见参见教材P161附录1): .

自编卡西欧5800程序(简单易懂,有说明1)

一、直线段中边桩坐标计算 Deg:Fix3 (设置角度单位为十进制,3位固定小数显示) “QD:K=”?→A: “QD:X=”?→B: “QD:Y=”?→C: “QD:FWJ=”?→D (输入起点桩号、坐标、方位角) Lbl 1 (设置程序标签) “K=”?→E:“L=”?→F:“JJ=”?→J (输入待求点桩号;边距:左负右正) B+(E-A)cos(D)+Fcos(D+J)→H C+(E-A)sin(D)+Fsin(D+J)→I “Xn=”:H◢ “Yn=”:I◢ (计算并显示待求点坐标) Goto 1 (转向程序标签1继续执行程序) 二、圆曲线中边桩坐标计算 Deg:Fix3 (设置角度单位为十进制,3位固定小数显示) “ZY:K=”?→A: “ZY:X=”?→B: “ZY:Y=”?→C: “ZY:FWJ=”?→D: “R=”?→E: “ZJ=”?→F (输入ZY点桩号、坐标、方位角,圆曲线半径,转角:左负右正) Lbl 1 (设置程序标签) “K=”?→G:“L=”?→H:“JJ=”?→S (输入待求点桩号;边距:左负右正) (G-A)×180°÷π÷E→J

(计算圆心角) D+J→M (计算P点的切向方位角) 2Esin(J÷2) →K (计算弦长) If F>0:Then (D+J÷2)→L :Else(D-J÷2)→L :IfEnd (计算ZY到P点的方位角) B+Kcos(L)+Hcos(M+S) →N C+Ksin(L)+Hsin(M+S) →O “Xn=”:N◢ “Yn=”:O◢ “a=”:M◢ (计算并显示待求点坐标、路线切向方位角) Goto 1 (转向程序标签1继续执行程序) 三、第一完整缓和曲线中边桩坐标计算 Deg:Fix3 (设置角度单位为十进制,3位固定小数显示) “ZH:K=”?→A:“ZH:X=”?→B:“ZH:Y=”?→C:“ZH:FWJ=”?→D:“R=”?→E:“L1=”?→F:“ZJ=”?→G (输入起点桩号、坐标、方位角,圆曲线半径,缓和曲线长度,转角:左负右正)Lbl 1 “K=”?→H:“L=”?→I :“JJ=”?→V (输入待求点桩号;边距:左负右正) (H-A)- (H-A)5÷40÷E2÷F2→K (H-A)3÷6÷E÷F-(H-A)7÷336÷E3÷F3→L

卡西欧5800p计算器所有编程命令解释

卡西欧5800p计算器所有编程命令解释 1. Norm 1 指数显示Norm 2 小数显示2. ?→x 只显示? 字符+?→x 显示字符+? ?x 显示x? “字符”?x 显示字符+? 有→则不显示该变量当前值 3.(判断表达式)语句1 : 语句2。。。如果判断表达式为真(或非零),则不跳过语句1. 如果判断表达式为假(或是零),则会跳过语句1. 4. If...then…else…ifend 如果语句为真,则执行then(不执行else),然后执行ifend. 如果语句为假,则执行else(不执行then),然后执行ifend. 5. Break 中断语句 中断For,Do,While循环,并从该循环的下个命令起继续运行 6. Dsz 使控制变量递减一,在变量的值为零时执行转移7. Isz

Isz<变量>:<语句1><语句2>,变量应为A~Z 以1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2 8. Cls Dsz<变量>:<语句1><语句2>。变量应为A~Z。以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2 9. Locate 定位显示语句 句法1:Locate <列数>, <行数>,<数值> 句法2:Locate <列数>, <行数>,<表达式> 句法3:Locate <列数>, <行数>, "字符串" fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。 10. Lbi n ~ Goto n Goto n~Lbl n 无条件转移至Lbi n 位置 11. Getkey 返回与上次按键相对应的代码,Getkey= 12. DO ~ LpWhile循环语句 Do <语句块> LpWhile<条件> 先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。无,论条件是否为真,语句块至少被执行一次。13. Pol 计算两坐标点之间距离,坐标为(4,4),与原点的距离就是POL(4,4)=4√2 14. Abs 求绝对值15. Fix 取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数16. Rnd 随机函数

CASIO 5800计算器测量计算程序

CASIO 5800计算器测量计算程序 上上月做这个东西的时候没仔细检查,有好几处输错了的地方,今天把它修改过来。 简要介绍: 1. 新版程序把线元法和交点法已经集成在一个模块中了,用户只需修改JD 程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同,且比较复杂,现在可利用PC机EXCEL计算好打印成表格带到工地上使用,所以本版程序未对线路高程序进行专门的编程计算,而是利用统计计算模式中来输入桩号(第一列X)及左、右高程(第二、三列Y,Freq),这种输入数据的方式最为直观,易发现错误,也易修改,输入完毕后运行S程序对数据按桩号进行排序,在程序中通过调用GG程序来进行内插计算,SG=-1得左标高,SG=1得右标高(若SG输入0,则可进行一般的线性内插计算)。 3. 在JD程序和XY程序中,先将一个计算单元的数据置入矩阵F中(1行8列或1行9列),这样程序可读性极好。 4.相比原CASIO4850程序操作习惯,作了一点小小的改动,测站坐标存在Z[10],N中,X坐标原存在M中容易被误操作修改,而设计标高存在M中,这样易于修改,因为CASIO5800没有IN,OUT功能,很不方便。 4. 程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算,Z[2]=0为线元法,否则为交点法。 一、PQX程序:计算中边桩坐标及近似的桩号反算,在运行模式直接调用。 ①Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog “AU” ②Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S ③Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2…原来lbl 后没有标号4的。 ④O=-1 =>Goto 6 ⑤“X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog “D”:Goto 4 ⑥Lbl 6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4 ⑦X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin( J)→I▲L+I▲Goto 6 二、P程序:在程序中提供一个自由运算的模式。 ①Lbl 1:”TMP”?I:If I≠0:Then “RST”:I▲Goto 1:IfEnd 二、LYC程序:进行桩号反算及边坡放样,在运行模式直接调用。 ①Prog “AU” ②Lbl 1:Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”?X :X→Z[7]:”YF”?Y:Y→Z[8]: ”ZF”?S: S→Z[6] ③Lbl 2:Prog “Z”:Y=U =>Y+1p→Y ④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I ⑤If Abs(I)≤0.1:Then Prog “E”:”L,YC”:L+I→L▲O▲Goto 3:IfEnd ⑥If Z[9]≠0:Then Pol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd ⑦”DL”:I▲L+I→L:Goto 2 ⑧Lbl 3: Z[6]→S:If S=0:Then Goto 1:IfEnd ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then

最新卡西欧5800程序LG计算器

卡西欧5800程序L G 计算器

一、坐标正算ZBZS Lbl 0 “X0=”?X:“Y0=”?Y:“I=”?I:“J=”?J X+Icos(J)→U:Y+Isin(J)→V “X=”:U?“Y=”:V? Goto 0 二、坐标反算ZBFS 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 三、圆曲线计算YQXJS “X0=”?X:“Y0=”?Y:“FWJ=”?D:“QDHAO=”?G:“ZDHAO=”?C:“R=”?R Lbl 1 “DQHAO=”?L LC => Goto 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<0 => 360+O→O “FWJ=”:O?DMS? Goto 1 Lbl 2:“END” 四、1.竖曲线SQX “QZHAO=”?J:“HB=”?B:“I1=”?C:“I2=”?D:“R=”?R“T=”?T: (D-C)÷100→W:W÷Abs(W)→A:“T”:0.5Abs(W)→S? J-T→X:J+T→Y Lbl 0 “DQ=”?L If LY:Then Goto 1:IfEnd:IfEnd

“GC=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)→H? Goto 0 Lbl 1:“END” 2.标高计算BGJS(含横坡计算边桩) “QZHAO=”?J: “QDHAO=”?G: “ZDHAO=”?K: “HB=”?B: “SX=”?Q:“I1=”?C:“I2=”?D: “R=”?R“T=”?T: (D-C)÷100→W:W÷Abs(W)→A:“T”:0.5Abs(W)→S?“YIGAO=”?O J-T→X:J+T→Y Lbl 0 “DQ=”?L:“PY=”?U: “HP=”?V If LY:Then Goto 2:IfEnd:IfEnd “HL=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)+0.01UV+Q→H? “H0=”:O-H→Z? Goto 0 Lbl 1 L Goto 3 “HL=”:B+0.01C(L-J)+0.01UV+Q→H? “H0=”:O-H→Z? Goto 0 Lbl 2 L>K => Goto 3 “HL=”:B+0.01D(L-J)+0.01UV+Q→H? “H0=”:O-H→Z? Goto 0 Lbl 3:“END” 说明:输入时可包括竖曲线前后各一段的平直段,HL为中桩或边桩标高,H0为前视读数 五、点到直线距离DDZXJL Lbl 0 “X0=”?A:“Y0=”?B:“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?V Pol(U-X,V-Y) “L=”(B-Y)cos(J)-(A-X)sin(J)→L? “S=”(B-Y)sin(J)+(A-X)cos(J)→S? Goto 0 六、横坡渐变HPJB “QDHAO=”?A:“QDHP=”?B:“ZDHAO=”?C:“ZDHP=”?D Lbl 0

卡西欧5800教程

一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 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)+0.01Int(60Frac(J))+0.006Frac(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:Th en 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog”H”:H-0.03-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:

5800卡西欧计算器程序大全

FX5800计算器公路测量常用程序集 一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 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)+0.01Int(60Frac(J))+0.006Frac(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◢

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

卡西欧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:"ZBFS QH1-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:"ZBZS QH1-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 TRA VE"◢ "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←┘

卡西欧5800简易编程

1、主程序: 程序名:ZCX 输入:”K”?K← If K >540980.584 (直线起点里程) And K<= (小于等于符号)541358.301:(直缓点里程)Then 2890632.365→A: 526217.878→B:79°34′47.8″→F:540980.584→J:Prog”ZX”(A,B,F,J分别为起算点坐标,方位角,里程) Prog”PJ”(运行求偏距的程序) IfEnd If K>541358.301 (直缓点里程)And K<=541488.301:(缓圆点里程)Then 2890700.680→A:526589.366→B: 79°34′47.8″→F: 541358.301→J:1→G:3500→R:130→L:Prog”HHQX”(A,B,F,J,G,L分别为直缓点坐标,方位角,里程,偏向,圆曲线半径,缓和曲线长度) Prog”PJ” IfEnd If K>541488.301(缓圆点里程)And K<=541694.275:(圆缓点里程)Then 2890723.4→A: 526717.363→B:80°38′38.4″→F:541488.301→J:1→G:3500→R:Prog”YQX”(A,B,F,J,G,L分别为缓圆点坐标,方位角,里程,偏向,圆曲线半径,缓和曲线长度) Prog”PJ” IfEnd If K>541694.275 (圆缓点里程)And K<=541824.275:(缓直点里程)Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J:-1→G:3500→R:130→L:Prog”HHQX”(A,B,F,J,G,L分别为缓直点坐标,方位角,里程,偏向,圆曲线半径,缓和曲线长度) Prog”PJ” IfEnd If K>541824.275 (缓直点里程)And K<=542167.602:(下一段直缓点里程)Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J: Prog”ZX”(A,B,F,J分别为缓直点坐标,方位角,里程) 注:以上程序为一段标准曲线(包括直线,缓和曲线,圆曲线,缓和曲线,直线)的主程序,程序名为ZX,HHQX,YQX 2、直线程序 程序名:ZX A+(K – J )xcos(F) →X:”X0=”:X◢ B+(K – J )xsin(F) →Y:”Y0=”:Y◢ F→W:”F=”:W◢ 3、圆曲线程序 程序名:YQX A+2xRxSin(90x(K- J)÷∏÷R)XCos(F+90xGx(K- J) ÷∏÷R) →X:”X0=”:X◢ B+2xRxSin(90x(K- J)÷∏÷R)XSin (F+90xGx(K- J) ÷∏÷R) →Y:”Y0=”:Y◢

卡西欧5800计算器正反算程序(绝对好用)

https://www.wendangku.net/doc/706106667.html,/celiang/article_view.asp?id=760&author=%u674E%u8273%u9633 公路路线座标正反算 作者:李艳阳 由于现在计算机普及,计算机功能日益强大,宜采用较简单的积分公式,便于计算机处理。单线元通用积分公式如下 M = (1.0/Re-1.0/Rs)/Ls; x=∫{cos(Ta + L/Rs + 0.5*M *L*L),0,L}; y=∫{sin(Ta +L/Rs + 0.5*M *L*L),0,L}; a(i)= Ta +L/Rs + 0.5*M *L*L Rs:缓和曲线起点半径 Re:缓和曲线止点半径 Rs,Re (NE坐标系下,右偏为正,左偏为负) Ta:缓和曲线起点的真北方位角 Ls:不完整缓和曲线长度。 此公式为缓和曲线在坐标系下任意位置的通用积分公式,能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SUB0”↙ Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙ Lbl 1:?Z:Prog“QXJS-SUB1”:“N=”:N◢:“E=”:E◢:“F=”:F◢: Goto4↙ Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢: “Z=”:Z◢: Goto4↙ QXJS-SUB0 数据库子程序 Goto1↙同时保存多个曲线时的指针 Lbl 1 IF S<***(线元终点里程):Then***→A(线元起点方位角):***→O(线元起点里程):***→U (线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径): ***→L(线元起点至终点长度): Return:IfEnd↙ IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙………………………..为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件。 QXJS-SUB1 正算子程序 0.5(1÷R-1÷P)÷L→D:S-O→X↙

相关文档
相关文档 最新文档