tab=[];
tabE=[];
P=[0,100];
PE=[0,0];
tab.push(P);
tabE.push(PE);
nbPoints=4000;
SetExpressionValue("er",0);
for (var j=1;j<nbPoints;j++) {
Q=[j*dt,P[1]+0.04*(20-P[1])*dt];
QE=[j*dt,10000/pixel()*Math.abs(20+80*exp(-0.04*Q[0])-Q[1])/(20+80*exp(-0.04*Q[0]))];
if (GetExpressionValue("er")<100*Math.abs(20+80*exp(-0.04*Q[0])-Q[1])/(20+80*exp(-0.04*Q[0]))) {
	SetExpressionValue("er",100*Math.abs(20+80*exp(-0.04*Q[0])-Q[1])/(20+80*exp(-0.04*Q[0])));
	}
tab.push(Q);
tabE.push(QE);
P=Q;
PE=QE;
}
tabE