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