begin file0 clear 1 9999 10 500 8000 9999 change/system 0 0 * EXAMPLE 1.1 - AREA CALCULATIONS known !alpha 28593.5180 67031.3373 !beta 28587.8756 67172.1767 !gama 28427.8756 67171.8734 !iota 28413.6255 67027.0994 !phi 28517.2214 67031.2119 area !alpha !beta !gama !iota !phi !alpha area/azimuth !alpha !beta !gama !iota !phi !alpha area/bearing !alpha !beta !gama !iota !phi !alpha eject * EXAMPLE 1.2 - DIVIDE AREA * note using point !alpha as base point in next command divide/area a !beta !gama !beta !gama !iota !phi !alpha !beta / * EXAMPLE 2.1 - TANGENT TO TWO CIRCLES known !Ptonsmal 600159.4875 2000012.8007 !ptonlarg 600079.7438 2001006.4003 locate/angle !ptonlarg !Ptonsmal !ctrlarge 160. 90 0 0. / center large circle !Ptonsmal !ptonlarg !ctrsmall 80. -90 0 0. / center small circle tangent !Ptonsmal !ctrlarge 160. !ptonlarg !ctrsmall 80. l 1. * EXAMPLE 3.1 - SIMPLE CURVE known 2 1500. 2000. 3 2561.3581 4122.7163 4 1810.8645 6374.1969 locate/line 2 3 1 -100. simple/curve 10 1 2 3 4 1.0 45 0 0.0 r eoj begin file1 clear 1 9999 10 500 8000 9999 * EXAMPLE 4.1 - CONTINUOUS ALIGNMENT (SIMPLE CURVES) known !begin 200000.000 200000.000 /Begin Point !end 203489.596 200863.339 /End point !pi_1 198743.570 201257.832 /1st pi !pi_2 200596.775 203920.938 /2nd pi !pi_3 198838.535 206433.521 /3rd pi !pi_4 199999.919 208932.272 /4th pi !pi_5 202794.750 208147.119 /5th pi !pi_6 202794.750 203214.119 /6th pi * ALIGNMENTS alignment 10 !begin !pi_1 !pi_2 1200. 0. 2200. 0. /R known 20 17 !pi_2 !pi_3 0. 2000. -1. /T known 30 27 !pi_3 !pi_4 0. 0. -1. /abut curves 40 37 !pi_4 !pi_5 0. 0. -1. /abut curves 50 47 !pi_5 !pi_6 0. 0. -1. 200. /X known 60 57 !pi_6 !end 3800. 0. -1. /R known * * COMMANDS USING CURVES (ONLY CURVE 10 USED THIS EXAMPLE) * EXAMPLE 4.2 - COORDINATE OF POINT ON ARC coord/poa 10 !poa1 3700. * EXAMPLE 4.3 - COORDINATE OF POINT OFFSET FROM CURVE coord/offset 10 !poa2 3700. -32.5 * EXAMPLE 4.4 - STATION OF KNOWN POINT station/from/coord 10 !poa1 * EXAMPLE 4.5 - STATION OF OFFSET POINT offset/align 10 !poa3 !poa2 /!poa3 should have same coord. as !poa1 * EXAMPLE 5.1 - ADJUST DEFLECTION store !p1 1000. 2000. !p5 950.5 2328. adjust/deflection/ls !p1 !p5 500. !p1 !p2 100. 120 0 0. !p2 !p3 100. -30 0 0. !p3 !p4 100. -45 0 0. !p4 !p5 100. 90 0 0. * EXAMPLE 6.1 - VERTICAL CURVES vertical/start !vp1 5818. 837.95 !vp2 7188. 842.88 800. !vp3 8042. 836.05 700. vertical/end !vp4 9592. 847.21 * EXAMPLE 6.2 - CALCULATE EVEN STATION ELEVATIONS even/stations 6000. 500. 9000. * EXAMPLE 6.3 - CALCULATE ELEVATION OF OFFSET POINT offset/elevation !op1 7000. 100. 4. curve/drain !vp2 * EXAMPLE 7.1 - SIMPLE SPIRAL AND ASSOCIATED COMMANDS known 101 1000. 2000. 102 858.3954 2141.6045 locate/line 101 102 2 -200. simple/spiral 100 2 101 102 103 300. 6. r * EXAMPLE 7.2 - SPIRAL LENGTH spiral/length 100 101 102 103 135 0 0. r * EXAMPLE 7.3 - OFFSET FROM SPIRAL off/from/spiral !offp1 !offp2 75. 25. r /offset ps+75, 25' rt. inverse/azimuth !offp1 !offp2 /check distance spiral/offset !offp3 !offp2 /!offp3 should be same as !offp1 * EXAMPLE 7.4 - COORDINATE OF POINT ON SPIRAL coord/posp !offp4 75. /!offp4 should be same as !offp1 * EXAMPLE 7.5 - COORDINATE OF LINE INTERSECTING SPIRAL known !p6 1003.346 2003.716 / point on line !p7 854.718 2137.543 / second point on line line/spiral !p8 !p6 !p7 101 / actual intersection * EXAMPLE 8.1 - CURVE WITH SPIRALS known 250 1491163.5500 358014.4600 260 1493082.9600 358343.1300 240 1490309.0631 358141.4001 fit/alignment 250 240 250 260 3. 200. 200. r 44653.2891 * PROBLEM 1 - CALCULATE NEW PROPERTY R/W WITH TAKE AREA * store known points store !ctrl1 10000.0000 10000.0000 !ctrl2 10217.156 10513.812 !Ccenter 10875.000 10080.000 * find points !nwcorner & !necorner az/intersect !nwcorner !ctrl1 15 27 30. !ctrl2 90 0 0. .005 locate/azimuth !nwcorner !necorner 185.712 90 0 0. * find intersection of curves and side lines arc/line/az !swcorner !Ccenter 725. !ctrl1 15 27 30. !ctrl1 !secorner !Ccenter 725. !necorner 355 0 20. !ctrl1 * first clear area store before calculations area/store 0. * find area of parallelogram area !swcorner !nwcorner !necorner !secorner !swcorner * add area of segment segment/plus !swcorner !secorner 725. 1. * refigure with lots/comp area/store 0. /clear previous total lots/comp !nwcorner !necorner !secorner p !Ccenter !swcorner !nwcorner * PROBLEM 2 - ALIGNMENT AND LOCATE POINTS store !backsite 12000. 10000. 310 14000. 12400. !foresite 12400. 15000. !point1 13800. 11400. !point2 13800. 15000. !ptonline 12200. 14400. alignment 310 !Backsite 310 !foresite 0. 1500. 22000. arc/line/br !ptoncv 319 d 319 317 !point1 s 45 0 0. e 311 station/from/coord 310 !ptoncv az/intersect !ntrsect 317 a 317 !foresite !point2 225 0 0. .005 locate/deflection 317 !ntrsect !newpoint 2000. g !foresite !ntrsect !ptonline * PROBLEM 3 - NOSING LOCATION CALCULATION store !pt226183 230677.555 631271.763 / pt 2261+83.244 road a !pt225872 230322.651 631428.937 /pot 2258+72.129 road b locate/bearing !pt226183 !ofpt1 20. 2 51 37 54. /establish point on offset !pt225872 !ofpt2 36. 3 84 42 19. /establish point on offset br/intersect !interpt1 !ofpt1 1 38 22 6. !ofpt2 4 5 17 42. /est. pt intersect * PROBLEM 4 - NOSING AT INTERSECTION CIRCULAR CURVE AND TANGENT store !pt226021 232104.634 631372.227 / pt 2260+21.876 road c !ccentrdd 232407.584 632306.202 / center curve - road d !pc225981 232100.991 631822.176 / pc 2259+81.115 road d locate/bearing !pt226021 !offpt2.4 20. 2 50 0 0. /loc pt on offset line arc/line/br !nose1 !ccentrdd 608.958 !offpt2.4 1 40 0 0. !pc225981 /nose pt * PROBLEM 5 - NOSING AT INTERSECTION OF TWO CIRCULAR CURVES, * ONE RIGHT, ONE LEFT store !pccv2 230527.229 631962.543 / pc of curve 2 !pccv1 231528.427 632357.676 / pc of curve 1 locate/bearing !pccv1 !center1 572.958 1 52 53 7. / est. rad. pt 1 !pccv2 !center2 1909.859 2 58 44 41. / est. rad. pt 2 arc/arc/intersect !nose2 !center2 1945.859 !center1 592.958 !pccv2 /nose pt * PROBLEM 6 - NOSING AT INTERSECTION OF TWO RIGHT CIRCULAR CURVES store !pc1pb6 230991.721 630271.665 / pc curve 1 !pc2pb6 229974.211 629874.675 / pc curve 2 locate/bearing !pc1pb6 !rdp1pb6 572.958 2 19 8 33. / est. rad. pt 1 !pc2pb6 !rdp2pb6 1145.916 2 81 2 58. / est. rad. pt 2 arc/arc/intersect !nose3 !rdp2pb6 1181.916 !rdp1pb6 552.958 !pc1pb6 /nose3 * PROBLEM 7 - CROSS TANGENT AND OUTSIDE TANGENT store !lgctrp7 123987.654 987123.456 / center large circle !smctrp7 124980.650 990125.500 / center small circle tangent !xtansmal !lgctrp7 1200. !xtanlarg !smctrp7 800. l -1. / !tangsmal !lgctrp7 1200. !tanglarg !smctrp7 800. r 1. / * PROBLEM 8 - SPIRAL OFFSET FROM KNOWN POINT store !bsprob8 123406.700 234715.400 / pt on bk tan !psprob8 123456.700 234765.400 / ts of spiral !pt1prob8 123636.200 234677.100 / known offset pt simple/spiral 500 !bsprob8 !psprob8 !spiprob8 !pscprob8 250. 5. r /the spiral spiral/offset !intersp8 !pt1prob8 /dist to intersect from ts & known pt * PROBLEM 9 - MODIFIED AREA FOR PARCEL 'A' store !"A" 12000.000 8000.000 / start at point !"A" locate/azimuth !"A" !"G1" 2000. 134 0 0. / locate line G !"A" !"H1" -2000. 44 0 0. / locate line H parallel/line !"A" !"G1" 120. !temppt1 !temppt2 /loc line containing E & D !"H1" !"A" 75. !temppt3 !temppt4 /loc line containing E & B !"H1" !"A" 1075. !temppt5 !temppt6 /line through curve center !"A" !"G1" 1120. !temppt7 !temppt8 /line through curve center points/intersect !center !temppt5 !temppt6 !temppt7 !temppt8 /curve center tangent/offset !PC !center !temppt3 !temppt4 /PC curve !PT !center !temppt2 !temppt1 /pt curve locate/azimuth !PC !"B" 1500. a !"A" !"H1" /locate point B !PT !"D" 800. a !"A" !"G1" /locate point D az/intersect !"C" !"B" a !PC !center !"D" a !PT !center /locate point C * points located, calculate area lots/comp !"C" !"B" !PC p !center !PT !"D" !"C" eoj eor