In[]:=
In[]:=
(*Max[Join[AbsoluteTiming[Print[AbsoluteTiming[computePart[100000,5,1];][[1]],AbsoluteTiming[computePart[100000,5,2];][[1]],AbsoluteTiming[computePart[100000,5,3];][[1]],AbsoluteTiming[computePart[100000,5,4];][[1]],AbsoluteTiming[computePart[100000,5,5];][[1]]]]]]*)(*MRB2=MRBFromPartsStream[100000,5];N[mtest-MRB2,30]*)
In[]:=
Print[lists=Join[{AbsoluteTiming[computePart[100000,10,1];][[1]],AbsoluteTiming[computePart[100000,10,2];][[1]],AbsoluteTiming[computePart[100000,10,3];][[1]],AbsoluteTiming[computePart[100000,10,4];][[1]],AbsoluteTiming[computePart[100000,10,5];][[1]],AbsoluteTiming[computePart[100000,10,6];][[1]],AbsoluteTiming[computePart[100000,10,7];][[1]],AbsoluteTiming[computePart[100000,10,8];][[1]],AbsoluteTiming[computePart[100000,10,9];][[1]],AbsoluteTiming[computePart[100000,10,10];][[1]]}]]
{96.3234,96.9826,97.5179,97.6548,97.7253,98.2079,98.0308,98.9036,98.9059,98.5815}
In[]:=
Max[lists]
Out[]=
98.9059
In[]:=
AbsoluteTiming[MRB2=MRBFromPartsStream[100000,10];]N[mtest-MRB2,20]
Out[]=
{517.971,Null}
Out[]=
0.×
-100495
10
In[]:=
loadXvals[1][[3]]
In[]:=
3
%
Out[]=
3.`100497
In[]:=
Max[Join[{AbsoluteTiming[computePart[100000,5,1];][[1]],AbsoluteTiming[computePart[100000,5,2];][[1]],AbsoluteTiming[computePart[100000,5,3];][[1]],AbsoluteTiming[computePart[100000,5,4];][[1]],AbsoluteTiming[computePart[100000,5,5];][[1]]}]]
2600:1700:71d0:fd50:319d:91c0:4470:a937
.
2600:1700:71d0:fd50:319d:91c0:4470:a937
.
Out[]=
401.326
In[]:=
ClearAll[loadXvals];loadXvals[parts_Integer:3]:=Join@@Table[Import["terms"<>ToString[i]<>".wxf","WXF"],{i,1,parts}]Total[loadXvals[2]]//NTotal[loadXvals[3]]//N
Out[]=
53123.2
Out[]=
79659.7
In[]:=
MRB2=MRBFromPartsStream[100000,5];N[mtest-MRB2,30]
Out[]=
0.×
-100495
10
ClearAll[loadXvals];loadXvals[parts_Integer:3]:=Join@@Table[Import["terms"<>ToString[i]<>".wxf","WXF"],{i,1,parts}
In[]:=
Print[lists=Join[{AbsoluteTiming[computePart[300000,10,1];][[1]],AbsoluteTiming[computePart[300000,10,2];][[1]],AbsoluteTiming[computePart[300000,10,3];][[1]],AbsoluteTiming[computePart[300000,10,4];][[1]],AbsoluteTiming[computePart[300000,10,5];][[1]],AbsoluteTiming[computePart[300000,10,6];][[1]],AbsoluteTiming[computePart[300000,10,7];][[1]],AbsoluteTiming[computePart[300000,10,8];][[1]],AbsoluteTiming[computePart[300000,10,9];][[1]],AbsoluteTiming[computePart[300000,10,10];][[1]]}]]
{1140.85,1436.88,1201.04,1206.19,1214.37,1217.04,1221.42,1223.66,1235.73,1228.27}
In[]:=
Total[{1140.8452608`,1436.8835276`,1201.0423113`,1206.1932284`,1214.3694319`,1217.0423832`,1221.4172958`,1223.6582379`,1235.734489`,1228.2729154`}]
Out[]=
12325.5
\
In[]:=
Max[lists]
Out[]=
1436.88
In[]:=
Timing[MRB2=MRBFromPartsStream[100000,5];N[mtest-MRB2,30]]
Out[]=
{2560.61,0.×}
-100495
10
