《坐标法面积、周长计算程序》由会员分享,可在线阅读,更多相关《坐标法面积、周长计算程序(1页珍藏版)》请在金锄头文库上搜索。
1、坐标法面积、周长计算程序(命名为ZBMJ)第 1 行:FreqOn:ClrStat:ClrMemory第 2 行:“N=1”: 1N: “X=”?tC: “Y=”?tD: CrA:DTB:ATList X1 :BList Y1第 3 行:Lbl 0:“N=”:N+1tNX=?tE: “Y=”?TF:ETList XN :FList YN第 4 行:Pol(E-C,F-D+10V-45): ItG:JtH:L+GtL第 5 行:Pol(E-A,F-B+10V-45): EtC:FtD:N=2=JADMS /第 6 行:“PMT=”: N=2=0tI: L+I /第 7 行:“ARE=”:S+GI
2、sin(J-H)+2rS:Abs(S)TList FreqN /第 8 行:Goto 0N取样点的顺序号PMT多边形的周长ARE多边形的面积X对应点号N的取样点X坐标Y对应点号N的取样点Y坐标以上为5800程序,在9860中程序如下第 1 行:ClrList:0TL:0rS:0TList 31:0List 41第 2 行:“N=1”: 1N: “X=”?tC: “Y=”?tD: CrA:DTB:ATList 11 :BList 21第 3 行:Lbl 0:“N=”:N+1tNX=?tE: “Y=”?TF:ETList 1N :FList 2N第 4 行:Pol(E-C,F-D+10A(-45)
3、 : List Ans1G:List Ans2H:L+GL第 5 行:Pol(E-A,F-B+10A(-45) : List Ans1I:List Ans2J: EC:FD:N=2=JkDMS /第 6 行:“PMT=”: N=2=0tI: L+IList 3N /第 7 行:“ARE=”:S+GIsin(J-H)+2rS:Abs SList 4N /第 8 行:Goto 02 .计算实例:N=1 X = 940.5392 Y = 898.4861N=2X = 1114.8811Y = 996.4907PMT=200.000ARE=0 (2920,31.54动态显示结果:按照一定顺序(逆时针或
4、顺时针均可)依次取样输入到计算器,可动态显示周长和面积,并可以随时停止,最后一次显示结 果为最终结果。 程序转换功能:当取样点为两点时,此时本程序功能变为坐标反算距离和方位角的程序,当取样点多于两点时为计算周长和面积程序 纠错功能:如果当前取样点是错误点且已输入到计算器中时,可以输入该点的前一点坐标或在其前一点的位置附近重新取样再次输入到计算 器内,基本不影响面积结果,精度取决于您再次放置位置与上次放置位置的偏移量,但周长需人工去除边长数据。 取样点存储功能:每次取样点存储到X、Y两个序列中,对应面积显示到Freq序列中。4,注意事项:(1)是否需要闭合数据:取点完成后,无论是否回归到第1点,
5、均能正确计算结果。(2)若不想存储可以将程序中含有rList的语句去掉(5800中有5处,9860中有8处)。N=3X = 1065.8788Y = 1083.6617PMT=523.607ARE=10000N=4X = 1338.2253Y = 1007.3243PMT=995.153ARE=20000N=5X = 1261.8880Y = 734.9778PMT=1226.241ARE=70000N=6X = 1212.8857Y = 822.1488PMT=1248.528ARE=60000N=7X = 1038.5438Y = 724.1442PMT=1365.686ARE=800003.说明: