Page History

...

to the end of the code. For simplicity, I have posted the entire code here:

/prep7

!Call

the

Preprocessor

et,matid,181

!Specify

the

element

type,

shell

181

keyopt,matid,3,2

!Use

full

integration

mpdel,all,matid

!Delete

all

previously

assigned

material

properties

tbdel,all,matid

!Delete

all

previouly

assigned

tabular

data

MP,EX,1,33E9

!Define

Young's

Modulus:

X

Direction

MP,EY,1,33E9

!Define

Young's

Moduls:

Y

Direction

MP,EZ,1,33E9

!Define

Young's

Modulus:

Z

Direction

MP,PRXY,1,0.3

!Define

Major

Poisson's

ratio

XY

MP,PRYZ,1,0.3

!Define

Major

Poisson's

ratio

YZ

MP,PRXZ,1,0.3

!Define

Majoy

Poisson's

ration

XZ

*DIM,vth,TABLE,6,5,1,

!Dimension

The

Table

for

the

Thickness

Function

!

Begin

of

equation:

.030-{X}*.00048485

!30mm

at

root

and

10mm

at

tip

vth(0,0,1)=

0.0,

-999

vth(2,0,1)=

0.0

vth(3,0,1)=

0.0

vth(4,0,1)=

0.0

vth(5,0,1)=

0.0

vth(6,0,1)=

0.0

vth(0,1,1)=

1.0,

-1,

0,

.00048485,

0,

0,

2

vth(0,2,1)=

0.0,

-2,

0,

1,

2,

3,

-1

vth(0,3,1)=

0,

-1,

0,

.030,

0,

0,

-2

vth(0,4,1)=

0.0,

-3,

0,

1,

-1,

2,

-2

vth(0,5,1)=

0.0,

99,

0,

1,

-3,

0,

0

!

End

of

equation:

.030-

{X}*.00048485

!-->

sect,1,shell

!Specify

the

section

type

secfunction,%vth%

!Apply

the

Varying

Thickness

Function

Spar

We need to repeat the above step, creating a command for the spar, but this time the thickness will be constant. We will also have to make minute changes to the code to refer to the correct section. For simplicity, the code is posted below.

...