Question: combining contour 2d and 3d plot for following function

restart;

lambda := 2*(1/10);
                               1
                               -
                               5
mu := -1;
                               -1

beta := 10;
                               10
alpha := -25;
                              -25

C := 1;
                               1

k := (1/12)*sqrt(6)/sqrt(beta*lambda*mu);
                       1     (1/2)  (1/2)
                      --- I 6      2     
                       24                
w := alpha/((10*sqrt(-lambda*mu))*beta);
                             1  (1/2)
                           - - 5     
                             4       
A[0] := (1/2)*alpha/((10*sqrt(-lambda*mu))*((1/12)*beta*sqrt(6)/sqrt(beta*lambda*mu)));
                    1    (1/2)  (1/2)  (1/2)
                   -- I 5      6      2     
                    4                       
A[1] := -(1/10)*alpha/((1/12)*beta*mu*sqrt(6)/sqrt(beta*lambda*mu));
                        1    (1/2)  (1/2)
                       -- I 6      2     
                        2                
A[2] := -(12*((1/12)*sqrt(6)/sqrt(beta*lambda*mu)))*lambda^2*alpha/(10*sqrt(-lambda*mu));
                    1     (1/2)  (1/2)  (1/2)
                   --- I 6      2      5     
                    20                       
H := ln(sqrt(lambda/(-mu))*tanh(sqrt(-lambda*mu)*(xi+C)));
                /1  (1/2)     /1  (1/2)         \\
              ln|- 5      tanh|- 5      (xi + 1)||
                \5            \5                //
xi := k*x-t*w;
                1     (1/2)  (1/2)     1    (1/2)
               --- I 6      2      x + - t 5     
                24                     4         
u[0] := A[0]+A[1]*exp(-H)+A[2]*exp(-H)*exp(-H);
  1    (1/2)  (1/2)  (1/2)
 -- I 5      6      2     
  4                       

                     1    (1/2)  (1/2)  (1/2)                
                     - I 6      2      5                     
                     2                                       
    - -------------------------------------------------------
          /1  (1/2) / 1     (1/2)  (1/2)     1    (1/2)    \\
      tanh|- 5      |--- I 6      2      x + - t 5      + 1||
          \5        \ 24                     4             //

                      1    (1/2)  (1/2)  (1/2)                
                      - I 6      2      5                     
                      4                                       
    - --------------------------------------------------------
                                                             2
          /1  (1/2) / 1     (1/2)  (1/2)     1    (1/2)    \\ 
      tanh|- 5      |--- I 6      2      x + - t 5      + 1|| 
          \5        \ 24                     4             // 


plot3d(Im(u[0]), x = -10 .. 10, t = -10 .. 10);

Please Wait...