427090_ja-JP

liliconcom

別のjslスクリプトの別の式内のコンボボックスから選択された値を取得するにはどうすればよいですか?

こんにちは皆さん、

 

スクリプトが 2 つあります。 ScriptA には、動的制限を備えた二変量グラフを作成する式があります。 ScriptB は基本的に、ユーザーに X 軸と Y 軸の列名の選択を求めるフロントエンド アプリケーション コードです。 選択した列の出力として二変量グラフを取得するために、ScriptB からのユーザーからの選択された入力 (つまり、コンボ ボックスから選択された入力) を ScriptA 式コードに使用したいと考えています。

 

 

私の目的は、スクリプト B を実行するときに、選択したパラメーターのスライダーを含むグラフを取得することです。

</CODE></PRE>
<PRE><CODE class=" language-jsl">////////////////////////////////////SCRIPT A//////////////////////////////////////

DT = open("data.jmp", invisible);


//Getting the inputs
x = inputParameter  << get Selected;
y = response << get Selected;
z = blocking << get Selected;

//Making graphs  

myFinalDisplay = expr(
 myGbDispObj = dt << Bivariate(
 Size( 550, 400 ),
 Y( Eval(y) ),
 X( Eval(x) ),
 Automatic Recalc( 1 ),
 Histogram Borders( 1 ),
 Summary Statistics( 1 ),
 Fit Spline( 2, {Line Color( {212, 73, 88} )} ),
 SendToReport( 
  Dispatch(
   {},
   "Bivar Plot",
   FrameBox,
   {Row Legend(
    Eval(z),
    Color( 1 ),
    Color Theme( "JMP Default" ),
    Marker( 1 ),
    Marker Theme( "Solid" ),
    Continuous Scale( 1 ),
    Reverse Scale( 0 ),
    Excluded Rows( 0 )
   )}
  ),
  Dispatch( {}, "Summary Statistics", OutlineBox, {Close( 1 )} )
 )
);

 myLimitCol = column(DT, Eval(x));
 
 myLimitMin = colMinimum(myLimitCol); show(myLimitMin);
 myLimitMax = colMaximum(myLimitCol); show(myLimitMax);
 myTbLo = textBox(Char(round(myLimitMin, 2)) || " (OOC = " || char(0.00, 10, 2) || "%)");
 myTbHi = textBox(Char(round(myLimitMax, 2)) || " (OOC = " || char(0.00, 10, 2) || "%)");

 mySbDispObj = rangeSliderBox(
  myLimitMin,
  myLimitMax,
  32,
  36,
     
  //script
  mySelectedLower = mySbDispObj << getLower;
  mySelectedUpper = mySbDispObj << getUpper;
  myGbDispObj << Dispatch( {}, "1", ScaleBox, {Add Ref Line( mySelectedLower, "Dashed", "blue", "LCL", 4 )} );
  myGbDispObj << Dispatch( {}, "1", ScaleBox, {Add Ref Line( mySelectedUpper, "Dashed", "blue", "UCL", 4 )} );
  
  rUpper = dt << Get Rows Where( myLimitCol[] > mySelectedUpper );
  OOC_valUpper = (N Items(rUpper) / N rows(dt))*100;
  myTbHi << setText(Char(round(mySelectedUpper, 1)) || " (OOC = " || char(OOC_valUpper, 10, 2) || "%)");

  rLower = dt << Get Rows Where( myLimitCol[] < mySelectedLower );
  OOC_valLower = (N Items(rLower) / N rows(dt))*100;
  myTbLo << setText(Char(round(mySelectedLower, 1)) || " (OOC = " || char(OOC_valLower, 10, 2) || "%)");
 );
 mySbDispObj << Set Width( 275 );
  
 myLayout = vListBox(
  myGbDispObj,
  hListBox(myTbLo, spacerBox(size(50,0)), myTbHi),
  mySbDispObj
 );
);



//PLATFORM = newWindow("TEST", vListBox(myFinalDisplay));



////////////////////////////////////SCRIPT A    ENDS///////////////////////////////////////////////////////////////////////SCRIPT B///////////////////////////////////////////////////
include("ScriptA");

myStaticLibContainer = vListBox();          //Making a static container



//////Calling the expression "myFinalDisplay" from ScriptA and adding it to the static container//////

sliderGraph = buttonBox("Get Slider Graph", myStaticLibContainer << append(vListBox(myFinalDisplay)));



///Creating user input boxes///

inputParameter = comboBox("Parameter");
response = comboBox("Response");
blocking = comboBox("FAB");

myMainToolPanelBox = panelBox("myMainToolPanelBox",
 vListBox(
  spacerBox(size(1000,0)),
  V List Box(Text Box("Predictor"), inputParameter),
  V List Box(Text Box("Response"), response),
  V List Box(Text Box("Block By"), blocking)),
  H List Box(sliderGraph), 
  scrollBox(size(1000,550), myStaticLibContainer),
 );


myPlatform = newWindow("Loss Curves", myMainToolPanelBox);   

/////////////////////////////////SCRIPT B  ENDS///////////////////////////////////////////////////

////////////////////////////////////////スクリプト終了////// ////////////////////////////////

データテーブルとスクリプトも添付しました!!

よろしくお願いします。

@txnelson

 

 

ピムローズ

自動化とスクリプト作成マスカスタマイゼーション品質およびプロセスエンジニアリングRe: 別の JSL スクリプトの別の式内のコンボ ボックスから選択された値を取得するにはどうすればよいですか?

ありがとう。 これはうまくいきました。 変数が重なっていました。

Re: 別の JSL スクリプトの別の式内のコンボ ボックスから選択された値を取得するにはどうすればよいですか?

スクリプト A にいくつかの変更を加えました。基本的に、変更は、呼び出される変数が呼び出される前に定義されていることを確認するためのものです。Clear Symbols(); を追加しました。これは、変数がぶら下がっていないことを確認するのに役立ちます。

Clear Symbols();
DT = open("data.jmp", invisible);

//Making graphs  

myFinalDisplay = Expr(
//Getting the inputs
 x = inputParameter << get Selected;
 y = response << get Selected;
 z = blocking << get Selected;
 myGbDispObj = dt << Bivariate(
  Size( 550, 400 ),
  Y( Eval( y ) ),
  X( Eval( x ) ),
  Automatic Recalc( 1 ),
  Histogram Borders( 1 ),
  Summary Statistics( 1 ),
  Fit Spline( 2, {Line Color( {212, 73, 88} )} ),
  SendToReport(
   Dispatch(
    {},
    "Bivar Plot",
    FrameBox,
    {Row Legend(
     Eval( z ),
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 1 ),
     Marker Theme( "Solid" ),
     Continuous Scale( 1 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   ),
   Dispatch( {}, "Summary Statistics", OutlineBox, {Close( 1 )} )
  )
 );

 myLimitCol = Column( DT, Eval( x ) );
 
 myLimitMin = Col Minimum( myLimitCol );
 Show( myLimitMin );
 myLimitMax = Col Maximum( myLimitCol );
 Show( myLimitMax );
 myTbLo = Text Box( Char( Round( myLimitMin, 2 ) ) || " (OOC = " || Char( 0.00, 10, 2 ) || "%)" );
 myTbHi = Text Box( Char( Round( myLimitMax, 2 ) ) || " (OOC = " || Char( 0.00, 10, 2 ) || "%)" );

 mySbDispObj = Range Slider Box(
  myLimitMin,
  myLimitMax,
  mySelectedLower,
  mySelectedUpper, 
     
  //script
  //mySelectedLower = mySbDispObj << getLower;
  //mySelectedUpper = mySbDispObj << getUpper;
  myGbDispObj << Dispatch( {}, "1", ScaleBox, {Add Ref Line( mySelectedLower, "Dashed", "blue", "LCL", 4 )} );
  myGbDispObj << Dispatch( {}, "1", ScaleBox, {Add Ref Line( mySelectedUpper, "Dashed", "blue", "UCL", 4 )} );
  
  rUpper = dt << Get Rows Where( myLimitCol[] > mySelectedUpper );
  OOC_valUpper = (N Items( rUpper ) / N Rows( dt )) * 100;
  myTbHi << setText( Char( Round( mySelectedUpper, 1 ) ) || " (OOC = " || Char( OOC_valUpper, 10, 2 ) || "%)" );

  rLower = dt << Get Rows Where( myLimitCol[] < mySelectedLower );
  OOC_valLower = (N Items( rLower ) / N Rows( dt )) * 100;
  myTbLo << setText( Char( Round( mySelectedLower, 1 ) ) || " (OOC = " || Char( OOC_valLower, 10, 2 ) || "%)" );
 );
 mySbDispObj << Set Width( 275 );
  
 myLayout = V List Box( myGbDispObj, H List Box( myTbLo, Spacer Box( size( 50, 0 ) ), myTbHi ), mySbDispObj );
);



//PLATFORM = newWindow("TEST", vListBox(myFinalDisplay));

スクリプト B への唯一の変更は、「応答」変数にスコープの明確化を追加することでした。これはスクリプト内で使用されており、列名でもあります。JMPは混乱していました。したがって、その前に「::」を追加することで、JMP は使用方法の列ではなくメモリ変数を検索するようになりました。

myStaticLibContainer = vListBox();          //Making a static container



//////Calling the expression "myFinalDisplay" from ScriptA and adding it to the static container//////

sliderGraph = buttonBox("Get Slider Graph", myStaticLibContainer << append(vListBox(myFinalDisplay)));



///Creating user input boxes///

inputParameter = comboBox("Parameter");
::response = comboBox("Response");
blocking = comboBox("FAB");

myMainToolPanelBox = panelBox("myMainToolPanelBox",
 vListBox(
  spacerBox(size(1000,0)),
  V List Box(Text Box("Predictor"), inputParameter),
  V List Box(Text Box("Response"), response),
  V List Box(Text Box("Block By"), blocking)),
  H List Box(sliderGraph), 
  scrollBox(size(1000,550), myStaticLibContainer),
 );


myPlatform = newWindow("Loss Curves", myMainToolPanelBox);