回复 35 # Rainyboy 的帖子
根据帖子的内容,现在是想将ASCII码文件转换成所谓的“满矩阵”(应该就是那种一看就知道是矩阵的形式吧),根据帖子提示,应该使用下列命令:
*dim,contline,,5
*vread,contline(1),hbfile,txt,,,5,,,1
ptrcrd=contline(2)
indcrd=contline(3)
valcrd=contline(4)
rhscrd=contline(5)
*vread,contline(1),hbfile,txt,,,4,,,2
nrow=contline(2)
ncol=contline(3)
strline=
contline=
*if,rhscrd,eq,0,then
ls0=4
*else
ls0=5
*endif
*dim,pointr,,ptrcrd
*dim,rowind,,indcrd
*dim,values,,valcrd
*dim,rhsval,,rhscrd
*vread,pointr(1),hbfile,txt,,,ptrcrd,,,ls0
*vread,rowind(1),hbfile,txt,,,indcrd,,,ls0+ptrcrd
*vread,values(1),hbfile,txt,,,valcrd,,,ls0+ptrcrd+indcrd
*vread,rhsval(1),hbfile,txt,,,rhscrd,,,ls0+ptrcrd+indcrd+valcrd
*dim,smatr,,nrow,ncol
*do,icol,1,ncol
stacol=pointr(icol)
endcol=pointr(icol+1)
*do,irow,stacol,endcol-1
truerow=rowind(irow)
smatr(truerow,icol)=values(irow)
*enddo
*enddo
*do,irow,1,nrow
*do,icol,1,ncol
smatr(irow,icol)=smatr(icol,irow)
*enddo
*enddo
我用input导入,我就纳闷了,好像是说第二个空隙什么的格式语法错误,我看不懂命令,不值前辈有没有什么建议,搞不懂啊~~,麻烦各位了,都不好意思了
|