CASIO4500坐标计算程序

CASIO4500坐标计算程序 HUANHEQUXIAN

K〝JD〝D〝LS〝：B=D2/24R：M=D/2-DB/10R

T=M+tan.5A(R+B)▲L=∏RA/180+D▲E=(R+B)/cos.5A-R▲Z〝ZH〝=K-T▲H〝HY〝=Z+D▲Q〝QZ〝= Z+L/2▲J〝YH〝=Z+L-D▲O〝HZ〝J+D▲prog 1▲

N〝N=1＝＞V〝:P:prog 3:L=W:Fixm

Lb1 2:｛S｝:S〝KX〝:S＞J＝＞Goto4△S＞H＝＞Goto3△U=S-Z:E=U-UXY5/40R2D2:F=UXY3/6RD:Goto5

Lb1 3:U=90(2S-2H+D)/ ∏R:E=RsinU+M:F=R-RcosU+B:Goto5 Lb1 4:F=O-S:D≠0＝＞I=30F2/∏RD△V=F-FXY3/90R2:N=1＝＞U=360-A:F=180-A+I: ≠＝＞U=A:F-180+A-I△E=T+TcosU+VcosF:F=TsinU+VsinF:Goto1

Lb1 5:N=1＝＞F=-F△Lb1 1:X=E:Y=F:P=1＝＞prog2: prog4△: prog3:W=W-L:W＜0＝＞W=W+360△V: 〝S〝▲W: 〝R〝▲Goto2 X=C+EcosL-FsinL▲Y=G+EsinL+FcosL▲

C〝X0〝G〝Y0〝:Pol(X-C,Y-G):W＜0＝＞W=W+360△W

D≠0＝＞Q＝＞90U2/∏RD△Fixm:I=A-3I:N=1＝＞Q=-Q:U=-U:I=-I△

S＜H＝＞F=L+Q≠＝＞S＞J＝＞F=L+I: ≠＝＞F=L+U△△V=1: ｛E｝:

E〝＜B〝:F〝R〝=F+E:Lb1 6: ｛I｝:I〝SL〝:X+IcosF▲Y+IsinF▲V＜2＝＞V=V+1：Goto6△ ZHI XIAN

E〝X0〝F〝Y0〝A〝R0〝K〝CZ〝:Lb1 1: ｛S｝=S〝KX〝:D=S-K:X=E+DcosA▲Y=F+DsinA▲V=1:Lb1 2: ｛BI｝:H=A+B-180:I〝SL〝:X+IcosH▲Y+IsinH▲V＜2＝＞V=V+1:Goto2△Goto1 计算要素：

JD——交点里程 LS——缓和曲线长 R ——圆曲线半径 A ——线路转角 T ——切线长 L ——圆弧总长度 E ——外矢距 N ——曲线方向，左偏取“1”，右偏取“0”

P ——取“1” X0.Y0——ZH点坐标

X.Y——交点坐标 KX——待求点里程 B ——与中线夹角 SL——边距，左“+”；右“-”

-- 作者：admin

-- 发布时间：2005-8-15 9:43:10

--

CASIO4800超高计算程序 超高及高程（源程序）

L1: R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(G－F)÷2:X“X(R+1,L-1)”:P“P(R+,L-1)” L2: Lbl 6 : ｛S｝

L3: S+T－N<0 D=O+(S－N)F: S－N<0 D=O+(S－N)F－U(S－N+T)2÷2÷V: S－N≤T D=O+(S－N)G－U(T－S+N)2÷2÷V: D=O+(S－N)G D“ H=” ◢

L4: R< E= : M= Goto 1: R< E= : M= Goto 1: L5: Lbl 1 : M ≥ L C=L: Goto 2: C=M L6: Lbl 2 : P X >0 Goto 3 : Goto 4

L7: Lbl 4 : S ≤Z I=0.02 : Goto 5: S

说明： R:平曲线半径 L“LS”:缓和曲线长 P：偏转，Z=－1,Y=1 X“XL”：线路（Z,Y）左线＝－1,右线＝1 Z“ZH”: 直缓点里程 H“HZ” ：缓直点里程 V“RS”：竖曲线半径 F“I 1” ：前坡堵（带符号）

G“I2”： 后坡度值（带符号） O“BPH”：变坡点高程 N“BP”： 变坡点里程

T： 切线长 E：最大超高值 C ：渐变段长度（LC）

I： 横坡值 M：最大渐变长度（Lmax） B ：距中心距离 W“HB”：边部高程

-- 作者：admin

-- 发布时间：2005-8-15 9:43:38 --

CASIO4800计算程序

曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 一、程序功能

本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(

SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整

或非完整型）的线

元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲

率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另

外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲

线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 二、源程序 1.主程序(TYQXJS)

\：\：N：U\：V\：O\：G\：H\：P\：R\

RN\：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘

Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog \：X\◢ Y\◢ Goto 1←┘

Lbl 2：{XY}：XY：I=X：J=Y：Prog \：S\◢ Z\◢ Goto 2

S=940 Z=-5.123 计算得 XS=19741. 59118 YS=28722.05802

S=940 Z=0 计算得 XS=19736.47687 YS=28722.35642

S=940 Z= 3.009 计算得 XS=19733.47298 YS=28722.53168 2、 反算

X=19831.418 Y=25809.726 计算得 S=699.9999974 Z= -5 .00018164

X=19827.336 Y=25806.838 计算得 S=699.9996493 Z= 0.000145136

X=19823.25398 Y=25803.95084 计算得 S=699.9999985 Z= 5.000003137

X=19785.25749 Y=28575.02270 计算得 S=780.0000035 Z= -5 .000001663

X=19781.15561 Y=28572.16358 计算得 S=780.0000025 Z=- 0.000002979

X=19777.05373 Y=28569.30446 计算得 S=780.0000016 Z= 4.99999578

X=19747.536 Y=28654.131 计算得 S=870.0001137 Z= -4.99941049

X=19742.686 Y=28652.914 计算得 S=870.0003175 Z=- 0.00041814

X=19737.837 Y=28651.697 计算得 S=870.0002748 Z= 4.999808656

X=19741.5912 Y=28722.0580 计算得 S=939.9999786 Z= -5.123024937

X=19736.4769 Y=28722.3564 计算得 S=939.9999862 Z=- 0.000027710

X=19733.4730 Y=28722.5317 计算得 S=940.0000238 Z= 3.00898694

-- 作者：花下独眠

-- 发布时间：2006-2-15 20:42:58 --

看到斑竹为大家提供这么好的东西，非常感动，本人毕业后从事一段时间测量工作，有几个实用的Casio Fx-4500PA计算器程序，现场使

用比较方便，也在此献丑！绝对好用，特别是曲线任意坐标计算！

Casio Fx-4500PA计算器程序库

一、整机概况

Fx-4500PA计算器是日本Casio公司的产品，它除了具备函数型计算器的全部功能之外，还具备如下特殊功能： 1、二进制和八进制字组显示；

2、二进制、八进制、十进制和十六进制的转换和加、减、乘、除运算。

3、进行f（x）函数的输入与积分的计算； 4、进行标准差和回归计算。

Fx-4500PA计算器具有同时显示运算表达式和计算结果的双行式显示的特点。该计算器具有记存1103个程序步的记忆储存装置，计算器储存了程序之后，只要您输入数据，再按一下EXE键，计算器就会用数据进行程序执行,对于随数据而变化的反复计算的运用十分方便。

Fx-4500PA计算器具备条件指令转移和非条件指令转移的能力，还具备逻辑判断能力，因此它可以进行测量工作中比较复杂的计算，当然

其它专业的计算工作也同样可以解决。

Fx-4500PA计算器操作方法比较简单、易学，程序编排灵活、易懂，可称之谓各专业技术人员的物美、价廉、得心应手的计算工具。 每一台Fx-4500PA计算器都具备一本说明书，该计算器各部键的功能以及操作方法，只要认真按照说明书各章节学习，很快就能掌握和运用，现将我在测量实践中应用的部分计算程序介绍给同行以便共同探讨。 二、程序库

==== 1 ====

坐标反算程序（已知两坐标求算其平距和方位角） 程序名：ZBFS

Norm：A”X1”：B”Y1”：pol(C”X2” - A，D”Y2” - B：”S=”▲W<0=>W=W+360△W：”Aμ=”

注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。 运行后界面如下： 输入项目:

X1？————————————请输入点1的X坐标，按EXE键输入下一个量。

Y1？————————————请输入点1的Y坐标。 X2？————————————请输入点2的X坐标。 Y2？————————————请输入点2的Y坐标。 输出项目:

S＝ ————————————为两点之间距离，按EXE键输出下一个量。

Aμ＝————————————为1点到2点的方位角。按EXE键循环。

==== 2 ====

坐标正算程序（已知一坐标及其平距和方位角求算另一点坐标） 程序名：ZBZS

C”X1”D”Y1”S”S=”R”Aμ”：X”X2”=C+Rec(S，R▲Y”Y2”=D+W

注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行

请将源程序中的V，W分别用I，J替代即可。 运行后界面如下： 输入项目

X1？ ————————————请输入点1的X坐标，按EXE键输入下一个量。

Y1？ ————————————请输入点1的Y坐标。 S=？ ————————————为两点之间距离。 Aμ？————————————为1点到2点的方位角。 输出项目

X2 ————————————输出点2的X坐标。

Y2 ————————————输入点2的Y坐标。按EXE键进入下一个循环。

==== 3 ====

竖曲线计算程序 程序名：SQX

LBl 1：{DEIHRQPJ}：W=DEIHRQPJ：T=(I-H)R/2：N=T2/2R LBl 2：{A}：Z=A

LBl 3：A>P=>Goto 4：△A>E=>Goto 6：△A>Q=>Goto 5：△X=D+(A-E)I▲ Goto 2

LBl 4：X= D+(A-E)H▲Goto 2

LBl 5：M=(Q-A)2/2RJ：X=D+(A-E)I+M▲ Goto 2 LBl 6：M=(P-A)2/2RJ：X=D+(A-E)H+M▲ Goto 2

注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。 字母含义：

D：变坡点高程 E：变坡点里程 J：曲线凸凹（凸为-1、凹为+1） L：开始坡度

H：结束坡度 A：待求点标高 R：竖曲线半径 Q：起点里程 P：终点里程

==== 4 ====

计算曲线上任一点放样极坐标

F1： QXJS

L1 Abs W\△Fix 4:Z=E7A\[9:A=Abs A:Q=R+S\2/24R

L2 T=S/2-Sxy3/240R2+Anstan .5A▲L=πRA/180 +S▲H\T\▲V\▲V\▲V\▲L\▲D\K\

L3 LbI F:{FN}:F≤H=>X=F-J:ZN:≠>F≤L-S=>I= L-S=>I= F-H:FProg Q:≠>Rec(R-ZN,90(2I-S)/πR: X=W-Qtan.5A:Q-V△≠>I=L-F:PoI(T-I,ZN:FProg Q:PoI(-X,Ans△X=Rec(Ans,A+W L4 W△△X=D+Rec(PoI(X,ZAns,W+B:Y=K+W: \M-U:I=W:PoI(X-O,Y-U:W-I: Ans<0=>Ans+360△I=Ans:60Frac Ans:I\≤Deg\▲V\▲Goto F [主程序结束]

F2： Q [子程序]

L1 Y=2RS:W=180I2/πY:X=I-Ixy5/10Y2-T-ZNsin W:Ixy3/3Y-Ixy7/42Yxy3+ZNcosW [子程序结束] 输入说明：

F1为第一个程序，L1为第一个程序的第一行，L2为第二行，依次类

推。

1、程序中Z=E7A\处E用按键[EXP] 键输入； 2、程序中π代表圆周率，也就是3.1415926的那个； 3、程序中Ans用按键[Ans]输入；

4、程序中I\≦Deg\▲处的m 用按键[SHIFT][5]输入； 操作说明： Fixm C=>?

首次启动时，需输入密码：“10000000”。重启动功能控制符，输入“7”或“-7”可启动重启动功能。 A0？

曲线转角，要求以度分秒形式输入，左转输入“负” 值，右转输入“正”值。 R?

曲线半径，直接输入即可。 LSci?

缓和曲线长度，有缓和曲线时输入缓和曲线长度，圆曲线输入“0”。

T=S/2-Sxy3/2→

程序输出曲线切线长度。 L=ПRA/180+S 程序输出曲线长度。 JDT?

曲线交点里程，直接输入平曲线交点里程，如K123+456.789输入123456.789即可。 ZH=

程序输出曲线起点[ZH]里程。 HY=

程序输出HY里程。 HY=

程序输出HY里程。

HY=

程序输出HY里程。 HY=

程序输出HY里程。 QZ=

程序输出QZ里程。 YH=

程序输出YH里程。 HZ=

程序输出曲线止点[HZ]里程。 XJ?

交点大地坐标[X坐标]。 YJ?

交点大地坐标[Y坐标]。 Gra?

曲线起始方位角。即由ZH指向实交点的方位角。 F?

放样点里程桩号。 N？

放样中桩距，即边桩至中桩的距离。无论曲线左转还是右转，均以左“负”右“正”输入，中桩输入“0”。 X=

程序输出放样点坐标[X坐标]。 Y=

程序输出放样点坐标[Y坐标]。按EXE键循环到F?。 三、结束语

以上程序可以输入Fx-4500PA计算器内，只要程序容量允许。以上程序均用于实际计算工作当中，结果可靠，操作简单。这些程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。

此外，该计算器还可进行一些其它的测量内外业计算，因篇幅关系仅将上述程序做以介绍。

本文来源：https://www.bwwdw.com/article/gqxv.html