tex1(alpha);

Calculate

tex1(omega);

Calculate

? tex1;

Calculate

tex1(%alpha);

Calculate

tex1(alpha);

Calculate

tex1(omega);

Calculate

? tex1;

Calculate

tex1(%alpha);

Calculate

### tex1

Run Example
(%i1)a: random(6)-3;
(%o1)                                 - 1
(%i2)    /* (x+a)(x+b)(x+c) */b: random(6)-3;
(%o2)                                 - 3
(%i3)    /* (x+a)(x^2 + (b+c)x + bc) */ c: random(6)-3;
(%o3)                                 - 1
(%i4)    /* (x^3 + a+b+cx^2 + (ab+ac+bc)x + abc) */p2: a+b+c;
(%o4)                                 - 5
(%i5) p1: a*b + a*c + b*c;
(%o5)                                  7
(%i6) p0: a * b * c;
(%o6)                                 - 3
(%i7) f(x) := x^3 + p2 * x^2 + p1 * x + p0 = 0;
3       2
(%o7)                 f(x) := x  + p2 x  + p1 x + p0 = 0
(%i8) tex(f(x));
$$x^3-5\,x^2+7\,x-3=0$$
(%o8)                                false
(%i9) tex1(f(x));
(%o9)                         x^3-5\,x^2+7\,x-3=0
(%i10) 
Run Example
a: ((x/2)+4*x^3+(1/2))/(1/3*x^2);
3   x   1
3 (4 x  + - + -)
2   2
(%o1)                          ----------------
2
x
(%i2) tex1(factor(a));
(%o2)             {{3\,\left(8\,x^3+x+1\right)}\over{2\,x^2}}
(%i3) ratsimp(a);
3
24 x  + 3 x + 3
(%o3)                           ---------------
2
2 x
(%i4) 
Run Example
for n:1 thru 3 do(kill(h),h[i,j]:=random(5)+1,A:genmatrix(h,3,3),X:[x,y,z],C:list_matrix_entries(A.X),b:genmatrix(h,3,1),B:list_matrix_entries(b),R:linsolve([C[1]=B[1],C[2]=B[2],C[3]=B[3]], [x,y,z]),print(\tex1(C[1]=B[1]),\tex1(C[2]=B[2]),\tex1(C[3]=B[3]),R));
5\,z+3\,y+3\,x=3 2\,z+5\,y+x=1 4\,z+y+5\,x=5 [x = 1, y = 0, z = 0]
z+y+4\,x=4 5\,z+2\,y+x=1 5\,z+5\,y+x=1 [x = 1, y = 0, z = 0]
5\,z+2\,y+3\,x=3 5\,z+4\,y+5\,x=5 2\,z+2\,y+2\,x=2 [x = 1, y = 0, z = 0]
(%o1)                                done
(%i2) 

Help for Tex1