General Program Information
Input Definitions
Inputs Needed to Call the Inlet Slope Trapezoid Function
origin -
Length -
WSed -
lorifice -
horifice -
borifice -
thick -
n -
bigslope -
little slope -
HTrapezoid -
Inputs Defined within the Inlet Slope Trapezoid Function
verticalorigin =
- x: origin0
- y: origin1 - borifice - thick
- z: origin2
verticaldim =
- x: length/n
- y: thick
- z: HTrapezoid + thick*cos(bigslope)
slopeorigin =
- x: origin0
- y: origin1 - borifice - thick
- z: origin2 + HTrapezoid + thick*cos(bigslope)
dim =
- x: length/n
- y: thick
- z: (WSed/2 -borifice)*(1/cos(bigslope))
verticalorigindim = verticalorigin + verticaldim
boxdim = slopeorigin + dim
sideorigin =
- x: slopeorigin1 + thick
- y: slopeorigin2 + dim2
- z: slopeorigin0
sideoriginrotate =
- x: slopeorigin1 + thick
- y: slopeorigin2
- z: slopeorigin0
orificeorigin =
- x: verticalorigin0 + verticaldim0/2 - lorifice/2
- y: verticalorigin1
- z: verticalorigin2
orificedim =
- x: verticalorigin0 + verticaldim0/2 + lorifice/2
- y: verticalorigin1 + verticaldim1
- z: verticalorigin2 + horifice + (borifice*tan(littleslope))
nrow = l
ncol = n
dist = length/2
mirrorpoint1 =
- x: origin0
- y: origin1
mirrorpoint2 =
- x: origin0 + zc
- y: origin1
win1 =
- x: origin0 - zc
- y: origin1 - zc
- z: origin2 - zc
win2 =
- x: origin0 + dim0 - zc
- y: origin1 + dim1 - zc
- z: origin2 + dim2 - zc
Technical Program Outline
viewtop
viewtop <-- viewtop1
zoomwin -
zoomwin <-- zoomwin(win1, win2)
win1 =
- x: origin0 - zc
- y: origin1 - zc
- z: origin2 - zc
win2 =
- x: origin0 + dim0 - zc
- y: origin1 + dim1 - zc
- z: origin2 + dim2 - zc
verticalbox -
verticalbox <-- box(verticalorigin, verticalorigindim)
verticalorigin =
- x: origin0
- y: origin1 - borifice - thick
- z: origin2
verticaldim =
- x: length/n
- y: thick
- z: HTrapezoid + thick*cos(bigslope)
bigslopebox -
bigslopebox <-- box(slopeorigin, boxdim)
slopeorigin =
- x: origin0
- y: origin1 - borifice - thick
- z: origin2 + HTrapezoid + thick*cos(bigslope)
boxdim = slopeorigin + dim
sideview -
sideview <-- viewrightside1
rotate -
rotate <-- rotate3d(sideorigin, sideoriginrotate, "z", 90 - bigslope*(180/pi))
sideorigin =
- x: slopeorigin1 + thick
- y: slopeorigin2 + dim2
- z: slopeorigin0
sideoriginrotate =
- x: slopeorigin1 + thick
- y: slopeorigin2
- z: slopeorigin0
"z" =
90 - bigslope*(180/pi) =
orificebox -
orificebox <-- box(orificeorigin, orificedim)
orificeorigin =
- x: verticalorigin0 + verticaldim0/2 - lorifice/2
- y: verticalorigin1
- z: verticalorigin2
orificedim =
- x: verticalorigin0 + verticaldim0/2 + lorifice/2
- y: verticalorigin1 + verticaldim1
- z: verticalorigin2 + horifice + (borifice*tan(littleslope))
subtractorifice -
subtractorifice <-- subtractDall(verticalorigin)
verticalorigin =
- x: origin0
- y: origin1 - borifice - thick
- z: origin2
array -
array <-- arrayB(verticalorigin, nrow, ncol, dist)
verticalorigin =
- x: origin0
- y: origin1 - borifice - thick
- z: origin2
nrow =
ncol =
dist =
union -
union <-- unionallA
mirror -
mirror <-- mirrorall(mirrorpoint1, mirrorpoint2)
mirrorpoint1 =
mirrorpoint2 =
bigunion -
bigunion <--unionallA