For loop variable graph reference line

tsolomon

I am generating a series of graphs (10 or more graphs in total) with a for loop; however, after the sixth graph the reference lines do not appear in the graph. After about the 10th or 11th graph, the reference lines appear again in the graphs. I have tried adding wait(0); in multiple locations but that hasn't helped. I have tried using different types of graph, standard bivariate vs graph builder, I have tried reducing the size of my original dataset to see if it is a memory issue. None of these attempts have worked and I am looking for any suggestions. The second issue I would like to address which is less of a problem than the first issue is how to close the temp table created without closing the graphs I have created and saved in my output window. I have tried using link to table (0), tried closing the tables after generating the output window and still does not work. Any suggestions is greatly appreciated.

　

For( w = 1, w <= row_count, w++,
	Stmt = CofA_dt10:Parameter[w];
	CofA_dt9 << clear column selection;
	CofA_dt9 << select where( :Parameter == Eval( Parse( Eval Insert( "Stmt" ) ) ) );
	CofA_dt9a = CofA_dt9 << Subset( Output Table( "TempTable" || Char( w ) ), );
 
　
	Mean_4sigmaUCL = CofA_dt9a:UCL_Line[w];
	Mean_4sigmaLCL = CofA_dt9a:LCL_Line[w];
 
 
	output2 << append(
		V List Box(
			CofA_dt9a << 
 
			Bivariate(
				Y( :test_value ),
				X( :shelf_life_start_date ), 
 
				SendToReport(
					Dispatch(
						{},
						"Bivariate Fit of test_value By shelf_life_start_date",
						OutlineBox,
						{Set Title(
							"Parameter Value by shelf_life_start_date -" || Eval(
								Parse( Eval Insert( "Stmt" ) )
							)
						)}
					), 
 
					Dispatch(
						{},
						"2",
						ScaleBox,
						{Add Ref Line( Mean_4sigmaUCL, "Solid", "Red", "Mean_4s_UCL", 1 ),
						Add Ref Line( Mean_4sigmaLCL, "Solid", "Red", "Mean_4s_LCL" )}
					),
					Dispatch( {}, "1", ScaleBox, {Label Row( Label Orientation( "Angled" ) )} ),
					Dispatch( {}, "test_value", TextEditBox, {Set Text( "Parameter Value" )} ), 
 
					Dispatch(
						{},
						"Bivar Plot",
						FrameBox,
						{Frame Size( 1018, 423 ), Row Legend(
							Flagging,
							Color( 1 ),
							Color Theme( "JMP Default" ),
							Marker( 1 ),
							Marker Theme( "Standard" ),
							Continuous Scale( 0 ),
							Reverse Scale( 1 ),
							Excluded Rows( 0 )
 
						)}
					)
				)
			)
		)
	)
 
	;
); //end row loop

 

Craige_Hales

Try something like this

dt = Open( "$sample_data/big class.jmp" );

output2 = V List Box(); // vlist box of all the results

For( w = 1, w <= N Rows( dt ), w++, // for every row in *some* table (the original question uses a different table for this)
    Stmt = dt:height[w]; // get some interesting value to subset with and make a subset...
    // (This simplied answer  is a little bit  non-sensical without another table involved--it will make duplicate graphs)
    dt << Clear Row States; // I think this is what you wanted, rather than clearing the column selection
    dt << select where( dt:height == Stmt );
    CofA_dt9a = dt << Subset( Output Table( "TempTable" || Char( w ) ) ); // make a subset

    row1weight = CofA_dt9a:weight[1]; // use row 1 of the subset to get values that will
    row1age = CofA_dt9a:age[1]; // be visible on the X and Y axes

    output2 << append( // collect all the results here
        V List Box( // a list of 1 box; bivariate attaches to this vlist rather than making a window
            (CofA_dt9a << Bivariate( Y( :weight ), X( :age ),
                SendToReport( // the next line has a hyphen that appears to make stmt negative...
                    Dispatch({},"Bivariate Fit of weight By age",OutlineBox,{Set Title( "Parameter Value by shelf_life_start_date -" || Char( stmt ) )}),
                    Dispatch( {}, "2", ScaleBox, {Add Ref Line( row1weight, "Solid", "Red", "row 1 weight", 1 )} ),
                    Dispatch( {}, "1", ScaleBox, {Label Row( Label Orientation( "Angled" ) ), Add Ref Line( row1age, "Solid", "Red", "row 1 age" )} ), 
                    Dispatch({},"Bivar Plot",FrameBox,{Frame Size( 200, 100 )}
                    )
                )
            ))
        ) << cloneBox // cloning the V List Box and the bivariate platform disconnects the clone from the data table
    );
    Close( CofA_dt9a, nosave ); // the subset is not needed after the clone
); //end row loop

Close( dt, nosave );

New Window( "output2", output2 );