562988_it-IT

liliconcom

Re: Funzione Loop nella casella Slider

@gzmorgan0 @jthi qualche consiglio?

Re: Funzione Loop nella casella Slider

Scriverei uno script come questo in modo abbastanza diverso da quello che hai fatto: questo aiuta a separare la logica (le funzioni che funzionano) dall'albero di visualizzazione e appiattisce lo script.Ha anche l'ulteriore vantaggio che tutte le funzioni sono facilmente richiamabili e condivisibili e non collegate direttamente ai richiami dei pulsanti.

 

Ma per rispondere alla tua domanda principale sul ritardo, onestamente non ne sono sicuro.È stato difficile per me seguire il percorso di esecuzione sul tuo script, motivo per cui l'ho riscritto e la riscrittura non presenta problemi di ritardo.

 

Names Default to Here( 1 );


/*
 Here I use an anonymous namespace to scope all the variable and functions -- use Eval( Eval Expr( ... Expr( self << Get Name ) ... ) ) where needed to put the reference inside funcitons and other scopes
*/

self = New Namespace();
self:dt Names = {};

For( t = 1, t <= N Table(), t++,
 Insert Into( self:dtNames, Data Table( t ) << Get Name )
);

self:slider value = 1;
self:validated = 0;
self:_tables = {};

/*
 The Eval( Eval Expr( ... Expr( self << Get Name ) ... ) ) part needs to encompass any functions and windows that the script will have.
 This is a bit unfortunate becuase it makes using this block inside rather tricky
*/
Eval( Eval Expr(
/****************************************
 Define the functions the script will use
****************************************/
self:add table = Function( {_table},
 Insert Into( self:_tables, _table );
 _table
);

self:update reference lines = Function( {},
 {Default Local},
 self = Namespace( Expr( self << Get Name ) );
 self:slider value = self:sb << Get;
 self:tb << Set Text( "Cpk: " || Char( self:slider value ) );

 Try(
  old lsl = self:lsl;
  old usl = self:usl;
 );
 self:limits table << Rerun Formulas;
 self:lsl = Associative Array( self:limits table:Analysis Columns, self:limits table:LSL );
 self:usl = Associative Array( self:limits table:Analysis Columns, self:limits table:USL );
 Summation( i = 1, N Items( self:col ),
  If( Contains( self:lsl, self:col[i] ),
   Try( self:variability report[i][Axis Box( 1 )] << Remove Ref Line( old lsl[self:col[i]] ) << Remove Ref Line( old usl[self:col[i]] ) );
   
   /*
    Here I've done a bit of trickery because we're inside an Eval( Eval Expr( ... Expr( self << Get Name ) ... ) ) block.
   */
   dispatch = {};
   Insert Into( dispatch, Substitute( Eval List( {self:lsl[self:col[i]], "Solid", "Red", "LSL=" || Substr( Char( self:lsl[self:col[i]] ), 1, 5 ), 2} ), As Name( "List" ), As Name( "Add Ref Line" ) ) );
   Insert Into( dispatch, Substitute( Eval List( {self:usl[self:col[i]], "Solid", "Red", "New USL=" || Substr( Char( self:usl[self:col[i]] ), 1, 5 ), 2} ), As Name( "List" ), As Name( "Add Ref Line" ) ) );
   Eval List( Substitute( {Send( self:variability report[i][Axis Box( 1 )], _dispatch_ )}, As Name( "_dispatch_" ), dispatch ) );
  );
  0
 )
);

self:set limits = Function( {},
 {Default Local},
 self = Namespace( Expr( self << Get Name ) );
 Summation( i = 1, N Items( self:col ),
  If( Contains( self:aa_refs, self:col[i] ),
   self:variability report[i][Axis Box( 1 )] << Min( self:aa_refs[self:col[i]] - 1 ) << Max( self:aa_refs1[self:col[i]] + 1 );
   self:variability report[i][Frame Box( 1 )] << DispatchSeg( CustomStreamSeg( 3 ), {Line Width( 2 )} );
   
   /*
    Here I've done a bit of trickery because we're inside an Eval( Eval Expr( ... Expr( self << Get Name ) ... ) ) block
   */
   dispatch = {};
   Insert Into( dispatch, Substitute( Eval List( {self:aa_refs[self:col[i]], "Solid", "Dark Green", "New LL=" || Substr( Char( self:aa_refs[self:col[i]] ), 1, 5 ), 2} ), As Name( "List" ), As Name( "Add Ref Line" ) ) );
   Insert Into( dispatch, Substitute( Eval List( {self:aa_refs1[self:col[i]], "Solid", "Dark Green", "New UL=" || Substr( Char( self:aa_Refs1[self:col[i]] ), 1, 5 ), 2} ), As Name( "List" ), As Name( "Add Ref Line" ) ) );
   Eval List( Substitute( {Send( self:variability report[i][Axis Box( 1 )], _dispatch_ )}, As Name( "_dispatch_" ), dispatch ) );
  );
  0
 )
);

/****************************************
 Modal input window
****************************************/
New Window( "Select Data Table",
 << Modal
,
 << On Validate(
  Local( {self = Namespace( Expr( self ) )},
   If( N Items( self:dt list box << Get Selected ),
    self:validated = 1;
    self:dt = Data Table( (Insert( {}, self:dt list box << Get Selected ))[1] );
    1
   ,
    0
   )
  )
 )
,
 Panel Box( "Pick a Table", self:dt list box = List Box( self:dt names, Max Selected( 1 ) ) )
);

/****************************************
 Quit and delete namespace if not validated
****************************************/
If( Not( self:validated ),
 s = Char( "Delete Namespaces( \!"" || (self << Get Name) || "\!", Force( 1 ) )" );
 self = .;
 Eval( Parse( s ) );
 Stop()
);

/****************************************
 Some initial setup
****************************************/
self:limits table = self:add table( Data Table( "Limits table" ) << Subset( All Rows, All Columns, Not Linked, Private ) );
self:col = self:limits table:Analysis Columns << Get Values;
self:col as name = {};
Summation( i = 1, N Items( self:col ),
 self:col as name[i] = As Name( self:col[i] );
 0
);
Try( self:limits table << Delete Columns( "LSL" ) );
Try( self:limits table << Delete Columns( "USL" ) );
Try( self:limits table << Delete Table Variable( "cpk" ) );

self:limits table << New Table Variable( "cpk", 1.33 )
 << New Column( "LSL", "Numeric", "Continuous", Format( "Best", 12, 2 ), <<FORMULA></FORMULA>

Re: Funzione Loop nella casella Slider

Grazie mille. Sei stato davvero d'aiuto.

Funzione loop nella casella Slider

Ciao,
Voglio aggiungere la linea di riferimento a più caselle di assi e variare la linea di riferimento con la casella di scorrimento.Mi chiedo se è possibile utilizzare il loop?

Ecco il mio codice: - Sono stato in grado di aggiungere una linea di riferimento a ciascuno dei grafici, ma il problema che devo affrontare è quando cambio la casella di scorrimento, le funzioni del ciclo impiegano un po' di tempo per aggiungere una linea di riferimento ed è difettoso. Qualche altro modo alternativo per implementare? Apprezzo se puoi consigliare. Grazie
Ho allegato entrambe le tabelle di dati di seguito

dtNames = {};
For( t = 1, t <= N Table(), t++,
 Insert Into( dtNames, Data Table( t ) << getName )
);
sliderValue = 1;
dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);<BR />//// Select Measurement data table
nw = New Window( "Select Data Table",
 modal,
 Panel Box( "Pick a table", dtlb = List Box( dtNames, MaxItems( 1 ) ) ),
 Button Box( "OK",
  dtl = dtlb << getSelected;
  dt = Data Table( dtl[1] );
  dt2 = Data Table( "Limits table" );
  col = dt2:Analysis Columns << get values;
  colist = {};
  dt3 = dt2;
  cpktab = Data Table( "Limits table" );
  Try(
   cpktab << delete columns( "LSL" );
   cpktab << delete columns( "USL" );
   cpktab << Delete Table Variable( "cpk" );
  );
  cpktab << New Table Variable( "cpk", 1.33 );
  cpktab << New Column( "LSL", "Numberic", "Continous", Format( "Best", 12, 2 ), Formula( :Mean - cpk * 3 * :Std Dev ) );
  cpktab << New Column( "USL", "Numberic", "Continous", Format( "Best", 12, 2 ), Formula( :Mean + cpk * 3 * :Std Dev ) );
  Caption( "Processing...Please Wait" );
  Wait( 0 );
  New Window( "",
   H List Box(
    V List Box(
     Spacer Box( size( 10, 10 ) ),
     Panel Box( "", 

      Spacer Box( size( 0, 30 ) ),
      tb = Text Box( "Cpk: " || Char( sliderValue ), <<SET font="" style=""></SET>//////////////////////////////////// This function lags////////////////////////////////////
         For( i = 1, i <= N Items( col ), i++,
          If( Contains( lsl, col[i] ),
           Report( vc2[i] )[AxisBox( 1 )] << remove ref line( lsl[col[i]] );
           Report( vc2[i] )[AxisBox( 1 )] << remove ref line( usl[col[i]] );
          
           Report( vc2[i] )[AxisBox( 1 )] << {Add Ref Line(
            lsl[col[i]], "Solid", "Red", "LSL=" || Substr( Char( lsl[col[i]] ), 1, 5 ), 2
           )};
           Report( vc2[i] )[AxisBox( 1 )] << {Add Ref Line(
            usl[col[i]], "Solid", "Red", "New USL=" || Substr( Char( usl[col[i]] ), 1, 5 ), 2
           )};
          )
         );
        )
       )
      )
     )
    ),
    vc2 = dt << Variability Chart(
     Y( Eval( col ) ),
     X( :site ),
     Show Range Bars( 0 ),
     Show Grand Mean( 1 ),
     Std Dev Chart( 0 ),
     Points Jittered( 1 ),
     Show Box Plots( 1 ),
     SendToReport(
      Dispatch(
       {""},
       "Variability Chart",
       FrameBox,
       {Frame Size( 846, 318 ), Row Legend(
        Split,
        Color( 1 ),
        Color Theme( "JMP Default" ),
        Marker( 0 ),
        Marker Theme( "" ),
        Continuous Scale( 0 ),
        Reverse Scale( 0 ),
        Excluded Rows( 0 )
       )}
      )
     )
    );
    aa_refs = Associative Array( dt3:Analysis Columns << get values, dt3:LL << get values );
    aa_refs1 = Associative Array( dt3:Analysis Columns << get values, dt3:UL << get values );
    For( i = 1, i <= N Items( col ), i++,
     If( Contains( aa_refs, col[i] ),
      Report( vc2[i] )[Framebox( 1 )] << DispatchSeg( CustomStreamSeg( 3 ), {Line Width( 2 )} );
      Report( vc2[i] )[AxisBox( 1 )] << {Add Ref Line(
       aa_refs[col[i]], "Solid", "Dark Green", "New LL=" || Substr( Char( aa_refs[col[i]] ), 1, 5 ), 2
      )};
      Report( vc2[i] )[AxisBox( 1 )] << {Add Ref Line(
       aa_refs1[col[i]], "Solid", "Dark Green", "New UL=" || Substr( Char( aa_refs1[col[i]] ), 1, 5 ), 2
      )};
     )
    );
    Try( vcidd = vc2 << report );
    For( i = 1, i <= N Items( col ), i++,
     If( Contains( aa_refs, col[i] ),
      vcidd[i][AxisBox( 1 )] << Min( aa_refs[col[i]] - 1 ) << Max( aa_refs1[col[i]] + 1 )
     )
    );
    Caption( remove );
    Wait( 0 );
   )
  );
 )
);

 

 

Sceneggiatura