ed5395d0-c219-44a8-85a9-3cb8c46fc354 188 4 5 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

User Defined lookup functions for use in this workbook.

value table column vlookup k 1 : j 1 : j table rows ≤ j j 1 + : table j 1 el value ≡ result k 1 el table j column el : k k 1 + : 21 line 0 if for result IsDefined result no match if 31 line :

value table row hlookup k 1 : j 1 : j table cols ≤ j j 1 + : table 1 j el value ≡ result 1 k el table row j el : k k 1 + : 21 line 0 if for 21 line result 21 line :

Input point values for baseline, as taken from InRoads report or other reference. Define line segments (start and end point numbers) that define the baseline.

points.head point no. type STA Northing Easting 15 mat :

segs.head No. type start pt. end pt. center 15 mat :

NOTE: A "lookup function is used later in these calculations. Make sure that the "point no." column is listed in ascending order...for now...

points.1 1001 linePT 726.32 0015 mat :

segs.1 101 line 10011002015 mat :

points.2 1002 PI/PT 770.83 21.5 5.75 15 mat :

segs.2 201 line 10021003015 mat :

points.3 1003 PC 770.83 43 11.5 15 mat :

segs.3 301 curve 10031006100515 mat :

points.4 1004 PI 05000500015 mat :

segs.4 401 line 10061007015 mat :

points.5 1005 CC 0 445.3870 1858.0027 15 mat :

points.6 1006 PT 899.33 166 48.5 15 mat :

points.7 1007 PI/PT 1000 261.5 8115 mat :

points points.1 points.2 points.3 points.4 points.5 points.6 points.7 stack :

segs segs.1 segs.2 segs.3 segs.4 stack :

points 1001 linePT 726.32 001002 PI/PT 770.83 21.5 5.75 1003 PC 770.83 43 11.5 1004 PI 0500050001005 CC 0 445.387 1858.0027 1006 PT 899.33 166 48.5 1007 PI/PT 1000 261.5 8175 mat

segs 101 line 100110020201 line 100210030301 curve 100310061005401 line 10061007045 mat

Assuming fascia lines are parallel the baseline, define offset distance.

Δ.o 10 :

Routine that will assemble table with Northing and Eastings for baseline coordinates.

Tseg Tpnt Coors i 1 Tseg rows range Seg i el Tseg i 1 el : Type i el Tseg i 2 el : Nor_b i el Tseg i 3 el Tpnt 4 vlookup det : East_b i el Tseg i 3 el Tpnt 5 vlookup det : Nor_e i el Tseg i 4 el Tpnt 4 vlookup det : East_e i el Tseg i 4 el Tpnt 5 vlookup det : Tseg i 2 el line ≡ Nor_c i el 0 : East_c i el 0 : 21 line Tseg i 2 el curve ≡ Nor_c i el Tseg i 5 el Tpnt 4 vlookup det : East_c i el Tseg i 5 el Tpnt 5 vlookup det : 21 line UH-OH! :-(if if 71 line for Seg Type Nor_b East_b Nor_e East_e Nor_c East_c augment 21 line :

coor.head Seg. No. tpe Beg Nor Beg East End Nor End East Ctr Nor Ctr East 18 mat :

prop.head No. type length slope, m y-int, b theta chord radius central andgle 19 mat :

Routine that will assemble table baseline segment (line and curve) geometric properties.

Tseg Tpnt Props mCoors Tseg Tpnt Coors : Seg mCoors 1 mCoors rows 11 submatrix : Type mCoors 1 mCoors rows 22 submatrix : Nor_b mCoors 1 mCoors rows 33 submatrix : East_b mCoors 1 mCoors rows 44 submatrix : Nor_e mCoors 1 mCoors rows 55 submatrix : East_e mCoors 1 mCoors rows 66 submatrix : Nor_c mCoors 1 mCoors rows 77 submatrix : East_c mCoors 1 mCoors rows 88 submatrix : i 1 mCoors rows range Type i el line ≡ Len i el Nor_e i el Nor_b i el - (2^East_e i el East_b i el - (2^+ sqrt : slope i el Nor_e i el Nor_b i el - (East_e i el East_b i el - (/ : yint i el Nor_b i el slope i el East_b i el * - : theta i el East_e i el East_b i el - Nor_e i el Nor_b i el - / atan 180 π / * : chord i el 0 : radius i el 0 : central i el 0 : 71 line Type i el curve ≡ central i el East_e i el East_c i el - Nor_e i el Nor_c i el - / atan East_b i el East_c i el - Nor_b i el Nor_c i el - / atan - (180 π / * : radius i el Nor_c i el Nor_b i el - (2^East_c i el East_b i el - (2^+ sqrt : chord i el Nor_e i el Nor_b i el - (2^East_e i el East_b i el - (2^+ sqrt : theta i el 0 : yint i el 0 : slope i el 0 : Len i el radius i el central i el * π 180 / * : 71 line UH-OH! :-(if if 11 line for Seg Type Len slope yint theta chord radius central augment 111 line :

Routine to calculate parallel fascia line coordinates and properties, based on baseline and previously entered offset value.

Tab.coor Tab.prop Δ names Create ZERO matrix... BOT 1 Tab.coor rows range 1 Tab.coor cols Tab.prop cols + 2 - (range el 0 : Break up tables into local vectors for easy notation Seg Tab.coor 1 Tab.coor rows 11 submatrix : Type Tab.coor 1 Tab.coor rows 22 submatrix : Nor_b Tab.coor 1 Tab.coor rows 33 submatrix : East_b Tab.coor 1 Tab.coor rows 44 submatrix : Nor_e Tab.coor 1 Tab.coor rows 55 submatrix : East_e Tab.coor 1 Tab.coor rows 66 submatrix : Nor_c Tab.coor 1 Tab.coor rows 77 submatrix : East_c Tab.coor 1 Tab.coor rows 88 submatrix : Len Tab.prop 1 Tab.prop rows 33 submatrix : slope Tab.prop 1 Tab.prop rows 44 submatrix : yint Tab.prop 1 Tab.prop rows 55 submatrix : theta Tab.prop 1 Tab.prop rows 66 submatrix : chord Tab.prop 1 Tab.prop rows 77 submatrix : radius Tab.prop 1 Tab.prop rows 33 submatrix : central Tab.prop 1 Tab.prop rows 33 submatrix : BOT Seg Type Nor_b East_b Nor_e East_e augment : BOT BOT Nor_c East_c Len slope yint theta augment : BOT BOT chord radius central augment : 211 line :

Routine to calculate parallel fascia line coordinates and properties, based on baseline and previously entered offset value.

Tab.coor Tab.prop Δ Off.a Break up tables into local vectors for easy notation Tab.coor Tab.prop Δ names Begin creating new table for offset lines i 1 Tab.coor rows (range BOT i 1 el Seg i el : BOT i 2 el Type i el : BOT i 7 el Nor_c i el : BOT i 8 el East_c i el : Type i el line ≡ Δ.y Δ theta i el π 180 / * sin * : Δ.x Δ theta i el π 180 / * cos * : BOT i 3 el Nor_b i el Δ.y + : BOT i 4 el East_b i el Δ.x + : BOT i 5 el Nor_e i el Δ.y + : BOT i 6 el East_e i el Δ.x + : spacer line BOT i 9 el Len i el : BOT i 10 el slope i el : BOT i 11 el yint i el Δ.y + : BOT i 12 el theta i el : BOT i 1315 range el 0 : 121 line continue if 51 line for 41 line :

Continuation of routine to calculate parallel fascia line coordinates and properties, based on baseline and previously entered offset value. Broken up into multiple functions definitions for printing purposed.

Tab.coor Tab.prop Δ Off.b Call to previous portion of routine BOT Tab.coor Tab.prop Δ Off.a : Continue calculating properties for offset line/curve. i 1 Tab.coor rows (range Tab.coor i 2 el curve ≡ Ensure a tangent is defined before & after curve Define begin & end coor. from tangents. BOT i 3 el BOT i 1 - (5 el : BOT i 4 el BOT i 1 - (6 el : BOT i 5 el BOT i 1 + (3 el : BOT i 6 el BOT i 1 + (4 el : spacer line BOT i 9 el radius i el Δ + (central i el * π 180 / * : BOT i 1012 range el 0 : BOT i 13 el BOT i 5 el BOT i 3 el - (2^BOT i 6 el BOT i 4 el - (2^+ sqrt : BOT i 14 el radius i el Δ + : BOT i 15 el central i el : 121 line continue if 11 line for BOT 51 line :

Tab.coor Tab.prop Δ Ocoor BOT Tab.coor Tab.prop Δ Off.b : out BOT 1 BOT rows 1 Tab.coor cols submatrix : out 31 line :

Tab.coor Tab.prop Δ Oprop BOT Tab.coor Tab.prop Δ Off.b : out BOT 1 BOT rows Tab.coor cols 1 + BOT cols submatrix : out BOT 1 BOT rows 12 submatrix out augment : out 41 line :

Comparison of properties and coordinates for baseline and fascia lines.

BL.coor segs points Coors :

BL.prop segs points Props :

FL1.coor BL.coor BL.prop Δ.o Ocoor :

FL1.prop BL.coor BL.prop Δ.o Oprop :

FL2.coor BL.coor BL.prop Δ.o - Ocoor :

FL2.prop BL.coor BL.prop Δ.o - Oprop :