/*
	Calcul de la taille des trous pour que le diffuseur dans la cuve
	produise un débit égal.

	Quand on a fait la première cuve à 4 mineurs, on a inscrit 6 comme nombre de trous.
	Ça a donné des trous plus gros que nécessaire. Il y a 12 trous dans le diffuseur.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <tlmplib.h>
#include <string>

using namespace std;

static void print64(double val)
{
	double numer = val*64;
	printf ("%lf -> %lf/64\n",val,numer);
}

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("","0.0","...");
	</f>
	<f main_noarg>
		double dia = 0.75;
		const unsigned nbtrou=12;
		double trou = sqrt(dia*dia/nbtrou);
		printf ("dia=%lf nbtrou=%u trous de %lf\n",dia,nbtrou,trou);
		print64 (dia);
		print64 (trou);
		return 0;
	</f>
	<f main>
		int ret = -1;
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>