MettreValeurExpression("s","sum(d(M),0)");
ds=0.001;
fonction unSurR(x) {
	return 1/(1+x*x);
}

pour i allant de 0 à 10000 {
	dM=ds*unSurR(PrendreValeurExpression("s"));
	Déplacer("A",X("A")-ds*X("u"),Y("A")-ds*Y("u"));
	Déplacer("A",X("A")-dM*Y("u"),Y("A")+dM*X("u"));
}