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 -
verticalorigin =
verticaldim =
slopeorigin =
dim =
verticalorigindim = verticalorigin + verticaldim
boxdim = slopeorigin + dim
sideorigin =
sideoriginrotate =
orificeorigin =
orificedim =
nrow = l
ncol = n
dist = length/2
mirrorpoint1 =
mirrorpoint2 =
win1 =
win2 =
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)
win1 =
win2 =
verticalbox -
verticalbox <-- box(verticalorigin, verticalorigindim)
verticalorigin =
verticaldim =
bigslopebox -
bigslopebox <-- box(slopeorigin, boxdim)
slopeorigin =
boxdim = slopeorigin + dim
sideview -
sideview <-- viewrightside1
rotate -
rotate <-- rotate3d(sideorigin, sideoriginrotate, "z", 90 - bigslope*(180/pi))
sideorigin =
sideoriginrotate =
"z" =
90 - bigslope*(180/pi) =
orificebox -
orificebox <-- box(orificeorigin, orificedim)
orificeorigin =
orificedim =
subtractorifice - subtracts orificebox to create an orifice, using the verticalorigin to select orificebox as the object to be subtracted.
subtractorifice <-- subtractDall(verticalorigin)
verticalorigin =
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)
verticalorigin =
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)
win1 =
win2 =
bigunion -
bigunion <--unionallA