F[x_,y_]=Input["Inserire una funzione di x,y da esplicitare come y= g(x), per esempio x^3 + y^3 -2 x*y "]
xo= Input[" Inserire il punto {x_0,y_0} in cui esplicitare per esempio {1,1}"]
Parz[x_,y_]=D[F[x,y],y ]
If[F[xo[[1]],xo[[2]]]==0 && Parz[xo[[1]],xo[[2]]]!= 0,"si puo' applicare il TFI, T=" ,"non sono verificate le ipotesi del TFI"]
 T= 1/(Parz[xo[[1]],xo[[2]]])
r=Input["Inserire il raggio  dell'intorno di x_0 in cui si vuole esplicitare, per esmpio 0.01"]
W[x_,y_]:= y- T F[x,y]
Phi[u_]:= W[x,u]
u[n_]:=Nest[Phi, xo[[2]],n]
Plot[Table[u[n],{n,6,8}],{x,xo[[1]]-r, xo[[1]]+r}]