home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d714 / cogo.lha / CoGo / sample < prev   
Text File  |  1992-08-19  |  8KB  |  180 lines
  1. scratch
  2. *         EXAMPLE 1.1 - AREA CALCULATIONS
  3. known       1046 28593.5180 67031.3373
  4.             1047 28587.8756 67172.1767
  5.          1048 28427.8756 67171.8734
  6.         1049 28413.6255 67027.0994
  7.         1050 28517.2214 67031.2119
  8. area        1046 1047 1048 1049 1050 1046
  9. area/azimuth        1046 1047 1048 1049 1050 1046
  10. area/bearing        1046 1047 1048 1049 1050 1046
  11. skip/line     1
  12. *         EXAMPLE 1.2 - DIVIDE AREA
  13. *         note using point 49 as base point in next command
  14. divide/area  a 1047 1048 1047 1048 1049 1050 1046 1047 /
  15. *         EXAMPLE 2.1 - TANGENT TO TWO CIRCLES
  16. known            1053 600159.4875 2000012.8007
  17.         1055 600079.7438 2001006.4003
  18. locate/angle  1055 1053 1054 160.  90 0 0.  / center large circle
  19.           1053 1055 1056  80. -90 0 0.  / center small circle
  20. tangent          1053 1054 160. 1055 1056 80. l 1.
  21. *         EXAMPLE 3.1 - SIMPLE CURVE
  22. known        2 1500. 2000.
  23.         3 2561.3581 4122.7163
  24.         4 1810.8645 6374.1969
  25. locate/line   2 3 1 -100.
  26. simple/curve  10 1 2 3 4 1.0 45 0 0.0 r
  27. eoj
  28. begin     file1
  29. *         EXAMPLE 4.1 - CONTINUOUS ALIGNMENT (SIMPLE CURVES)
  30. known     2   200000.000  200000.000  /Begin Point
  31.           3   203489.596  200863.339  /End point
  32.           10  198743.570  201257.832  /1st pi
  33.           20  200596.775  203920.938  /2nd pi
  34.           30  198838.535  206433.521  /3rd pi
  35.           40  199999.919  208932.272  /4th pi
  36.           50  202794.750  208147.119  /5th pi
  37.           60  202794.750  203214.119  /6th pi
  38. *         ALIGNMENTS
  39. alignment  10  2 10 20 1200.  0.  2200. 0.   /R known
  40.            20 17 20 30  0.  2000.  -1.       /T known
  41.        30 27 30 40  0.    0.   -1.       /abut curve together
  42.        40 37 40 50  0.    0.   -1.       /abut curve together
  43.        50 47 50 60  0.    0.   -1. 200.  /X known 
  44.        60 57 60  3 3800.  0.   -1.       /R known
  45. *
  46. *         COMMANDS USING CURVES (ONLY CURVE 10 USED THIS EXAMPLE)
  47. *         EXAMPLE 4.2 - COORDINATE OF POINT ON ARC
  48. coord/poa  10 110 3700.
  49. *         EXAMPLE 4.3 - COORDINATE OF POINT OFFSET FROM CURVE
  50. coord/offset  10 111 3700. -32.5
  51. *         EXAMPLE 4.4 - STATION OF KNOWN POINT
  52. station/from/coord 10 110
  53. *         EXAMPLE 4.5 - STATION OF OFFSET POINT
  54. offset/align 10 112 111    /112 should have same coord. as 110
  55. *         EXAMPLE 5.1 - ADJUST DEFLECTION
  56. store        1 1000. 2000.
  57.              5 950.5 2328.
  58. adjust/deflection/ls  1 5 500.
  59.                       1 2 100. 120 0 0.
  60.                       2 3 100. -30   0 0.
  61.                       3 4 100. -45 0 0.
  62.               4 5 100.  90 0 0.
  63. *         EXAMPLE 6.1 - VERTICAL CURVES
  64. vertical/start  1 5818. 837.95
  65.                 2 7188. 842.88 800.
  66.                 3 8042. 836.05 700.
  67. vertical/end    4 9592. 847.21
  68. *         EXAMPLE 6.2 - CALCULATE EVEN STATION ELEVATIONS
  69. even/stations   6000. 500. 9000.
  70. *         EXAMPLE 6.3 - CALCULATE ELEVATION OF OFFSET POINT
  71. offset/elevation 10 7000. 100. 4.
  72. *         EXAMPLE 6.4 - CALCULATE ELEVATION OF DRAIN POINT
  73. curve/drain     2
  74. *         EXAMPLE 7.1 - SIMPLE SPIRAL AND ASSOCIATED COMMANDS
  75. known          101 1000. 2000.
  76.                102  858.3954 2141.6045
  77. locate/line    101 102 2 -200.
  78. simple/spiral  100 2 101 102 103 300. 6. r
  79. *         EXAMPLE 7.2 - SPIRAL LENGTH
  80. spiral/length  100 101 103 102 135 0 0. r
  81. *         EXAMPLE 7.3 - OFFSET FROM SPIRAL
  82. off/from/spiral 1021 1022 75. 25. r  /offset ps+75, 25' rt.
  83. inverse/azimuth 1021 1022            /check distance
  84. spiral/offset   1023 1022 /1023 should be same as 1021
  85. *         EXAMPLE 7.4 - COORDINATE OF POINT ON SPIRAL
  86. coord/posp      1024 75.   /1024 should be same as 1021
  87. *         EXAMPLE 7.5 - COORDINATE OF LINE INTERSECTING SPIRAL
  88. known          106  1030.068  2028.637  / point on line
  89. locate/azimuth  106 107 400. 150 0 0.   / locate 2nd point on line
  90. line/spiral     108 106 107 101         / actual intersection
  91. *         EXAMPLE 8.1 - CURVE WITH SPIRALS
  92. known       250 1491163.5500 358014.4600
  93.             260 1493082.9600 358343.1300
  94.             240 1490309.0631 358141.4001
  95. fit/alignment  250 240 250 260 3. 200. 200. r 44653.2891
  96. *         PROBLEM 1 - CALCULATE NEW PROPERTY R/W WITH TAKE AREA
  97. *             store known points
  98. store        2001 10000.0000 10000.0000
  99.              2002 10217.156  10513.812
  100.              2003 10875.000  10080.000
  101. *         find points 2004 & 2005
  102. az/intersect    2004 2001 15 27 30. 2002 90 0 0. .005
  103. locate/azimuth  2004 2005 185.712  90 0 0.
  104. *             find intersection of curves and side lines
  105. arc/line/az   2006 2003 725.  2001  15 27 30. 2001
  106.               2007 2003 725.  2005 355  0 20. 2001
  107. *             find area of parallelogram
  108. area          2006 2004 2005 2007 2006
  109. *             add area of segment
  110. segment/plus  2006 2007 725. 1.
  111. *             refigure with lots/comp
  112. area/store         0.  /clear previous total
  113. lots/comp     2004 2005 2007 p 2003 2006 2004
  114. *         PROBLEM 2 - ALIGNMENT AND LOCATE POINTS
  115. store      1051  12000. 10000.
  116.             310  14000. 12400.
  117.            1052  12400. 15000.
  118.            1055  13800. 11400.
  119.            1056  13800. 15000.
  120.            1070  12200. 14400.
  121. alignment  310 1051 310 1052  0. 1500. 22000.
  122. arc/line/br 1060 319 d 319 317 1055 s 45 0 0. e 311
  123. station/from/coord   310 1060 
  124. az/intersect 1062 317 a 317 1052 1056 225 0 0. .005
  125. locate/deflection 317 1062 1080 2000. g 317 1062 1070
  126. *         PROBLEM 3 - NOSING LOCATION CALCULATION
  127. store      1101 230677.555 631271.763 / pt 2261+83.244 road a
  128.            1102 230322.651 631428.937 /pot 2258+72.129 road b
  129. locate/bearing  1101 1104 20. 2 51 37 54. /establish point on offset line
  130.                 1102 1105 36. 3 84 42 19. /establish point on offset line
  131. br/intersect  1103 1104 1 38 22 6. 1105 4 5 17 42. /establish point intersect
  132. *         PROBLEM 4 - NOSING AT INTERSECTION CIRCULAR CURVE AND TANGENT
  133. store      1201 232104.634 631372.227 / pt 2260+21.876 road c
  134.            1203 232407.584 632306.202 / center curve - road d
  135.            1205 232100.991 631822.176 / pc 2259+81.115 road d
  136. locate/bearing  1201 1202 20. 2 50 0 0. / locate point on offset line
  137. arc/line/br  1204 1203 608.958 1202 1 40 0 0. 1205  /point sought
  138. *         PROBLEM 5 - NOSING AT INTERSECTION OF TWO CIRCULAR CURVES,
  139. *          ONE RIGHT, ONE LEFT
  140. store      1211 230527.229 631962.543 / pc of curve 2
  141.            1212 231528.427 632357.676 / pc of curve 1
  142. locate/bearing 1212 1215  572.958 1 52 53  7. / est. rad. pt 1
  143.                1211 1216 1909.859 2 58 44 41. / est. rad. pt 2
  144. arc/arc/intersect 1217 1216 1945.859 1215 592.958 1211 /point sought
  145. *         PROBLEM 6 - NOSING AT INTERSECTION OF TWO RIGHT CIRCULAR CURVES
  146. store      1221 230991.721 630271.665 / pc curve 1
  147.            1222 229974.211 629874.675 / pc curve 2
  148. locate/bearing 1221 1224  572.958 2 19 8 33. / est. rad. pt 1
  149.                1222 1223 1145.916 2 81 2 58. / est. rad. pt 2
  150. arc/arc/intersect 1225 1223 1181.916 1224 552.958 1221 / point sought
  151. *         PROBLEM 7 - CROSS TANGENT AND OUTSIDE TANGENT
  152. store      1254 123987.654 987123.456 / center large circle
  153.            1256 124980.650 990125.500 / center small circle
  154. tangent    1253 1254 1200. 1255 1256 800. l -1. / 1253 on lg, 1254 on sm
  155. tangent    1263 1254 1200. 1265 1256 600. r  1. / 1263 on lg, 1265 on sm
  156. *         PROBLEM 8 - SPIRAL OFFSET FROM KNOWN POINT
  157. store      1272 123406.700 234715.400 / pt on bk tan
  158.            1275 123456.700 234765.400 / ts of spiral
  159.            1277 123636.200 234677.100 / known offset pt
  160. simple/spiral 500 1272 1275 1273 1274 250. 5. r /the spiral
  161. spiral/offset 1276 1277 /dist to intersect from ts & known pt
  162. *         PROBLEM 9 - MODIFIED AREA FOR PARCEL 'A'
  163. store      1302 12000.000 8000.000 / start at point 1302
  164. locate/azimuth  1302 1303  2000. 134  0  0. / locate line G
  165.         1302 1304 -2000.  44  0  0. / locate line H
  166. parallel/line   1302 1303   120. 1305 1306  /locate line containing E & D
  167.         1304 1302    75. 1307 1308  /locate line containing E & B
  168.         1304 1302  1075. 1311 1312  /line through curve center
  169.         1302 1303  1120. 1309 1310  /line through curve center
  170. points/intersect  179 1311 1312 1309 1310  /curve center
  171. tangent/offset  171 179 1307 1308  /pc curve
  172.         177 179 1306 1305  /pt curve
  173. locate/azimuth  171 1320 1500. a 1302 1304  /locate point B
  174.         177 1322  800. a 1302 1303  /locate point D
  175. az/intersect    1321 1320 a 171 179 1322 a 177 179 /locate point C
  176. *        points located, calculate area
  177. lots/comp    1321 1320 171 p 179 177 1322 1321
  178. eoj
  179. eor
  180.