finish

/clear

/prep7

b=5			! Breite
h=5			! Höhe

e_u=20			! Elemente über den Umfang
e_h=2			! Elemente über der Breite
e_b=2			! Elemente über der Höhe

et,1,plane13
et,2,solid5

et,3,mass21
keyopt,3,3,2


blc4,0,0,b,h

lesize,1,,,e_b

lesize,2,,,e_h

mshkey,1
mshape,0

type,1

amesh,1

type,2
esize,,e_u/4
vrotat,1,,,,,,1,2


nsel,s,loc,x,b			! Knoten an der Strinseite wählen


*get,min_knoten,node,0,num,min		! kleinste Knotennummer auslesen 

*get,max_knoten,node,0,num,max		! größte Knotennummer auslesen

*get,anz_knoten,node,0,count		! Knoten zählen

r,3,1000/anz_knoten			! Masse der Punktmasse

type,3
real,3

*do,i,min_knoten,max_knoten
e,i					! Punktmasse aufbringen
*get,next_node,node,i,nxth		! Nummer des nächsten Knoten aus dem Set auslesen
i=next_node
*enddo