home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG061.ARC / AREACG.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  110 lines
  1. * PROGRAM NAME IS AREACG.CMD
  2. * BY JACK GAVLAK  JUNE 12, 1984
  3. USE AREACAL
  4. ERASE
  5. ?  'PROGRAM NAME IS AREACG.CMD BY JACK GAVLAK'
  6. ?
  7. ACCEPT 'DO YOU WANT A PRINTOUT ? ANS. YES OR RET.' TO PSTATUS
  8. ERASE
  9.      IF PSTATUS = "YES"
  10.      SET FORMAT TO PRINT
  11.      SET PRINT ON
  12.      SET EJECT OFF
  13.      ENDIF
  14. SET TALK OFF
  15. STORE 5 TO N
  16. STORE 0 TO COUNT
  17. STORE 0 TO SUMAREA
  18. STORE 0 TO SUMMONTX
  19. @ 2,10 SAY "AREA BY COORDINATES"
  20. @ 3,9 SAY "AND CENTER OF GRAVITY"
  21. @ N,10 SAY "POINT"
  22. @ N,22 SAY "X-CORD"
  23. @ N,32 SAY "Y-CORD"
  24. STORE N+1 TO N
  25. @ N,10 SAY POINT
  26. @ N,20 SAY XCORD
  27. @ N,30 SAY YCORD
  28. * SECT 1: STORES X1 & Y1
  29. STORE XCORD TO MXCORD1
  30. STORE YCORD TO MYCORD1
  31. SKIP
  32. * SECT 2:
  33. DO WHILE .NOT. EOF
  34. STORE N+1 TO N
  35. @ N,10 SAY POINT
  36. @ N,20 SAY XCORD
  37. @ N,30 SAY YCORD
  38. STORE XCORD TO MNEXTX
  39. STORE YCORD TO MNEXTY
  40. STORE MXCORD1*YCORD TO SUMXY
  41. STORE MYCORD1*XCORD TO SUMYX
  42. SKIP
  43. STORE XCORD TO MTIPX
  44. STORE YCORD TO MTIPY
  45. STORE SUMXY + MNEXTX*YCORD TO SUMXY
  46. STORE SUMYX + MNEXTY*XCORD TO SUMYX
  47. STORE SUMXY + XCORD*MYCORD1 TO SUMXY
  48. STORE SUMYX + YCORD*MXCORD1 TO SUMYX
  49. STORE (MXCORD1 + MNEXTX + MTIPX)/3 TO XBARTRI
  50. STORE (SUMXY-SUMYX) TO INCAREA
  51. STORE SUMAREA + INCAREA TO SUMAREA
  52. STORE XBARTRI*INCAREA TO INCMONTX
  53. STORE SUMMONTX + INCMONTX TO SUMMONTX
  54. SKIP
  55.   IF EOF
  56.   STORE N+1 TO N
  57.   @ N,10 SAY POINT
  58.   @ N,20 SAY XCORD
  59.   @ N,30 SAY YCORD
  60.   STORE N+2 TO N
  61.   STORE (INT((SUMMONTX/SUMAREA)*100))/100.00 TO XCG
  62.   STORE (INT(SUMAREA*100))/200.00 TO SUMAREA
  63.   @ N,10 SAY "AREA = "
  64.   @ N,18 SAY SUMAREA
  65.   @ N+1,10 SAY "X-CENTER GRAVITY ="
  66.   @ N+1,29 SAY XCG
  67.   @ N+1,35 SAY CHR(13)
  68.   SET PRINT OFF
  69.   SET FORMAT TO SCREEN
  70.   RETURN
  71.   ENDIF
  72. SKIP-1
  73. ENDDO
  74.  
  75. wwvwww    ww    ww        ww    ww        wwww     wwww    wwwwPROGRAM NAME IS AREACG.CMD
  76. * BY JACK GAVLAK  JUNE 12, 1984
  77. USE AREACAL
  78. ERASE
  79. SET TALK OFF
  80. STORE 5 TO N
  81. STORE 0 TO COUNT
  82. STORE 0 TO SUMAREA
  83. STORE 0 TO SUMMONTX
  84. @ 2,10 SAY "AREA BY COORDINATES"
  85. @ 3,9 SAY "AND CENTER OF GRAVITY"
  86. @ N,10 SAY "POINT"
  87. @ N,22 SAY "X-CORD"
  88. @ N,32 SAY "Y-CORD"
  89. STORE N+1 TO N
  90. @ N,10 SAY POINT
  91. @ N,20 SAY XCORD
  92. @ N,30 SAYCORD1 TO SUMXY
  93. STORE SUMYX + YCORD*MXCORD1 TO SUMYX
  94. STORE (MXCORD1 + MNEXTX + MTIPX)/3 TO XBARTRI
  95. STORE (SUMXY-SUMYX) TO INCAREA
  96. STORE SUMAREA + INCAREA TO SUMAREA
  97. STORE XBARTRI*INCAREA TO INCMONTX
  98. STORE SUMMONTX + INCMONTX TO SUMMONTX
  99. SKIP
  100.   IF EOF
  101.   STORE N+1 TO N
  102.   @ N,10 SAY POINT
  103.   @ N,20 SAY XCORD
  104.   @ N,30 SAY YCORD
  105.   STORE N+2 TO N
  106.   STORE (INT((SUMMONTX/SUMAREA)*100))/100.00 TO XCG
  107.   STORE (INT(SUMAREA*100))/200.00 TO SUMAREA
  108.   @ N,10 SAY "AREA = "
  109.   @ N,18 SAY SUMAREA
  110.   @ N+1,1