Sponsored links: Algebra eBooks
 

Related

domain-rootscontract-sqrt

rootscontract(sqrt(8));

domain: real;

Calculate

domain-solve

f:x^3-(a-1)*x^2+a^2*x...

domain:real;

solve(f,x);

Calculate

domain

f(x):=1/x;

domain(x);

Calculate

domain

domain;

(1/x)-5;

Calculate

domain

f(x):=1/x;

domain(x);

Calculate

domain-ev-solve-true

domain:real;

rce1: z^2-x^2-y^2+2*x...

rce2:y*z-y-x+1=0;

Calculate

domain

f(x):=1/x;

domain(x);

Calculate

domain

f:1/x;

domain(x);

Calculate

domain-numer-solve

domain:real;

solve(x^3+x^2+x=1,x),...

Calculate

domain

Run Example
(%i1)domain:complex;
(%o1)                               complex
(%i2) define(F(x,y,z),(z+y-x)*(z-y-x)*(z+(%i)*y+x)*(z-(%i)*y+x));
(%o2) F(x, y, z) := (z - y - x) (z + y - x) (z - %i y + x) (z + %i y + x)
(%i3) define(ZZ(x,y,z),diff(diff(F(x,y,z),z),z));
(%o3) ZZ(x, y, z) := 2 (z - %i y + x) (z + %i y + x)
 + 2 (z + y - x) (z + %i y + x) + 2 (z - y - x) (z + %i y + x)
 + 2 (z + y - x) (z - %i y + x) + 2 (z - y - x) (z - %i y + x)
 + 2 (z - y - x) (z + y - x)
(%i4) define(YY(x,y,z),diff(diff(F(x,y,z),y),y));
(%o4) YY(x, y, z) := - 2 (z - %i y + x) (z + %i y + x)
 + 2 %i (z + y - x) (z + %i y + x) - 2 %i (z - y - x) (z + %i y + x)
 - 2 %i (z + y - x) (z - %i y + x) + 2 %i (z - y - x) (z - %i y + x)
 + 2 (z - y - x) (z + y - x)
(%i5) define(YZ(x,y,z),diff(diff(F(x,y,z),y),z));
(%o5) YZ(x, y, z) := - %i (z + y - x) (z + %i y + x)
 - (z + y - x) (z + %i y + x) - %i (z - y - x) (z + %i y + x)
 + (z - y - x) (z + %i y + x) + %i (z + y - x) (z - %i y + x)
 - (z + y - x) (z - %i y + x) + %i (z - y - x) (z - %i y + x)
 + (z - y - x) (z - %i y + x)
(%i6) diff(ZZ(x,y,z),x);
(%o6) - 2 (z + %i y + x) - 2 (z - %i y + x) + 2 (z + y - x) + 2 (z - y - x)
(%i7) 
Run Example
domain:complex;
(%o1)                               complex
(%i2) declare([a1,b1,a2,b2,zA1,zB1,zA2,zB2],complex);
(%o2)                                done
(%i3) eq1:a1*zA1+b1=a2*zA2+b2;
(%o3)                      a1 zA1 + b1 = a2 zA2 + b2
(%i4) eq2:a1*zB1+b1=a2*zB2+b2;
(%o4)                      a1 zB1 + b1 = a2 zB2 + b2
(%i5) sol:solve([eq1,eq2], [a2, b2]);
             a1 zA1 - a1 zB1       - a1 zA1 zB2 - b1 zB2 + zA2 (a1 zB1 + b1)
(%o5) [[a2 = ---------------, b2 = -----------------------------------------]]
                zA2 - zB2                          zA2 - zB2
(%i6) solf:factorsum(factor(sol));
             a1 (zB1 - zA1)       a1 zA1 zB2 + b1 zB2 - a1 zA2 zB1 - b1 zA2
(%o6) [[a2 = --------------, b2 = -----------------------------------------]]
               zB2 - zA2                          zB2 - zA2
(%i7) 
Run Example
domain:complex;
(%o1)                               complex
(%i2) declare([a1,b1,a2,b2,zA1,zB1,zA2,zB2],complex);
(%o2)                                done
(%i3) eq1:a1*zA1+b1=a2*zA2+b2;
(%o3)                      a1 zA1 + b1 = a2 zA2 + b2
(%i4) eq2:a1*zB1+b1=a2*zB2+b2;
(%o4)                      a1 zB1 + b1 = a2 zB2 + b2
(%i5) sol:solve([eq1,eq2], [a2, b2]);
             a1 zA1 - a1 zB1       - a1 zA1 zB2 - b1 zB2 + zA2 (a1 zB1 + b1)
(%o5) [[a2 = ---------------, b2 = -----------------------------------------]]
                zA2 - zB2                          zA2 - zB2
(%i6) solf:factor(sol);
             a1 (zB1 - zA1)       a1 zA1 zB2 + b1 zB2 - a1 zA2 zB1 - b1 zA2
(%o6) [[a2 = --------------, b2 = -----------------------------------------]]
               zB2 - zA2                          zB2 - zA2
(%i7) 

Related Help

Help for Domain