面积计算9860SD计算器程序（好用就用，不用就删-----歪XX）

面积计算9860SD计算器程序（好用就用，不用就删-----歪XX） 

一、适用公式

   F=∑(Xi,Yi+1-Xi+1,Yi)

如上图及公式所示，已知多边形各转折点坐标，则可用以上公式求取多边形面积，注意坐标点以顺时针顺序排列。

二、串列规划

LIST1(X)	LIST2(Y)	LIST3
X1	Y1	MX2
X2	Y2	MU
…	…	MH
Xn	Yn
0

LIST 1输入坐标X　，LIST 2输入Y ,LIST 3为中间参数，在最后坐标点下面一行的X处输入０，作为已知数据结束标志。 

三、源程序

将以下代码按9860SD计算器格式输入到计算器

Filename:MJJS

4->Dim List 3

1->I

0->list 3[1]

While List 1[I+1]≠0

(List 1[I]*l ist 2[I+1]-List 1[I+1]*list 2[I])+List 3[1] ->list 3[1]

I+1->I

WhileEnd

(List 1[I]*list 2[1]-List 1[1]*list 2[I])+List 3[1] ->list 3[1]

List 3[1]/2->list 3[1]

List 3[1]*0.0015->list 3[2]

List 3[1]/10000->list 3[3]

"DIAN SHU=":I▲

"MX2 =":List 3[1] ▲

"MU =":List 3[2] ▲

"MH =":List 3[3] 

四、使用：

１、          在9860SD计算器上，按MENU--2进入STAT模式的串列数据输入状态，将各点坐标X输入LIST 1　，Y输入LIST 2 ，在最后坐标点下面一行的X处输入０，作为已知数据结束标志。

２、          按MENU--ALPHA --B进入Program模式，找到MJJS程序运行，结束后输出DIAN SHU="，"MX2 ="，"MU ="，"MH ="，即转折点个数，以平方米，亩，公顷为单位的面积。