!Versteifungsrippen um ein Rohr
!nur Flächen für Schalenelemente
!für Deebo
!Schätzing, 26.3.2010

finish  $/clear
*abbr,rippen,/input,rippen,txt


rorad=30e-3	!Rohr-Radius
roho=120e-3	!Rohr-Höhe
anz=6		!Anzahl der Rippen
		!maximal 8
ribr=20e-3  	!Rippen-Breite
riho=60e-3	!Rippen-Höhe
winkel=360/anz

/prep7
k,1,0,0,0 	!Drehachse
k,2,0,0,roho	!Drehachse

!----Rohr-----
k,3,rorad,0,0
k,4,rorad,0,riho
k,5,rorad,0,roho
l,3,4
l,4,5
arotat,1,2,,,,,1,2,,anz

!----Rippe----
*get,k_max,kp,,num,max
k,k_max+1,rorad+ribr,0,0
k,k_max+2,rorad,,riho
a,3,k_max+1,k_max+2
*get,a_max,area,,num,max

!---Rippenrotation----
csys,1
agen,anz,a_max,,,,winkel