马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
这是命令流文件,到计算完成都正常,但是要导出数据时出错了
/PREP7
FLST,2,6,4,ORDE,2
FITEM,2,29
FITEM,2,-34
LDELE,P51X
flst,2,2,4
fitem,2,125
fitem,2,121
askin,p51x
flst,2,2,4
fitem,2,123
fitem,2,119
askin,p51x
flst,2,4,5,orde,2
fitem,2,1
fitem,2,-4
va,p51x
/NOPR
/PMETH,OFF,0
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
KEYW,PR_CFD,0
/GO
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,71e9
MPDATA,PRXY,1,,0.33
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,2810
ET,1,SOLID187
ESIZE,0.003,0,
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
VCLEAR,_Y1
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FLST,2,1,5,ORDE,1
FITEM,2,4
DA,P51X,ALL,
OMEGA,0,0,52.33,0
ACEL,0,0,9.8,
*DIM,press2,ARRAY,40211,1,1, , ,
*CREATE,ansuitmp
*VREAD, , , ,,IJK,40211,1,1, ,
(1f15.4)
*END
*CREATE,ansuitmp
*VREAD,press2(1),'press2','txt',' ',IJK,40211,1,1, ,
(1f15.4)
*END
/INPUT,ansuitmp
SFFUN,PRES,press2(1),
FLST,2,40211,1,ORDE,2
FITEM,2,1
FITEM,2,-40211
SF,P51X,PRES,
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
*GET,NodeNum,NODE,0,COUNT
*GET,nd,NODE,0,NUM,MIN
*DIM,nodes,,NodeNum
*DIM,xyz,,NodeNum,3
*DIM,Nodestress,,NodeNum
*do,i,1,NodeNum,1
nodes(i)=nd
xyz(i,1)=NX(nd)
xyz(i,2)=NY(nd)
xyz(i,3)=NZ(nd)
*GET,Nodestress(i),NODE,nodes(i),S,EQV
nd=NDNEXT(nd)
*enddo
*CFOPEN,press,txt
*VWRITE,SEQU,NodeNum,xyz(1,1),xyz(1,2),xyz(1,3),Nodestress
(1)(f3.0,' ',f8.4,' ',f8.4,' ',f8.4,' 'f12.5)
*CFCLOS
finish
|