General Program Information

Input Definitions

Inputs Needed to Call the Elbow Function

o - the origin, a 3*1 matrix with x,y,z positions corresponding to the point where the elbow will be drawn
Pipe_inr - the inner radius of the elbow

Inputs Defined within the Elbow Function

p1 =

x : o₀
y : o₁
z : o₂

p2 =

x : o₀ - ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr)
y : o₁ - ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr)
z : o₂ - outerradius(2*pipe_inr) + SocketDepth(2*pipe~inr~)

p3 =

x : o₀
y : o₁ + ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr)
z : o₂ + outerradius(2*pipe_inr) + SocketDepth(2*pipe_inr)

p4 =

x : o₀ + ElbowRadius(2*pipe_inr) + outerraduis(2*pipe_inr)
y : o₁
z : o₂

p5 =

x : o₀ - ElbowRadius(2*pipe_inr) - pipe_inr)
y : o₁
z : o₂

p6 =

x : o₀
y : o₁ - ElbowRadius(2*pipe_inr) - outerraduis(2*pipe_inr) - zc
z : o₂ - ConRadius(2*pipe_inr)

p7 =

x : o₀ + ElbowRadius(2*pipe_inr) + outerraduis(2*pipe_inr) + zc
y : o₁
z : o₂ + ConRadius(2*pipe_inr)

p9 =

x : o₀
y : o₁ + ElbowRadius(2*pipe_inr)
z : o₂

p10 =

x : o₀ - SocketDepth(2*pipe~inr~)
y : o₁ + ElbowRadius(2*pipe_inr)
z : o₂

p11 =

x : o₀
y : o₁ + ElbowRadius(2*pipe_inr) - ConRaduis(2*pipe_inr)
z : o₂

p12 =

x : o₀ - SocketDepth(2*pipe~inr~) - zc
y : o₁ + ElbowRadius(2*pipe_inr) - outerraduis(2*pipe_inr)
z : o₂

p13 =

x : o₀ + zc
y : o₁ + ElbowRadius(2*pipe_inr) + outerraduis(2*pipe_inr)
z : o₂

p14 =

x : o₀ - SocketDepth(2*pipe~inr~)
y : o₁ + ElbowRadius(2*pipe_inr) - ConRaduis(2*pipe_inr)
z : o₂

p15 =

x : o₀
y : o₁

p16 =

x : o₀ + zc
y : o₁ + zc

p17 =

x : o₀ + ElbowRadius(2*pipe_inr)
y : o₁ - SocketDepth(2*pipe~inr~)
z : o₂

p18 =

x : o₀ - SocketDepth(2*pipe~inr~)
y : o₁ + ElbowRadius(2*pipe_inr)
z : o₂

R1 =

R2 =

R3 =

R4 =

H1 =

win1 =

x : o₀ - ElbowRadius(2*pipe_inr) - ConRaduis(2*pipe_inr) + zc
y : o₁ - ElbowRadius(2*pipe_inr) - ConRaduis(2*pipe_inr) + zc
z : o₂

win2 =

x : o₀ + ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr) + zc
y : o₁ + ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr) + zc
z : o₂

Note: zc corresponds to the zoom constant within AutoCAD and can be found in the basics file that is referenced by the elbow program.

Technical Program Outline

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

zoom_win- zooms on a window space directly around where the elbow is to be drawn

zoom_win <-- zoom_wina(win1,win2)

win1 =

x : o₀ - ElbowRadius(2*pipe_inr) - ConRaduis(2*pipe_inr) + zc
y : o₁ - ElbowRadius(2*pipe_inr) - ConRaduis(2*pipe_inr) + zc
z : o₂

win2 =

x : o₀ + ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr) + zc
y : o₁ + ElbowRadius(2*pipe_inr) + ConRaduis(2*pipe_inr) + zc
z : o₂

*torus_big* - Draws the larger torus, a 3 dimensional ring that creates the outer surface of the elbow

torus_big <- torus(p1,R1,R2)