sub schleifenanzahl ($$$$) {
	my $multiplikand = ($_[0] - $_[1]) / $_[2];
        ($multiplikand = $1) if ($multiplikand =~ /(\d)+\.*(\d)*/);
	$multiplikand++;
	$_[3] = $_[3] * $multiplikand;
        return ($_[3]);
    } # end sub schleifenanzahl