Zylinderschrauben

if(NennD==1.6|mm|)then((s=1.5|mm|)(k=1.6|mm|))
if(NennD==2|mm|)then((s=1.5|mm|)(k=2|mm|))
if(NennD==2.5|mm|)then((s=2|mm|)(k=2.5|mm|))
if(NennD==3|mm|)then((s=2.5|mm|)(k=3|mm|))
if(NennD==4|mm|)then((s=3|mm|)(k=4|mm|))
if(NennD==5|mm|)then((s=4|mm|)(k=5|mm|))
if(NennD==6|mm|)then((s=5|mm|)(k=6|mm|))
if(NennD==8|mm|)then((s=6|mm|)(k=8|mm|))
if(NennD==10|mm|)then((s=8|mm|)(k=10|mm|))
if(NennD==12|mm|)then((s=10|mm|)(k=12|mm|))
if(NennD==16|mm|)then((s=14|mm|)(k=16|mm|))
if(NennD==20|mm|)then((s=17|mm|)(k=20|mm|))
if(NennD==24|mm|)then((s=19|mm|)(k=24|mm|))
if(NennD==30|mm|)then((s=22|mm|)(k=30|mm|))
if(NennD==36|mm|)then((s=27|mm|)(k=36|mm|))
if(NennD==1.6|mm|)then((a=1.5|mm|)(t=1|mm|))
if(NennD==2|mm|)then((a=1.9|mm|)(t=1|mm|))
if(NennD==2.5|mm|)then((a=2.25|mm|)(t=1.2|mm|))
if(NennD==3|mm|)then((a=2.75|mm|)(t=1.3|mm|))
if(NennD==4|mm|)then((a=3.5|mm|)(t=2|mm|))
if(NennD==5|mm|)then((a=4.25|mm|)(t=2.5|mm|))
if(NennD==6|mm|)then((a=5|mm|)(t=3|mm|))
if(NennD==8|mm|)then((a=6.5|mm|)(t=4|mm|))
if(NennD==10|mm|)then((a=8|mm|)(t=5|mm|))
if(NennD==12|mm|)then((a=9|mm|)(t=6|mm|))
if(NennD==16|mm|)then((a=12|mm|)(t=8|mm|))
if(NennD==20|mm|)then((a=15|mm|)(t=10|mm|))
if(NennD==24|mm|)then((a=18|mm|)(t=12|mm|))
if(NennD==30|mm|)then((a=22.5|mm|)(t=15|mm|))
if(NennD==36|mm|)then((a=27|mm|)(t=18|mm|))
if((NennD==1.6|mm|)&&(L<=16|mm|))then(b=L-0.3|mm|)
if((NennD==1.6|mm|)&&(L>16|mm|))then(b=15|mm|)
if((NennD==2|mm|)&&(L<=16|mm|))then(b=L-0.3|mm|)
if((NennD==2|mm|)&&(L>16|mm|))then(b=16|mm|)
if((NennD==2.5|mm|)&&(L<=20|mm|))then(b=L-0.3|mm|)
if((NennD==2.5|mm|)&&(L>20|mm|))then(b=17|mm|)
if((NennD==3|mm|)&&(L<=20|mm|))then(b=L-0.3|mm|)
if((NennD==3|mm|)&&(L>20|mm|))then(b=18|mm|)
if((NennD==4|mm|)&&(L<=25|mm|))then(b=L-0.3|mm|)
if((NennD==4|mm|)&&(L>25|mm|))then(b=20|mm|)
if((NennD==5|mm|)&&(L<=25|mm|))then(b=L-0.3|mm|)
if((NennD==5|mm|)&&(L>25|mm|))then(b=22|mm|)
if((NennD==6|mm|)&&(L<=30|mm|))then(b=L-0.3|mm|)
if((NennD==6|mm|)&&(L>30|mm|))then(b=24|mm|)
if((NennD==8|mm|)&&(L<=35|mm|))then(b=L-0.3|mm|)
if((NennD==8|mm|)&&(L>35|mm|))then(b=28|mm|)
if((NennD==10|mm|)&&(L<=40|mm|))then(b=L-0.3|mm|)
if((NennD==10|mm|)&&(L>40|mm|))then(b=32|mm|)
if((NennD==12|mm|)&&(L<=50|mm|))then(b=L-0.3|mm|)
if((NennD==12|mm|)&&(L>50|mm|))then(b=36|mm|)
if((NennD==16|mm|)&&(L<=60|mm|))then(b=L-0.3|mm|)
if((NennD==16|mm|)&&(L>60|mm|))then(b=44|mm|)
if((NennD==20|mm|)&&(L<=70|mm|))then(b=L-0.3|mm|)
if((NennD==20|mm|)&&(L>70|mm|))then(b=52|mm|)
if((NennD==24|mm|)&&(L<=80|mm|))then(b=L-0.3|mm|)
if((NennD==24|mm|)&&(L>80|mm|))then(b=60|mm|)
if((NennD==30|mm|)&&(L<=100|mm|))then(b=L-0.3|mm|)
if((NennD==30|mm|)&&(L>100|mm|))then(b=72|mm|)
if((NennD==36|mm|)&&(L<=100|mm|))then(b=L-0.3|mm|)
if((NennD==36|mm|)&&(L>100|mm|))then(b=84|mm|)




Gestreckte Länge

AX=(WINKEL/2)*(pi/180)
V=(BIEGERADIUS/BLECHDICKE)
AA=0.65+(1/1.94)*log10(V)
AB=0.8*0.01/exp(V)
AC=0.1*(0.1/100*V^2)
AD=((1/(exp(V))^10))/3.5
BA=0.73+(1/1.9)*log10(V)
BB=5*0.01/exp(V)
BC=3.5*(0.1/100*V^2)
BD=((1/(exp(V))^10))/2.6
CA=0.83+(1/2.5)*log10(V)
CB=2*0.01/exp(V)
CC=4*(0.1/100*V^2)
CD=((1/(exp(V))^10))/5.7
if((BLECHDICKE<0.7|mm|)&&(V<4.8))then(KA=(AA+AB-AC+AD))
if((BLECHDICKE<0.7|mm|)&&(V>=4.8))then(KA=1)
if((BLECHDICKE>=0.7|mm|)&&(BLECHDICKE<1.3|mm|)&&(V<4))then(KA=(BA+BB-BC+BD))
if((BLECHDICKE>=0.7|mm|)&&(BLECHDICKE<1.3|mm|)&&(V>=4))then(KA=1)
if((BLECHDICKE>=1.3|mm|)&&(V<3.6))then(KA=(CA+CB-CC+CD))
if((BLECHDICKE>=1.3|mm|)&&(V>=3.6))then(KA=1)
if((WINKEL>0)&&(WINKEL<90))then(A=tan(AX)*(BIEGERADIUS+BLECHDICKE)*1000)
if((WINKEL>=90)&&(WINKEL<=180))then(A=(BIEGERADIUS+BLECHDICKE)*1000)
WB=(pi*(WINKEL/180)*(BIEGERADIUS+(BLECHDICKE/2*KA)))
WC=2*(BIEGERADIUS+BLECHDICKE)
WD=2*(BIEGERADIUS+BLECHDICKE)*tan(AX)
if((WINKEL>0)&&(WINKEL<90))then(VW=(WB-WD)*1000)
if((WINKEL>=90)&&(WINKEL<=180))then(VW=(WB-WC)*1000)
GES=(2*A+VW)*100
GESR=Round(GES)
GESTRECKT=GESR/(1000*100)