声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 954|回复: 0

[前后处理] 求助:将数组写进文件中,出错

[复制链接]
发表于 2009-3-29 22:46 | 显示全部楼层 |阅读模式

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

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

x
我想得到所选节点的支反力,存入数组中,然后再写进一个文件中,我用下面的方式所得结果都是零,没提取出来,求xdjm帮我看看出错在哪儿
/post1
*dim,Fb,,7,3
*DO,I,1,7,1
      NSEL,S,LOC,Y,0
      NSEL,R,LOC,Z,0
      NSEL,R,LOC,X,(I-1)*8
      N=node((I-1)*8,0,0)
     *GET,Fb(i,1),NODE,N,F,FY
  *ENDDO

*DO,I,1,CN1,1
      NSEL,S,LOC,Y,0
      NSEL,R,LOC,Z,-8
      NSEL,R,LOC,X,(I-1)*8
      N=node((I-1)*8,0,-8)
     *GET,Fb(i,2),NODE,N,F,FY
*ENDDO

*DO,I,1,CN1,1
      NSEL,S,LOC,Y,0
      NSEL,R,LOC,Z,-16
      NSEL,R,LOC,X,(I-1)*8
      N=node((I-1)*8,0,-16)
     *GET,Fb(i,3),NODE,N,F,FY
*ENDDO

*CFOPEN,hyd_F,TXT,,APPEND
*do,i,1,CN1,1
*vwrite,Fb(i,1),Fb(i,2),Fb(i,3)
(f15.3,' ',f15.3,' ',f15.3)
*enddo
*CFCLOS
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-11-19 16:49 , Processed in 0.056899 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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