[pinkshot]

Hi all,

I want to investigate the transient behavior of a board when we apply a non-zero displacement and zero-velocity at one end, the other end is fixed. Could some body give me a hand with the code I have made so far? I am kinda suspicious with the time and time-step I made.



FINI
/CLEAR
/TITLE,FINAL PROJECT
/PREP7


!--------Element type------

et,1,solid185


!------- Material properties---------

!---PCB 1

MP,EX,1,22E9
MP,NUXY,1,0.28
mp,dens,1, 2000
!mp,betd,1,0.002
!betad,0.002


!------Define Parameter------

pcbt = 1e-3 ! pcb thickness
pcbhw = 5.25e-3 ! pcb half width
pcbhl = 25e-3 ! pcb half length


i=0
k,i+1,
k,i+2,pcbhl,
k,i+3,pcbhl,pcbhw
k,i+4,,pcbhw
l,i+1,i+2
l,i+2,i+3
l,i+3,i+4
l,i+1,i+4
lsel,all
al,all
VEXT,all,,,0,0,pcbt


*get,length1,line,1,leng
lsel,s,length,,length1
LESIZE,ALL,,,25,1,0,,,0
allsel,all

*get,length2,line,6,leng
lsel,s,length,,length2
LESIZE,ALL,,,6,1,0,,,0
allsel,all

*get,length3,line,10,leng
lsel,s,length,,length3
LESIZE,ALL,,,1,1,0,,,0
allsel,all


VATT,1,,1
allsel,all

vmesh,all

! Select Fixed Boundary at edge
nsel,s,loc,x,0
D,all,all


!---------------------------
!-----Solve the problem----
!---------------------------


/SOLUTION
/TITLE,Transient Analysis of Diving Board
ANTYPE,TRANS
TRNOPT,FULL
! Apply load as ramped function (KBC,0) Note: stepped is KBC,1
KBC,0
!ALPHAD,0.3
!BETAD,0.002
OUTRES,,ALL
OUTPR,ALL

! Select last part of board for load application
TIMINT,OFF
NSEL,s,LOC,x,pcbhl
D,ALL,UZ,-1e-3
alls
TIME,0.001
NSUBST,2
KBC,1
LSWRITE

TIMINT,ON
TIME,0.1
nsubst,5,20,3
NSEL,s,LOC,X,pcbhl
DDELE,ALL,UZ,
alls
KBC,0
LSWRITE

TIME,5
LSWRITE

LSSOLVE,1,3,1

/POST26
FILE,'Damping Vipration','rst','.'
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
!*
NSOL,2,30,U,Z, UZ_2
STORE,MERGE
XVAR,1
PLVAR,2,