Re: [Axiom-developer] exact quotient

[Martin Rubey]

Dear William,

> In[1]:=
> mon[n_,k_]:= Expand[(Random[Integer,k] x + Random[Integer,
> k]y)^n]
> 
> In[2]:=
> list[kappa_,m_]:=Table[mon[kappa, 10000], {i,1,m}]
> 
> In[3]:=
> test[kappa_,m_,n_]:=Module[{list1, list2, t1, t2, res},
>     list1=list[kappa, m];
>     list2=list[kappa,m];
>     res = {};
>     Do[t1 = AbsoluteTime[];
>            Do[list1[[i]] list2[[i]], {i,m}];
>            t2 = AbsoluteTime[];
>            res = Join[{{kappa, t2-t1}}, res],
>       {n}]; res]

When you write list1[[i]] list2[[i]] I'm not so sure whether the result is
actually computed.  Maybe you could retry with Expand[list1[[i]] list2[[i]]],
and maybe you should also store the result somewhere, so that the calculation
cannot be optimized away.

Many thanks,

Martin