...
Inputs Needed to Call the Inlet Slope Trapezoid Function
origin - A 3*1 matrix with x,y,z positions corresponding to the point where the inlet slope will be drawn.
Length - length of the slopes, generally the length of the sedimentation tank
WSed - width of the sedimentation tank
lorifice - length of the opening that will allow inlet flow
horifice - height of the opening that will allow inlet flow
borifice -
thick - thickness of the slopes
n - number of orifices and sections, one section contains one orifice
bigslope - slope of the inlet in degrees
little slope -
HTrapezoid -
...
Technical Program Outline
viewtop - sets the workspace so that the user is viewing the top of the object.
viewtop <-- viewtop1
zoomwin - zooms on a window space directly around where the inlet slope is to be drawn.
zoomwin <-- zoomwin(win1, win2)
...
- x: verticalorigin0 + verticaldim0/2 + lorifice/2
- y: verticalorigin1 + verticaldim1
- z: verticalorigin2 + horifice + (borifice*tan(littleslope))
subtractorifice - subtracts orificebox to create an orifice, using the verticalorigin to select orificebox as the object to be subtracted.
subtractorifice <-- subtractDall(verticalorigin)
...
- x: origin0
- y: origin1 - borifice - thick
- z: origin2
array - creates an array to replicate the slab n times, by using the origin to select the slab as the item to put into an array, then specifies that a rectangular array with one row and "n" columns with a displacement of "dist" is to be used to place the slabs one next to the other.
array <-- arrayB(verticalorigin, nrow, ncol, dist)
...
- x: origin0
- y: origin1 - borifice - thick
- z: origin2
nrow = l
ncol = n
dist = length/2
union - Unites all the individual components of the inlet slope to act as a single unit
union <-- unionallA
mirror - replicates the original inlet slope drawn by selecting the original inlet slope using the origin, then reflecting it over a mirror line created using mirrorpoint1 and mirrorpoint2.
mirror <-- mirrorall(mirrorpoint1, mirrorpoint2)
mirrorpoint1 =
...
win1 =
- x: origin0 - zc
- y: origin1 - zc
- z: origin2 - zc
win2 =
- x: origin0 + dim0 - zc
- y: origin1 + dim1 - zc
- z: origin2 + dim2 - zc
bigunion -
bigunion <--unionallA