24小时热门版块排行榜

返回列表

阶琶rj

铁虫 (初入文坛)

应助: 0 (幼儿园)
金币: 83.9
帖子: 44
在线: 2.4小时
虫号: 5827186
注册: 2017-03-04

[求助] 请教大神。用命令流建悬臂梁后，改变材料参数时，为什么节点位移始终不变已有2人参与

以下是悬臂梁的命令流，最后节点位移保存在f盘一个文件里，可以改变文件。我的问题是：首先我把弹性模量和密度值（也就是文中p和q先设置为1），接着当我改变p和q时，想看节点位移的变化，可是输出的节点位移和第一次一样，无论怎么改变材料参数节点位移都没有变化，为什么？这不应该呀，材料参数改变，节点位移也会变化呀？求教大神帮帮忙，谢谢了

FINI
/CLEAR
/filnam,beam
/title,opt
/PREP7
NM=8
B=3e-2
H=3e-3
VEX=2.1E11
VDENS=7800

p=1
q=1
AREA=B*H!
theta E1=q$theta E2=q $theta E3=q$theta E4=q$theta E5=q
theta E6=q$theta E7=q $theta E8=q
theta P12=p$theta P34=p $theta P56=p$theta P78=p
MP,EX,1,theta E1*VEX
MP,EX,2,theta E2*VEX
MP,EX,3,theta E3*VEX
MP,EX,4,theta E4*VEX
MP,EX,5,theta E5*VEX
MP,EX,6,theta E6*VEX
MP,EX,7,theta E7*VEX
MP,EX,8,theta E8*VEX
MP,dens,1,theta P12*VDENS
MP,dens,2,theta P12*VDENS
MP,dens,3,theta P34*VDENS
MP,dens,4,theta P34*VDENS
MP,dens,5,theta P56*VDENS
MP,dens,6,theta P56*VDENS
MP,dens,7,theta P78*VDENS
MP,dens,8,theta P78*VDENS

ET,1,BEAM3             !2-D
*do,i,1,NM
R,i,AREA,(B*(H**3))/12,H !
MP,PRXY,i,0.3    !!
*ENDDO
N,1                   !
N,8,0.602
fill
N,9,0.7
*do,i,1,nm
E,i,i+1
*enddo                !
*DO,I,1,NM
EMODIF,I,MAT,I,
EMODIF,I,REAL,I,
*ENDDO
FINISH

/SOLU          !
D,1,all
ANTYPE,MODAL
MODOPT,SUBSP,10,,,,on
MXPAND,10
SOLVE
SAVE,'resu','db','F:\xbl\'
FINISH

/post1
*dim,Disp1,ARRAY,NM-1
*dim,Disp2,ARRAY,NM-1
*dim,Disp3,ARRAY,NM-1
*dim,Disp4,ARRAY,NM-1
*dim,Disp5,ARRAY,NM-1
*dim,Disp6,ARRAY,NM-1
*dim,Disp7,ARRAY,NM-1
*dim,Disp8,ARRAY,NM-1
set,1,1
*do,i,2,NM-1
disp1(i)=uy(i+1)/uy(NM)
*enddo
set,1,2
*do,i,2,NM-1
disp2(i)=uy(i+1)/uy(NM)
*enddo
set,1,3
*do,i,2,NM-1
disp3(i)=uy(i+1)/uy(NM)
*enddo
set,1,4
*do,i,2,NM-1
disp4(i)=uy(i+1)/uy(NM)
*enddo
set,1,5
*do,i,2,NM-1
disp5(i)=uy(i+1)/uy(NM)
*enddo
set,1,6
*do,i,2,NM-1
disp6(i)=uy(i+1)/uy(NM)
*enddo
set,1,7
*do,i,2,NM-1
disp7(i)=uy(i+1)/uy(NM)
*enddo
set,1,8
*do,i,2,NM-1
disp8(i)=uy(i+1)/uy(NM)
*enddo
*CREATE,PP
*cfopen,f:\xbl\modelopt,txt,,
*vwrite,Disp1(1),Disp2(1),Disp3(1),Disp4(1),Disp5(1),Disp6(1),disp7(1),disp8(1)
(11f16.8)
*cfclose
*end
/input,pp

回复此楼