...
Elbow
...
Drawing
...
Script
...
layer4 - Layernew creates a new green layer "elbow."
...
layer4
...
<
...
-
...
layer
...
new("elbow",green)
| Wiki Markup |
|---|
{float:left|border=2px solid black} [!elbow1.bmp|width=280px!|AutoCAD Channel Program] Top View {float} * |
elbow1
...
-
...
Calls
...
the
...
Elbow Program to create an elbow.
elbow1 <- elbow(sedtankelbow1origin,NDSedPipeEntrance,ENPipeSpec)
sedtankelbow1origin =
- x: PlantOrigin0 - LSed + WInletChannel/2
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4 - ElbowRadius(NDSedPipeEntrance)
- z: PlantOrigin2 + sedtankpipe9length + SSedInlet + 2ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
| Wiki Markup |
|---|
Program|AutoCAD Elbow Program] to create an elbow. elbow1 <\- elbow(sedtankelbow1{~}origin~,ND{~}SedPipeEntrance~,EN{~}PipeSpec~) sedtankelbow1{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~/2 * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 - ElbowRadius(ND{~}SedPipeEntrance~) * z: Plant{~}Origin2~ + sedtankpipe9{~}length~ + S{~}SedInlet~ + 2ElbowRadius(ND{~}SedPipeEntrance~) ND{~}SedPipeEntrance~ = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow EN{~}PipeSpec~ = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!rotate6.bmp|width=280px!|AutoCAD Channel Program] Top View {float} * |
rotate6
...
- Rotate3d turns the object based on a given axis and degree angle.
rotate6 <- rotate3d(p1,p2,"x",-90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow1
...
- origin2 +
...
- innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
p2
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z: sedtankelboworigin2
"x" - specifies axis that object will be rotated about.
-90 - rotation angle
| Wiki Markup |
|---|
sedtankelbow{~}origin2~ "x" - specifies axis that object will be rotated about. \-90 - rotation angle \\ \\ {float:left|border=2px solid black} [!rotate7.bmp|width=280px!|AutoCAD Channel Program] Top View {float} * |
rotate7
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate7 <- rotate3d(p1,p2,"y",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow1
...
- origin2 +
...
- innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
p2
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelboworigin2
"y"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
rotation
...
angle.
...
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!copy1.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
copy1 - CopyDa duplicates the selected object.
copy1 <- copyDa(p1,sedtankpipe5
...
origin,sedtankpipe6
...
origin,sedtankpipe7
...
origin,sedtankpipe8
...
origin)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe5origin0
- y:
...
- sedtankpipe5origin1
- z:
...
- sedtankpipe5origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe5origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankpipe6origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankpipe7origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankpipe8origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
rotate8 - Rotate3d turns the object based on a given axis and degree angle.Wiki Markup {float:left|border=2px solid black} [!rotate8.bmp|width=280px!|AutoCAD Channel Program] Top View {float}
rotate8 <- rotate3d(p1,sedtankpipe1origin,"z",sedtankpipe5
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe5origin0
- y:
...
- sedtankpipe5origin1
- z:
...
- sedtankpipe5origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe1origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
sedtankpipe5angle = -(rad/deg) * atan((((5*LSed)/8 - WChannel/2)/ [3 * (WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate9.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate9 - Rotate3d turns the object based on a given axis and degree angle.
rotate9 <- rotate3d(p1,sedtankpipe2origin,"z".sedtankpipe6
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe6origin0
- y:
...
- sedtankpipe6origin1
- z:
...
- sedtankpipe6origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe2origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
sedtankpipe6angle = -(rad/deg) * (((LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate10.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate10 - Rotate3d turns the object based on a given axis and degree angle.
rotate10 <- rotate3d(p1,sedtankpipe3origin,"z".sedtankpipe7
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe7origin0
- y:
...
- sedtankpipe7origin1
- z:
...
- sedtankpipe7origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe3origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
- z: PlantOrigin2 + (WSed/2)*tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
"z" - specifies axis that object will be rotated about.
sedtankpipe7angle = -(rad/deg) * atan(((3*LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate11.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate11 - Rotate3d turns the object based on a given axis and degree angle.
rotate11 <- rotate3d(p1,sedtankpipe4origin,"z".sedtankpipe8angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe8origin0
- y: sedtankpipe8origin1
- z: sedtankpipe8origin2 - outerradius(NDSedPipeEntrance)
sedtankpipe4origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- PlantOrigin2 + (WSed/2)*tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
"z" - specifies axis that object will be rotated about.
sedtankpipe8angle = -(rad/deg) * atan((((7*LSed)/8 - WChannel/2)/ (3*(WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreeze4 - Layerfreeze locks the layer "elbow" so that it cannot be edited.
layerfreeze4 <- layerfreeze("elbow")
layer5 - Layernew creates a new green layer "elbowa."
layer5 <- layernew("elbowa",green)
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!elbow5.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
elbow5 - Calls the Elbow Program to create an elbow.
elbow5 <- elbow(sedtankelbow5origin,NDSedPipeEntrance,ENPipeSpec)
sedtankelbow5origin =
- x: tankorigin0 - (7*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate14.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate14 - Rotate3d turns the object based on a given axis and degree angle.
rotate14 <- rotate3d(p1,p2,"x",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow5origin0
- y:
...
- sedtankelbow5
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow5
...
- origin2 +
...
- (innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow5origin0
- y:
...
- sedtankelbow5
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow5origin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
specifies
...
rotation
...
angle.
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!copy2.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
copy2 - CopyDa duplicates the selected objuect.
copy2 <- copyDa(p1,sedtankelbow5
...
origin,sedtankelbow6
...
origin,sedtankelbow7
...
origin,sedtankelbow8
...
origin)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe9origin0 - ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- sedtankpipe9origin1
- z:
...
- sedtankpipe9origin2
sedtankelbow5origin =
- x: tankorigin0 - (7*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow6origin =
- x: tankorigin0 - (5*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow7origin =
- x: tankorigin0 - (3*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow8origin =
- x: tankorigin0 - (1*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance
rotate15 - Rotate3d turns the object based on a given axis and degree angle.Wiki Markup {float:left|border=2px solid black} [!rotate15.bmp|width=700px!|AutoCAD Channel Program] Top View {float}
rotate15 <- rotate3d(p1,sedtankpipe9origin,"z".sedtankpipe6
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe9origin1 - outerradius(ND
...
- SedPipeEntrance)
- y:
...
- sedtankpipe9origin2
- z:
...
- sedtankpipe10origin0
sedtankelbow9origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder~)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HWSed - HSedAbove/2 - ElbowRadius(NDSedLaunder)
"z" - specifies axis that object will be rotated about.
sedtankpipe6angle = -(rad/deg) * (((LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate16.bmp|width=700px!|AutoCAD Channel Program]
Top View
{float} |
rotate16 - Rotate3d turns the object based on a given axis and degree angle.
rotate16 <- rotate3d(p1,sedtankpipe10origin,"z".sedtankpipe7angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe10origin2
- z: sedtankpipe11origin0
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HSed - HChannel - TMp
"z" - specifies axis that object will be rotated about.
sedtankpipe7angle = -(rad/deg) * atan(((3*LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate17.bmp|width=700px!|AutoCAD Channel Program]
Top View
{float} |
rotate17 - Rotate3d turns the object based on a given axis and degree angle.
rotate17 <- rotate3d(p1,sedtankpipe11origin,"z".sedtankpipe5angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe11origin2
- z: sedtankpipe12origin0
sedtankpipe11origin =
- x: tankorigin0 - (3*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
"z" - specifies axis that object will be rotated about.
sedtankpipe5{~}angle - specifies rotation angle.
| Wiki Markup |
|---|
{float:left|border=2px solid black}
[!rotate18.bmp|width=700px!|AutoCAD Channel Program]
Top View
{float} |
rotate18 - Rotate3d turns the object based on a given axis and degree angle.
rotate18 <- rotate3d(p1,sedtankpipe12origin,"z".sedtankpipe8angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe12origin0
- y: sedtankpipe12origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe12origin2
sedtankpipe12origin =
- x: tankorigin0 - (LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
"z" - specifies axis that object will be rotated about.
sedtankpipe8{~}angle - specifies rotation angle.
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreeze5 - Layerfreeze locks the layer "elbowa" so that it cannot be edited.
layerfreeze5 <- layerfreeze("elbowa")
layer6 - Layerfreeze locks the layer "elbowb" so that it cannot be edited.
layer6 <- layernew("elbowb",green)
elbow9 - Calls the Elbow Program to create an elbow.
elbow9 <- elbow(sedtankelbow9origin,NDSedLaunder,ENPipeSpec)
sedtankelbow9origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder~)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HWSed - HSedAbove/2 - ElbowRadius(NDSedLaunder)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate19 - Rotate3d turns the object based on a given axis and degree angle.
rotate19 <- rotate3d(p1,p2,"z",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9
...
- origin2 +
...
- (innerD(ND
...
- SedLaunder,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9origin2
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
specifies
...
rotation
...
angle.
rotate20 - Rotate3d turns the object based on a given axis and degree angle.
rotate20 <- rotate3d(p1,p2,"x",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9
...
- origin2 +
...
- (innerD(ND
...
- SedLaunder,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9origin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
specifies
...
rotation
...
angle.
...
elbow10 - Calls the Elbow Program to create an elbow.
elbow10 <- elbow(sedtankelbow10origin,NDSedLaunder,ENPipeSpec)
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HSed - HChannel - TMp
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate21 - Rotate3d turns the object based on a given axis and degree angle.
rotate21 <- rotate3d(p1,p2,"x",-90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow10origin0
- y:
...
- sedtankelbow10
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z: sedtankelbow10origin2 + (innerD(ND
...
- SedLaunder,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow10origin0
- y:
...
- sedtankelbow10
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow10origin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
-90
...
-
...
specifies
...
rotation
...
angle.
...
layerset - Layerset selects the layer "0".
...
layerset
...
<
...
-
...
layer
...
set("0")
...
layerfreeze6 - Layerfreeze locks the layer "elbowb"
...
so
...
that
...
it
...
cannot
...
be
...
edited.
...
layerfreeze6
...
<
...
-
...
layer
...
freeze("elbowb")