z1=2*m*p*q
jochdicke2=raussen-jochdicke-delta-rinnen

csys,1

k,1,raussen,0
k,2,raussen,360/(2*z1)
k,3,raussen-jochdicke,0
k,4,raussen-jochdicke,360/(2*z1)
csys,0
*If,Zweischicht,eq,1,then
k,5,raussen-jochdicke+wickhoehe1/2+wickisol,0
k,6,raussen-jochdicke+wickhoehe1/2+wickisol,wickbreite1/2
*Else
k,5,raussen-jochdicke+wickhoehe1,0
k,6,raussen-jochdicke+wickhoehe1,wickbreite1/2
*EndIf

k,7,raussen-2*jochdicke,wickbreite1/2
csys,1
k,8,rinnen,0
k,9,rinnen,360/(2*z2)
k,10,rinnen+jochdicke2,0
k,11,rinnen+jochdicke2,360/(2*z2)
csys,0
k,12,2*raussen,wickbreite1/2
csys,1
k,13,rinnen+jochdicke2+delta/2,0
k,14,rinnen+jochdicke2+delta/2,360/(2*z1)
csys,0
*If,zweischicht,eq,1,then
k,15,raussen-jochdicke+wickhoehe1/2,0
k,16,raussen-jochdicke+wickhoehe1/2,wickbreite1/2
k,17,raussen-jochdicke+wickhoehe1+wickisol,0
k,18,raussen-jochdicke+wickhoehe1+wickisol,wickbreite1/2
*Else
k,15,raussen-jochdicke+wickhoehe1/2,0
k,16,raussen-jochdicke+wickhoehe1/2,wickbreite1/2
k,17,raussen-jochdicke+wickhoehe1+wickisol,0
k,18,raussen-jochdicke+wickhoehe1+wickisol,wickbreite1/2
*EndIf
csys,1
k,19,rinnen+jochdicke2+delta/2,0
k,20,rinnen+jochdicke2+delta/2,360/(2*z2)

csys,1
l,1,2
l,3,4
csys,0
l,2,4
l,15,5
l,5,6
l,3,15
l,16,7
csys,1
l,8,9
l,10,11
csys,0
l,8,10
l,9,11
l,4,14
l,11,20
l,3,13
l,10,19
l,6,16
csys,1
l,13,14
csys,0
l,15,16
l,12,18
l,17,1
l,17,18
l,6,18
l,5,17
csys,1
l,19,20

lsel,s,,,2,7,5
lsel,a,,,17
lovlap,all
lsel,s,,,1,19,18
lovlap,all

lsel,s,,,17,27,10
ldel,all

allsel

