参数建模问题

VibInfo

<DIV >*cheate,jianmo,mac <BR>finish <BR>/clear <BR>/filname,demo_frame <BR>/view,1,-0.50,-0.83,0.25 <BR>/ang,1,66 <BR>multipro,'start',2 <BR>*cset,1,3,height,'height of frame:',10 <BR>*cset,4,6,width,'width of frame:',8 <BR>multipro,'end' <BR>*if,_button,eq,1,then <BR>/EOF !!为什么这个命令小写就不执行了 <BR>*endif <BR>*ask,n_mat,the material type of frame(1/2),1 <BR>*if,n_mat,ne,1,and,n_mat,ne,2,then <BR>/eof <BR>*endif <BR>*ask,n_section,the section type of frame(1/2),1 <BR>*if,n_section,ne,1,and,n_section,ne,2,then <BR>/eof <BR>*endif <BR>*dim,lxyz,,3,3 <BR>*if,n_section,eq,1,then <BR>lxyz(1,1)=1,0,-1 <BR>lxyz(1,2)=0,0,0 <BR>lxyz(1,3)=0,1,0 <BR>*else <BR>lxyz(1,1)=0,0,0 <BR>lxyz(1,2)=1,1,-1 <BR>lxyz(1,3)=0,0,0 <BR>*endif <BR>/prep7 <BR>et,1,beam189 <BR>sectype,1,beam,i,h-sect,1 <BR>secoffset,cent <BR>secdata,1,1,1,0.1,0.1,0.1,0,0,0,0 <BR>sectype,2,beam,chan,u-sect,1 <BR>secoffset,cent <BR>secdata,1,1,1,0.1,0.1,0.1,0,0,0,0 <BR>mp,ex,1,1.96e11 <BR>mp,nuxy,1,0.32 <BR>mp,dens,1,7500 <BR>mp,ex,2,2.1e11 <BR>mp,nuxy,2,0.29 <BR>mp,dens,2,7800 <BR>k,1,-width/2,0,0 <BR>k,2,-width/2,0,height <BR>k,3,width/2,0,height <BR>k,4,width/2,0,0 <BR>lstr,1,2 <BR>lstr,2,3 <BR>lstr,4,3 <BR>/pnum,kp,1 <BR>/pnum,line,1 <BR>/number,0 <BR>gplot <BR>k,11,kx(1)+lxyz(1,1),ky(1)+lxyz(1,2),kz(1)+lxyz(1,3) <BR>k,12,kx(2)+lxyz(2,1),ky(2)+lxyz(2,2),kz(2)+lxyz(2,3) <BR>k,13,kx(3)+lxyz(3,1),ky(3)+lxyz(3,2),kz(3)+lxyz(3,3) <BR>lsel,s,,,1 <BR>latt,n_mat,,1,,11,,n_section <BR>lsel,s,,,2 <BR>latt,n_mat,,1,,12,,n_section <BR>lsel,s,,,3 <BR>latt,n_mat,,1,,13,,n_section <BR>lsel,all <BR>*if,width,gt,height,then <BR>lesize,all,height/10,,,,,,,1 <BR>*else <BR>lesize,all,width/10,,,,,,,1 <BR>*endif <BR>/eshape,1 <BR>lmesh,all <BR>save,frame,db <BR>finish <BR>*end</DIV><!-- / message -->