/filnam,Steuerkurbel2D
/title,Steuerkurbel 2D-Modell

/prep7

/com Elementtypen

ET,1,183 $ET,2,TARGE169	$ET,3,CONTA172	$ET,4,TARGE169	$ET,5,CONTA172		

KEYOPT,3,5,3 $KEYOPT,5,5,3

/com Real-Konstanten

R,1,5 $R,2,16 $R,3,,,1,0.05,, $R,4,,,1,0.05,, $R,5,,,1,0.05,, 
$R,6,,,1,0.05,,	$R,7,,,1,0.05,,	

/com Materialdaten

!1.Material
MP,EX,1,2.1E5 $MP,NUXY,1,0.3

!2.Material
MP,EX,2,2.1E5 $MP,NUXY,2,0.3

!3.Material
MP,EX,3,2.09E5 $MP,NUXY,3,0.3

MP,MU,4,0.15 $MP,MU,5,0.15 $MP,MU,6,0.15

!Wert für Presspassung
a=2.4980


 k,1,0,0    $k,2,10,0    $k,3,-10,0   $k,4,20,0     $k,5,-20,0,  $k,6,0,10+a
$k,7,0,10-a $k,8,0,20    $k,9,0,-20   $k,10,0,10    $k,11,0,-10  $k,12,0,10
$k,13,a,10  $k,14,-a,10  $k,15,2.5,10 $k,16,-2.5,10 $k,17,0,55   $k,18,3,55
$k,19,-3,55 $k,20,0,52   $k,21,0,58   $k,22,10,60   $k,23,-10,60 $k,24,-6,65
$k,25,6,65  $k,26,10,17.32051 $k,27,-10,17.32051    $k,28,-10,45 $k,29,10,45
$k,30,0,45  $k,31,10,0   $k,32,-10,0  $k,33,0,-10   $k,34,0,12.5 $k,35,0,7.5




/com KP mit Linien verbinden
!->Hebelring außen
 larc,4,9,1,20    $larc,5,9,1,20    $larc,5,8,1,20     $larc,4,8,1,20

!->Hebelring Innen
 larc,3,11,1,10   $larc,2,11,1,10   $larc,2,10,1,10    $larc,3,10,1,10
$larc,14,6,10,a   $larc,13,6,10,a   $larc,7,14,12,a    $larc,7,13,12,a

$lsbl,7,12,,,keep $lsbl,8,11,,,keep $lsbl,12,14,,,keep $lsbl,11,15,,,keep

lcomp,9,17,0			        ! Verbinden der Linien 9,17, dadurch wird KP 14 und 14 gelöscht
lcomp,10,16,0
ldele,14,15
kgen,2,36,,,0,0,0,0,1,0 		!KP35 und 36 werden kopiert, dabei werden die kp 13, 14 neu gesetz
kgen,2,37,,,0,0,0,0,1,0

!->Bohrung Flacheisen
larc,21,18,17,3   $larc,18,20,17,3 $ larc,20,19,17,3   $larc,19,21,17,3

!->Flacheisen
l,24,25 $l,25,22  $l,22,26  $l,24,23 $l,23,27 

lsbl,3,21,,,keep  $lsbl,4,19,,,keep

!->Welle
 larc,14,7,10,a   $larc,13,7,10,a    $larc,32,33,1,10  $larc,33,31,1,10 
$larc,31,13,1,10  $larc,14,32,1,10

!->Stift
larc,34,15,10,2.5 $larc,15,35,10,2.5 $larc,35,16,10,2.5 $larc,16,34,10,2.5


/com Aufteilung für Flächenbildung
!->Hebel
l,2,4 $l,11,9 $l,3,5 $l,6,8
ldiv,11 $ldiv,14 $ldiv,15 $ldiv,16
l,18,22 $l,38,25 $l,41,24 $l,19,23 $l,28,40 $l,29,39 $l,28,29
ldiv,48
l,42,8 $l,36,26 $l,37,27 $l,42,20 
ldiv,17
l,43,21
lsbl,21,48,,,keep
lsbl,19,49,,,keep

!->Welle
l,32,31 
ldiv,19
l,44,7

l,34,12
l,16,12
l,15,12
l,35,12




/com Flächenbildung
!->Hebelring
 a,2,4,26,36   $a,36,26,8,6   $a,6,8,27,37   $a,37,27,5,3   $a,5,3,11,9 
$a,9,11,2,4

!->Hebel-Flacheisen
 a,26,8,42,29  $a,8,27,28,42  $a,28,42,20,40 $a,42,20,39,29 $a,29,39,18,22
$a,18,22,25,38 $a,38,25,43,21 $a,43,21,41,24 $a,41,24,23,19 $a,19,23,28,40

!->Welle
a,31,13,7,44    $a,44,7,14,32   $a,32,44,31,33 

!
!->Stift
a,34,12,16
a,34,12,15
a,15,12,35
a,35,12,16





/com Vorbereitung zum Vernetzen
mshape,0
lsel,s,,,11     $lsel,a,,,14  $lsel,a,,,16,18   $lsel,a,,,20,21   $lsel,a,,,38
$lsel,a,,,40,47 $lsel,a,,,53,56  
lesize,all,,,4
alls

lsel,s,,,17
lesize,all,,,8
alls

$lsel,a,,,1,2    $lsel,a,,,4,6   $lsel,a,,,25,27  $lsel,a,,,50,52
$lsel,a,,,30,37  $lsel,a,,,57,59 $lsel,a,,,19     $lsel,a,,,15
$lsel,a,,,39 	 $lsel,a,,,61,64
lesize,all,,,10
alls

lsel,s,,,9,10    $lsel,a,,,23,24 $lsel,a,,,48,49
lesize,all,,,12
alls

lsel,s,,,28,29  $lsel,a,,,3      $lsel,a,,,22    $lsel,a,,,54,57   
$lsel,a,,,60    $lsel,s,,,20     $lsel,a,,,7,8
lesize,all,,,20
alls


/com Vernetzen
!Hebel
asel,s,,,1,16
Mat,1
amesh,all
alls

!Welle
asel,s,,,17,19
Mat,2
amesh,all
alls

!Stift
asel,s,,,20,23
Mat,3
amesh,all
alls

ldele,12
ldele,8

/com Kontaktelemente
!Welle/Hebel
lsel,s,,,5,7
lsel,a,,,13
NSLL,S,1
CM,TARG1,NODE	
TYPE,2
MAT,4
REAL,3
ESURF,TARG1
alls

lsel,s,,,26,29
NSLl,S,1
CM,CONT1,NODE
TYPE,3
MAT,4
REAL,3
ESURF,CONT1
alls

!Welle/Hebel mit Stift
lsel,s,,,9,10
lsel,a,,,4
lsel,a,,,25
NSLl,S,1
CM,TARG1,NODE	
TYPE,4
MAT,4
REAL,4
ESURF,TARG1
alls

lsel,s,,,31,33
NSLl,S,1
CM,CONT1,NODE
TYPE,5
MAT,4
REAL,4
ESURF,CONT1
alls

NLGEOM,ON 			
NROPT,UNSYM 			
AUTOTS,ON			
EQSLV,SPARSE 	 		
NEQIT,500000			
LNSRCH,ON
NSEL,S,LOC,X,0
NSEL,R,LOC,Y,0
D,ALL,ALL
LSEL,S,,,14
LSEL,a,,,38
NSLL
D,ALL,ALL
KSEL,S,,,3
NSLK
F,ALL,FY,357.5
KSEL,S,,,2
NSLK
F,ALL,FY,-357.5
alls
finish