? factorfacsum;

Calculate

? factorfacsum;

Calculate

### factorfacsum

Run Example
```(%i1)define (T13(t1), expand ((1-t1)^3));
3       2
(%o1)                 T13(t1) := - t1  + 3 t1  - 3 t1 + 1
(%i2) define (T12(t1), expand (3*t1*(1-t1)^2));
3       2
(%o2)                   T12(t1) := 3 t1  - 6 t1  + 3 t1
(%i3) define (T11(t1), expand (3*t1^2*(1-t1)));
2       3
(%o3)                      T11(t1) := 3 t1  - 3 t1
(%i4) define (T10(t1), t1^3);
3
(%o4)                           T10(t1) := t1
(%i5) define (T23(t2), expand ((1-t2)^3));
3       2
(%o5)                 T23(t2) := - t2  + 3 t2  - 3 t2 + 1
(%i6) define (T22(t2), expand (3*t2*(1-t2)^2));
3       2
(%o6)                   T22(t2) := 3 t2  - 6 t2  + 3 t2
(%i7) define (T21(t2), expand (3*t2^2*(1-t2)));
2       3
(%o7)                      T21(t2) := 3 t2  - 3 t2
(%i8) define (T20(t2), t2^3);
3
(%o8)                           T20(t2) := t2
(%i9) define (F1(t1), expand ((-K3*T11(t1)*y3)-K3*T10(t1)*y3+K3*y1-K3*T13(t1)*y0-K3*T12(t1)*y0+(L3*T11(t1)+L3*T10(t1))*x3-L3*x1+(L3*T13(t1)+L3*T12(t1))*x0)*T22(t2)-((-K3*T21(t2)*y3)-K3*T20(t2)*y3+K3*y1-K3*T23(t2)*y0-K3*T22(t2)*y0+(L3*T21(t2)+L3*T20(t2))*x3-L3*x2+(L3*T23(t2)+L3*T22(t2))*x0)*T12(t1));
3       2                3             2
(%o9) F1(t1) := (3 t2  - 6 t2  + 3 t2) (- 2 t1  x3 L3 + 3 t1  x3 L3 - x1 L3
3             2                     3             2
+ 2 t1  x0 L3 - 3 t1  x0 L3 + x0 L3 + 2 t1  y3 K3 - 3 t1  y3 K3 + y1 K3
3             2                       3       2
- 2 t1  y0 K3 + 3 t1  y0 K3 - y0 K3) - (3 t1  - 6 t1  + 3 t1)
3       2                   3       2
(x0 ((3 t2  - 6 t2  + 3 t2) L3 + (- t2  + 3 t2  - 3 t2 + 1) L3)
3           2       3                  3              2       3
+ x3 (t2  L3 + (3 t2  - 3 t2 ) L3) - x2 L3 - t2  y3 K3 - (3 t2  - 3 t2 ) y3 K3
3       2                      3       2
+ y1 K3 - (3 t2  - 6 t2  + 3 t2) y0 K3 - (- t2  + 3 t2  - 3 t2 + 1) y0 K3)
(%i10) factorfacsum (F(t1), t1);
(%o10)                               F(t1)
(%i11) ```
Run Example
```define (T13(t1), expand ((1-t1)^3));
3       2
(%o1)                 T13(t1) := - t1  + 3 t1  - 3 t1 + 1
(%i2) define (T12(t1), expand (3*t1*(1-t1)^2));
3       2
(%o2)                   T12(t1) := 3 t1  - 6 t1  + 3 t1
(%i3) define (T11(t1), expand (3*t1^2*(1-t1)));
2       3
(%o3)                      T11(t1) := 3 t1  - 3 t1
(%i4) define (T10(t1), t1^3);
3
(%o4)                           T10(t1) := t1
(%i5) define (T23(t2), expand ((1-t2)^3));
3       2
(%o5)                 T23(t2) := - t2  + 3 t2  - 3 t2 + 1
(%i6) define (T22(t2), expand (3*t2*(1-t2)^2));
3       2
(%o6)                   T22(t2) := 3 t2  - 6 t2  + 3 t2
(%i7) define (T21(t2), expand (3*t2^2*(1-t2)));
2       3
(%o7)                      T21(t2) := 3 t2  - 3 t2
(%i8) define (T20(t2), t2^3);
3
(%o8)                           T20(t2) := t2
(%i9) define (F1(t1,t2), expand ((-K3*T11(t1)*y3)-K3*T10(t1)*y3+K3*y1-K3*T13(t1)*y0-K3*T12(t1)*y0+(L3*T11(t1)+L3*T10(t1))*x3-L3*x1+(L3*T13(t1)+L3*T12(t1))*x0)*T22(t2)-((-K3*T21(t2)*y3)-K3*T20(t2)*y3+K3*y1-K3*T23(t2)*y0-K3*T22(t2)*y0+(L3*T21(t2)+L3*T20(t2))*x3-L3*x2+(L3*T23(t2)+L3*T22(t2))*x0)*T12(t1));
3       2
(%o9) F1(t1, t2) := (3 t2  - 6 t2  + 3 t2)
3             2                     3             2
(- 2 t1  x3 L3 + 3 t1  x3 L3 - x1 L3 + 2 t1  x0 L3 - 3 t1  x0 L3 + x0 L3
3             2                     3             2
+ 2 t1  y3 K3 - 3 t1  y3 K3 + y1 K3 - 2 t1  y0 K3 + 3 t1  y0 K3 - y0 K3)
3       2                   3       2
- (3 t1  - 6 t1  + 3 t1) (x0 ((3 t2  - 6 t2  + 3 t2) L3
3       2                         3           2       3
+ (- t2  + 3 t2  - 3 t2 + 1) L3) + x3 (t2  L3 + (3 t2  - 3 t2 ) L3) - x2 L3
3              2       3                       3       2
- t2  y3 K3 - (3 t2  - 3 t2 ) y3 K3 + y1 K3 - (3 t2  - 6 t2  + 3 t2) y0 K3
3       2
- (- t2  + 3 t2  - 3 t2 + 1) y0 K3)
(%i10) factorfacsum (F(t1,t2), t1);
(%o10)                             F(t1, t2)
(%i11) ```
Run Example
```define (T13(t1), expand ((1-t1)^3));
3       2
(%o1)                 T13(t1) := - t1  + 3 t1  - 3 t1 + 1
(%i2) define (T12(t1), expand (3*t1*(1-t1)^2));
3       2
(%o2)                   T12(t1) := 3 t1  - 6 t1  + 3 t1
(%i3) define (T11(t1), expand (3*t1^2*(1-t1)));
2       3
(%o3)                      T11(t1) := 3 t1  - 3 t1
(%i4) define (T10(t1), t1^3);
3
(%o4)                           T10(t1) := t1
(%i5) define (T23(t2), expand ((1-t2)^3));
3       2
(%o5)                 T23(t2) := - t2  + 3 t2  - 3 t2 + 1
(%i6) define (T22(t2), expand (3*t2*(1-t2)^2));
3       2
(%o6)                   T22(t2) := 3 t2  - 6 t2  + 3 t2
(%i7) define (T21(t2), expand (3*t2^2*(1-t2)));
2       3
(%o7)                      T21(t2) := 3 t2  - 3 t2
(%i8) define (T20(t2), t2^3);
3
(%o8)                           T20(t2) := t2
(%i9) fortran (factorfacsum ( expand (((-K3*T11(t1)*y3)-K3*T10(t1)*y3+K3*y1-K3*T13(t1)*y0-K3*T12(t1)*y0+(L3*T11(t1)+L3*T10(t1))*x3-L3*x1+(L3*T13(t1)+L3*T12(t1))*x0)*T22(t2)-((-K3*T21(t2)*y3)-K3*T20(t2)*y3+K3*y2-K3*T23(t2)*y0-K3*T22(t2)*y0+(L3*T21(t2)+L3*T20(t2))*x3-L3*x2+(L3*T23(t2)+L3*T22(t2))*x0)*T12(t1)), t1));
-3*(-t1*(2*t2**3*x3*L3-3*t2**2*x3*L3+x2*L3-2*t2**3*x0*L3+3*t2**2*x
1   0*L3-x0*L3-2*t2**3*y3*K3+3*t2**2*y3*K3-y2*K3+2*t2**3*y0*K3-3*t2
2   **2*y0*K3+y0*K3)+t1**2*(t2**3*x3*L3-3*t2*x3*L3+2*x2*L3-t2**3*x0
3   *L3+3*t2*x0*L3-2*x0*L3-t2**3*y3*K3+3*t2*y3*K3-2*y2*K3+t2**3*y0*
4   K3-3*t2*y0*K3+2*y0*K3)-t1**3*(t2**2*x3*L3-2*t2*x3*L3+x2*L3-t2**
5   2*x0*L3+2*t2*x0*L3-x0*L3-t2**2*y3*K3+2*t2*y3*K3-y2*K3+t2**2*y0*
6   K3-2*t2*y0*K3+y0*K3)+(t2-1)**2*t2*(x1*L3-x0*L3-y1*K3+y0*K3))
(%o9)                                done
(%i10) ```

### Related Help

Help for Factorfacsum