🚀 go-pugleaf

Checksum: 1346932341 (verify with brik -cv)
Submitted-by: Kenneth Hobson <krhobson@midway.ecn.uoknor.edu>
Posting-number: Volume 8, Issue 10
Archive-name: area.kh


BEGIN_DOC area.doc

Six programs are in the AREA directory.  These are used to find the area of
any polygon.

When extracted the dir AREA contains 6 programs:

1.  AREA - main program

2.  ####### - degree symbols for neatness

3.  LST - The last matrix that was entered

4.  ###### - degree symbols for neatness

5.  ##### - degree symbols for neatness

6.  HELP - Hit HELP for instruction (just enter the matrix (use MATRIX on HP
    is handy) and store in the LST variable (LS+LST).  Hit enter a 2nd time
    to see more help. Then hit AREA to get the area or just hit AREA with the
    matrix on the stack.

    e.g.
    For 0 0 0 10 10 10 10 0    ; 2 by n+1 matrix (depends on the polygon) this
                               ; is a 10x10 box
    [[0 0]
     [0 10]
     [10 10]
     [10 0]
     [0 0]]                    ; NOTE:  the first point is repeated.

    1:            100          ; In square feet if that is the units you used.

NOTE:  This is faster than KAREA posted earlier.
NOTE:  Get the KAREA directory program for an alternate method.

BIO - Dewayne Cushman wrote this program(s).
      We are both CE students at OU.  Ken will graduate in Spr.'93.

These programs are what I (Kenneth Hobson) use in my work for the OKlahoma
Department of Transportation (County Bridge - Norman).  They would have
been nice to have had when I took SURVEY and other math courses.

Moidify anything you like as I wrote these and posted them for all to enjoy.

Regards,  Kenneth Hobson      internet  at   krhobson@midway.ecn.uoknor.edu
And some local BBS's such as protoboard bbs 405-275-6827
END_DOC

BEGIN_ASC area.asc
%%HP: T(1);
"69A20FF74C30000000408454C40540D9D20E1632C2A201210054E64756270236
F6F6274696E616475637A0779647860247865602D41647279687752796475627
A0160707C69636164796F6E602465707C69636164756A0478656026696273747
0216E64602C6163747A007F696E64737E2020527563737021425541402A016E6
46024786560227563757C647027796C6C6A0265602C656664702F6E602478656
0237471636B6E2858A19C2A2485A1743A24A5A14B2A2F17A18DBF1C2A20F8000
C4354502671627961626C6560286F6C64637A047865602C61637470216272716
970257375646A096E60236163756021602368616E6765602D6573747A0265602
D6164656E2858A19C2A2485A1743A24A5A14B2A2F17A18DBF193632B2130A220
0500B0B0B0B0B5033920000000000000000032000600B0B0B0B0B0B603392000
000000000000005200030C43545308E9209F0003392020000700002000000000
0000000000000000000000000400000000000000000100000000000042020000
0000000941010000000000004202000000000009410100000000714521010000
0000000057000000000000000001000000000005730000000000000000000000
00000000000000000000000004080100700B0B0B0B0B0B0B7033920000000000
000000072000401425541440D9D20E163278BF14563284E2030C4354597632DC
C02B7FC1B7FC13FBF19C2A290DA11C432D6E201085E16324B2A24B2A29C2A2D6
E201085301321C432D6E201014D6E201024D6E201034D6E201044D6E201005D6
E2010D4E1632D6E201014D6E201024D6E201014D6E201044EEDA1D6E20100576
BA1D6E201024D6E201034EEDA1D6E2010D476BA1EF532C4232EF5321C432D6E2
010D4D6E201005E16323FBF1D6E2010D4D6E20100590DA1ED2A250FA1F1AA1EF
53293632B21301008"
END_ASC


BYTES: #8001h 678.5

BEGIN_UU area.uue
begin 644 area
M2%!(4#0X+466*O!_Q`,````$2$5,4`2=+>!A(RPJ$!(`16YT97(@8V]O<F1I
M;F%T97,*=VET:"!T:&4@36%T<FEX5W)I=&5R"F%P<&QI8V%T:6]N(&1U<&QI
M8V%T90IT:&4@9FER<W0@86YD(&QA<W0*<&]I;G1S+B!0<F5S<R!!4D5!(`IA
M;F0@=&AE(')E<W5L="!W:6QL"F)E(&QE9G0@;VX@=&AE('-T86-K+EBHD2PJ
MA*5Q-"JDI4$K*A^G@;T?+"KP"`!,4U0@=F%R:6%B;&4@:&]L9',*=&AE(&QA
M<W0@87)R87D@=7-E9`II;B!C87-E(&$@8VAA;F=E(&UU<W0*8F4@;6%D92Y8
MJ)$L*H2E<30JI*5!*RH?IX&]'SDVLA(#*@)0``L+"PM;,),"```````````C
M`&``"PL+"PMK,),"```````````E`##`-$4U@)X"^0`PDP("`'````(`````
M````````````````0```````````$````````"0@``````"0%!`````````D
M(```````D!00`````!=4$A````````!U```````````0``````!0-P``````
M````````````````````````0(`0``>PL+"PL+"P!S,I``````````!P`@`$
M05)%002=+>!A(X?[064C2"XPP#1%E6<CS0RR]QQ[SS&_'\FBDM`:P332Y@(!
M6!XV0BLJM**2+"IM+A"`-1`CP332Y@(!06TN$"#4Y@(!0VTN$$#4Y@(!4&TN
M$-#D82-M+A`0U.8"`4)M+A`0U.8"`43NK='F`@%09ZO1Y@(!0FTN$##DWAIM
M+A#0=+8:_C7")"/^-1),(VTN$-#4Y@(!4!XV,K\?;2X0T-3F`@%0":WA+2H%
,K_&A&OXUDF,C*S$`
`
end
sum -r/size 57892/969 section (from "begin" to "end")
sum -r/size 24932/687 entire input file
END_UU