folle76
Guest
Hello, everyone! I have this script working to table in a .txt item number, stress and coordinates.
How do I insert a new column with body id since it is a simulation of a set?
Thank you very much.
Allsel,all
set,1
!creo an element table with the volume of the elements
avprin,0,
etable,volume,volu,
!creo an element table with equivalent stress for each element
avprin,0,
etable,streqv,s,eqv
!creo an element table with equivalent stress for each element
avprin,0,
etable,x,cent,x
!creo an element table with equivalent stress for each element
avprin,0,
etable,y,cent,y
!creo an element table with equivalent stress for each element
avprin,0,
etable,z,cent,z
Reverse in two arrays the value of the newly created two element tables
*vget,volume,elem,1,etab,volume, ,2
*vget,stress,elem,1,etab,streqv, ,2
*vget,x,elem,1,etab,x,2
*vget,y,elem,1,etab,y,2
*vget,z,elem,1,etab,z,2
!write on pippo.txt i 3 arrays, the first contains the element number
!the second volume, the third stress
*cfopen,'wll_021010,'txt,'
*vwwrite
(' element , volume2 , stress ', ' x ', ' y ', ' z ')
*vwrite,sequ,volume(1,1),stress(1,1),x(1,1),y(1,1),z(1,1)
(f10.0,',f30.18,';',f30.18,';',f30.18,';',f30.18,';',f30.18.
How do I insert a new column with body id since it is a simulation of a set?
Thank you very much.
Allsel,all
set,1
!creo an element table with the volume of the elements
avprin,0,
etable,volume,volu,
!creo an element table with equivalent stress for each element
avprin,0,
etable,streqv,s,eqv
!creo an element table with equivalent stress for each element
avprin,0,
etable,x,cent,x
!creo an element table with equivalent stress for each element
avprin,0,
etable,y,cent,y
!creo an element table with equivalent stress for each element
avprin,0,
etable,z,cent,z
Reverse in two arrays the value of the newly created two element tables
*vget,volume,elem,1,etab,volume, ,2
*vget,stress,elem,1,etab,streqv, ,2
*vget,x,elem,1,etab,x,2
*vget,y,elem,1,etab,y,2
*vget,z,elem,1,etab,z,2
!write on pippo.txt i 3 arrays, the first contains the element number
!the second volume, the third stress
*cfopen,'wll_021010,'txt,'
*vwwrite
(' element , volume2 , stress ', ' x ', ' y ', ' z ')
*vwrite,sequ,volume(1,1),stress(1,1),x(1,1),y(1,1),z(1,1)
(f10.0,',f30.18,';',f30.18,';',f30.18,';',f30.18,';',f30.18.