|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
*get,zahlob,NODE,0,count
*dim,posiobx,ARRAY,zahlob,1!x Position gerader Balken
*dim,versyap,ARRAY,zahlob,1!y verschiebung Amplitude
*dim,versrey,ARRAY,zahlob,1!y verschiebung Realteil
*dim,versimy,ARRAY,zahlob,1!y verschiebung Imaginaerteil
*dim,starrex,ARRAY,30,1!max punkte y verschiebung Realteil
*dim,starimx,ARRAY,30,1!max punkte y verschiebung Imaginaerteil
*vlen,1
detobx=l/(zahlob-1)
*do,punktn,1,zahlob,1
nodex=0+(punktn-1)*detobx
nodenum=node(nodex,r+h,b/2)
*vget,posiobx(punktn),NODE,nodenum,LOC,x
nsol,2,nodenum,u,y
vget,versrey(punktn),2,freqmit,0
vget,versimy(punktn),2,freqmit,1
aa=versrey(punktn)*versrey(punktn)
bb=versimy(punktn)*versimy(punktn)
versyap(punktn)=sqrt(aa+bb)
*enddo |
|