Question: fix simplify problem

restart;
lambda := 1;
                               1
mu := 1;
                               1
v := 2;
                               2
r := lambda*(v-1);
                               1
g := mu*(v-1);
                               1
a[2] := 0;
                               0

omega := -(1/2)*alpha*l[1]*l[2]*lambda^2+2*alpha*l[1]*l[2]*mu*v-2*alpha*l[1]*l[2]*mu-alpha*h[1]*h[2];
              3                                  
              - alpha l[1] l[2] - alpha h[1] h[2]
              2                                  
a[0] := -(1/2)*(2*d*v-2*d-lambda)*alpha*l[1]*l[2]/(h[1]*beta*(sqrt(h[1]*beta*alpha*l[1]*l[2])/(h[1]*beta)));
                    (2 d - 1) alpha l[1] l[2]     
              - ----------------------------------
                                             (1/2)
                2 (h[1] beta alpha l[1] l[2])     
a[1] := sqrt(h[1]*beta*alpha*l[1]*l[2])*(v-1)/(beta*h[1]);
                                           (1/2)
                (h[1] beta alpha l[1] l[2])     
                --------------------------------
                           beta h[1]            

Omega := lambda^2-4*mu*v+4*mu;
                               -3
H := (-lambda+sqrt(-Omega)*{tan(sqrt(-Omega)*xi)+sec(sqrt(-Omega)*xi)})/(2*(v-1));
         1   1  (1/2)  /   / (1/2)   \      / (1/2)   \\ 
       - - + - 3      { tan\3      xi/ + sec\3      xi/ }
         2   2         \                               / 

u := a[0]+a[1]*(d+H)+a[2]/(d+H);
            (2 d - 1) alpha l[1] l[2]            1     /
      - ---------------------------------- + --------- |
                                     (1/2)   beta h[1] \
        2 (h[1] beta alpha l[1] l[2])                   

                                   (1/2) /    1
        (h[1] beta alpha l[1] l[2])      |d - -
                                         \    2

           1  (1/2)  /   / (1/2)   \      / (1/2)   \\ \\
         + - 3      { tan\3      xi/ + sec\3      xi/ }||
           2         \                               / //
f := diff(u, xi);
               /                                         // 
        1      |                           (1/2)  (1/2) { | 
   ----------- \(h[1] beta alpha l[1] l[2])      3       \\1
   2 beta h[1]                                              

                      2\       
           / (1/2)   \ |  (1/2)
      + tan\3      xi/ / 3     

                                            \ \
           / (1/2)   \    / (1/2)   \  (1/2) }|
      + sec\3      xi/ tan\3      xi/ 3     / /
S := diff(f, xi);
             /                                         /      
      1      |                           (1/2)  (1/2) {      /
 ----------- \(h[1] beta alpha l[1] l[2])      3       \6 tan\
 2 beta h[1]                                                  

              /                  2\
    (1/2)   \ |       / (1/2)   \ |
   3      xi/ \1 + tan\3      xi/ /

                                     2
           / (1/2)   \    / (1/2)   \ 
    + 3 sec\3      xi/ tan\3      xi/ 

                       /                  2\\ \
           / (1/2)   \ |       / (1/2)   \ | }|
    + 3 sec\3      xi/ \1 + tan\3      xi/ // /

eq := -(alpha*h[1]*h[2]+omega)*u-(2*beta*h[1]*u*u)*u+alpha*l[1]*l[2]*S;
  3                 /      (2 d - 1) alpha l[1] l[2]        
- - alpha l[1] l[2] |- ---------------------------------- + 
  2                 |                               (1/2)   
                    \  2 (h[1] beta alpha l[1] l[2])        

      1     /                           (1/2) /    1
  --------- |(h[1] beta alpha l[1] l[2])      |d - -
  beta h[1] \                                 \    2

     1  (1/2)  /   / (1/2)   \      / (1/2)   \\ \\\             
   + - 3      { tan\3      xi/ + sec\3      xi/ }||| - 2 beta h[1
     2         \                               / //|             
                                                   /             

    /      (2 d - 1) alpha l[1] l[2]            1     /
  ] |- ---------------------------------- + --------- |
    |                               (1/2)   beta h[1] \
    \  2 (h[1] beta alpha l[1] l[2])                   

                             (1/2) /    1
  (h[1] beta alpha l[1] l[2])      |d - -
                                   \    2

     1  (1/2)  /   / (1/2)   \      / (1/2)   \\ \\\     
   + - 3      { tan\3      xi/ + sec\3      xi/ }|||^3 + 
     2         \                               / //|     
                                                   /     

              /                                                 
       1      |                                           (1/2) 
  ----------- \alpha l[1] l[2] (h[1] beta alpha l[1] l[2])      
  2 beta h[1]                                                   

          /                 /                  2\
   (1/2) {      / (1/2)   \ |       / (1/2)   \ |
  3       \6 tan\3      xi/ \1 + tan\3      xi/ /

                                    2
          / (1/2)   \    / (1/2)   \ 
   + 3 sec\3      xi/ tan\3      xi/ 

                      /                  2\\ \
          / (1/2)   \ |       / (1/2)   \ | }|
   + 3 sec\3      xi/ \1 + tan\3      xi/ // /
value(%);
  3                 /      (2 d - 1) alpha l[1] l[2]        
- - alpha l[1] l[2] |- ---------------------------------- + 
  2                 |                               (1/2)   
                    \  2 (h[1] beta alpha l[1] l[2])        

      1     /                           (1/2) /    1
  --------- |(h[1] beta alpha l[1] l[2])      |d - -
  beta h[1] \                                 \    2

     1  (1/2)  /   / (1/2)   \      / (1/2)   \\ \\\             
   + - 3      { tan\3      xi/ + sec\3      xi/ }||| - 2 beta h[1
     2         \                               / //|             
                                                   /             

    /      (2 d - 1) alpha l[1] l[2]            1     /
  ] |- ---------------------------------- + --------- |
    |                               (1/2)   beta h[1] \
    \  2 (h[1] beta alpha l[1] l[2])                   

                             (1/2) /    1
  (h[1] beta alpha l[1] l[2])      |d - -
                                   \    2

     1  (1/2)  /   / (1/2)   \      / (1/2)   \\ \\\     
   + - 3      { tan\3      xi/ + sec\3      xi/ }|||^3 + 
     2         \                               / //|     
                                                   /     

              /                                                 
       1      |                                           (1/2) 
  ----------- \alpha l[1] l[2] (h[1] beta alpha l[1] l[2])      
  2 beta h[1]                                                   

          /                 /                  2\
   (1/2) {      / (1/2)   \ |       / (1/2)   \ |
  3       \6 tan\3      xi/ \1 + tan\3      xi/ /

                                    2
          / (1/2)   \    / (1/2)   \ 
   + 3 sec\3      xi/ tan\3      xi/ 

                      /                  2\\ \
          / (1/2)   \ |       / (1/2)   \ | }|
   + 3 sec\3      xi/ \1 + tan\3      xi/ // /
simplify(%);
Error, (in simplify/power) invalid input: ln expects its 1st argument, x, to be of type algebraic, but received {(sin(3^(1/2)*xi)+1)/cos(3^(1/2)*xi)}
 

Please Wait...