begin file0 clear 1 9999 10 500 8000 9999 * EXAMPLE 1.1 - AREA CALCULATIONS known !alpha 8715.322 20431.192 !beta 8713.602 20474.120 !gama 8664.834 20474.028 !iota 8660.490 20429.901 !phi 8692.066 20431.154 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 182928.978 609605.121 !ptonlarg 182904.672 609907.971 locate/angle !ptonlarg !Ptonsmal !ctrlarge 48.7681 90 0 0. /center large cir !Ptonsmal !ptonlarg !ctrsmall 24.3840 -90 0 0. /center small cir tangent !Ptonsmal !ctrlarge 48.7681 !ptonlarg !ctrsmall 24.6840 l 1. * EXAMPLE 3.1 - SIMPLE CURVE known 2 457.201 609.601 3 780.704 1256.606 4 551.953 1942.859 locate/line 2 3 1 -30.4801 simple/curve 10 1 2 3 4 1.0 45 0 0.0 r * EXAMPLE 4.1 - CONTINUOUS ALIGNMENT (SIMPLE CURVES) known !begin 60960.122 60960.122 /Begin Point !end 62023.753 61223.268 /End point !pi_1 60577.161 61343.510 /1st pi !pi_2 61142.019 62155.226 /2nd pi !pi_3 60606.107 62921.063 /3rd pi !pi_4 60960.097 63682.684 /4th pi !pi_5 61811.963 63443.369 /5th pi !pi_6 61811.963 61939.787 /6th pi * ALIGNMENTS alignment 10 !begin !pi_1 !pi_2 365.7607 0. 670.5613 0. /R known 20 17 !pi_2 !pi_3 0. 609.6012 -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. 60.9601 /X known 60 57 !pi_6 !end 1158.2423 0. -1. /R known * COMMANDS USING CURVES (ONLY CURVE !pi_1 USED THIS EXAMPLE) * EXAMPLE 4.2 - COORDINATE OF POINT ON ARC coord/poa 10 !poa1 1127.7623 * EXAMPLE 4.3 - COORDINATE OF POINT OFFSET FROM CURVE coord/offset 10 !poa2 1127.7623 -9.9060 * 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 304.801 609.601 !p5 289.713 709.576 adjust/deflection/ls !p1 !p5 152.4003 !p1 !p2 30.4801 120 0 0. !p2 !p3 30.4801 -30 0 0. !p3 !p4 30.4801 -45 0 0. !p4 !p5 30.4801 90 0 0. * EXAMPLE 6.1 - VERTICAL CURVES vertical/start !vp1 1773.3299 255.4077 !vp2 2190.9068 256.9103 243.8405 !vp3 2451.2065 254.8285 213.3604 vertical/end !vp4 2923.6474 258.2301 * EXAMPLE 6.2 - CALCULATE EVEN STATION ELEVATIONS even/stations 1828.8037 152.4003 2743.2055 * EXAMPLE 6.3 - CALCULATE ELEVATION OF OFFSET POINT offset/elevation !op1 2036.6043 30.4801 4. * EXAMPLE 6.4 - CALCULATE ELEVATION OF DRAIN POINT curve/drain !vp2 * EXAMPLE 7.1 - SIMPLE SPIRAL AND ASSOCIATED COMMANDS known 101 304.801 609.601 102 261.639 652.762 locate/line 101 102 2 -60.9601 simple/spiral 100 2 101 102 103 91.4402 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 22.8600 7.6200 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 22.8600 /!offp4 should be same as !offp1 * EXAMPLE 7.5 - COORDINATE OF LINE INTERSECTING SPIRAL known !p6 305.820 610.734 / point on line !p7 260.519 651.524 / second point on line line/spiral !p8 !p6 !p7 101 / actual intersection * EXAMPLE 8.1 - CURVE WITH SPIRALS known 250 454507.559 109123.026 260 455092.596 109223.204 240 454247.111 109161.717 fit/alignment 250 240 250 260 3. 60.9601 60.9601 r 13610.3497 * PROBLEM 1 - CALCULATE NEW PROPERTY R/W WITH TAKE AREA * store known points store !ctrl1 3048.006 3048.006 !ctrl2 3114.195 3204.616 !Ccenter 3314.707 3072.390 * find points !nwcorner & !necorner az/intersect !nwcorner !ctrl1 15 27 30. !ctrl2 90 0 0. .005 locate/azimuth !nwcorner !necorner 56.6051 90 0 0. * find intersection of curves and side lines arc/line/az !swcorner !Ccenter 220.9804 !ctrl1 15 27 30. !ctrl1 !secorner !Ccenter 220.9804 !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 220.9804 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 3657.607 3048.006 310 4267.209 3779.528 !foresite 3779.528 4572.009 !point1 4206.248 3474.727 !point2 4206.248 4572.009 !ptonline 3718.567 4389.129 alignment 310 !Backsite 310 !foresite 0. 457.2009 6705.6134 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/def 317 !ntrsect !newpoint 609.6012 g !foresite !ntrsect !ptonline * PROBLEM 3 - NOSING LOCATION CALCULATION store !pt226183 70745.634 192442.640 / pt 2261+83.244 road a !pt225872 70202.484 192459.925 /pot 2258+72.129 road b locate/bearing !pt226183 !ofpt1 6.0960 2 51 37 54. /establish point on offset !pt225872 !ofpt2 10.9728 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 70745.634 192442.640 / pt 2260+21.876 road c !ccentrdd 70837.973 192727.316 / center curve - road d !pc225981 70744.524 192579.784 / pc 2259+81.115 road d locate/bearing !pt226021 !offpt2.4 6.0960 2 50 0 0. /loc pt on offset line arc/line/br !nose1 !ccentrdd 185.6101 !offpt2.4 1 40 0 0. !pc225981 /nose pt * PROBLEM 5 - NOSING AT INTERSECTION OF TWO CIRCULAR CURVES, * ONE RIGHT, ONE LEFT store !pccv2 70264.840 192622.568 / pc of curve 2 !pccv1 70570.006 192743.005 / pc of curve 1 locate/bearing !pccv1 !center1 174.6379 1 52 53 7. / est. rad. pt 1 !pccv2 !center2 582.1262 2 58 44 41. / est. rad. pt 2 arc/arc/intersect !nose2 !center2 593.0990 !center1 180.7340 !pccv2 /nose pt * PROBLEM 6 - NOSING AT INTERSECTION OF TWO RIGHT CIRCULAR CURVES store !pc1pb6 70406.417 192107.188 / pc curve 1 !pc2pb6 70096.280 191986.185 / pc curve 2 locate/bearing !pc1pb6 !rdp1pb6 174.6379 2 19 8 33. / est. rad. pt 1 !pc2pb6 !rdp2pb6 349.2759 2 81 2 58. / est. rad. pt 2 arc/arc/intersect !nose3 !rdp2pb6 360.2487 !rdp1pb6 168.5419 !pc1pb6 /nose3 * PROBLEM 7 - CROSS TANGENT AND OUTSIDE TANGENT store !lgctrp7 37791.513 300875.831 / center large circle !smctrp7 38094.178 301790.856 / center small circle tangent !xtansmal !smctrp7 365.7607 !xtanlarg !lgctrp7 243.8405 l -1. / tangent !tangsmal !smctrp7 365.7607 !tanglarg !lgctrp7 243.8405 r 1. / * PROBLEM 8 - SPIRAL OFFSET FROM KNOWN POINT store !bsprob8 37614.437 71541.397 / pt on bk tan !psprob8 37629.677 71556.637 / ts of spiral !pt1prob8 37684.389 71529.723 / known offset pt simple/spiral 500 !bsprob8 !psprob8 !spiprob8 !pscprob8 76.2002 5. r /the spiral spiral/offset !intersp8 !pt1prob8 /dist to intersect from ts & known pt * PROBLEM 9 - MODIFIED AREA FOR PARCEL 'A' store !"A" 3657.607 2438.405 / start at point !"A" locate/azimuth !"A" !"G1" 609.6012 134 0 0. / locate line G !"A" !"H1" -609.6012 44 0 0. / locate line H parallel/line !"A" !"G1" 36.5761 !temppt1 !temppt2 /loc line containing E & D !"H1" !"A" 22.8600 !temppt3 !temppt4 /loc line containing E & B !"H1" !"A" 327.6607 !temppt5 !temppt6 /line through curve center !"A" !"G1" 341.3767 !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" 457.2009 a !"A" !"H1" /locate point B !PT !"D" 243.8405 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