fonction td(x) {
	Déplacer("A",X("A")-x*Y("u"),Y("A")+x*X("u"));
	}

fonction tg(x) {
	Déplacer("A",X("A")+x*Y("u"),Y("A")-x*X("u"));
	}

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"));
	td(dM);
}