论文部分内容阅读
摘 要：用CASIOfx- 4800P计算器编简单的程序，可以方便应用在测量计算中，提高计算精度，减少计算错误，携带方便、且不受环境限制。
关键词：CASIOfx- 4800P；计算器；清单；应用
一、新田煤矿简介
新田矿井属全国规划十三个大型煤炭基地云贵基地黔北矿区黔西区规划项目，也是“西电东送”配套供煤矿井，2008年列入贵州省重点工程项目，同时也是永煤集团公司2008年重点建设工程之一。新田井田位于黔西县城北东部，属甘棠乡管辖。矿井一期建设总资金为59334.37万元，于2008年10月1日正式开工建设，服务年限70.7a，建设工期42个月。
二、背景概况
随着测绘技术的发展，计算机已被广泛应用于测绘行业，各种测绘软件也被大量开发使用，但CASIOfx- 4800P计算器以其携带方便、功能强大、使用率高、可编程且不受工作条件限制、操作简单、显示明了，速度快等优点深受矿山测量人员的喜爱，本人根据工作需要，编制了几个小程序，能基本满足矿山测量日常工作需要，具有一定的实用价值。
三、程序内容
⑴名称“ DDFFMM”功能：将以度（十进制）量化为度、分、秒形式，入口= H，出口= H。
程序清单：
H= Int H+ Int（Frac（H）× 60）÷ 100+（Frac（Frac（H）× 60））× 60÷ 10000
⑵名称“FANG.SUB”功能：已知两点坐标，推算两点间的方位角、边长。入口I，J（I=ΔX，J=ΔY），出口I，J（此时I为两点距离，J是方位角）程序清单：
Pol（I，J）：J< 0= > J= 360+ J：⊿
⑶名称：“ TUISUAN.SUB”功能：已知起算方位及夹角，推算下一边方位角。入口：T，E（T=起算方位角，E为夹角）。出口T（为推算的方位角）。
程序清单：
T= T- 180：T< 0= > T= T+ 360：⊿
T= T+ E：T≥ 360= > T= T- 360：⊿
⑷放样“FY”
功能：已知两点坐标，求两点间的距离、方位。使用变量A，B，C，D。存两点坐标①（A（X0），B（Y0））；
②（C（X1），D（Y1））
显示输出：I“S=”◣
H“ T=”◣
程序清单：
Lbl 0：
{A，B，C，D}
A“X0”：B“Y0”：C“X1”：D“Y1”
I= C- A：J= D- B
Prog“FANG.SUB”
H= J：Prog“DDFFMM”
I“S=”◣
H=“ T=”◣
Goto 0
⑸四舍五入“SSWR.SUB”
程序清单：
Z> 0= > Z= Int（Z× 1000+ 0.5）÷ 1000：≠ => Z= - Int（（AbsZ）× 1000+ 0.5）÷ 1000：⊿
本程序可以根据自己所要精度，保留任意小数位。
⑹支导线计算“DX”
本程序为计算井下支导线用，显示明了，每步运算均有检查，能及时发现计算过程中的错误。程序清单：
Mcl
Lbl A：Norm：{A，B，C，D，E，F，N，W}：K= 1
N“STA.NUM=”（输入导线点数）
N= N- 2
A“X0=”：B“Y0=”：C“X1=”：D“Y1=”
I= C- A：J= D- B：Prog“FANG.SUB”：T= J
Lbl 0
K“NOW IS”◣
Lbl 1：{，E，F，W}
E“ H=E：Prog“DDFFMM.SUB”
H“ F“S=”◣
W“T（1）OR T（0）”（输入正确选1，错误选0重新输入）
W=0=>E=0：F=0：Goto 1：⊿
Prog“TUISUAN.SUB”
U=C+F×COS T：V=D+F×SIN T
Z=U：Prog“SSWR.SUB”：U=Z：Z=V：Prog
“SWR.SUB”：V=Z
U“XP=”◣
V“YP=”◣
Norm
Z=U：Prog“SSWR.SUB”：C=Z：Z=V：Prog
“SSWR.SUB”：D=Z：E=0：F=0
K=K+1
DSZ N
Goto 0
A=0：B=0：C=0：D=0：E=0：F=0：N=0
Goto A
輸入程序的方法如下：打开CASIO fx-4800P，按MODE 5，进入菜单，选1 NEW就可以进入输入程序状态，按以上所给程序，逐步输入，每行输入后按EXE结束，全部输入完成后退出。在开机状态按FLIE键，进入程序运行状态，选择你要计算的工作，用导航键选取，按EXE键开始计算。
四、结语
以上六个小程序基本涵盖矿山井下测量所有计算，使用起来方便简单，适用性强，且不受井下条件限制，非常适合矿山测量人员使用，希望能对矿山测量人员有所帮助。
作者简介：
季争争，男，汉，河南省永城市人，1987年4月，中国矿业大学矿山建设专业毕业，本科学历，技术主管，助理工程师。
关键词：CASIOfx- 4800P；计算器；清单；应用
一、新田煤矿简介
新田矿井属全国规划十三个大型煤炭基地云贵基地黔北矿区黔西区规划项目，也是“西电东送”配套供煤矿井，2008年列入贵州省重点工程项目，同时也是永煤集团公司2008年重点建设工程之一。新田井田位于黔西县城北东部，属甘棠乡管辖。矿井一期建设总资金为59334.37万元，于2008年10月1日正式开工建设，服务年限70.7a，建设工期42个月。
二、背景概况
随着测绘技术的发展，计算机已被广泛应用于测绘行业，各种测绘软件也被大量开发使用，但CASIOfx- 4800P计算器以其携带方便、功能强大、使用率高、可编程且不受工作条件限制、操作简单、显示明了，速度快等优点深受矿山测量人员的喜爱，本人根据工作需要，编制了几个小程序，能基本满足矿山测量日常工作需要，具有一定的实用价值。
三、程序内容
⑴名称“ DDFFMM”功能：将以度（十进制）量化为度、分、秒形式，入口= H，出口= H。
程序清单：
H= Int H+ Int（Frac（H）× 60）÷ 100+（Frac（Frac（H）× 60））× 60÷ 10000
⑵名称“FANG.SUB”功能：已知两点坐标，推算两点间的方位角、边长。入口I，J（I=ΔX，J=ΔY），出口I，J（此时I为两点距离，J是方位角）程序清单：
Pol（I，J）：J< 0= > J= 360+ J：⊿
⑶名称：“ TUISUAN.SUB”功能：已知起算方位及夹角，推算下一边方位角。入口：T，E（T=起算方位角，E为夹角）。出口T（为推算的方位角）。
程序清单：
T= T- 180：T< 0= > T= T+ 360：⊿
T= T+ E：T≥ 360= > T= T- 360：⊿
⑷放样“FY”
功能：已知两点坐标，求两点间的距离、方位。使用变量A，B，C，D。存两点坐标①（A（X0），B（Y0））；
②（C（X1），D（Y1））
显示输出：I“S=”◣
H“ T=”◣
程序清单：
Lbl 0：
{A，B，C，D}
A“X0”：B“Y0”：C“X1”：D“Y1”
I= C- A：J= D- B
Prog“FANG.SUB”
H= J：Prog“DDFFMM”
I“S=”◣
H=“ T=”◣
Goto 0
⑸四舍五入“SSWR.SUB”
程序清单：
Z> 0= > Z= Int（Z× 1000+ 0.5）÷ 1000：≠ => Z= - Int（（AbsZ）× 1000+ 0.5）÷ 1000：⊿
本程序可以根据自己所要精度，保留任意小数位。
⑹支导线计算“DX”
本程序为计算井下支导线用，显示明了，每步运算均有检查，能及时发现计算过程中的错误。程序清单：
Mcl
Lbl A：Norm：{A，B，C，D，E，F，N，W}：K= 1
N“STA.NUM=”（输入导线点数）
N= N- 2
A“X0=”：B“Y0=”：C“X1=”：D“Y1=”
I= C- A：J= D- B：Prog“FANG.SUB”：T= J
Lbl 0
K“NOW IS”◣
Lbl 1：{，E，F，W}
E“
H“
W“T（1）OR T（0）”（输入正确选1，错误选0重新输入）
W=0=>E=0：F=0：Goto 1：⊿
Prog“TUISUAN.SUB”
U=C+F×COS T：V=D+F×SIN T
Z=U：Prog“SSWR.SUB”：U=Z：Z=V：Prog
“SWR.SUB”：V=Z
U“XP=”◣
V“YP=”◣
Norm
Z=U：Prog“SSWR.SUB”：C=Z：Z=V：Prog
“SSWR.SUB”：D=Z：E=0：F=0
K=K+1
DSZ N
Goto 0
A=0：B=0：C=0：D=0：E=0：F=0：N=0
Goto A
輸入程序的方法如下：打开CASIO fx-4800P，按MODE 5，进入菜单，选1 NEW就可以进入输入程序状态，按以上所给程序，逐步输入，每行输入后按EXE结束，全部输入完成后退出。在开机状态按FLIE键，进入程序运行状态，选择你要计算的工作，用导航键选取，按EXE键开始计算。
四、结语
以上六个小程序基本涵盖矿山井下测量所有计算，使用起来方便简单，适用性强，且不受井下条件限制，非常适合矿山测量人员使用，希望能对矿山测量人员有所帮助。
作者简介：
季争争，男，汉，河南省永城市人，1987年4月，中国矿业大学矿山建设专业毕业，本科学历，技术主管，助理工程师。