Wolfram Cloud Document

(*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]*)MakethissoIjustentercomputeAllParts[100000,10]:

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

In[]:=

loadXvals[1][[3]]

In[]:=

Out[]=

3.`100497

In[]:=

ClearAll[computeAllParts];computeAllParts[pre_Integer,parts_Integer]:=Module[{times,results},times=ConstantArray[0.,parts];results=Table[times[[i]]=AbsoluteTiming[computePart[pre,parts,i];][[1]];i,{i,1,parts}];Print["Per-part times (sec) = ",times];Print["Max time (sec) = ",Max[times]];Print["Total time (sec) = ",Total[times]];<|"Pre"pre,"Parts"parts,"Times"times,"Max"Max[times],"Total"Total[times]|>];

In[]:=

resTimes=computeAllParts[100000,20];

Timing[MRB2=MRBFromPartsStream[100000,10];N[mtest-MRB2,30]]

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]]}]]

OptionValue

:Unknown option KernelSpeed for LightweightGridClient`RemoteKernelOpen.

OptionValue

:Unknown option KernelSpeed for LightweightGridClient`RemoteKernelOpen.

OptionValue

:Unknown option KernelSpeed for LightweightGridClient`RemoteKernelOpen.

General

:Further output of OptionValue::nodef will be suppressed during this calculation.

LightweightGridClient`RemoteKernelOpen

::launchfailed

:Kernel could not be started on

2600:1700:71d0:fd50:319d:91c0:4470:a937

LaunchKernels

:Cloning kernel KernelObject[23,2600:1700:71d0:fd50:319d:91c0:4470:a937,<defunct>] failed.

LightweightGridClient`RemoteKernelOpen

::launchfailed

:Kernel could not be started on

2600:1700:71d0:fd50:319d:91c0:4470:a937

LaunchKernels

:Cloning kernel KernelObject[24,2600:1700:71d0:fd50:319d:91c0:4470:a937,<defunct>] failed.

Out[]=

401.326

In[]:=

Timing[MRB2=MRBFromPartsStream[100000,5];N[mtest-MRB2,30]]

Out[]=

{2560.61,0.×

-100495

}

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

resTimes=computeAllParts[300000,20];