home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sources / hp48 / 302 next >
Encoding:
Text File  |  1993-01-22  |  4.6 KB  |  120 lines
  1. Newsgroups: comp.sources.hp48
  2. Path: sparky!uunet!seq!spell
  3. From: Kenneth Hobson <krhobson@midway.ecn.uoknor.edu>
  4. Subject:  v08i010:  area.kh - Area v1.0 - Calculate area of a polygon, Part01/01
  5. Message-ID: <1993Jan22.044222.3313@seq.uncwil.edu>
  6. Followup-To: comp.sys.hp48
  7. Sender: spell@seq.uncwil.edu (Chris Spell)
  8. Organization: Univ. of North Carolina @ Wilmington
  9. Date: Fri, 22 Jan 1993 04:42:22 GMT
  10. Approved: spell@seq.uncwil.edu
  11. Lines: 111
  12.  
  13. Checksum: 1346932341 (verify with brik -cv)
  14. Submitted-by: Kenneth Hobson <krhobson@midway.ecn.uoknor.edu>
  15. Posting-number: Volume 8, Issue 10
  16. Archive-name: area.kh
  17.  
  18.  
  19. BEGIN_DOC area.doc
  20.  
  21. Six programs are in the AREA directory.  These are used to find the area of
  22. any polygon.
  23.  
  24. When extracted the dir AREA contains 6 programs:
  25.  
  26. 1.  AREA - main program
  27.  
  28. 2.  ####### - degree symbols for neatness
  29.  
  30. 3.  LST - The last matrix that was entered
  31.  
  32. 4.  ###### - degree symbols for neatness
  33.  
  34. 5.  ##### - degree symbols for neatness
  35.  
  36. 6.  HELP - Hit HELP for instruction (just enter the matrix (use MATRIX on HP
  37.     is handy) and store in the LST variable (LS+LST).  Hit enter a 2nd time
  38.     to see more help. Then hit AREA to get the area or just hit AREA with the
  39.     matrix on the stack.
  40.  
  41.     e.g.
  42.     For 0 0 0 10 10 10 10 0    ; 2 by n+1 matrix (depends on the polygon) this
  43.                                ; is a 10x10 box
  44.     [[0 0]
  45.      [0 10]
  46.      [10 10]
  47.      [10 0]
  48.      [0 0]]                    ; NOTE:  the first point is repeated.
  49.  
  50.     1:            100          ; In square feet if that is the units you used.
  51.  
  52. NOTE:  This is faster than KAREA posted earlier.
  53. NOTE:  Get the KAREA directory program for an alternate method.
  54.  
  55. BIO - Dewayne Cushman wrote this program(s).
  56.       We are both CE students at OU.  Ken will graduate in Spr.'93.
  57.  
  58. These programs are what I (Kenneth Hobson) use in my work for the OKlahoma
  59. Department of Transportation (County Bridge - Norman).  They would have
  60. been nice to have had when I took SURVEY and other math courses.
  61.  
  62. Moidify anything you like as I wrote these and posted them for all to enjoy.
  63.  
  64. Regards,  Kenneth Hobson      internet  at   krhobson@midway.ecn.uoknor.edu
  65. And some local BBS's such as protoboard bbs 405-275-6827
  66. END_DOC
  67.  
  68. BEGIN_ASC area.asc
  69. %%HP: T(1);
  70. "69A20FF74C30000000408454C40540D9D20E1632C2A201210054E64756270236
  71. F6F6274696E616475637A0779647860247865602D41647279687752796475627
  72. A0160707C69636164796F6E602465707C69636164756A0478656026696273747
  73. 0216E64602C6163747A007F696E64737E2020527563737021425541402A016E6
  74. 46024786560227563757C647027796C6C6A0265602C656664702F6E602478656
  75. 0237471636B6E2858A19C2A2485A1743A24A5A14B2A2F17A18DBF1C2A20F8000
  76. C4354502671627961626C6560286F6C64637A047865602C61637470216272716
  77. 970257375646A096E60236163756021602368616E6765602D6573747A0265602
  78. D6164656E2858A19C2A2485A1743A24A5A14B2A2F17A18DBF193632B2130A220
  79. 0500B0B0B0B0B5033920000000000000000032000600B0B0B0B0B0B603392000
  80. 000000000000005200030C43545308E9209F0003392020000700002000000000
  81. 0000000000000000000000000400000000000000000100000000000042020000
  82. 0000000941010000000000004202000000000009410100000000714521010000
  83. 0000000057000000000000000001000000000005730000000000000000000000
  84. 00000000000000000000000004080100700B0B0B0B0B0B0B7033920000000000
  85. 000000072000401425541440D9D20E163278BF14563284E2030C4354597632DC
  86. C02B7FC1B7FC13FBF19C2A290DA11C432D6E201085E16324B2A24B2A29C2A2D6
  87. E201085301321C432D6E201014D6E201024D6E201034D6E201044D6E201005D6
  88. E2010D4E1632D6E201014D6E201024D6E201014D6E201044EEDA1D6E20100576
  89. BA1D6E201024D6E201034EEDA1D6E2010D476BA1EF532C4232EF5321C432D6E2
  90. 010D4D6E201005E16323FBF1D6E2010D4D6E20100590DA1ED2A250FA1F1AA1EF
  91. 53293632B21301008"
  92. END_ASC
  93.  
  94.  
  95. BYTES: #8001h 678.5
  96.  
  97. BEGIN_UU area.uue
  98. begin 644 area
  99. M2%!(4#0X+466*O!_Q`,````$2$5,4`2=+>!A(RPJ$!(`16YT97(@8V]O<F1I
  100. M;F%T97,*=VET:"!T:&4@36%T<FEX5W)I=&5R"F%P<&QI8V%T:6]N(&1U<&QI
  101. M8V%T90IT:&4@9FER<W0@86YD(&QA<W0*<&]I;G1S+B!0<F5S<R!!4D5!(`IA
  102. M;F0@=&AE(')E<W5L="!W:6QL"F)E(&QE9G0@;VX@=&AE('-T86-K+EBHD2PJ
  103. MA*5Q-"JDI4$K*A^G@;T?+"KP"`!,4U0@=F%R:6%B;&4@:&]L9',*=&AE(&QA
  104. M<W0@87)R87D@=7-E9`II;B!C87-E(&$@8VAA;F=E(&UU<W0*8F4@;6%D92Y8
  105. MJ)$L*H2E<30JI*5!*RH?IX&]'SDVLA(#*@)0``L+"PM;,),"```````````C
  106. M`&``"PL+"PMK,),"```````````E`##`-$4U@)X"^0`PDP("`'````(`````
  107. M````````````````0```````````$````````"0@``````"0%!`````````D
  108. M(```````D!00`````!=4$A````````!U```````````0``````!0-P``````
  109. M````````````````````````0(`0``>PL+"PL+"P!S,I``````````!P`@`$
  110. M05)%002=+>!A(X?[064C2"XPP#1%E6<CS0RR]QQ[SS&_'\FBDM`:P332Y@(!
  111. M6!XV0BLJM**2+"IM+A"`-1`CP332Y@(!06TN$"#4Y@(!0VTN$$#4Y@(!4&TN
  112. M$-#D82-M+A`0U.8"`4)M+A`0U.8"`43NK='F`@%09ZO1Y@(!0FTN$##DWAIM
  113. M+A#0=+8:_C7")"/^-1),(VTN$-#4Y@(!4!XV,K\?;2X0T-3F`@%0":WA+2H%
  114. ,K_&A&OXUDF,C*S$`
  115. `
  116. end
  117. sum -r/size 57892/969 section (from "begin" to "end")
  118. sum -r/size 24932/687 entire input file
  119. END_UU
  120.