Fortran Coder

查看: 157|回复: 2

[求助] 将数组变矩阵

[复制链接]

8

帖子

3

主题

0

精华

入门

F 币
40 元
贡献
19 点
发表于 2022-9-11 22:27:49 | 显示全部楼层 |阅读模式
        strain(nblock*6)这个数组的大小是这个,我想讲其变为矩阵STR(nblock,6),不知道这样的操作是否正确
[Fortran] 纯文本查看 复制代码
call vgetvrm('PE',strain,jData,cData,jStatus)?
          e11=strain(k)
          e22=strain(nblock+k)
          e33=strain(nblock*2+k)
          e12=strain(nblock*3+k)
          e23=strain(nblock*4+k)
          e13=strain(nblock*5+k)
          stateNew(k,2)=e11
          stateNew(k,3)=e22
          stateNew(k,4)=e33
          stateNew(k,5)=e12
          stateNew(k,6)=e23
          stateNew(k,7)=e13
          do r=1,6
            STR(k,r)=strain(k+(r-1)*nblock)
          end do


683

帖子

2

主题

0

精华

大宗师

F 币
3351 元
贡献
2071 点
发表于 2022-9-12 17:42:58 | 显示全部楼层
   do r=1,6
            STR(k,r)=strain(k+(r-1)*nblock)
   end do
没问题,也可以更简单:
str = reshape(strain,[nblck,6])

8

帖子

3

主题

0

精华

入门

F 币
40 元
贡献
19 点
 楼主| 发表于 2022-9-13 10:09:50 | 显示全部楼层
li913 发表于 2022-9-12 17:42
do r=1,6
            STR(k,r)=strain(k+(r-1)*nblock)
   end do

谢谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2022-9-28 18:20

Powered by Tencent X3.4

© 2013-2022 Tencent

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