fini
!/clear
/PREP7

*AFUN,DEG
ET,1,MESH200,10
ET,2,MESH200,6
MSHKEY,1
MSHAPE,0

laenge_spitze=2 !3
laenge_spitze2=3

breite=342 ! Vetreilung über halbe breite
tiefe_oben=3  ! Verteilung über Höhe
tiefe_mitte=5
tiefe_unten=tiefe_oben
hinten=20
mitte=10
vorne=5
ganz_vorne=12
spitze=16 !24

breite=NINT(breite/9)
breite=breite*9
!tiefe_mitte=NINT(tiefe_mitte/3)
!tiefe_mitte=tiefe_mitte*3
!tiefe_oben=NINT(tiefe_oben/3)
!tiefe_oben=tiefe_oben*3
laenge_spitze=laenge_spitze*1e-3
laenge_spitze2=laenge_spitze2*1e-3


BLOCK,0,laenge_spitze,-50e-3,50e-3,0,2.5e-3
BLOCK,laenge_spitze,10e-3,-50e-3,50e-3,0,2.5e-3
BLOCK,10e-3,30e-3,-50e-3,50e-3,0,2.5e-3
BLOCK,30e-3,150e-3,-50e-3,50e-3,0,2.5e-3
BLOCK,0,150e-3,-50e-3,50e-3,0,1.5e-3
BLOCK,0,150e-3,-50e-3,50e-3,1.5e-3,2.5e-3
BLOCK,laenge_spitze+2-e3,laenge_spitze+laenge_spitze2+(100e-3/(breite/3))/TAN(30),-50e-3,50e-3,0,2.5e-3
BLOCK,10e-3,10e-3+(1.5e-3/(tiefe_mitte/3))/TAN(30),-50e-3,50e-3,0,2.5e-3
BLOCK,30e-3,30e-3+(100e-3/(breite/9))/TAN(30),-50e-3,50e-3,0,2.5e-3
BLOCK,laenge_spitze,laenge_spitze+laenge_spitze2,-50e-3,50e-3,0,2.5e-3
VOVLAP,ALL
VGLUE,ALL


SELTOL,1e-6
VSEL,S,LOC,X,30e-3+(100e-3/(breite/9))/TAN(30),150e-3
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,(30e-3+(100e-3/(breite/9))/TAN(30)+150e-3)/2 $ LESIZE,ALL,,,hinten,1 $ LSEL,R,LOC,Z,0,1.5e-3 !$ LREVERSE,ALL
ASLV,S $ LSLA,S $  LSEL,U,LOC,X,(30e-3+(100e-3/(breite/9))/TAN(30)+150e-3)/2 $ LSEL,U,LOC,Y,0 $ LESIZE,ALL,,,tiefe_oben
LSEL,R,LOC,Z,0,1.5e-3 $ LESIZE,ALL,,,tiefe_mitte !,1,1!/3,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LREVERSE,ALL
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LSEL,R,LOC,X,150e-3 $ LESIZE,ALL,,,breite/9
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LSEL,R,LOC,X,30e-3+(100e-3/(breite/9))/TAN(30) $ LESIZE,ALL,,,breite/9
VMESH,ALL

VSEL,S,LOC,X,30e-3,30e-3+((100e-3/(breite/9)))/TAN(30)
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,(30e-3+30e-3+((100e-3/(breite/9)))/TAN(30))/2 $ LESIZE,ALL,,,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,30e-3 $ LSEL,U,LOC,Y,0 $ LSEL,U,LOC,Z,1.5e-3/2 $ LESIZE,ALL,,,tiefe_oben
LSEL,R,LOC,Z,0 $ LESIZE,ALL,,,tiefe_mitte !,1,1 !/3,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LESIZE,ALL,,,breite/9
ASLV,S $ ASEL,R,LOC,Y,0 $ ASEL,U,LOC,X,30e-3 $ ASEL,U,LOC,X,30e-3+((100e-3/(breite/3)))/TAN(30) $ AMESH,ALL
NSEL,S,LOC,X,30e-3 $ NREF,ALL,,,1,0,off
VSWEEP,ALL
!VSEL,R,LOC,Z,0,1.5e-3 $ VSWEEP,ALL

VSEL,S,LOC,X,10e-3+(1.5e-3/(tiefe_mitte/3))/TAN(30),30e-3
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,(10e-3+(1.5e-3/(tiefe_mitte/3))/TAN(30)+30e-3)/2 $ LESIZE,ALL,,,mitte,1/2
LSEL,R,LOC,Z,1.5e-3 $ LREVERSE,ALL
ASLV,S $ LSLA,S $ LSEL,U,LOC,X,(10e-3+(1.5e-3/(tiefe_mitte/3))/TAN(30)+30e-3)/2 $ LSEL,U,LOC,Y,0 $ LESIZE,ALL,,,tiefe_oben
LSEL,R,LOC,Z,0,1.5e-3 $ LESIZE,ALL,,,tiefe_mitte !,1,1 !/3,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LSEL,R,LOC,X,10e-3 $ LESIZE,ALL,,,breite/3
ASLV,S $ ASEL,U,LOC,Y,0 $ AMESH,ALL
VSWEEP,ALL


VSEL,S,LOC,X,10e-3,10e-3+((1.5e-3/(tiefe_mitte/3)))/TAN(30)
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,(10e-3+10e-3+((1.5e-3/(tiefe_mitte/3)))/TAN(30))/2 !$ LESIZE,ALL,,,1,1
!LSEL,U,LOC,Z,0,1.5e-3 $ 
LESIZE,ALL,,,2,1,1 ! sieht besser aus mit 2,2,1, aber fehlerhafte elemente innen!
ASLV,S $ LSLA,S $ LSEL,U,LOC,X,(10e-3+10e-3+((1.53e-3/(tiefe_mitte/3)))/TAN(30))/2 $ LSEL,U,LOC,Y,0 $ LSEL,U,LOC,z,1.5e-3/2 $LESIZE,ALL,,,tiefe_oben
ASLV,S $ LSLA,S $ LSEL,U,LOC,X,(10e-3+10e-3+((1.53e-3/(tiefe_mitte/3)))/TAN(30))/2 $ LSEL,U,LOC,Y,0 $ LSEL,R,LOC,z,1.5e-3/2 $LESIZE,ALL,,,tiefe_mitte ! hinzugefügt
!LSEL,R,LOC,Z,0 $ LESIZE,ALL,,,tiefe_mitte/3,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LESIZE,ALL,,,breite/3
ASLV,S $ ASEL,U,LOC,Y,0  $ ASEL,R,LOC,Z,0,1.5e-3 $ AMESH,ALL
!NSEL,S,LOC,X,10e-3 $ NREF,ALL,,,1,0,off
ASLV,S $ ASEL,U,LOC,Y,0  $ ASEL,U,LOC,Z,0,1.5e-3 $ AMESH,ALL
!LSEL,R,LOC,Z,-1.5e-3,1.5e-3 $ LSEL,R,LOC,Z,2e-3 $ LREVERSE,ALL
VSWEEP,ALL

VSEL,S,LOC,X,laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30),10e-3
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,(laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30)+10e-3)/2 $ LESIZE,ALL,,,vorne,1/2
ASLV,S $ LSLA,S $ LSEL,U,LOC,X,(laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30)+10e-3)/2 $ LSEL,U,LOC,Y,0 $LESIZE,ALL,,,tiefe_oben
LSEL,R,LOC,Z,1.5e-3/2 $ LESIZE,ALL,,,tiefe_mitte,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LESIZE,ALL,,,breite/3
!LSEL,R,LOC,Z,-1.5e-3,1.5e-3 $ LSEL,R,LOC,Z,2e-3 $ LREVERSE,ALL
VMESH,ALL


VSEL,S,LOC,X,laenge_spitze+laenge_spitze2,laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30)
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,(laenge_spitze+laenge_spitze2+laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30))/2 $ LESIZE,ALL,,,1,1
ASLV,S $ LSLA,S $ LSEL,U,LOC,X,(laenge_spitze+laenge_spitze2+laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30))/2 $ LSEL,U,LOC,Y,0 $LESIZE,ALL,,,tiefe_oben
LSEL,R,LOC,Z,0,1.5e-3 $ LESIZE,ALL,,,tiefe_mitte,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LESIZE,ALL,,,breite/3
ASLV,S $ ASEL,R,LOC,Y,0 $ ASEL,U,LOC,X,laenge_spitze+laenge_spitze2 $ ASEL,U,LOC,X,laenge_spitze+laenge_spitze2+((100e-3/(breite/3)))/TAN(30) $ AMESH,ALL
NSEL,S,LOC,X,laenge_spitze+laenge_spitze2 $ NREF,ALL,,,1,0,OFF
!LSEL,R,LOC,Z,-1.5e-3,1.5e-3 $ LSEL,R,LOC,Z,2e-3 $ LREVERSE,ALL
VSWEEP,ALL

VSEL,S,LOC,X,laenge_spitze,laenge_spitze+laenge_spitze2
ASLV,S $ LSLA,S $ LSEL,R,LOC,Z,1.5e-3/2 $ LESIZE,ALL,,,tiefe_mitte
ASLV,S $ LSLA,S $ LSEL,U,LOC,Z,1.5e-3/2 $ LSEL,U,LOC,X,(2*laenge_spitze+laenge_spitze2)/2 $ LSEL,U,LOC,Y,0 $ LESIZE,ALL,,,tiefe_oben
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,laenge_spitze $ LESIZE,ALL,,,breite
ASLV,S $ LSLA,S $ LSEL,U,LOC,Y,0 $ LSEL,R,LOC,X,(2*laenge_spitze+laenge_spitze2)/2 $ LESIZE,ALL,1/5*1e-3,,,2
VMESH,ALL

VSEL,S,LOC,X,0,laenge_spitze
ASLV,S $ LSLA,S $ LSEL,R,LOC,X,laenge_spitze/2 $ LESIZE,ALL,,,spitze,1
LSEL,R,LOC,Y,50e-3 $ LSEL,U,LOC,Z,0,1.5e-3 $LREVERSE,ALL
ASLV,S $ LSLA,S $ LSEL,U,LOC,X,laenge_spitze/2 $ LSEL,U,LOC,Y,0 $ LESIZE,ALL,,,tiefe_oben
LSEL,R,LOC,Z,0,1.5e-3 $ LESIZE,ALL,,,tiefe_mitte,1,1
ASLV,S $ LSLA,S $ LSEL,R,LOC,Y,0 $ LESIZE,ALL,,,breite
VMESH,ALL
SELTOL

ALLS
ACLEAR,ALL
ETDELE,2