njweiwei2 发表于 2013-1-6 16:33
先占楼,有空时间继续
以下是我以前做的一个小工具中的一部分后处理的例子
/post1
*dim,fre,array,4,1 ! 定义数组,用于储存结果
*do,n,1,4,1 ! 使用循环,储存结果
set,1,n ! 读第一载荷步,第n子步的结果
*get,fre(n),active,0,set,freq ! 使用get命令,将结果保存到 fre(n)里
*enddo
A=fre(1)
b=fre(2)
c=fre(3)
d=fre(4)
*cfopen,%pro_name%-wg-mode-output,txt,, ! 在工作目录创建文件名字为 xxx-wg-mode-ouput
*vwrite,'This is ','natural ','frequens',' in air',' for ',pro_name,' wicket ','gate.'
(A8,A8,A8,A7,A5,A8,A8,A8)
*vwrite,'--------','--------','--------','----','--------','--------','--------'
(A8,A8,A8,A4,A8,A8,A8)
*vwrite,' sets ',' ','Frquency',',Hz'
(A8,A2,A8,A3)
*vwrite,' 1st ',' ',a
(A8,A2,F8.3)
*vwrite,' 2nd ',' ',b
(A8,A2,F8.3)
*vwrite,' 3rd ',' ',c
(A8,A2,F8.3)
*vwrite,' 4th ',' ',d
(A8,A2,F8.3)
|