| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Application/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Application/gleitzone |
my $faktor = 0.7472;
my $betrag = 300;
my $betrag9 = ($faktor * 400) + (2 - $faktor) * ($betrag - 400);
# print "II: $betrag9 $betrag\n"; sleep 1;
# if ($o1 =~ /^(ANKI|ANZU|ARU1|ARU2|ARU3)$/) {
# $o3 = $o3 - $o3 * 1 * (1 - $betrag9/(100*$betrag));
# } else {
# $o3 = $o3 - $o3 * 2 * (1 - $betrag9/(100*$betrag));
# }
# }
print $betrag9;