General Program Information

Input Definitions

Inputs Needed to Call the Inlet Slope Trapezoid Function

origin -

Length -

W_Sed -

l_orifice -

h_orifice -

b_orifice -

thick -

n -

bigslope -

little slope -

H_Trapezoid -

Inputs Defined within the Inlet Slope Trapezoid Function

verticalorigin =

• x: origin₀
• y: origin₁ - b_orifice - thick
• z: origin₂

verticaldim =

• x: length/n
• y: thick
• z: H_Trapezoid + thick*cos(bigslope)

slopeorigin =

• x: origin₀
• y: origin₁ - b_orifice - thick
• z: origin₂ + H_Trapezoid + thick*cos(bigslope)

dim =

• x: length/n
• y: thick
• z: (W_Sed/2 -b_orifice)*(1/cos(bigslope))

verticalorigin_dim = verticalorigin + verticaldim

box_dim = slopeorigin + dim

sideorigin =

• x: slopeorigin₁ + thick
• y: slopeorigin₂ + dim₂
• z: slopeorigin₀

sideoriginrotate =

• x: slopeorigin₁ + thick
• y: slopeorigin₂
• z: slopeorigin₀

orifice_origin =

• x: verticalorigin₀ + verticaldim₀/2 - l_orifice/2
• y: verticalorigin₁
• z: verticalorigin₂

orifice_dim =

• x: verticalorigin₀ + verticaldim₀/2 + l_orifice/2
• y: verticalorigin₁ + verticaldim₁
• z: verticalorigin₂ + h_orifice + (b_orifice*tan(littleslope))

nrow = l

ncol = n

dist = length/2

mirror_point1 =

• x: origin₀
• y: origin₁

mirror_point2 =

• x: origin₀ + zc
• y: origin₁

win1 =

• x: origin₀ - zc
• y: origin₁ - zc
• z: origin₂ - zc

win2 =

• x: origin₀ + dim₀ - zc
• y: origin₁ + dim₁ - zc
• z: origin₂ + dim₂ - zc

Technical Program Outline

viewtop

viewtop <-- viewtop1

zoomwin -

zoomwin <-- zoom_win(win1, win2)

win1 =

• x: origin₀ - zc
• y: origin₁ - zc
• z: origin₂ - zc

win2 =

• x: origin₀ + dim₀ - zc
• y: origin₁ + dim₁ - zc
• z: origin₂ + dim₂ - zc

verticalbox -

verticalbox <-- box(verticalorigin, verticalorigin_dim)

verticalorigin =

• x: origin₀
• y: origin₁ - b_orifice - thick
• z: origin₂

verticaldim =

• x: length/n
• y: thick
• z: H_Trapezoid + thick*cos(bigslope)

bigslopebox -

bigslopebox <-- box(slopeorigin, box_dim)

slopeorigin =

• x: origin₀
• y: origin₁ - b_orifice - thick
• z: origin₂ + H_Trapezoid + thick*cos(bigslope)

box_dim = slopeorigin + dim

sideview -

sideview <-- viewrightside1

rotate -

rotate <-- rotate_3d(sideorigin, sideoriginrotate, "z", 90 - bigslope*(180/pi))

sideorigin =

• x: slopeorigin₁ + thick
• y: slopeorigin₂ + dim₂
• z: slopeorigin₀

sideoriginrotate =

• x: slopeorigin₁ + thick
• y: slopeorigin₂
• z: slopeorigin₀

"z" =

90 - bigslope*(180/pi) =

orificebox -

orificebox <-- box(orifice_origin, orifice_dim)

orifice_origin =

• x: verticalorigin₀ + verticaldim₀/2 - l_orifice/2
• y: verticalorigin₁
• z: verticalorigin₂

orifice_dim =

• x: verticalorigin₀ + verticaldim₀/2 + l_orifice/2
• y: verticalorigin₁ + verticaldim₁
• z: verticalorigin₂ + h_orifice + (b_orifice*tan(littleslope))

subtractorifice -

subtractorifice <-- subtractDall(verticalorigin)

verticalorigin =

• x: origin₀
• y: origin₁ - b_orifice - thick
• z: origin₂

array -

array <-- arrayB(verticalorigin, nrow, ncol, dist)

verticalorigin =

• x: origin₀
• y: origin₁ - b_orifice - thick
• z: origin₂

nrow =

ncol =

dist =

union -

union <-- union_allA

mirror -

mirror <-- mirror_all(mirror_point1, mirror_point2)

mirror_point1 =

mirror_point2 =

bigunion -

bigunion <--union_allA