fini
/clear,start

filename='Gewichtstest'
/filnam,filename
/title,%filename%

/prep7
/triad,rbot
/vup,,z

/colo,1,LGRA
/colo,2,BLUe 
/colo,3,MAGE
/colo,4,gree
/colo,5,cyan
/colo,6,blue

!--------------------   Mauerwerk    ------------------------------
/com, Mauerwerk

MP,ex,2,20000
MP,nuxy,2,0.2
mp,mu,2,0.6

mp,dens,2,0.020
TB,BKIN,2 
TBDATA,,20,0  			!post-yield


et,1,45
block,,1,,1,,1
vatt,2

esize,0.1
vmesh,all

nsel,s,loc,z
d,all,all
cm,vkraft,node

!nsel,s,loc,x,1
!dsym,symm,x
!
!nsel,s,loc,y,1
!dsym,symm,y
!
!nsel,s,loc,z,1
!dsym,symm,z

alls


!---------------------
/com, Lösungsteil
!---------------------

/solu
acel,,,9.81			                                 	! Eingabe Gravitation für Eigenlastberechnung
time,1
OUTRES,ERASE
OUTRES,nsol,last
sstif,on
neqit,50
AUTOTS,on
nropt,full
ncnv,2
STAOPT,VT  
RESCONTRL,DEFINE,ALL,1,1
NSUBST,10,500,5

solv

save

/post1

plns,s,z

cmsel,s,vkraft,node

prrs

Sollwert =20*1**3*9.81/1000		! MN und m


*msg,ui,Sollwert
Sollwert = %G MN für 1 m^3