| 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=多边形各顶点的横坐标； ③计算时如果是按顺时针方向输入多边形各顶点的纵横坐标，则面积显示为正值，反之则为负 ④面积是以亩为单位，亩与平方米的换算常数是：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(亩)。 ⑥坐标法计算多边形面积的公式如下： （1） （2） 其中：i=1、2、3、4…n 公式（1）和（2）中：S=多边形面积、n=图形界址点个数、 Xi=界址纵坐标、Yi=界址点横坐标；当i=1时，i－1=n；i=n时，i+1=1 |
|【路桥隧】
( 湘ICP备16018960号-1 ) QQ群：
GMT+8, 2025-5-15 03:59
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.
