Sponsored links: Algebra eBooks
 

Related

scsimp

example-scsimp;

Calculate

scsimp

example-scsimp;

Calculate

scsimp

scsimp(2^(9/2));

Calculate

scsimp

q=((S-P)/((T-P)-(R-S)));

epsilon=q(S-R)/((2*q-...

scsimp(epsilon, q);

Calculate

scsimp

eq1: (m+m_p)/12*(4*(h...

scsimp(eq1);

Calculate

scsimp

example-scsimp;

Calculate

scsimp

example-scsimp;

Calculate

scsimp

Run Example
(%i1)example (scsimp);

(%i1) 
(%i2) exp:-k^2*l^2*m^2*n^2-k^2*l^2*n^2+k^2*m^2*n^2+k^2*n^2
                     2  2  2  2    2  2  2    2  2  2    2  2
(%o2)             - k  l  m  n  + k  m  n  - k  l  n  + k  n
(%i1) 
(%i3) eq1:l^2+k^2 = 1
                                   2    2
(%o3)                             l  + k  = 1
(%i1) 
(%i4) eq2:n^2-m^2 = 1
                                   2    2
(%o4)                             n  - m  = 1
(%i1) 
(%i5) scsimp(exp,eq1,eq2)
                                      4  4
(%o5)                                k  n
(%i1) 
(%i6) exq:(-k2*k3-k1*k2+k1*k4)/k3^2
                             k1 k4 - k2 k3 - k1 k2
(%o6)                        ---------------------
                                        2
                                      k3
(%i1) 
(%i7) eq3:k1*k4-k2*k3 = 0
(%o7)                          k1 k4 - k2 k3 = 0
(%i1) 
(%i8) eq4:k3*k4+k1*k2 = 0
(%o8)                          k3 k4 + k1 k2 = 0
(%i1) 
(%i9) scsimp(exq,eq3,eq4)
                                      k4
(%o9)                                 --
                                      k3
(%o9)                                done
(%i10) 
Run Example
pU(v,X) := (v/Vu)^-X-(v-Vu)/(Vo-Vu)*(Vo/Vu)^-X;
                                  v  - X   v - Vu   Vo - X
(%o1)                pU(v, X) := (--)    - ------- (--)
                                  Vu       Vo - Vu  Vu
(%i2) pO(v,X) := pU(Vu+Vo-v,X);
(%o2)                   pO(v, X) := pU(Vu + Vo - v, X)
(%i3) lim: limit((1-pO(Vo-dv,X))/(1-pO(Vo-dv,X)*(dv/(Vo-Vu-dv)+1)), dv, 0);
              Vo X   2         Vo X        2  Vo X        2
            ((--)  Vu  - 2 Vo (--)  Vu + Vo  (--) ) X - Vu  + Vo Vu
              Vu               Vu             Vu
(%o3)       -------------------------------------------------------
                          Vo X          Vo X        Vo X
             (Vu - Vo) (((--)  Vu - Vo (--) ) X + ((--)  - 1) Vu)
                          Vu            Vu          Vu
(%i4) limS: ratsimp (lim);
                           Vo X          Vo X
                         ((--)  Vu - Vo (--) ) X - Vu
                           Vu            Vu
(%o4)              ----------------------------------------
                     Vo X          Vo X        Vo X
                   ((--)  Vu - Vo (--) ) X + ((--)  - 1) Vu
                     Vu            Vu          Vu
(%i5) limS2: limS, Vu = Vo/S;
                               X - 1       X      Vo
                          (Vo S      - Vo S ) X - --
                                                  S
(%o5)                 -----------------------------------
                                                   X
                           X - 1       X      Vo (S  - 1)
                      (Vo S      - Vo S ) X + -----------
                                                   S
(%i6) ratsimp(limS2);
                                        X
                               (S - 1) S  X + 1
(%o6)                        ---------------------
                                      X      X
                             (S - 1) S  X - S  + 1
(%i7) scsimp(limS,Vu = Vo/S);
                           Vo X          Vo X
                         ((--)  Vu - Vo (--) ) X - Vu
                           Vu            Vu
(%o7)              ----------------------------------------
                     Vo X          Vo X        Vo X
                   ((--)  Vu - Vo (--) ) X + ((--)  - 1) Vu
                     Vu            Vu          Vu
(%i8)  ratsimp (1-limS);
                                    Vo X
                                   (--)  Vu
                                    Vu
(%o8)              ----------------------------------------
                     Vo X          Vo X        Vo X
                   ((--)  Vu - Vo (--) ) X + ((--)  - 1) Vu
                     Vu            Vu          Vu
(%i9) 
Run Example
scsimp(2^(9/2));
                                      9/2
(%o1)                                2
(%i2) 

Related Help

Help for Scsimp