In[]:=
wmo=WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},2500];
In[]:=
ParallelMapMonitored[ReconstructedSurface,Table[wmo[t],{t,500,2500,500}]]
Out[]=
In[]:=
ParallelMapMonitored[ReconstructedSurface,Table[wmo[t],{t,1000,1200,10}]]
Out[]=
PrincipalComponents