发布时间 : 星期六 文章4500计算程序更新完毕开始阅读
CASIO fx4500P计算器实用程序
③算例，如图表所示：
逆时针编号(顺时针编号) 逆 时 针 顺 时 针 Xa 2235.6 Ya 845.0 Xa 6735.7 Ya 10738.5 Xb 6735.7 Yb 10738.5 Xb 2235.6 Yb 845.0 ∠cab 48.5221 ∠cba 22.4045 ∠cab －22.4045 ∠cba －48.5221 Xc 6467.705 Yc 2112.188 Xc 6467.705 Yc 2112.188
④交会角∠C在30°~50°之间时交会误差最小。
程序15——附合导线近似平差
文 件 名 10 附 合 导 线 近 似 平 差 315步 L1 C=0:A>9?Defm 2(A－9△Lbl l:C=C+1:{I}:Prog 3:A[C+8]=D:C≠A? Goto 1△{B}:Prog B:B=D－B:D=B/A:Prog C▲C=0 L2 Lbl 2:C=C+1:A[C+8]=A[C+8]－DC:B=A[C+8:Prog C▲C≠A?Goto 2△C= 8:D=0:E=0:F=0 L3 Lbl 3:C=C+1:{B}:D=D+B:E=E+Bcos A[C:F=F+Bsin A[C:A[A+C] =B:C≠ A +7?Goto 3△D▲{BI}:BGHI:E=E+B－H▲F=F+G－I▲D/√(E2+F2▲E=E/D :F=F /D L4 C=8:Lbl 4:C=C+1:B=A[A+C]cos A[C]+B－EA[A+C▲G=A[A+C] sin A[C] +G－FA[A+C▲C≠A+7?Goto4△Defm 0
说明：①程序10用以单一附合导线的近似平差计算；
②程序中：A=测站数、B=起算边坐标方位角、附合边坐标方位角、导线边边长、起点纵坐标、I=观测角(左角)、终点横坐标、G=起点横坐标、H=终点纵坐标；
③程序设计可以计算9个测站，大于是9站时只要计算器剩余有步骤数，程序会自动扩充储存器增加储存变量；
版权所有? 2003-2005 XCAJCJ
7
CASIO fx4500P计算器实用程序
④算例如表：按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点的纵横坐标。
点号 A B C D E F G 观测角 坐标方位角 边长 纵坐标X 横坐标Y 93 36 42 179 56 00 180 03 18 121 28 36 45 06 48 169 53 59.0 83 30 48.0 83 26 55.8 83 30 21.2 24 59 04.0 250 06 00.0 126.11 126.92 129.65 126.28 801.530 815.754 830.211 844.850 959.290 724.840 850.148 976.244 1105.067 1158.410 备 注 N=5 fβ=－37″ ΣD=508.96 fx=+0.093 fy=－0.020 f=√(fx2+fy2) K=1/(Σd/f) k=1/5350 角度闭合差容许值： ?25N (图根导线?60N) 导线全长相对闭合差：K≤1/2000 8 版权所有? 2003-2005 XCAJCJ
CASIO fx4500P计算器实用程序
程序16——渠道中线里程计算
文 件 名 11 渠 道 中 线 里 程 计 算 164步 L1 K=0:N=0:A\－A,Y－C▲B= W:Porg A:P=B:Porg C▲A=X:C=Y L2 Prog F:D=Ans:K=1?J=D△K≥2?B=N－P:B≥180?B=B－360△B≤－ 180?B=B+360△G=B:J▲Prog C▲Prog G:B=P+3G/4:Prog C▲B=P+G/4:Prog C▲△N =P:Goto 1 文 件 名 F 取 位 子 程 序 39步 L1 U=Frac 10V/10:10U≥.5?V+.1－U△10U＜.5?V－U△ 文 件 名 G 曲 线 要 素 计 算 子 程 序 101步 L1 {R}:V=R tan(Abs G/2:Prog F:T=Ans▲V=Abs GRπ/180:Prog F:W =5(Frac V－U L2 Frac W≠0?V=V+.05△Frac W=0?V=V－.05△Prog F:L=Ans▲V=R/cos (Abs G/2)－R:Prog F▲V=J－T▲V+L/2▲V+L▲J=Ans+D－T
说明：①程序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△为
版权所有? 2003-2005 XCAJCJ
9
CASIO fx4500P计算器实用程序
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桩的里程。
⑧如果外偏角α显示为正值，并且纵坐标X是递增的，则该角位于前进方向的左侧；反之纵坐标X是递减的，遇该角位于前进方向的右侧。如果外偏角α显示为负值，并且纵坐标X是递减的，则该角位于前进方向的左侧；反之纵坐标X是递增的，则该角位于前进方向的右侧。
10 版权所有? 2003-2005 XCAJCJ