107366_en-US

liliconcom

Spline for scatterplot matrix graphs

Hello,

Is there a way to calculate a spline for the x-y plots presented in a scatterplot matrix?

(such an option exists for the bivariate plot).

Through JSL would be great if possible.

Thanks

Re: Spline for scatterplot matrix graphs

From your question:

"Do you think there might be a way of doing the mentioned above through graph builder, with a stacked plot (various y scales on the same X axis)?"

it appears that you are not schooled in JSL.  When asking most question about JSL and output manipulation, the answer will be "YES".  The real question needs to be:

"How do you do.............?"

I will strongly suggest that you read the JSL Scripting Guide to start your journey of learning JSL.

     Help==>Books==>Scripting Guide

Getting back to your question......it is a bit ambigous.  So I am going to guess that what you want is a matrix of outputs from Graph Builder.  I am also guessing that you are aware that Graph Builder has the capability of generating a matrix of outputs, but can not change the Y column specifications from graph to graph.....thus your question.  Below is my example of one way of doing this.  It is a fairly hardwired piece of JSL, but it does show that you can do the kind of thing you were asking about.  I will leave the specifics of what you actually need to your code development.  (The Community Discussion forum is not a place to go to get someone to write scripts for you)

 

Names default to here( 1 );
dt = Open( "$SAMPLE_DATA/Semiconductor Capability.jmp" );

// Build a window to place the output into
nw = New Window( "Plots", vlb = V List Box() );

// I chose to do a 4x4 matrix so the Row loop needs to loop 1-4
For( theRow = 1, theRow <= 4, theRow++, 

 // Create an object to place each rows output into
 hlb = H List Box();

 // Starting in the 5th column grab 4 pairs of columns, 2 at a time for each of the
 // 4 graphs to be generated for the current row
 For( theCol = 5 + (theRow - 1) * 8, theCol <= (5 + (theRow - 1) * 8) + 7, theCol = theCol + 2, 

  // Append into the object that is being built for the current row, the graph output
  hlb << append(
   // The graph code was generated by first interactively creating the Graph Builder
   // to the way I wanted it to look, and then saving the script to a script window.
   // The only change that I made after that, was to change the column reference
   // for the 2 Y column references, to point to column number from variable "theCol"
   // taken from the For() loop
   Graph Builder(
    Size( 227, 213 ),
    Show Control Panel( 0 ),
    Show Legend( 0 ),
    Variables( X( :lot_id ), Y( Column( theCol ) ), Y( Column( theCol+1 ), Position( 1 ) ) ),
    Elements( Bar( X, Y( 1 ), Y( 2 ), Legend( 6 ), Bar Style( "Stacked" ) ) ),
    SendToReport(
     Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "" )} ),
     Dispatch( {}, "lot_id", ScaleBox, {Label Row( Label Orientation( "Vertical" ) )} ),
     Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} )
    )
   )
  )
 );
 // Add the current row's object to the verticle list box in the display window
 vlb << append( hlb );
);

 

Re: Spline for scatterplot matrix graphs

 Thanks!!

That should work great.

Do you think there might be a way of doing the mentioned above through graph builder, with a stacked plot (various y scales on the same X axis)?

Re: Spline for scatterplot matrix graphs

The scatterplot matrix platform does not have a spline fit, however you may be able to get bivariate close to what you want....

Here is a less than perfect script that does the above...you may find it a good starting point

names default to here(1);
dt=open("$SAMPLE_DATA/Semiconductor Capability.jmp" );

fg=Fit Group(
 Bivariate(
  Y( :NPN1 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN1 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP1 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP2 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN2 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP3 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP1 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :PNP4 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN3 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :IVP2 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :NPN1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :PNP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :PNP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :NPN2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :PNP3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :IVP1 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :PNP4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :NPN3 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :IVP2 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 Bivariate(
  Y( :NPN4 ),
  X( :NPN4 ),
  Fit Spline( 1000, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch( {}, "Bivar Plot", FrameBox, {Frame Size( 119, 111 )} )
  )
 ),
 <<{Arrange in Rows( 10 )}
);
For( i = 1, i <= N Items( fg << xPath( "//OutlineBox" ) ), i++,
 if( Contains( Report( fg )[Outline Box( i )] << get title, "Smoothing Spline Fit," ) == 1,
    Report( fg )[Outline Box( i )] << delete
 )
);

For( i = 1, i <= N Items( fg << xPath( "//OutlineBox" ) ), i++,
 If( Contains( Report( fg )[Outline Box( i )] << get title, "Bivariate Fit of" ) == 1,
   Report( fg )[Outline Box( i )] << set title(
   Substr( Report( fg )[Outline Box( i )] << get title, 18 ));
   Report( fg )[Outline Box( i )][Picture Box( 2 )] << delete;
 )
);