Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

stackmax

By: a guest on Mar 28th, 2012  |  syntax: None  |  size: 3.90 KB  |  views: 275  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. finalnew = (6 d kd u^2 (-12 d^2 ka (2 ka +
  2.          L (kd + I \[Omega]))^2 \[Omega] (I kd + \[Omega]) Cos[(-1)^(
  3.          1/4) L Sqrt[\[Omega]/d]] + \[Omega] (ka^4 L^3 \[Omega]^2 -
  4.          24 d^3 ka (kd^2 + \[Omega]^2) +
  5.          d^2 (-24 ka^3 (kd - 2 \[Omega]) +
  6.             24 ka^2 L (-kd^2 + \[Omega]^2) -
  7.             6 ka L^2 (kd - 2 \[Omega]) (kd^2 + \[Omega]^2) +
  8.             L^3 (kd^2 + \[Omega]^2)^2) -
  9.          2 d ka^2 L^2 \[Omega] (3 ka \[Omega] +
  10.             2 L (kd^2 - kd \[Omega] + \[Omega]^2))) Cos[
  11.         Sqrt[2] L Sqrt[\[Omega]/d]] +
  12.       Sqrt[\[Omega]] (-12 d^2 ka (2 ka +
  13.             L (kd -
  14.                I \[Omega]))^2 Sqrt[\[Omega]] (-I kd + \[Omega]) \
  15. Cosh[(-1)^(1/4) L Sqrt[\[Omega]/d]] +
  16.          Sqrt[\[Omega]] (-ka^4 L^3 \[Omega]^2 +
  17.             24 d^3 ka (kd^2 + \[Omega]^2) +
  18.             d^2 (24 ka^2 L (kd - \[Omega]) (kd + \[Omega]) +
  19.                24 ka^3 (kd + 2 \[Omega]) +
  20.                6 ka L^2 (kd + 2 \[Omega]) (kd^2 + \[Omega]^2) -
  21.                L^3 (kd^2 + \[Omega]^2)^2) +
  22.             2 d ka^2 L^2 \[Omega] (3 ka \[Omega] -
  23.                2 L (kd^2 + kd \[Omega] + \[Omega]^2))) Cosh[
  24.            Sqrt[2] L Sqrt[\[Omega]/d]] +
  25.          Sqrt[
  26.           d] (6 (-1)^(3/4)
  27.               d ka^2 \[Omega] (8 d kd +
  28.                L \[Omega] (4 I ka - L \[Omega])) Sin[(-1)^(1/4)
  29.                 L Sqrt[\[Omega]/d]] +
  30.             Sqrt[2] (2 ka^3 L^3 (kd - \[Omega]) \[Omega]^2 -
  31.                3 d^2 (4 ka L (kd + \[Omega]) (kd^2 + \[Omega]^2) +
  32.                   L^2 (kd^2 + \[Omega]^2)^2 +
  33.                   4 ka^2 (kd^2 - 2 kd \[Omega] + 3 \[Omega]^2)) +
  34.                d ka \[Omega] (12 ka^3 + 12 ka^2 L (kd + \[Omega]) -
  35.                   2 L^3 (kd - \[Omega]) (kd^2 + \[Omega]^2) +
  36.                   3 ka L^2 (kd^2 - 2 kd \[Omega] +
  37.                     3 \[Omega]^2))) Sin[Sqrt[2] L Sqrt[\[Omega]/d]] -
  38.             6 (-1)^(1/4)
  39.               d (ka^2 \[Omega] (-I (2 ka + kd L)^2 +
  40.                   2 kd L^2 \[Omega]) +
  41.                d (4 ka L (kd - I \[Omega])^2 (kd + I \[Omega]) +
  42.                   4 ka^2 (kd - \[Omega]) (kd + \[Omega]) +
  43.                   kd^2 L^2 (kd^2 + 2 \[Omega]^2))) Sin[((-1)^(1/4)
  44.                 L \[Omega])/Sqrt[d \[Omega]]] +
  45.             6 (-1)^(3/4)
  46.               d^2 L^2 \[Omega]^4 Sinh[(-1)^(3/4) L Sqrt[\[Omega]/d]] +
  47.              Sqrt[2] (-2 ka^3 L^3 \[Omega]^2 (kd + \[Omega]) +
  48.                3 d^2 (4 ka L (kd - \[Omega]) (kd^2 + \[Omega]^2) +
  49.                   L^2 (kd^2 + \[Omega]^2)^2 +
  50.                   4 ka^2 (kd^2 + 2 kd \[Omega] + 3 \[Omega]^2)) +
  51.                d ka \[Omega] (12 ka^3 + 12 ka^2 L (kd - \[Omega]) -
  52.                   2 L^3 (kd + \[Omega]) (kd^2 + \[Omega]^2) +
  53.                   3 ka L^2 (kd^2 + 2 kd \[Omega] +
  54.                     3 \[Omega]^2))) Sinh[
  55.               Sqrt[2] L Sqrt[\[Omega]/d]] +
  56.             6 (-1)^(1/4)
  57.               d (2 ka +
  58.                L (kd - I \[Omega]))^2 (d (kd + I \[Omega])^2 +
  59.                I ka^2 \[Omega]) Sinh[((-1)^(1/4) L \[Omega])/Sqrt[
  60.               d \[Omega]]]))))/(L^4 (2 ka +
  61.       kd L) \[Omega]^3 ((ka^4 \[Omega]^2 +
  62.          d^2 (kd^2 + \[Omega]^2)^2 -
  63.          4 d ka^2 \[Omega] (kd^2 - kd \[Omega] + \[Omega]^2)) Cos[
  64.         Sqrt[2] L Sqrt[\[Omega]/d]] - (ka^4 \[Omega]^2 +
  65.          d^2 (kd^2 + \[Omega]^2)^2 +
  66.          4 d ka^2 \[Omega] (kd^2 + kd \[Omega] + \[Omega]^2)) Cosh[
  67.         Sqrt[2] L Sqrt[\[Omega]/d]] -
  68.       2 Sqrt[2]
  69.         ka ((d^(3/2) (kd - \[Omega]) \[Omega]^(5/2) -
  70.             kd^2 (d \[Omega])^(3/2) + kd^3 Sqrt[d^3 \[Omega]] -
  71.             ka^2 kd Sqrt[d \[Omega]^3] + ka^2 Sqrt[d \[Omega]^5]) Sin[
  72.            Sqrt[2] L Sqrt[\[Omega]/d]] + (kd^2 (d \[Omega])^(3/2) +
  73.             kd^3 Sqrt[d^3 \[Omega]] + ka^2 kd Sqrt[d \[Omega]^3] +
  74.             ka^2 Sqrt[d \[Omega]^5] +
  75.             d^(3/2) \[Omega]^(5/2) (kd + \[Omega])) Sinh[
  76.            Sqrt[2] L Sqrt[\[Omega]/d]])))