CASIO fx4500P计算器实用程序
IP 桩 点 号 0 1 2 3 4 X Y 坐标方位角 边长 IP桩 里程 JD 外偏角 ? 半 径 R 切 线 长 T 弧 长 L 外 矢 距 E 54110 22903 53740 23046 158 52 09.0 396.672 396.7 ＋47 53 44.4 60 26.6 50.2 5.7 110 58 24.6 128.515 53694 23166 140 31 39.1 572.591 53252 23530 177 01 11.4 461.624 52791 23554 1554.4 IP 桩 直圆点 曲中点 圆直点 直圆点~曲中点 曲中点~圆直点 点 ZY里程 QZ里程 YZ里程 坐标方位角 坐标方位角 号 0 1 370.1 395.2 420.3 146 53 42.9 122 56 50.7 2 506.4 521.9 537.4 118 21 43.2 133 08 20.5 3 1074.4 1093.5 1112.6 149 39 02.2 167 53 48.3 4 计算公式： T=R×tg(α/2) L=π×α×R E=R/(cos(α/2))－R 校核：q=2T－L JD=QZ+q/2 α522.2 －29 33 14.6 60 15.8 31.0 2.1 1094.2 －36 29 22.2 60 19.8 38.2 3.2 O 程序17——多边形面积计算
文 件 名 12 多 边 形 面 积 计 算 100步 L1 A:XY:M=X:N=Y:C=0:S=0:D=0:B=0:Lbl 1:C=C+1:S=S+3(－BX+ DY)/ 4000:D=X:B=Y:C=A→X=M:Y=N:Goto 1△C≠A+1→{XY}:Goto 1△S
说明：①程序12采用多边形顶点坐标计算多边形的面积；
②程序中A=多边形边数(或顶点数)、X=多边形各顶点的纵坐标、Y=多边形各顶点的
版权所有? 2003-2005 XCAJCJ
11
CASIO fx4500P计算器实用程序
横坐标；
③计算时如果是按顺时针方向输入多边形各顶点的纵横坐标，则面积显示为正值，反之则为负
④面积是以亩为单位，亩与平方米的换算常数是：2000/3，即 1亩=2000/3M2、1M2=3/2000亩；
⑤算例：按Prog 12调用程序显示A？输入多边形的边数(或顶点数)4，按EXE键、显示X？输入顶点1的纵坐标10，按EXE键、显示Y？输入顶点1的横坐标10，按EXE键、显示X？输入顶点2的纵坐标40，按键、显示Y？输入顶点2的横坐标10，按EXE键、显示X？输入顶点3的纵坐标40，按EXE键、显示Y？输入顶点3的横坐标 60，按EXE键、显示X？输入顶点4的纵坐标10，按EXE键、显示Y？输入顶点4的横坐标60，按EXE键、显示四边形的面积2.25(亩)。
⑥坐标法计算多边形面积的公式如下：
n??S?1??Yi(Xi?1?Xi?1)? （1）
2?i?1??n?1S?X(Y?Y)?ii?1i?1? （2） 2??i?1?其中：i=1、2、3、4…n
公式（1）和（2）中：S=多边形面积、n=图形界址点个数、
Xi=界址纵坐标、Yi=界址点横坐标；当i=1时，i－1=n；i=n时，i+1=1
图中1、2、3、…n为界址点编号 12 版权所有? 2003-2005 XCAJCJ
CASIO fx4500P计算器实用程序
程序18——闭合导线近似平差
文 件 名 13 闭 合 导 线 近 似 平 差 376步 L1 C=－1:E=0:A＞8?Defm 2(A－8△Lbl 1:C=C+1:{B}:Prog B:A[C+8]=B:E= E +B:C≠A?Goto 1△B=E－A[8]－180(A－2:E=B/A:Prog C▲C=1:F=A[9] －E+A[8 L2 {B}:Prog B:B=B+F－180:Prog A:D=B:A[9]=B:Prog C▲Lbl 2:C=C +1:F=A [C +8]－E:B=D:B=B+F－180:Prog A:A[C+8]=B:D=B:Prog C▲C≠A? L3 Goto 2△C=8:E=0:F=0:D=0:Lbl 3:C=C+1:{B}:D=D+B:E=E+BcosA[C:F=F +Bsin A[C:A[A+C]=B:C≠A+8?Goto 3△ L4 D▲E▲F▲D/√(E2+F2▲E=E/D:F=F/D L5 GH:C=8:Lbl 4:C=C+1:G=A[A+C]cosA[C]+G－EA[A+C▲H=A[A +C]sinA [C]+H－FA[A+C▲C≠A+8?Goto 4△Defm 0
说明：①程序13用以闭合导线近似平差计算；
②程序中：A=测站数、B=连接角γ、观测角、闭合边坐标方位角、导线边边长、G=控制点(闭合点)纵坐标、H=控制点(闭合点)横坐标；
③程序设计计算8站，大于8站时只要计算器内还有步骤数，程序会自动扩充储存器； ④算例如表：按Prog 13调用程序显示A？输入测站数，按EXE键、显示B？输入连接角，按EXE键、显示B？输入A点的观测角(左角)，按EXE键、显示B？…依次输入B、C、D、E点的观测角后，按EXE键、显示角度闭合差，按EXE键，显示B？输入闭合边坐标方位角，按EXE键、依次显示平差后的各个方向的坐标方位角…，按EXE键、显示B？输入A点至B点边长，按EXE键、显示B？…依次输入各边的边长后，按EXE键、显示边长之和，按EXE键、显示纵坐标闭合差，按EXE键、显示横坐标闭合差，按EXE键、显示全长相对闭合差，按EXE键、显示G？输入控制点(闭合点)纵坐标，按EXE键、显示H？输入控制点(闭合点)横坐标，按EXE键、……依次显示各导线点平差后的纵横坐标。
版权所有? 2003-2005 XCAJCJ
13
CASIO fx4500P计算器实用程序
点号 M A B C D E A 观测角 ?=280 49 43.6 坐标方位角 边长 纵坐标X 横坐标Y 21 02 03.4 191 17 00.0 56 12 38.7 109 19 47.3 162 09 48.3 127 07 22.2 248 59 00.7 260 15 52.1 136 28 22.3 56 48 01.0 47 57 05.8 198.616 169.596 122.116 130.396 201.331 25267.832 69220.780 25196.638 69035.380 25167.992 68868.229 25079.475 68952.333 25132.951 69071.272 25267.832 69220.780 备 注 A=5 f?=?42.7″ fx=－0.155 fy=－0.015 ∑D=822.005 K=1/5200 检校：αMA=αEA－γ γ 程序19——直线交点坐标计算
文 件 名 14 直 线 交 点 坐 标 计 算 74步 L1 A\－A,Y－C:M=W:D\－D, G－E:(A tgnM－D tamW+E－C)/(tan M－tan W▲C+tan M (Ans－A
说明：①程序14用以计算直线交点坐标；
②程序先输入直线上任意两点坐标，然后计算直线相交点P的坐标。算例如下：
14 版权所有? 2003-2005 XCAJCJ
相关推荐：
loading