!aus dem Forum von rm4n
!Schätzing, 26.1.2015

fini
/clear
*abbr,rm4n,/input,rm4n,txt

/prep7
csys,0

*get,ki,kp,,num,max
*get,ai,area,,num,max
k,,0,0,0
k,,0,1,0
k,,0,1,0.5
k,,0,0,0.5
a,ki+1,ki+2,ki+3,ki+4

*get,ki,kp,,num,max
*get,ai,area,,num,max
k,,0,0,0.5
k,,0,1,0.5
k,,0,1,1
k,,0,0,1
a,ki+1,ki+2,ki+3,ki+4

*get,ki,kp,,num,max
k,,0,0.1,0.5
k,,0,0.5,0.5
k,,1,0.5,0.5
k,,1,0.1,0.5
a,ki+1,ki+2,ki+3,ki+4

et,1,mesh200,6
esize,0.05
amesh,all