finish
/clear
/COM,ANSYS RELEASE 10.0 UP20050718 09:46:22 04/12/2006
/input,start100,ans,'C:\Program Files\Ansys Inc\v100\ANSYS\apdl\',,,,,,,,,,,,,,,,1
!! setting the background of the window
WPSTYLE,,,,,,,,0
/RGB,INDEX,100,100,100, 0
/RGB,INDEX, 80, 80, 80,13
/RGB,INDEX, 60, 60, 60,14
/RGB,INDEX, 0, 0, 0,15
!recovery the original background color
! /RGB,INDEX, 0, 0, 0, 0
! /RGB,INDEX, 60, 60, 60,13
! /RGB,INDEX, 80, 80, 80,14
! /RGB,INDEX,100,100,100,15
/FILNAME,resonator,0
!!!PARRES,NEW,'ROM_para','txt','C:\Documents and
! Settings\simlab-d2\Desktop\'
!!! parameter file for the rom model in workshop 6 in
!!! the multiphysics simulation for MEMS training course
*SET,x0,16 !!! initial gap
!!! capacitance--gap data points
*SET,x1,15
*SET,cx1,0.0072817
*SET,x2,16
*SET,cx2,0.0066304
*SET,x3,17
*SET,cx3,0.0059749
*SET,x4,18
*SET,cx4,0.0056831
*SET,x5,19
*SET,cx5,0.0055219
*SET,mr,0.271449e-10 !!! mass
*SET,k,1.6993e2 !!! spring stiffness
*SET,c,1.05843e-7 !!! damping coefficients
/PREP7
wpstyl,0.01,0.01,,,,,1,1
/view,all,wp
/dist,all,0.2
nplot
!*
R,1, , ,x0, , ,
!*
RMORE,x1,cx1,x2,cx2,x3,cx3,
RMORE,x4,cx4,x5,cx5,,,
RMORE,,,,,,,
RMORE,,,,,,,
RMORE,,,,,,,
RMORE,,,,,,,
RMORE,,,,,
!*
!*
*GET,_zz2,active,,csys
*GET,_zz3,active,,dsys
CSYS,0
DSYS,0
N,1,-0.16,0.1E-01,0
N,2,-0.3E-01,0.1E-01,0
CSYS,_zz2
DSYS,_zz3
RMOD,1,1,0,1
ET,1,126,0,0,1,0
TYPE,1
REAL,1
!*
E,1,2
!*
R,2,k,
!*
!*
*GET,_zz2,active,,csys
*GET,_zz3,active,,dsys
CSYS,0
DSYS,0
N,3,0.18,0.1E-01,0
CSYS,_zz2
DSYS,_zz3
RMOD,2,4,0.6E-01,2
ET,2,14,0,1,0,0
KEYOPT,2,7,1
TYPE,2
REAL,2
!*
E,2,3
!*
/REPLOT,RESIZE
R,3, ,c,
!*
!*
*GET,_zz2,active,,csys
*GET,_zz3,active,,dsys
CSYS,0
DSYS,0
CSYS,_zz2
DSYS,_zz3
RMOD,3,4,-0.7E-01,3
ET,3,14,0,1,0,0
KEYOPT,3,7,1
TYPE,3
REAL,3
!*
E,2,3
!*
!*
R,4,mr,
!*
!*
*GET,_zz2,active,,csys
*GET,_zz3,active,,dsys
CSYS,0
DSYS,0
CSYS,_zz2
DSYS,_zz3
RMOD,4,7, ,4
ET,4,21,0,0,4,0
KEYOPT,4,7,1
TYPE,4
REAL,4
!*
E,2
!*
wpstyl,,,,,,,,1
/view,all,wp
/dist,all,0.2
eplot
!*
FLST,2,2,1,ORDE,2
FITEM,2,1
FITEM,2,3
!*
/GO
D,P51X, ,0, , , ,UX, , , , ,
FLST,2,1,1,ORDE,1
FITEM,2,2
!*
/GO
D,P51X, ,0, , , ,UY, , , , ,
FLST,2,1,1,ORDE,1
FITEM,2,2
/GO
!*
D,P51X,VOLT,40
FLST,2,1,1,ORDE,1
FITEM,2,1
/GO
!*
D,P51X,VOLT,0
FINISH
/SOL
!*
!*
NLGEOM,0
NROPT,AUTO, ,
LUMPM,0
EQSLV, , ,0,
PRECISION,0
MSAVE,0
PIVCHECK,1
PSTRES,ON
TOFFST,0,
!*
/STATUS,SOLU
SOLVE
FINISH
/POST1
prnsol,u,x
/post1
esel,s,ename,,126
presol,elem
FINISH
/SOL
alls
antype,modal
pstress,on
modopt,unsym,1
mxpand,1
solve
/post1
set,list
FINISH
/SOL
antype,harm
pstress,on
harfrq,60000,120000
nsubst,60
kbc,1
outres,all,all
solve
! nlgeom,off
! solve
! outres,all,all
! solve
/post26
nsol,2,2,u,x,ux2
/axlab,y,disp
plvar,2
/axlab,y,phase
plcplx,1
plvar,2 |