Actuator model using surface to surface contact
本帖最后由 hypo_qu 于 2009-5-11 19:18 编辑Actuator model using surface to surface contact.doc kankanxian 这个是ansys的程序啊。 附件内容：
/prep7
/title, Actuator model using surface to surface contact
et,1,53 ! plane53
et,2,169 ! Target
et,3,172,7,2,,2 ! Contact, MPC option
keyopt,3,12,5 ! Bonded contact
mp,murx,1,1
tb,bh,2,,40 ! BH curve
tbpt,,355,.7
,,405,.8
,,470,.9
,,555,1.
,,673,1.1
,,836,1.2
,,1065,1.3
,,1220,1.35
,,1420,1.4
,,1720,1.45
,,2130,1.5
,,2670,1.55
,,3480,1.6
,,4500,1.65
,,5950,1.70
,,7650,1.75
,,10100,1.8
,,13000,1.85
,,15900,1.9
,,21100,1.95
,,26300,2.
,,32900,2.05
,,42700,2.1
,,61700,2.15
,,84300,2.2
,,110000,2.25
,,135000,2.3
,,200000,2.41
,,400000,2.69
,,800000,3.22
mp,murx,3,1 ! coil
! create backiron
rectng,0,.06,0,.01
rectng,0,.01,.01,.02
rectng,.05,.06,.01,.02
! create coil
rectng,.02,.04,-.005,0
rectng,.02,.04,.01,.015
aglue,all
! create lower air domain
rectng,-.02,.08,-.01,.021
aovlap,all
numcmp,area
cm,lower,area
! create pole
rectng,0,.06,.022,.032
! create upper air
rectng,-.02,.08,.021,.04
aovlap,7,8
asel,s,area,,7,9
cm,upper,area
asel,s,area,,4,6
aatt,2,1,1 ! backiron
asel,s,area,,7
aatt,2,1,1 ! pole
asel,s,area,,2,3
aatt,3,1,1 ! coil
cmsel,s,lower
esize,.002
amesh,all
cmsel,s,upper
esize,.003
amesh,all
esla,s
nsle,s
nsel,r,loc,y,.021
type,2
esurf ! mesh target elements
cmsel,s,lower
esla,s
nsle,s
nsel,r,loc,y,.021
type,3
esurf ! mesh contact elements
allsel,all
nsel,s,loc,x,-.02
nsel,a,loc,x,.08
nsel,a,loc,y,-.01
nsel,a,loc,y,.04
d,all,az,0 ! flux parallel
asel,s,area,,3
esla,s
bfe,all,js,,,,5e6 ! coil current density
asel,s,area,,2
esla,s
bfe,all,js,,,,-5e6
allsel,all
finish
/solu
magsolv
finish
页:
[1]