finish
/clear
/Filename,Moper,db
/prep7
!************************************************************************************************!
!Erzeugung einer Fläche, auf dessen der Druck aufgebracht wird!
ANTYPE,STATIC               ! STATIC ANALYSIS
ET,1,SHELL63,2
R,1,.5                      ! THICKNESS = 0.5
MP,EX,1,30E6
MP,NUXY,1,0             
RECTNG,0,10,0,10,   
LESIZE,all,,,5,,,,,1  
amesh,all
nsel,s,ext
D,all,,0,,,,ALL
alls
SFE,all,1,PRES,,50

/solu

antype,static
eqslv,pcg,1e-6
allsel,all

solve
finish
save,db

!POSTPROC NEU
alls
*get,node_n,node,,count
*dim,koord_alt,array,node_n,3
*dim,druck_alt,array,node_n,1
*do,i,1,node_n,1
*get,x_loc,node,i,loc,x
*get,y_loc,node,i,loc,y
*get,z_loc,node,i,loc,z
koord_alt(i,1)=x_loc
koord_alt(i,2)=y_loc
koord_alt(i,3)=z_loc

*get,disp,node,i,u,sum
druck_alt(i,1)=disp
*enddo

parsav,all,lauf,par

/output,a
finish
/clear
/output

/prep7
ANTYPE,STATIC               ! STATIC ANALYSIS
Block,0,10,0,10,0,6 
ET,1,solid185,
MP,EX,1,30E6
MP,NUXY,1,0        
esize,1
type,1
mat,1
vmesh,all
parres,,lauf,par

alls
nsel,s,loc,z,0
esln
*get,node_n,node,,count
*dim,koord_neu,array,node_n,3
*dim,druck_neu,array,node_n,1

*do,i,1,node_n,1
*get,x_loc,node,i,loc,x
*get,y_loc,node,i,loc,y
*get,z_loc,node,i,loc,z
koord_neu(i,1)=x_loc
koord_neu(i,2)=y_loc
koord_neu(i,3)=z_loc
*enddo

*moper,druck_neu,koord_neu,map,druck_alt,koord_alt

*do,i,1,node_n,1
d,i,uy,druck_neu(i)
*enddo
alls

/solu
solve