Casio Fx-4500PA计算器程序库

一、相关介绍

 
Fx-4500PA计算器是日本Casio公司的产品，它除了具备函数型计算器的全部功能之外，还具备如下特殊功能：

1、二进制和八进制字组显示；

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

3、进行f（x）函数的输入与积分的计算；

4、进行标准差和回归计算。

○大容量程序存储功能（1103步）和变量存储器数（26-163）
●双行显示
●积分计算
●分数计算
●组合和排列
●极坐标/直角坐标转换
●统计（数据编辑、标准偏差）
●线性回归
●逻辑运算

    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"FixmC=>"=7=>Fixm:Goto F△Fix 4:Z=E7A"A0"/Abs AN[9:A=Abs A:Q=R+S"Lsci"2/24R

L2    T=S/2-Sxy3/240R2+Anstan .5A▲L=πRA/180 +S▲H"ZH"=J"JDT"-T▲V"HY"=H+S▲V"QZ"=H+.5L▲V"YH"=H+L-S▲L"HZ"=H+L▲D"xJ"K"yJ" B"Gra"O"XE"U"YE"G"Xm"M"Xm"

L3    LbI F:{FN}:F≤H=>X=F-J:ZN:≠>F≤L-S=>I= L-S=>I= F-H:F<H+S=>Prog Q:≠>Rec(R-ZN,90(2I-S)/πR: X=W-Qtan.5A:Q-V△≠>I=L-F:PoI(T-I,ZN:F<L=>Prog Q:PoI(-X,Ans△X=Rec(Ans,A+W

L4    W△△X=D+Rec(PoI(X,ZAns,W+B:Y=K+W: "EnD OK!":PoI(G-O,M-U:I=W:PoI(X-O,Y-U:W-I: Ans<0=>Ans+360△I=Ans:60Frac Ans:I"≤Deg"=IntI+.01Int Ans+6mFrac Ans▲V"P"=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"A0"/Abs AN[9处E用按键[EXP] 键输入；

2、程序中π代表圆周率，也就是3.1415926的那个；

3、程序中Ans用按键[Ans]输入；

4、程序中I"≦Deg"=Int I+.01Int Ans+6mFrac Ans▲处的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里程。

QZ=

程序输出QZ里程。

YH=

程序输出YH里程。

HZ=

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

XJ?

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

YJ?

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

Gra?

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

XE?

输入放样置仪点大地坐标[X坐标]。

YE?

输入放样置仪点大地坐标[Y坐标]。

Xm?

输入放样后视点大地坐标[X坐标]。

Ym?

输入放样后视点大地坐标[Y坐标]。

F?

放样点里程桩号。

N？

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

EnD OK!

程序提示：程序已完成放样点的坐标计算，正在进行放样元素计算，请稍候！

≤Deg=

程序输出放样极角为28度16分47秒(度分秒化处理)，不要再人为转换，将仪器水平度盘拨至该角度即可放样。

P=

程序输出放样极距。即置仪点至放样点的水平距离。按EXE键循环到F?。

==== 5 ====

计算曲线上任一点大地坐标

F1：  QXJS

L1    Abs W"FixmC=>"=7=>Fixm:Goto F△Z=E7A"A0"/Abs AN[9:A=Abs A:Q=R+S"Lsci"2/24R

L2    T=S/2-Sxy3/240R2+Anstan .5A▲L=πRA/180+S▲H"ZH"=J"JDT"-T▲V"HY"=H+S▲V"QZ"=H+.5L▲V"YH"=H+L-S▲L"HZ"=H+L▲D"xJ"K"yJ" B"Gra"

L3    LbI  F:{FN}:F≤H=>X=F-J:ZN:≠>F≤L-S=>I=F-H:F<H+S=>Prog Q:≠>Rec(R-ZN,90(2I-S)/πR: X=W-Qtan.5A:Q-V△≠>I=L-F:PoI(T-I,ZN:F<L=>Prog Q:PoI(-X,Ans△X=Rec(Ans,A+W

L4    W△△X”X”=D+Rec(PoI(X,ZAns,W+B▲Y”Y”=K+W▲ 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"A0"/Abs AN[9处E用按键[EXP] 键输入；

2、程序中π代表圆周率，也就是3.1415926的那个；

3、程序中Ans用按键[Ans]输入；

4、程序中I"≦Deg"=Int I+.01Int Ans+6mFrac Ans▲处的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里程。

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替代即可。

相关书籍：

在土木工程中的应用 专家多年工作经验积累而成的实用程序. 程序介绍图文并茂,通俗易懂. 充分考虑技术变革情况,传统技术和新技术并重.

测量程序集 专家多年工作经验积累而成的实用程序. 程序介绍图文并茂,通俗易懂. 充分考虑技术变革情况,传统技术和新技术并重.

公路测设实用程序 专家多年工作经验积累而成的实用程序. 程序介绍图文并茂,通俗易懂. 充分考虑技术变革情况,传统技术和新技术并重.