看名字就知道了,很实用的卡西欧小程序,希望大家喜欢!

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

一、直线计算程序

0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0:

Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:

D+Scos(A) →X:”X=”:X ◢

E+Ssin(A) →Y:”Y=”:Y ◢

Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢

E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢

Goto 0

说明：

输入程序时注意区别字母 O 与数字 0

程序运行时符号说明

X0? Y0? 分别输入直线起点的 XY 坐标值

X1? Y1? 分别输入直线终点的 XY 坐标值

O? 输入边桩与中桩的距离 ( 左边桩为负值 , 右边桩为正值 ), 如计算中桩坐标输入 0 S? 输入所求点到直线起点的距离

二、圆曲线计算程序

0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:

T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd:

sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢

D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢

R-0.5√(4R2-H2) →Q:”Q=”:Q ◢

“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢

Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢

Goto 0

说明：

输入程序时注意区别字母 O 与数字 0

程序运行时符号说明

X0? Y0? 分别输入直线起点的 XY 坐标值

X1? Y1? 分别输入直线终点的 XY 坐标值

R? 输入圆曲线半径

L:-1 R:1? 圆曲线向左转弯时输入 -1, 向右转弯时输入 1

ZY? 输入起点桩号

LN? 输入所求点桩号 ( 按下 exe 键后显示中桩坐标 )

S? 输入所要求的边桩与中桩的距离

L:-90 R:90 要求左边边桩输入 -90, 右边边桩输入 90( 按下 exe 键后显示边桩坐标 )

三、大地转施工

“QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q ↙