LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEoemhpZG9uZ0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy1JI21vR0YkNi1RIn5GJy9GM1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj0vJSlzdHJldGNoeUdGPS8lKnN5bW1ldHJpY0dGPS8lKGxhcmdlb3BHRj0vJS5tb3ZhYmxlbGltaXRzR0Y9LyUnYWNjZW50R0Y9LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGTC1GLDYlUSV3YW5nRidGL0YyLUknbXNwYWNlR0YkNiYvJSdoZWlnaHRHUSYwLjBleEYnLyUmd2lkdGhHRkwvJSZkZXB0aEdGVy8lKmxpbmVicmVha0dRKG5ld2xpbmVGJy1GUzYmRlVGWEZaL0ZnblElYXV0b0YnLUYsNiNRIUYnRjk=
restart:
f:=(x)->sin(1/x);
plot(f(x),x=(.05)..(1));
solve(f(x),x);
fsolve(f(x),x);
f(x);
fsolve(f(x)=0,x=.3..0.4);
fsolve(f(x)=0,x=.4..0.5);
sol1:=fsolve(f(x),x=0.1..0.5,avoid={});
sol2:=fsolve(f(x),x=0.1..0.5,avoid={x=sol1});
sol3:=fsolve(f(x),x=0.1..0.5,avoid={x=sol1,x=sol2});
f:=(x)->x**2+1;
f2:=(x,delta)->((f(x+delta)-f(x))/delta);
diff(f(x),x);
plot([f(x),f2(x,.1),2*x],x=-3..3);
f2(x,delta);
g:=(x,y)->x**2*y+cos(x)*sin(y);
diff(g(x,y),x);
diff(g(x,y),y);
diff(g(x,y),x,y);
diff(g(x,y),x,x);
diff(g(x,y),x$2);
diff(g(x,y),x$5);
diff(sin(x),x$n);
x:=(t)->x0+v0*t+(1/2)*a*t**2;
diff(x(t),t);
diff(x(t),t$2);
diff(y(t),t);
diff(y,t);
JSFH