Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Expand[(a + b + c + d + e)^100]; // Timing
- Expand[(Sqrt[2] + Sqrt[3] + Sqrt[5] + Sqrt[6] + Sqrt[7])^100]; // Timing
- Expand[N[Sqrt[2] + Sqrt[3] + Sqrt[5] + Sqrt[6] + Sqrt[7]]^100]; // AbsoluteTiming
- {0., Null}
- term = (Sqrt[2] + Sqrt[3] + Sqrt[5] + Sqrt[6] + Sqrt[7]);
- Nest[Expand[# term] & , term, 100-1]; // AbsoluteTiming
- (* {0.120012,Null} *)
- f /: Times[a___, b_f, c___] := (Print[a, b, c]; Times @@ (First /@ {a}))
- (f[a] + f[b] + f[c])^6 // Expand
- (* f[a] f[b] f[c] *)
- (* f[b] 6 f[a]^5 *)
- (* f[a] 6 f[b]^5 *)
- (* ... etc. *)
- Expand[(Sqrt[2.] + Sqrt[3.] + Sqrt[5.] + Sqrt[6.] + Sqrt[7.])^100] // Timing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement