>	restart;with(plots):with(plottools):with(linalg);

Warning, the name changecoords has been redefined

Warning, the assigned name arrow now has a global binding

Warning, the protected names norm and trace have been redefined and unprotected

>

Exercice 2

question e)

>	f:=(x,y)->(x^4*y^4)/(x^2+y^4)^3;

>	Limit('f'(x,x), x=0)=limit(f(x,x),x=0);

>	Limit('f'(x^2,x), x=0)=limit(f(x^2,x),x=0);

Les limites suivants les courbes y=x et x=y^2  différent, il n'y a donc pas de limite globale

Profil suivant y=x

>	coupe(f,[-1,1],[-1,1],[t,t],[-1,1],x-y,-0.1,100);

>	coupe_plan(f,[t,t],[-1,1]); courbe t->f(t,t)

Profil suivant y^2=x

>	coupe(f,[-1,1],[-1,1],[t^2,t],[-1,1],y^2-x,-0.1,100);

>	coupe_plan(f,[t^2,t],[-1,1]); courbe t->f(t^2,t)

Représentation

>	coupe(f,[-1,1],[-1,1],[t^2,t],[-1,1],1,-0.1,50);

>	profily:=theta->t;profilx:=theta->(1-theta)*t+theta*t^2;t='t':

Voici l'évolution de la route tracée sur la surface lorsque le trcé plan passe de la droite y=x à la courbe y=x^3

>	profil_courbe(f,profilx,profily,[-1,1],[0,1],0);

>	F:=proc(theta)  coupe_plan(f,[profilx(theta),profily(theta)],[-1,1]); end:

>	animate(F,[theta],theta=0..1, axes=normal,frames=41);

>