1/(x+10)/(x+8)/(x-1); on div; %1 a:=113; (a-(4*a-4)/a)/(2/a-1); %2 answer clear a; %2 solve(3/(x-4)-2/(x+4)=0,x); %3 off allfac; (a**2-3)*(a+1); %4 plot(6/x,x+5, x = ( 0.9 .. 1.1)) ;%5 plot(6/x,x+5, x = (-6.1 .. -5.9));%5 solve(6/x=x+5,x); %5 check (x+6)*(x-1); %5 answer plot(x**2, 8/x, x = (1.95 .. 2.05 ));%6 solve(x**2=8/x,x); %6 check (x-4)*(x-2); %6 answer (15**(1/2)+5**(1/2))/5**(1/2); %7 plot(x**(1/2),x**2,x=(-0.2 .. 0.2));%8 plot(x**(1/2),x**2,x=( 0.9 .. 1.1));%8 plot(8/x ,x**2,x=( 1.9 .. 2.1));%8 plot(8/x, x**(1/2),x=( 3.9 .. 4.1));%8 solve(x**(1/2)=x**2, x); %8 check solve(x**(1/2)= 8/x,x); %8 check solve( x**2=8/x,x); %8 check x**2+(0+1+2+4); %8 answer on rationalize; off factor; %9 a:=(2-2**(1/2))/(10**(1/2)-5**(1/2));%9 write(num(a),"/",den(a)); clear a; %9 answer off allfac; 5*(x+2)*(x-2); %10 array a[3]; % 11 a[1]:=x**2-5*x+6; % 11 a[2]:=x**2+6*x+8; % 11 a[3]:=x**2+5*x-3; % 11 for j:=1:3 do << % 11 p:=-second(coeff(a[j],x))/third(coeff(a[j],x)); % 11 q:= first(coeff(a[j],x))/third(coeff(a[j],x)); % 11 write(p**2-2*q)>>; % 11 answer clear a,b,p,q; % 11 solve(8*x+2=-6,x); % 12 solve(9+5*x=24,x); % 12 (a+1)*(a-3); % 12 answer solve((2x**2+4*x+3)-5/(x**2+2*x+3)=0,x); % 13 solve(24/(24/t+1)+2=t,t); % 14 end;