/FILNAME, Test_Viereck
/title, Test_Viereck

/prep7

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

et, 1, shell63

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

r, 1, 5

k, 1, 0, 0, 0
k, 2, 100, 0, 0
k, 3, 100, 100, 0
k, 4, 0, 100, 0

A, 1, 2, 3 ,4

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

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

APLOT
ESIZE,10
AMESH,1

FINISH




/SOLU

FLST,2,1,4,ORDE,1
FITEM,2,4
DL,P51X,,UX

FLST,2,1,4,ORDE,1
FITEM,2,4
DL,P51X,,UZ

FLST,2,1,4,ORDE,1
FITEM,2,1
DL,P51X,,UY

FLST,2,1,4,ORDE,1
FITEM,2,2
DL,P51X,,UZ


FLST,2,1,5,ORDE,1
FITEM,2,1
SFA,P51X,1,PRES, %TEN_TABLE%
*TREAD,TEN_TABLE,'Test_10','txt','Daten\'

SOLVE
FINISH




/POST1

PLNSOL, S,EQV, 0,1.0
FINISH




/prep7

UPGEOM,1,,,Test_Viereck,rst
EPLOT

ET,2,surf154
TYPE,2
ESURF

  *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


  *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)
      n4=NELEM(in,4)
      A,ik+n1,ik+n2,ik+n3,ik+n4
    *ENDDO

ACLEAR,1
ADELE,1,,,1
APLOT

IGESOUT,'Test_Viereck','igs'

FINISH