声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1571|回复: 2

[前后处理] 作谐波分析的后处理中,那些大段的程序有什么作用

[复制链接]
发表于 2007-9-2 10:42 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

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
回复
分享到:

使用道具 举报

发表于 2007-9-2 11:36 | 显示全部楼层
主要是提取一些节点的结果,做一些简单的后处理运算,然后保存在数组中
 楼主| 发表于 2007-9-3 11:20 | 显示全部楼层

回复rodge

谢谢
已经算出来了:loveliness:
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-12-1 05:04 , Processed in 0.065482 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表