izyk
Mechanical
- Dec 4, 2006
- 21
Hi
I simulate a membrane and i apply a voltage between membrane and transducer
Which nodes should I choose to apply a voltage when i use a shell element?
All nodes or should i exclude midside nodes (NSLE,U,MID)?
script:
FINISH
/CLEAR
/CWD,'C:\temp\ansys'
!* membrane
Lm=50
Wm=50
Tm=1 !* Epaisseur de la membrane 3e-6 / 1e-6
!* membrane_division
b=30
!* electrode_distance
h=-0.1
dif=20
a=50
!* voltage
v=7
/PREP7
ET,1,SHELL93
R,1,Tm
ET,2,TRANS126
MP,EX,1,130e+9*1e-6
MP,DENS,1,2330*1e-18
MP,PRXY,1,0.278
WPOFFS,0,0,dif
RECTNG,0,Lm,0,Wm
WPOFFS,0,0,-dif
LESIZE,ALL,,,b
MSHAPE,0,2D
MSHKEY,1
AMESH,ALL
!* transducer
NSEL,S,LOC,Z,dif
NSLE,U,MID !* Ne pas appliquer de force sur les noeuds médians
CM,tr,NODE
ALLSEL,ALL
EMTGEN,'tr','EMTELM','EMTPNO','UZ',h,0,1E-02,0.8854E-05
NSEL,S,LOC,Z,dif+h
D,ALL,,0,,,,UZ
D,ALL,VOLT,v
CMSEL,S,TR
D,ALL,VOLT,0
!* applying loads and BC
NSEL,S,LOC,X,0
NSEL,A,LOC,X,Lm
NSEL,A,LOC,Y,0
NSEL,A,LOC,Y,Wm
D,ALL,UX,0
D,ALL,UY,0
D,ALL,UZ,0
D,ALL,ROTX,0
D,ALL,ROTY,0
D,ALL,ROTZ,0
ALLSEL,ALL
FINISH
/SOLU
ANTYPE,STATIC
!* Pour prendre en compte le stress stiffening et les grandes déformations
! NEQIT,100
! CNVTOL, U, 1, 1e-3
! NLGEOM,ON
! SSTIF,ON
SOLVE
FINISH
/POST1
PLNSOL,U,Z
!* Récupération de la flèche qui doit être <= au GAP h
NSEL,S,LOC,X,Lm/2
NSEL,R,LOC,Y,Wm/2
NSEL,R,LOC,Z,dif
*GET,CENTRE_INFERIEUR,NODE,0,NUM,MIN
FLECHE=UZ(CENTRE_INFERIEUR)
NSEL,ALL
I simulate a membrane and i apply a voltage between membrane and transducer
Which nodes should I choose to apply a voltage when i use a shell element?
All nodes or should i exclude midside nodes (NSLE,U,MID)?
script:
FINISH
/CLEAR
/CWD,'C:\temp\ansys'
!* membrane
Lm=50
Wm=50
Tm=1 !* Epaisseur de la membrane 3e-6 / 1e-6
!* membrane_division
b=30
!* electrode_distance
h=-0.1
dif=20
a=50
!* voltage
v=7
/PREP7
ET,1,SHELL93
R,1,Tm
ET,2,TRANS126
MP,EX,1,130e+9*1e-6
MP,DENS,1,2330*1e-18
MP,PRXY,1,0.278
WPOFFS,0,0,dif
RECTNG,0,Lm,0,Wm
WPOFFS,0,0,-dif
LESIZE,ALL,,,b
MSHAPE,0,2D
MSHKEY,1
AMESH,ALL
!* transducer
NSEL,S,LOC,Z,dif
NSLE,U,MID !* Ne pas appliquer de force sur les noeuds médians
CM,tr,NODE
ALLSEL,ALL
EMTGEN,'tr','EMTELM','EMTPNO','UZ',h,0,1E-02,0.8854E-05
NSEL,S,LOC,Z,dif+h
D,ALL,,0,,,,UZ
D,ALL,VOLT,v
CMSEL,S,TR
D,ALL,VOLT,0
!* applying loads and BC
NSEL,S,LOC,X,0
NSEL,A,LOC,X,Lm
NSEL,A,LOC,Y,0
NSEL,A,LOC,Y,Wm
D,ALL,UX,0
D,ALL,UY,0
D,ALL,UZ,0
D,ALL,ROTX,0
D,ALL,ROTY,0
D,ALL,ROTZ,0
ALLSEL,ALL
FINISH
/SOLU
ANTYPE,STATIC
!* Pour prendre en compte le stress stiffening et les grandes déformations
! NEQIT,100
! CNVTOL, U, 1, 1e-3
! NLGEOM,ON
! SSTIF,ON
SOLVE
FINISH
/POST1
PLNSOL,U,Z
!* Récupération de la flèche qui doit être <= au GAP h
NSEL,S,LOC,X,Lm/2
NSEL,R,LOC,Y,Wm/2
NSEL,R,LOC,Z,dif
*GET,CENTRE_INFERIEUR,NODE,0,NUM,MIN
FLECHE=UZ(CENTRE_INFERIEUR)
NSEL,ALL