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