// Optimization Pass Code using object oriented language.  Compatible with TS 9.1

// -----------------------------------------
//    Strategy input parameters go here 
// ----------------------------------------- 
       
vars:
    Optimizing(GetAppInfo(aiOptimizing) = 1),
    int OptimizationPass(0);
    

Method void AnalysisTechnique_Initialized( elsystem.Object sender, elsystem.InitializedEventArgs args )  
begin 
    if AppStorage.Contains( "OptimizationPass" ) then 
        AppStorage["OptimizationPass"] = 0
    Else    
        AppStorage.Add("OptimizationPass", 0);            
    end; 


Method void AnalysisTechnique_UnInitialized( elsystem.Object sender, elsystem.UnInitializedEventArgs args ) 
begin 
    AppStorage[ "OptimizationPass" ] = 0; 
end; 
    

// -------------------------------------
//    Put Strategy Code Here
// -------------------------------------
       
    If LastBarOnChart then begin
        
        If Optimizing then begin
            OptimizationPass = AppStorage["OptimizationPass"] astype integer +1;    // incrment OptimizationPass
            AppStorage["OptimizationPass"] = OptimizationPass;        
        end else
            AppStorage["OptimizationPass"] = 0;        // reset OptimizationPass to 0 after optimization complete    

    
{ test it }
        print("Pass = ",  OptimizationPass:5:0);
        
    end;