卡西欧5800计算器道路程序精简版

卡西欧5800计算器道路程序精简版

（坐标正反算，程序模块化设计,可自行升级，扩展功能）

建议录入程序次序

KEYLOCK 锁键程序 可独立测试能正常运行 1

DISPLAYXYZ 主程序 可独立测试能正常运行 2

READDAT 要素数据库文件 （请改为自已路线的要素） 3

ZBJS 坐标计算程序 4

INZHANDZBJS 桩号、横距输入程序 5

TURNZH 坐标反算 6

INNEZ 实测坐标输入程序 7

如正确输入以上程序，运行DISPLAYXYZ，按“0”进行坐标反算，按“.”进行坐标正算。

技术支持：Q285507730

FileName:INZHANDZBJS

//:桩号、横距输入程序://

Lbl S

Cls:Norm 1

"ZH"?G ;桩求桩号

"JL"?B ;输入横向距离

"JJ"?W ;输入斜桩角，一般为90

Wπ÷180→W

Prog"ZBJS" ;080702晚添加

Return

FileName：ZBJS 坐标计算程序

Prog"READDAT"

Rad

G-M→Q

0.5(R-A)÷L→K

AQ→I

KQ2→J

0.0469100770→P:H+IP+JP2→O

0.2307653449→P:H+IP+JP2→T

0.5→P :H+IP+JP2→D

0.7692346551→P:H+IP+JP2→F

0.9530899230→P:H+IP+JP2→P

0.1184634425→I 0.2393143352→J

0.2844444444→Y

N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→X

E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→Y

H+AQ+KQ2→F

X+BCos(F+W)→X

5800计算器全线坐标计算放样程序（精简版）

注：本程序可计算对称与非对称、一般圆曲线等不同曲线要素及中边桩正交、斜交坐标。本人在原作者的计算程序下进行优化精简，减少5800计算器的内存空间，且让程序简单明晰。若有不明之处请与本程序精简作者落日云海（QQ：419769853）联系

XLZBJSCX 主程序

LB1 0 ↙

20→DIM Z ↙↙

“Z -1 ,Y 1”?O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 偏角”PJ=”?A：半径”R=”?R :

第一缓和曲线”LS1=”?L : 第二缓和曲线”LS2=”?G : 交点”JD=”?M: 交点 X”JDX=”?B:交点

Y”JDY=”? C : 小里程向交点方位角”QDFWJ=”?E: 交点向大里程方位角”ZDFWJ=”?F:

GOTO 2↙

LB1 2 ↙（曲线要素计算）

L/2- L^3/(240R^2)+ L^5/(34560R^4) →Z[8] ↙ （M1）

G/2- G^3/(240R^2)+ G^5/(34560R^4) →Z[9] ↙ （M2）

L^2/(24R)- L^4/(2688R^3) →Z[10] ↙ （P1）

G^2/(24R)- G^4/(2688R^3) →Z[11] ↙ （P2）

“QXC=”:π*A*R/180+0.5*( L+ G)→S◢ ↙ （曲线总长）

90L/(Rπ) →Z[14] ↙ （第一缓和曲线总偏角）

90G(Rπ) →Z[15] ↙（第二缓和曲线总偏角,可以省略）

“T1=”:Z[8]＋（R+Z[11] -(R+Z[10])CosA）/SinA→Z[12] ◢↙ (切线T1)

“T2=”:Z[9]＋（R+Z[10]-(R+Z[11])CosA）/Sin A→Z[13] ◢↙ (切线T2)

“ZHD=”:M-Z[12] →Z[3] ◢ (ZH点里程)

Casio fx- 5800P 道路中边桩计算（线元法）

主程序QZ

Fix 3:Deg:Lbl 4: ″1.SZ=>XY″：″2.XY=>SZ″：″1，2″？Q：″S=″？S：Prog″Z1″↙

Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEnd↙

Lbl 1: ″B=″?Z: ″F=″?G:Prog ″Z2″: ″X=″:N→N◢

″Y=″:E→E◢

″QXFWJ″:F→F:FDMS◢

Goto 4↙

Lbl 2: ″XZB=″?→B: ″YZB=″?→C:B→N:C→E:Prog ″Z3″: ″LICHENG=″:S→S◢

″OUT JL=″:Z→Z◢

Goto 4↙

数据库子程序Z1

Lbl 1↙

If S<5126.802:Then 34304.063→U:72029.684→V:5046.802→O:99°09′36″→A:80→L:220→P:10^(45) →R:Return:IfEnd↙

If S<5239.113:Then 34281.903→U:72106.431→V:5126.802→O:109°34′38.5″→A:112.311→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙

If S<5319.113:Then 34224.270→U:72212.249→V:5239.113→O:109°34′30″→A:80→L: 10^(45)→P:-200 →R:Return:IfEnd↙

If S<5444.453:Then 34222.582→U:72289.106→V:5319.113→O:98°07′05.2″→A:125.34→L: -200→P:-200 →R:Return:IfEnd↙

If S<5524.453:Then 34243.645→U:72410.593→V:5444.453→O:62°12′40.3″→A:80→L: -200→P: 10^(45) →R:Return:IfEnd↙

?X:?Y:Lbl1:"X1"?E:"Y1"?F

:Pol(E-X,F-Y):J<0=>J+360°

→J:J>360°=>J-360°→J:"A=":J°◢"L=":I◢1

?X:?Y:Lbl2：?A:?L:"X1=":X

+cos(A)*L→E◢"Y1=":Y+sin(A)*L→F◢2计算公式:卡西欧计算器操作Pol(X2-X1,Y2-Y1),r=水平距离，θ=坐标方位角(输入时，求点1至点2的坐标方位角，需用点2值减点1值，反之相反)。Pol是属于直角坐标转换成极坐标，水平距离可用√((X2-X1)2+(Y2-Y1)2)，计算方位角需要注意其所在象限，比较麻烦，可以看书理解，但不建议使用，现在卡西欧函数计算器都有极坐标跟直角坐标互换，很方便。

计算公式:A表示坐标方位角，L表示水平距离；X1+cos(A)*L=X2 , Y1+sin(A)*L=Y2输入第二个已知点Y值

L?输入已知点到待求点间的水平距离

X1=待求点X值

Y1=待求点Y值Goto

X1?输入第二个已知点X值

A?输入已知点到待求点的坐标方位角A=第一个已知点到第二个已知点的坐标方位角

L=第一个已知点到第二个已知点的水平距离Y1?

X?输入已知点X值

Y?输入已知点Y值直线反算------------：FC

X?输入第一个已知点X值

Y?输入第一个已知点Y值

直线正算------------：ZX

Goto

距离：10方位角：51-26-38

Lbl3：?X:?Y:?A:"X1"?E:"Y1

"?F:Pol(E-X,F-Y):"L=":sin(

A-J)*I→M◢3

?R:"XC"?D:Lbl4："L1"?C:"L

0=":R-√(R2-(D∕2)2)→L◢"LR=":√(R2-(D∕2-C)2)-√

((R2-(D∕2)2)◢4计算公式:L实测点至方向线的水平距离(对边)，＠起算点至实测点连线与所放样的方向线构成的夹角(∠＠)，D起算点至实测点的水平距离(斜边)，直角三角函数sin∠＠=对边÷斜边，得对边=sin∠＠*斜边，sin∠＠*D=L