Advertisement
Guest User

Untitled

a guest
Feb 20th, 2017
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. Expand[(a + b + c + d + e)^100]; // Timing
  2.  
  3. Expand[(Sqrt[2] + Sqrt[3] + Sqrt[5] + Sqrt[6] + Sqrt[7])^100]; // Timing
  4.  
  5. Expand[N[Sqrt[2] + Sqrt[3] + Sqrt[5] + Sqrt[6] + Sqrt[7]]^100]; // AbsoluteTiming
  6. {0., Null}
  7.  
  8. term = (Sqrt[2] + Sqrt[3] + Sqrt[5] + Sqrt[6] + Sqrt[7]);
  9. Nest[Expand[# term] & , term, 100-1]; // AbsoluteTiming
  10. (* {0.120012,Null} *)
  11.  
  12. f /: Times[a___, b_f, c___] := (Print[a, b, c]; Times @@ (First /@ {a}))
  13. (f[a] + f[b] + f[c])^6 // Expand
  14.  
  15. (* f[a] f[b] f[c] *)
  16. (* f[b] 6 f[a]^5 *)
  17. (* f[a] 6 f[b]^5 *)
  18. (* ... etc. *)
  19.  
  20. Expand[(Sqrt[2.] + Sqrt[3.] + Sqrt[5.] + Sqrt[6.] + Sqrt[7.])^100] // Timing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement