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/eduout") 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 $x = ($EDU_PE * $edu_PROD)/($POP+1); 28 29if ($x > 5) { 30 $x = 5 + (($x - 5)/(log($x - 1) / log(4))); 31} 32 33printf("Pop: %d\tEdu: %.2f\nProduced: %.0f", $POP, $edu_NOW, $edu_PROD); 34printf("\tyields: %.4f\n", $x); 35$y=(($EDU_AVG*$edu_NOW)+($x*$ETU))/($ETU+$EDU_AVG); 36printf("New edu-level: %.4f making\n", $y); 37printf("tech p.e.: %.4f", ($y - $TECH_MIN_EDU)/($y - $TECH_MIN_EDU + $TECH_LAG)); 38printf(", res p.e.: %.4f", ($y - $RES_MIN_EDU)/($y - $RES_MIN_EDU + $RES_LAG)); 39printf(", happy p.e.: %.4f\n", (1.5 - (($y + 10)/($y + 20)))); 40