future1699 发表于 2012-9-6 15:26:16

四维table定义的问题[含代码]

以下是定义四维table的代码，但提示subscript 3 is out of range for parameters flux2,哪位大神知道怎么修改吗？

/PREP7
/units,si!采用SI国际单位

*dim,flux2,TAB4 ,5,5,5,5,x,y,z,time    !z,x,time分别指三个方向的三个标题
*do,i,1,5,1    !time
    flux2(0,0,0,i)=0.001*i
*do,j,1,5,1   !y
   flux2(0,j,0,i)=0.001*j
   
*do,k,1,5,1   !x
   flux2(k,j,0,i)=0.001*k
*enddo   !x

*do,m,1,5,1   !z
    flux2(0,j,m,i)=0.001*m
*enddo   !z

*enddo   !y

*enddo   !time

future1699 发表于 2012-9-6 22:18:47

通过查找资料，算是找到了四维table的一种定义方法，贴在这里供大家参考：
谁能解释我上一个帖子里的方法为什么不行呢？

/FILNAM,Silicon Steel Sheet Welding
/TITLE,PARALLEL LONG RASTER
/PREP7
/units,si!采用SI国际单位

*dim,flux2,TAB4,5,5,5,5,x,y,z,time    !z,x,time分别指三个方向的三个标题   

*do,k,1,5,1   !x
*taxis,flux2(k,1,1,1),1,k
*enddo

                           
*do,j,1,5,1   !y         
*taxis,flux2(1,j,1,1),2,j   
*enddo

*do,m,1,5,1   !z      
*taxis,flux2(1,1,m,1),3,m
*enddo                     

    *do,i,1,5,1   !time            
    *taxis,flux2(1,1,1,i),4,i      
    *enddo   
                                             
*do,i,1,5,1    !time
*do,j,1,5,1   !y
   
*do,k,1,5,1   !x
*do,m,1,5,1   !z
    flux2(k,j,m,i)=0.001*k   
*enddo   !x
   
*enddo   !z

*enddo   !y

fly_tangwei 发表于 2012-9-14 19:17:04

我认为你上面的程序中这个命令 flux2(0,0,0,i)，第三项中0不存在，只有第1、2项中有0行、0列，第3项只能从1开始

fly_tangwei 发表于 2012-9-14 19:20:58

楼主请问你的这个资料在哪查的？还有想请问你一个问题就是怎么查看定义的四维表格的值，一维、二维、三维都可以查看，不知道四维的怎么查看？
页: [1]
查看完整版本: 四维table定义的问题[含代码]