/FILNAME, Test_Tetraeder
/title, Test_Tetraeder

/prep7

/COLOR,PBAK,ON,3,13
/REP

et, 1, solid92

mp, ex, 1, 210000
mp, prxy, 1, 0.3


k, 1, 0, 0, 0
k, 2, 100, 0, 0
k, 3, 100, 100, 0
k, 4, 0, 100, 0
k, 5, 0, 0, 10
k, 6, 100, 0, 10
k, 7, 100, 100, 10
k, 8, 0, 100, 10

V, 1, 2, 3 ,4, 5, 6, 7, 8

*DIM,ten_table,table,11,11,1,x,y,z

/VIEW,1,1,2,3
/ANG,1
/REP,FAST

VPLOT
ESIZE,10




MSHKEY,0
MSHAPE,1,3d
CM,_Y,VOLU
VSEL, , , ,1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y

VMESH,_Y1

CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2




FLST,2,1,5,ORDE,1
FITEM,2,4
DA,P51X,ALL,

FLST,2,1,5,ORDE,1
FITEM,2,6

SFA,P51X,1,PRES, %TEN_TABLE%
*TREAD,TEN_TABLE,'Test_10','txt','Daten\', ,

FINISH




/SOLU

SOLVE

FINISH


/POST1

PLNSOL, S,EQV, 0,1.0

/prep7

UPGEOM,1,,,Test_Tetraeder,rst

EPLOT

ET,2,surf154
NSEL,S,EXT
TYPE,2
ESURF

VCLE,ALL
EPLOT
TYPE,1
EPLOT

  *GET,nn,NODE,,COUNT
  *GET,ik,kp,,NUM,MAX
  in=0
    *DO,i,1,nn
      *GET,in,NODE,in,NXTH
      Knode,ik+in,in
    *ENDDO
  EPLOT

  *GET,nn,ELEM,,COUNT
  in=0
    *DO,i,1,nn
      *GET,in,ELEM,in,NXTH
      n1=NELEM(in,1)
      n2=NELEM(in,2)
      n3=NELEM(in,3)
      A,ik+n1,ik+n2,ik+n3
    *ENDDO

VCLEAR,1

VDELE,1,,,1

APLOT

IGESOUT,'Test_Tetraeder','igs'

FINISH