4500计算程序..doc

CASIO fx4500P计算器 实 用 程 序 XCAJCJ 编著 二○○一年八月 说明 本程序稿由于时间仓促及编者水平有限，缺点、错误以及疏漏与不足之处在所难免，恳请大家批评指正。 程序步骤计算：1个字符的文件名算3步(每增加一个字符多算一步)，行号算1步，每个字符算1步。CASIO fx-4500P共有1103步。 XCAJCJ 二○○一年八月  目录 程序1——角度判断 1 程序2——角度换算① 1 程序3——角度换算② 1 程序4——角度换算③ 1 程序5——角度换算④ 1 程序6——视距测量 2 程序7——坐标反算 2 程序8——坐标方位角计算 2 程序9——坐标正算 3 程序10——坐标方位角交会计算 3 程序11——垂距计算 4 程序12——视差法测距计算 5 程序13——剖面交点计算 6 程序14——前方交绘计算 6 程序15——附合导线近似平差 7 程序16——渠道中线里程计算 9 程序17——多边形面积计算 11 程序18——闭合导线近似平差 13 程序19——直线交点坐标计算 14 程序20——极坐标法放样计算 15 附录1：CASIO fx-4500P错误标示一览表 16 附录2：常用数学公式 17 附录3：常用测量公式 17 附录4：单一附合导线内业平差计算 20 程序1——角度判断 文 件 名 A 角度判断 29步 L1 B≥360?B=B－360△B＜0?B=B+360 说明：①程序A为子程序，对≥360°或＜0°的角值进行判断处理。 程序2——角度换算① 文 件 名 B 角度换算① 23步 L1 B=Int B+Frac B/.6+Frac100B/90 程序3——角度换算② 文 件 名 C 角度换算② 22步 L1 B=Int B+.6Frac B－.004Frac 60B 程序4——角度换算③ 文 件 名 D 角度换算③ 25步 L1 F=B:B=I:Prog B:I=B:B=F:Prog B 程序5——角度换算④ 文 件 名 E 角度换算④ 25步 L1 F=B:B=I:Prog B:I=B:B=F:Prog B 说明：①程序B、C、D、E均为子程序，简化测量计算中角度的输入及显示。 注：子程序应先输入CAISOfx-4500P中，以备其它程序调用。程序6——视距测量 文 件 名 1 视距测量 41步 L1 Lbl 0 :{SCB}:HSC:Prog B:S(sin B)2▲Ans /tan B+H－C▲Prog C: Goto 0 说明：①程序用以计算视距测量中测站至照准点的平距及高程； ②程序中：H=测站高程+仪高(程序只要求输入该值一次)；S=视距、C=切尺、B=竖盘读数； ③算例：按Prog 1调用程序显示H？输入测站高程+仪高445.79+1.41，按EXE键、显示S？输入视距39，按EXE键、显示 C？输入切尺2.9，按EXE键、显示B？输入竖盘读数90.12，按EXE键、显示(计算结果)平距38.9995248，按EXE键、显示高程444.1638654，按EXE键、显示S？、输入视距…… ④竖盘读数90.12是将度分秒值(90°12′00″)以小数的形式输入；其它程序的角度值输入及显示均如此。 程序7——坐标反算 文 件 名 2 视标反算 33步 L1 AX0CY0:Pol(X－A,Y－C▲B=W:Porg A:Prog C 说明：①程序用以计算两点间的距离及坐标方位角； ②程序中：A=起点纵坐标X0，C=起点横坐标Y0，X=终点纵坐标，Y=终点横坐标； ③算例：按Prog 2调用程序显示X0？输入起点纵坐标667.132，按EXE键、显示Y0？输入起点横坐标993.505，按EXE键、显示X？、输入终点纵坐标395.372，按EXE键、显示Y？输入终点横坐标914.821，按EXE键、显示两点间距离282.9216666，按EXE键、显示起点至终点的方位角196.0851267。 程序8——坐标方位角计算 文 件 名 3 坐标方位角计算 26步 L1 Prog D:B=B+I－180:Prog A:D=B:Prog C 说明：①程序用以推算导线边的坐标方位角(左角公式)； ②程序中：B=已知方位角、I=转折角(左角)； ③语句B=D是为其它程序调用本程序而预设的，此处无具体用途； ④算例：按Prog 4调用程序显示B？输入已知方位角120.10214按EXE键、显示I？输入转折角160.01217，按EXE键、显示所求方位角100.11431； ⑤若转折角为右角，将语句B=B+I－180改为B=B－I+180即可。 程序9——坐标正算 文