508378_ja-JP

liliconcom

リストによって参照される連想配列に基づいて列式を更新する。

仕様の制限に基づいて合格または不合格になる可能性のある製品をテストする列式があります。 連想配列は、製品のさまざまな仕様の下限と上限を参照するために使用されます。 私が抱えている問題は、ユーザーが合格/不合格の列にインポートする製品仕様を選択することです。 異なるデータテーブルから参照された後、それらは毎回異なります。 目標は、数式列で要求された仕様のリストを反復処理し、それぞれが制限内にあるかどうかを確認することです。 もしそうなら、全体的な合格/不合格の分類が帰属します。 これは数式列の外で行いますが、スクリプトの後半では、その数式列を繰り返し更新して、仕様制限の許容範囲を変更することにより、合格と不合格の分析を続行します。 計算全体を数式自体に含める必要があると思います

 

2つのデータテーブルと、以下の仕掛品スクリプトを添付しました。

Names Default To Here(1);



//declare associative array for specs
specs = Associative Array();/*
//input limits file
LimitsCSV = Pick File(
 "Select The Appropriate Spec Limit Table",
  "filepath"//Insert file path here.
 
);
//open limits file in JMP
LimitsTable = open( LimitsCSV, invisible);




//Open Current Product Testing Data
DataTable = Pick File(
 "Select The Current Product Testing Data",
 "filepath"// Insert File Path Here
 
);
//set testing data to be able to manipulate in JMP
GraphingTable = open(DataTable);

//Select the Specs you want to compare by using a COL LIST BOX
ListNumericCols = GraphingTable << Get Column Names(numeric);
New Window("Select Wanted Specifications", << Modal, 
 clb = Col List Box (<< Set Items (ListNumericCols))
);

ListSpecNames = clb << Get Selected;
show(ListSpecNames); //Display for testing

//insert spec names into associative array
for (i=1,i< (N Items(ListSpecNames) + 1), i++,
 
 Insert Into(specs, ListSpecNames[i]);
 ColSpec = Column(LimitsTable, 1); //1 is the coolumn for spec name
 
 LimitList= {};
 
 //Insert Lower Limit onto 
 for(j=1, j < (nrows(LimitsTable)+1), j++,
 
  if (ColSpec[j] == ListSpecNames[i],
  ColLimit = Column(LimitsTable, 2);//14 is the column for lower limit
  MinVal = 0;
  if(ColLimit[j] > 0, MinVal = ColLimit[j] / 2, MinVal = ColLimit[j]*2);
  InsertInto(LimitList, MinVal );
  break();
 ));
 for(k=1, k < (nrows(LimitsTable)+1), k++,
 
  if (ColSpec[k] == ListSpecNames[i],
  ColLimit = Column(LimitsTable, 2);//14 is the column for lower limit
  InsertInto(LimitList, ColLimit[k]);
  break();
 ));
 for(l=1, l < (nrows(LimitsTable)+1), l++,
 
  if (ColSpec[l] == ListSpecNames[i],
  ColLimit = Column(LimitsTable, 3);//14 is the column for lower limit
  InsertInto(LimitList, ColLimit[l]);
  break();
 ));
 for(m = 1, m < (nrows(LimitsTable)+1), m++,
  if (ColSpec[m] == ListSpecNames[i],
  ColLimit = Column(LimitsTable, 3);//14 is the column for upper limit
  MaxVal = 0;
  if(ColLimit[m] > 0, MaxVal = ColLimit[m] *2, MaxVal = ColLimit[m] /2 );
  InsertInto(LimitList, MaxVal );
  break();
  ) 
 ); 
 
 
 specs[ListSpecNames[i]] = LimitList
);

close(LimitsTable, no save);
PassBool = 1;
ColNameList = GraphingTable << get column names(string);
newcolumn = "Pass/Fail";
if (!contains(ColNameList, NewColumn),
GraphingTable << new column("Pass/Fail"));/*
if(((column("m1") >= specs["m1"][2]) & (column("m2") <= specs["m2"][3])),
  show("Pass"),
  show("Fail")
 );*/
Column(GraphingTable, "Pass/Fail") << Set Formula(
 //counter = 0;
 
 for(i=1,i< (N Items(ListSpecNames) + 1), i++,
   
  if((Column(ListSpecNames[i]) >= specs[ListSpecNames[i]][2]) & (Column(ListSpecNames[i]) <= specs[ListSpecNames[i]][3]),
  show("Pass"),
  show("Fail");
  PassBool = 0;
  break();
  )
 ) ;
 If(PassBool == 1, "Pass","Fail")
  
  
 );
 


show(specs);

以下の私のjslスクリプト。

分析データ表スクリプティングウィンドウズRe：リストによって参照される連想配列に基づいて列式を更新します。

私はおそらく、数式を文字列として作成してから、列に評価します（を参照してください）。 Eval Insert、Eval Expr、Parse、およびSubstituteを使用して、ある式を別の式に挿入します）。

 

これは理解するのに最も簡単なスクリプトではありませんが、部分的に実行し、デバッグshow（）をあちこちに追加して理解を深めます。

Names Default To Here(1);

//open limits file in JMP
LimitsTable = open("vinyl data limits.jmp", invisible);
//set testing data to be able to manipulate in JMP
GraphingTable = open("Vinyl Data.jmp");

//Select the Specs you want to compare by using a COL LIST BOX
ListNumericCols = GraphingTable << Get Column Names(numeric);
nw = New Window("Select Wanted Specifications", << Modal, << return result,
 clb = Col List Box (<< Set Items (ListNumericCols))
);

ListSpecNames = nw["clb"];

// https://www.jmp.com/support/help/en/16.2/#page/jmp/associative-arrays-in-set-operations.shtml
specs = Associative Array(LimitsTable[0, 1],
 AsList(LimitsTable[0, 2::3])
);
close(LimitsTable, no save);
sel_specs = Associative Array(ListSpecNames);
specs << Intersect(sel_specs);

if(!contains(GraphingTable << Get Column Names("String"), "Pass/Fail"),
 GraphingTable << new column("Pass/Fail", Character);
);

// as we have to have a formula and we have to build it dynamically, we will build it as expression
// which is based on specs associative array
// with JMP16 we can use For Each, otherwise we would have to use For
// I dont like using eval parse but in this case it is most likely easiest to build formula as string
f = "If(All(";
For Each({{spec, limits}}, specs,
 f ||= Eval Insert("^limits[1]^ < :^spec^ < ^limits[2]^ & ");
);
//drop last &
f = Left(f, Length(f) - 3);
f ||= "),"; // close all
f ||= "\!N\!t\!"PASS\!",\!"FAIL\!"
)";

Eval(EvalExpr(Column(GraphingTable, "Pass/Fail") << Set Formula(
 Expr(Parse(f));
)));

何をしているかに応じて、SpecLimits列のプロパティを使用することも考えられます。