514558_fr-FR

liliconcom

Optimiser la boucle

Salut,

 

Existe-t-il un moyen d'accélérer le traitement ? Le script actuel prend 5-6 minutes pour terminer la boucle

 

Voici le script ci-dessous :

Names Default To Here( 1 );

dt1 =Data table( "Reference data table.jmp" );
dt2 = Current data table(); /// Select Data table.jmp
Col_List1 = dt2 << Get Column Names( "String" );

For( c = 1, c <= N Col( dt2 ) -1, c++,
 theMatrix = [];
 name = Column( Col_List1[c] ) << Get name;
 if (Contains( Col_List1[c], "Currents" ),
 For( r = 1, r <= N Rows( dt2 ), r++,
  mean = dt1:Mean[dt1 << Get Rows Where( :Tests == name )];
  measure = mean - Col Mean( If( dt2:Strips == dt2:Strips[r], Column( dt2, c ), . ) );
  theMatrix = theMatrix || Column( dt2, c )[r] + measure;
 );
 Column( dt2, c ) << Set Values( theMatrix );
););

 

Script