General Program Information

Input Definitions

Inputs Needed to Call the Sludge Pipe Function

sludgepipe_origin - a 3 by 1 matrix with x,y,z positions corresponding to the point where the sludge pipe will be drawn
ND_sludge - the nominal diameter of the sludge waste pipe - from this we can find the actual inner diameter and actual outer diameter of the pipe based on the schedule of pipe being used.
tank_length - the length of the tank
orifice_rad - the radius of the orifice hole
orifice_dist - the distance between successive orifices
EN_PipeSpec - an enumerated pipe schedule which specifies a number which corresponds to a pipe schedule that states the amount of water pressure the pipe can handle before it fails. The pipe schedule affects the inner and outer diameter of the pipe.

Inputs Found from Pipe Database Function

sludepipe_inr - the radius of the inner cylinder defined by innerD(ND_sludge,EN_PipeSpec)/2
sludgepipe_outr - the radius of the outer cylinder defined by outerradius(ND_sludge)

Inputs Defined Within the Sludge Pipe Function

p1 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁
• z : sludgepipe.origin₂

p2 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁
• z : sludgepipe.origin₂ + tank_length - orifice_dist

p3 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁ + sludgepipe_outr + zc
• z : sludgepipe.origin₂ + tank_length - orific_dist

p4 =

• x : sludgepipe.origin₁ + sludgepipe_outr + zc
• y : sludgepipe.origin₂ + tank_length - orifice_dist
• z : sludgepipe.origin₀

p5 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁ - sludgepipe_outr

p6 =

• x : sludgepipe.origin₀ + orifice_rad + zc
• y : sludgepipe.origin₁ + sludgepipe_outr + 2*zc

p7 =

• x : sludgepipe.origin₀ - orifice_rad - zc
• y : sludgepipe.origin₁ - zc

ND = ND_sludge

R1 = sludgepipe_outr

R2 = sludgepipe_inr

R3 = orifice_rad

L = tank_length

n1 = floor( tank_length / orifice_dist )

n2 = 1

d1 = orifice_dist

win1 =

• x : sludgepipe.origin₀ - sludgepipe_outr
• y : sludgepipe.origin₁ - sludgepipe_outr
• z : sludgepipe.origin₂

win2 =

• x : sludgepipe.origin₀ + sludgepipe_outr
• y : sludgepipe.origin₁ + sludgepipe_outr + zc
• z : sludgepipe.origin₂

EN = EN_PipeSpec

Note: zc corresponds to the zoom constant used within AutoCAD and created in the basics file that is referenced by the pipe program.

Technical Program Outline

Note: All coordinates are referenced in top view in the program unless otherwise specified

viewtop - shows an object in top view in AutoCAD.
viewtop <-- viewtop

pipe1 - using the pipe function draws a pipe (from the pipe program) with no zoom
pipe1 <-- pipe(p1,ND,L,EN)

p1 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁
• z : sludgepipe.origin₂

ND = ND_sludge

L = tank_length

EN = EN_PipeSpec

zoom_win - zooms on a window space
zoom_win <-- zoom_win(win1,win2)

win1 =

• x : sludgepipe.origin₀ - sludgepipe_outr
• y : sludgepipe.origin₁ - sludgepipe_outr
• z : sludgepipe.origin₂

win2 =

• x : sludgepipe.origin₀ + sludgepipe_outr
• y : sludgepipe.origin₁ + sludgepipe_outr + zc
• z : sludgepipe.origin₂
  
  

cylinder3 - is to draw a cylinder for orifice purpose
cylinder3 <-- cylinderD(p2,R3,p3)

p2 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁
• z : sludgepipe.origin₂ + tank_length - orifice_dist

R3 = rad_hole

p3 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁ + sludgepipe_outr + zc
• z : sludgepipe.origin₂ + tank_length - orific_dist
  
  

viewrightside - change view to viewrightside
viewrightside <-- viewrightside

array1 - draw starting at point p4, n1 -- as many rows as the tank length/orifice dist, n2 - 1 and provide orifice distance as the next draw point for the cylinder
array1 <-- array(p4,n1,n2,-d1)

p4 =

• x : sludgepipe.origin₁ + sludgepipe_outr + zc
• y : sludgepipe.origin₂ + tank_length - orifice_dist
• z : sludgepipe.origin₀

n1 = floor( tank_length / orifice_dist )

n2 = 1

d1 = orifice_dist

subtract2 - subtract unneeded portion of the cylinders, using p5 to select the pipe as the object to be subtracted from, and using p6 and p7 to select the cylinder as the region to be subtracted
subtract2 <-- subtractH(p5,p6,p7)

p5 =

• x : sludgepipe.origin₀
• y : sludgepipe.origin₁ - sludgepipe_outr

p6 =

• x : sludgepipe.origin₀ + rad_hole + zc
• y : sludgepipe.origin₁ + sludgepipe_outr + 2*zc

p7 =

• x : sludgepipe.origin₀ - orifice_rad - zc
• y : sludgepipe.origin₁ - zc