### Related

##### scsimp

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

scsimp(eq1);

Calculate

##### scsimp

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

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

epsilon:((S-P)/((T-P)...

Calculate

eq1:x*4+y-2=y;

eq2:x+2=y;

scsimp(eq2);

Calculate

##### scsimp

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

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

scsimp(epsilon, q);

Calculate

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

example-scsimp;

Calculate

eq1:x*4+y-2=y;

eq2:x+2=y;

scsimp(eq2);

Calculate

eq1:x*4+y-2=y;

eq2:x+2=y;

scsimp(eq2);

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
```eqa: a = y0 + (yn + yp)/ 2;
yp + yn
(%o1)                          a = ------- + y0
2
(%i2) eqb: b = (yp -yn)/2 - 2*y0;
yp - yn
(%o2)                         b = ------- - 2 y0
2
(%i3) eqc: c = y0;
(%o3)                               c = y0
(%i4) fullratsimp( subst( [eqa,eqb], b / (2*a) )  );
yp - yn - 4 y0
(%o4)                         ------------------
2 yp + 2 yn + 4 y0
(%i5) subst( x = -b / (2*a), a*x^2 + b*x + c );
2
b
(%o5)                               c - ---
4 a
(%i6) fullratsimp( subst( [eqa,eqb,eqc], c - b^2/(4*a) ) );
2                           2
yp  + (- 2 yn - 16 y0) yp + yn
(%o6)                  - -------------------------------
8 yp + 8 yn + 16 y0
(%i7) scsimp( fullratsimp( subst( [eqa,eqb,eqc], (c - b^2/(4*a))) ) );
2                           2
yp  + (- 2 yn - 16 y0) yp + yn
(%o7)                  - -------------------------------
8 yp + 8 yn + 16 y0
(%i8) ```

Help for Scsimp