ansys的部分程序.docVIP

/prep7 *do,i,1,20 *if,mod 1,2 ,eq,0,then *if,mod i,2 ,eq,0,then k,i,2*i,4 *else k,i,2*i,-4 *endif *enddo *do,i,1,19$l,i,i+1$*enddo l,2,19$l,1,20 linl,all linp,all /prep7 r 1 cyl4,r,,r$cyl4,,r,r aina,all wpoffs,3*r cyl4,r,,r$cyl4,,r,r cyl4,-r,,r$cyl4,,-r,r asel,s,loc,x,2*r,4*r ainp,all asel,all aplot /prep7 r 1 cyl4,r,,r$cyl4,,r,r aina,all wpoffs,3 cyl4,r,,r$cyl4,,r,r cyl4,-r,,r$cyl4,,-r,r asel,s,loc,x,2,4 ainp,all asel,all finish /clear /prep7 r 2$h 8 sph4,,,h/2 wpoffs,,,-h/2 /title,kai kong ban /replot /prep7 rectng,-5,5,-2.5,2.5 cyl4,0,0,1 asba,1,2 voffst,1,0.2 voffst,3,0.2 /wsbm/webregister