SIO+fx4500P计算器程序.docVIP

CASIO fx4500P计算器 实 用 程 序 肇庆市市政建设有限公司 2005年04月12日 说????明 本程序稿由于时间仓促及编者水平有限，缺点、错误以及疏漏与不足之处在所难免，恳请大家批评指正。 程序步骤计算：1个字符的文件名算3步(每增加一个字符多算一步)，行号算1步，每个字符算1步。CASIO fx-4500P共有1103步。 ZQSZ 二○○五年四月 目????录 程序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 附录5：勘察分院CAD制图《试行》规定 21 程序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