41298_ko-KR

liliconcom

한 테이블에 저장된 한계가있는 관리 도표 (모든 숫자 열) 용 스크립트

안녕하세요,

 

몇 가지 컨트롤 차트 (데이터 테이블의 모든 숫자 열)로 하나의 창 / 보고서를 생성하려고합니다. 지금까지이 보고서를 생성 할 수있었습니다. 그러나 하나의 데이터 테이블에 모든 제한을 저장할 수는 없습니다. 아무도 나를 도울 수 있습니까?

 

내 코드를 따른다.

dt = Current Data Table ();

//Deselection von allen Spalten
cols = dt << get column names();
For(i = 1, i <= N Col(dt), i++,
    cols[i] << set selected (0)
);

//Selection 
cc = dt << Get Column Names( numeric );
ncols = N Items( cc );
For( i = 1, i <= ncols, i++,
cc[i] << Set Selected( 1 )
);

nw1 = New Window ("Control Charts");

For( i = 1, i <= ncols, i++,
test = cc[i];
conc = Control Chart(
 Group Size( 1 ),
 KSigma( 3 ),
 Chart Col(as Column (test) ),
 Chart Type( Moving Range )
); nw1 << append (Report(conc)); conc << Close Window);

nw1 << in New Table;

제목 : Re : 하나의 테이블에 저장 한 제한이있는 제어 차트 (모든 숫자 열) 용 스크립트

. . . 다음은 열 속성을 사용하는 대안입니다.

NamesDefaultToHere(1);
// Make a table with some random data
dt = NewTable("Charts");
n = 5;
dt << addMultipleColumns("C_", n, Numeric);
dt << addRows(20);
for(c=1, c<=n, c++, Column(dt, "C_"||Char(c)) << formula(RandomNormal(0, 1)));
dt << runFormulas;
// Put the charts into a single window
nw1 = New Window ("Control Charts",
   For( c = 1, c <= n, c++,
     thisCC = dt << Control Chart(
            Group Size( 1 ),
            KSigma( 3 ),
            Chart Col(Column(dt, "C_"||Char(c))),
            Chart Type( Moving Range )
           );
     // Save the computed limits as a column property
     thisCC << inColumn;
     );
    );
// Make a blank limits table
dt2 = NewTable("Limts",
    NewColumn("Column", Character),
    NewColumn("Avg", Numeric),
    NewColumn("LCL", Numeric),
    NewColumn("UCL", Numeric),
    << addRows(n)
    );
// Populate the limits table by parsing the saved column property
For( c = 1, c <= n, c++,
 clExpr = Column(dt, "C_"||Char(c)) << getProperty("Control Limits");
 Column(dt2, "Column")[c] = "C_"||Char(c);
 Column(dt2, "Avg")[c] = Arg(Arg(Arg(clExpr, 1), 1), 1);
 Column(dt2, "LCL")[c] = Arg(Arg(Arg(clExpr, 1), 2), 1);
 Column(dt2, "UCL")[c] = Arg(Arg(Arg(clExpr, 1), 3), 1);
 );

이게 더 간단 할 것 같아. 컨트롤 차트 작성기 , 그러나 나는 체크하지 않았다. (그리고 어쨌든 '오래된'플랫폼을 사용하는 이유가있을 수있다.)

제목 : Re : 하나의 테이블에 저장 한 제한이있는 제어 차트 (모든 숫자 열) 용 스크립트

고맙습니다. 그것은 완벽하게 작동합니다. 많은 시간을 절약 할 수 있습니다

제목 : Re : 하나의 테이블에 저장 한 제한이있는 제어 차트 (모든 숫자 열) 용 스크립트

귀하의 코드에 대한 내 솔루션입니다.  이 특정 문제에 대한 목적을 달성하지 못하는 코드를 주석 처리했습니다.

Names Default To Here( 1 );
dt = Current Data Table();

//Deselection von allen Spalten
/*cols = dt << get column names();
For( i = 1, i <= N Col( dt ), i++,
 cols[i] << set selected( 0 )
);*/

//Selection 
cc = dt << Get Column Names( numeric );
/*ncols = N Items( cc );
For( i = 1, i <= ncols, i++,
 cc[i] << Set Selected( 1 )
);*/

nw1 = New Window( "Control Charts" );

For( i = 1, i <= N Items( cc ), i++, 

 Current Data Table( dt );  // Should not be required, but script would not work without it
 conc = dt << Control Chart( Group Size( 1 ), KSigma( 3 ), Chart Col( As Column( cc[i] ) ), Chart Type( Moving Range ) );
 concDT = conc << in New Table;
 concDT << New Column( "Column", character, set each value( Char( cc[i] ) ) );
 Column( concDT, Char( cc[i] ) ) << set name( "Value" );
 If( i == 1,
  baseDT = concDT,
  baseDT << concatenate( concDT, append to first table( 1 ) );
  Close( concDT, nosave );
 );
 nw1 << append( Report( conc ) );
 
 conc << Close Window;
    
);