CASIO fx4500P计算器程序
- 格式:doc
- 大小:438.00 KB
- 文档页数:31
CASIO fx4500P计算器实用程序阿江编著水利部四川水利水电勘测设计研究院勘察分院四川省二○○○年八月说明本程序稿由于时间仓促及编者水平有限,缺点、错误以及疏漏与不足之处在所难免,恳请大家批评指正。
程序步骤计算:1个字符的文件名算3步(每增加一个字符多算一步),行号算1步,每个字符算1步。
CASIO fx-4500P共有1103步。
阿江二○○○年八月目录程序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)CASIO fx4500P计算器实用程序程序1——角度判断说明:①程序A为子程序,对≥360°或<0°的角值进行判断处理。
程序2——角度换算①程序3——角度换算②程序4——角度换算③程序5——角度换算④说明:①程序B、C、D、E均为子程序,简化测量计算中角度的输入及显示。
注:子程序应先输入CAISOfx-4500P中,以备其它程序调用。
CASIO fx4500P计算器实用程序程序6——视距测量说明:①程序用以计算视距测量中测站至照准点的平距及高程;②程序中: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——坐标反算说明:①程序用以计算两点间的距离及坐标方位角;②程序中: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——坐标方位角计算CASIO fx4500P计算器实用程序说明:①程序用以推算导线边的坐标方位角(左角公式);②程序中: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——坐标正算说明:①程序根据已知坐标、边长及其坐标方位角计算待定点坐标;②程序中:B=坐标方位角、L=边长、X=已知点纵坐标、Y=已知点横坐标;③算例:按Prog3调用程序显示B?输入坐标方位角100.11431,按EXE键、显示L?输入边长151.213,按EXE键、显示X?输入已知点纵坐标1000,按EXE键、显示待定点纵坐标973.2346789,按EXE键、显示Y?输入已知点横坐标2000,按EXE键、显示待定点横坐标2148.825364。
程序10——坐标方位角交会计算说明:①程序利用已知方位角,计算测站上任意方向线与轴线相交的距离及交点坐标和该交点作为测站后与轴线的夹角;②如下图,程序中:B=已知方位角、I=观测角、A(X0)=测站纵坐标、C(Y0)=测站横坐标、X=轴线上任意点纵坐标、Y=轴线上任意点横坐标、N=轴线方位角;CASIO fx 4500P 计算器实用程序③算例:按Prog5调用程序显示B ?输入已知方位角150.01252,按EXE 键、显示I ?输入观测角110.30,按EXE 键、显示X0?输入测站纵坐标100,按EXE 键、显示Y0?输入测站横坐标100,按EXE 键、显示X ?输入轴线方向上任意点纵坐标80,按EXE 键、显示Y ?输入任意点横坐标150,按EXE 键、显示N ?输入轴线方位角210.12374,按EXE 键、显示交点纵坐标111.3973848,按EXE 键、显示交点横坐标168.2813366,按EXE 键、显示测点至交点的距离69.22601608,按EXE 键、显示该交点作为测站后与轴线的夹角09.41122,按EXE 键、显示I ?输入观测角……④程序所用正切公式如图所示:已知两方向、两点坐标,求其交点P 的坐标;BP AP AB BP B AP A P tg tg Y Y tg X tg X X αααα--+-=AP A P A P tg X X Y Y α)(-+=程序11——垂距计算说明:①程序用以计算勘探点偏离轴线的距离;②如图,程序中:B=轴线坐标方位角、A(X0)=轴线控制点的纵坐标、C(Y0)=轴线控制点的横坐标、X=勘探点纵坐标、Y=勘探点横坐标;③算例:按Prog 6调用程序显示B?输入轴线坐标方位角301.09505,按EXE键、显示X0?输入轴线上控制点的纵坐标138.579,按EXE键、显示Y0?输入轴线上控制点的横坐标1321.474,按EXE键、显示X?输入勘探点的纵坐标341.871,按EXE键、显示Y?输入勘探点的横坐标986.408,按EXE键、显示控制点至勘探点的距离391.914355(斜距),按EXE键、显示控制点至勘探点的坐标方位角301.1446034,按EXE键、显示控制点至勘探点的距离(平距)391.9139527,按EXE键、显示勘探点偏离轴线的距离0.561530147(垂距);④如果勘探点偏离轴线的距离为正值,表示该点在轴线右侧;若为负值,则该点在轴线左侧。
程序12——视差法测距计算说明:①程序用以计算2M横基尺视差法测距的边长及高程;②程序中:B=视差角、I=垂直角、K=仪高、T=觇标高、H=测站高程;③算例:按Prog 7调用程序显示B?输入视差角2.33176,按EXE键、显示I?输入垂直角1.45386,按EXE键、显示K?输入仪高1.432,按EXE键、显示T?输入觇标高1.405,按EXE键、显示H?输入测站高程443.425,按EXE键、显示测站至测点的距离44.84444364,按EXE键、显示测点高程444.8305217。
程序13——剖面交点计算说明:①程序8用以计算剖面交点距离;②输入坐标方位角时不用考虑方向性;③算例:如图,按Prog 8调用程序显示B?输入坝1的坐标方位角96.0303或276.0303,按EXE键、显示L?输入坝1交坝Ⅱ围Ⅰ的距离21.9,按EXE键、显示J?输入坝Ⅱ的坐标方位角301.0950或121.0950,按EXE键、显示I?输入围Ⅰ的坐标方位角307.1202或127.1202,按EXE键、显示坝Ⅱ交围Ⅰ及坝1的距离107.7198781,按EXE键、显示围Ⅰ交坝1坝Ⅱ的距离88.38012441。
程序14——前方交绘计算说明:①程序9用以计算前方交会法中待定点的坐标;②程序采用余切公式计算坐标,三角形点号应按逆时针编排。
若是顺时针排列,观测角应以负值输入;③算例,如图表所示:④交会角∠C在30°~50°之间时交会误差最小。
程序15——附合导线近似平差说明:①程序10用以单一附合导线的近似平差计算;②程序中:A=测站数、B=起算边坐标方位角、附合边坐标方位角、导线边边长、起点纵坐标、I=观测角(左角)、终点横坐标、G=起点横坐标、H=终点纵坐标;③程序设计可以计算9个测站,大于是9站时只要计算器剩余有步骤数,程序会自动扩充储存器增加储存变量;④算例如表:按Prog 10调用程序显示A?输入测站数5,按EXE键、显示B?输入起算边的坐标方位角169.5359,按EXE键、显示I?输入B点的观测角93.3642,按EXE 键、显示I?输入C点的观测角179.56,依次输入各观测角…,按EXE键、显示B?输入附合边的坐标方位角250.06,按EXE键、显示导线的角度闭合差-0.003699999(-37″),按EXE键、显示平差后B点至C点的坐标方位角83.30484,按EXE键依次显示各导线边平差后的坐标方位角…,按EXE键、显示B?输入B点至C点的边长126.11,按EXE 键、显示B?依次输入各导线边的边长…,按EXE键、显示各边长之和508.96,按EXE 键、显示B?输入起点纵坐标801.53,按EXE键、显示G?输入起点横坐标724.84,按EXE键、显示H?输入终点纵坐标959.29,按EXE键、显示I?输入终点横坐标1158.41,按EXE键、显示纵坐标闭合差0.093449934,按EXE键、显示横坐标闭合差-0.02045631,按EXE键、显示导线全长相对闭合差5320.360577(K=1/5320),按EXE键、显示C点纵坐标815.754,按EXE键、显示C点横坐标850. 148,按EXE键依次显示D、E、F、G 点的纵横坐标。
程序16——渠道中线里程计算说明:①程序11用以渠道中线测量的里程及其曲线要素的计算②程序中:A=渠线起点IP0的纵坐标、C=渠线起点IP0的横坐标、X=IP1…IPn的纵坐标、Y=IP1…IPn的横坐标、R=半径;③程序计算时会自动取舍弧长L的小数位为偶数,其它数据取位后均无余留尾数,用以消除累加误差;④程序设计只保留1位小数,若要保留2位小数,应修改取位子程序中的语句U=Frac 10V/10为U=Frac 100V/100;修改取位子程序中的语句:10U≥.5⇒V+.1-U△10U<.5⇒V -U△为:100U≥.5⇒V+.01-U△100U<.5⇒V-U△;修改曲线要素计算子程序中的语句W=5(Frac V-U为W=5(Frac 10V-10U;修改语句Frac W≠0⇒V=V+.05△Frac W=0⇒V=V -.05△为Frac W≠0⇒V=V+.005△Frac W=0⇒V=V-.005△⑤若要保留3位小数,应修改取位子程序中的语句U=Frac 10V/10为U=Frac 1000V/1000;修改取位子程序中的语句10U≥.5⇒V+.1-U△10U<.5⇒V-U△为1000U ≥.5⇒V+.001-U△1000U<.5⇒V-U△;修改曲线要素计算子程序中的语句W=5(Frac V-U为W=5(Frac 100V-100U;修改语句Frac W≠0⇒V=V+.05△Frac W=0⇒V=V-.05△为Frac W≠0⇒V=V+.0005△Frac W=0⇒V=V-.0005△;⑥算例见下表,按Prog 11调用程序显示X0?输入IP0的纵坐标,按EXE键、显示Y0?输入IP0的横坐标,按EXE键、显示X?输入IP1的纵坐标,按EXE键、显示Y?输入IP1的横坐标,按EXE键、显示IP0至P1的坐标方位角,按EXE键、显示IP0至IP1的距离,按EXE键、显示X?输入IP2的纵坐标,按EXE键、输入IP2的横坐标,按EXE键、显示IP1至IP2的坐标方位角,按EXE键、显示IP1至IP2的距离,按EXE 键、显示IP1的里程J,按EXE键、显示IP1的外偏角α,按EXE键、显示R?输入半径,按EXE键、显示切线长T,按EXE键、显示弧长L,按EXE键、显示外矢距E,按EXE键、显示直圆点(ZY)里程,按EXE键、显示曲中点(QZ)里程,按EXE键、显示圆直点(YZ)里程,按EXE键、显示直圆点(ZY)至曲中点(QZ)的坐标方位角,按EXE键、显示曲中点(QZ)至圆直点(YZ)的坐标方位角,按EXE键、显示X?依次输入IP3…IPn的纵横坐标……;⑦计算结束后按AC、RCL、M+键将显示终点IP桩的里程。