Sponsored links: Algebra eBooks
 

Related

programmode-solve-true

programmode: true;

solve([0.226*x-195/x=...

Calculate

programmode

? programmode;

Calculate

programmode-solve-true

programmode: true;

solve([0.226*x-195/x=...

Calculate

programmode

? programmode;

Calculate

programmode

Run Example
(%i1)e1: x1*(sqrt(-d^2-c^2-b^2)) + x2*b + x3*c + x4*d = 0;
                                            2    2    2
(%o1)          d x4 + c x3 + b x2 + sqrt(- d  - c  - b ) x1 = 0
(%i2) e2: x1*(-b) + x2*sqrt(-d^2-c^2-b^2) + x3*(-d) + x4*c = 1;
                                     2    2    2
(%o2)          c x4 - d x3 + sqrt(- d  - c  - b ) x2 - b x1 = 1
(%i3) e3: x1*(-c) + x2*d + x3*sqrt(-d^2-c^2-b^2) + x4*(-b) = (-c*sqrt(-d^2-c^2-b^2) - bd)/(d^2 + c^2);
                       2    2    2
(%o3) - b x4 + sqrt(- d  - c  - b ) x3 + d x2 - c x1 = 
                                                              2    2    2
                                                  - c sqrt(- d  - c  - b ) - bd
                                                  -----------------------------
                                                              2    2
                                                             d  + c
(%i4) e4: x1*(-d) + x2*(-c) + x3*b + x4*sqrt(-d^2-c^2-b^2) = (-d*sqrt(-d^2-c^2-b^2) + bc)/(d^2 + c^2);
              2    2    2
(%o4) sqrt(- d  - c  - b ) x4 + b x3 - c x2 - d x1 = 
                                                                   2    2    2
                                                    bc - d sqrt(- d  - c  - b )
                                                    ---------------------------
                                                               2    2
                                                              d  + c
(%i5)  [globalsolve: true, programmode: true, solvradcan: true, llinsolce_param: true ];
(%o5)                      [true, true, true, true]
(%i6) linsolv([e1, e2, e3, e4], [x1, x2, x3, x4]);
                                            2    2    2
(%o6) linsolv([d x4 + c x3 + b x2 + sqrt(- d  - c  - b ) x1 = 0, 
                      2    2    2
c x4 - d x3 + sqrt(- d  - c  - b ) x2 - b x1 = 1, 
                 2    2    2
- b x4 + sqrt(- d  - c  - b ) x3 + d x2 - c x1 = 
            2    2    2
- c sqrt(- d  - c  - b ) - bd          2    2    2
-----------------------------, sqrt(- d  - c  - b ) x4 + b x3 - c x2 - d x1 = 
            2    2
           d  + c
               2    2    2
bc - d sqrt(- d  - c  - b )
---------------------------], [x1, x2, x3, x4])
           2    2
          d  + c
(%i7) 
Run Example
eq1:10*a+b=3*(a+b)+3;
(%o1)                      b + 10 a = 3 (b + a) + 3
(%i2) eq2:a*a-b*b=2*(a-b)^2;
                              2    2            2
(%o2)                        a  - b  = 2 (a - b)
(%i3) [globalsolve:false, programmode:true];
(%o3)                            [false, true]
(%i4) linsolve([eq1,eq2],[a,b]);
                               3 a              3 b
(%o4)                  [a = ---------, b = - ---------]
                            2 b + 7 a        2 b + 7 a
(%i5) 
Run Example
display2d:false;

(%o1) false
(%i2) 
programmode:false;

(%o2) false
(%i3) 
f: a*x*x+b*x+c;

(%o3) a*x^2+b*x+c
(%i4) 
solve(f,x);
solve: solution:

(%t4) x = -(sqrt(b^2-4*a*c)+b)/(2*a)

(%t5) x = (sqrt(b^2-4*a*c)-b)/(2*a)
(%o5) [%t4,%t5]
(%i6) 

Related Help

Help for Programmode