nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

504519_ja-JP

liliconcom

インタラクティブなスライダーボックスを使用してインタラクティブなパレートプロットを作成し、列の式を更新する

生産中の製品が通過する必要がある一連の仕様があります。各仕様で必要な値 (制限) を指定し、バイナリの合格/不合格を作成する式を含む列があります。この式は、合格数とパーセンテージのパレートグラフを作成するために使用されます。スライダーボックスを使用してインタラクティブなパレートグラフを作成してテスト制限を調整し、これらの制限を変更するとテストに合格/不合格となる項目の量がどのように変化するかを確認したいと考えています。

私の主な問題は次の 2 つです。

1) テストされる製品タイプは複数あります。製品ごとに一貫した数の仕様が存在するわけではないので、これらの仕様をリストに挿入し (添付のコードでは「仕様」になります)、外部データテーブルを使用して目的の製品の仕様を記入する予定です。これは私が助けを必要とするものではありませんが、変数を直接参照せずに for ループ内でスライダーボックスやナンバーボックスなどを入力する必要があるため、考慮すべき点です。

2) テスト目的で式を更新できるように、変数の配列 (仕様制限) が必要です。これも for ループ内に置く必要があります。現時点でのスクリプトでは、合格/不合格列の式で仕様制限の値が更新されていないようです。スライダーボックスが << inval コマンドを受け取り、グラフが更新されても、実際の合格/不合格列は更新されないため、何も起こりません。現在、仕様制限を格納するために連想配列を使用しています。これは正しい方法ではない可能性があります。

現在使用しているサンプルデータテーブルと現在のスクリプトを添付しました。ありがとう！

Names default to here(1);
RangeMin = Associative array(["m1" => 0,
"m2" => 0,
"m3" => 0,
"thickness" => 0]);
RangeMax = Associative array(["m1" => 1,
"m2" =>1,
"m3" => 1,
"thickness" => 20]);
limit = Associative array(["m1" => 0.5,
"m2" => 0.5,
"m3" => 0,
"thickness" => 4]);

SliderVars = {0.5,0.5,0.5,10};

spec = {"m1","m2","m3","thickness"};
GraphingTable = current data table();

finalDisplay = New Window ("test", testlist = h list box());
:name("Pass/Fail") <<  Set Formula(
   if((:thickness >=  limit["thickness"] & :m3 >= limit["m3"] & m2 >= limit["m2"] & m1 >= limit["m1"]), "Pass", "Fail" )
   );
PP= Graphing Table << Pareto Plot( Cause( :"Pass/Fail"n ) );

ValuesOutlineBox = Outline Box ( "Values", SliderList = v list box());
For(i=1, i<= n items(spec),i++,

 SliderList << append(
  h list box(
   Text box(spec[i]),
   testing = spec[i];
   
   eval(
    parse(
     eval insert(
       "Var^char(i)^ = ^SliderVars[i]^;
       
       SB^char(i)^ = Slider Box(
       ^RangeMin << get value(spec[i])^,
       ^RangeMax << get value(spec[i])^,
       Var^char(i)^,
       NEB^char(i)^ << set( Var^char(i)^ );
       limit[testing] = Var^char(i)^;
       testlist[2] << Delete Box();
       wait(0.1);
       testlist << append(report(PP));
      );"
     );
    );
   ),
   testing = spec[i];
   
   eval(
    parse(
     eval insert(
       "NEB^char(i)^ = Number Edit Box( Var^char(i)^,
        << set function(
         Function( {this},
         Var^char(i)^ = this << get;
         SB^char(i)^ << inval;
         limit[testing] = Var^char(i)^;
         testlist[2] << Delete Box();
         wait(0.1);
         testlist << append(report(PP)); 
         )
        )
        
        
       );"
       
     
     );
    );
   ),
    
    
   
  )
 )
);

testlist << append(ValuesOutlineBox);
testlist << append(report(PP));

品質およびプロセスエンジニアリング

ウィンドウズ