LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEoemhpZG9uZ0YnLyUnaXRhbGljR1EldHJ1ZUYnLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy1JI21vR0YkNi1RIn5GJy9GM1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj0vJSlzdHJldGNoeUdGPS8lKnN5bW1ldHJpY0dGPS8lKGxhcmdlb3BHRj0vJS5tb3ZhYmxlbGltaXRzR0Y9LyUnYWNjZW50R0Y9LyUnbHNwYWNlR1EmMC4wZW1GJy8lJ3JzcGFjZUdGTC1GLDYlUSV3YW5nRidGL0YyLUknbXNwYWNlR0YkNiYvJSdoZWlnaHRHUSYwLjBleEYnLyUmd2lkdGhHRkwvJSZkZXB0aEdGVy8lKmxpbmVicmVha0dRKG5ld2xpbmVGJy1GUzYmRlVGWEZaL0ZnblElYXV0b0YnLUYsNiNRIUYnRjk=
f:=(x)->x**2*Pi+x;
evalf(f(3.0));
plot(f(x),x=-2..2);
restart;
eq1:=3*x1+7*x2=3;
eq2:=-2*x1+6*x2=4;
with(plots,implicitplot):
implicitplot([eq1,eq2],x1=-10..10,x2=-10..10);
solve([eq1,eq2]);
with(plots):
eq1:=3*x1+4*x2-1*x3=-2;
eq2:=-4*x1-1*x2-3*x3=-1;
eq3:=4*x1+6*x2-8*x3=0;
implicitplot3d([eq1,eq2,eq3],x1=-10..10,x2=-10..10,x3=-10..10,axes=boxed);
solve([eq1,eq2,eq3]);
eq1:
eq1(4);
subs(x1=1,eq1);
subs([x1=1,x2=-18/13,x3=-7/13],eq1);
subs([x1=1,x2=-18/13,x3=-7/13],eq2);
subs([x1=1,x2=-18/13,x3=-7/13],eq3);
lhs(eq1);
rhs( eq1);
I;
I**2;
i**2;
eq5:=x**2-3*x+4=0;
sol:=[solve(eq5)];
sol[1];
sol[2];
subs(x=sol[1],lhs(eq5));
evalf(%);
subs(x=sol[1],lhs(eq5));
simplify(%);
eq6:=7*x**3+x**2-3*x+4=0;
solve(eq6):
evalf(%);
eq7:=7*x**4-2*x**2+x-3=0;
solve(eq7);
plot(lhs(eq7),x=-2..2);
fsolve(eq7);
JSFH