1#!/usr/local/bin/perl 2 3open(CONF, ".config") or die "Run genconfig first."; 4while (<CONF>) 5{ 6 s/^/\$/; 7 eval; 8} 9close CONF; 10 11open(CONF, "tmp/happyout") or die "Should not happen !"; 12while (<CONF>) 13{ 14 s/^/\$/; 15 eval; 16} 17close CONF; 18 19open(CONF, "tmp/pop") or die "Should not happen !"; 20while (<CONF>) 21{ 22 s/^/\$/; 23 eval; 24} 25close CONF; 26 27my $hap_edu = 1.5 - (($edu_NOW + 10) / ($edu_NOW + 20)); 28my $x = ($HAP_PE * $hap_edu * $happy_PROD)/($POP+1); 29 30if ($x > 5) { 31 $x = 5 + (($x - 5)/(log($x + 1) / log(6))); 32} 33 34printf("Pop: %d\tHappy: %.2f\tEdu: %.2f\t(meaning happy p.e. %.4f)\n", 35 $POP, $hap_NOW, $edu_NOW, $hap_edu); 36 37printf("Produced: %.0f\tyields: %.4f\tNeeded now: %.4f\n", 38 $happy_PROD, $x, $hap_NEED); 39 40$y=(($HAP_AVG*$hap_NOW)+($x*$ETU))/($ETU+$HAP_AVG); 41 42printf("New happy-level: %.4f making min. retr.%%: %.2f\n", $y, (42 - $y)); 43