194104_ko-KR

liliconcom

계승에서 학위로의 스크립트

특정 DOE 요소를 일부 계승에 할당하기 위해 스크립트 내부에서 계승을 만드는 데 어려움을 겪고 있습니다.

nchoosekMatrix()를 사용하여 첫 번째 레벨을 얻을 수 있지만 1보다 높은 레벨을 동적으로 얻는 방법을 알 수 없습니다.

Names default to here(1);

factorial_to_degree = function({factors, degree = 2, termlist = {}}, 
	{DEFAULT LOCAL}, 
	if(degree!=1, 
		termlist = recurse(factors, degree-1, termlist);
	);
	nckmat = nchoosekmatrix(nrows(factors), degree);
	for(r = 1, r<=nrows(nckmat), r++, 
		AddTermExpr = Expr(AddTerm());
		for(c=1, c<=ncols(nckmat), c++, 
			insert into(AddTermExpr, Evallist({factors[nckmat[r, c]], 1}));
		);
		insert into(termlist, nameexpr(AddTermExpr));
	);
	return(termlist);
);

factorial_to_degree([1, 2, 3], 2);

//returns
/*
{AddTerm( {1, 1} ), AddTerm( {2, 1} ), AddTerm( {3, 1} ), AddTerm( {1, 1}, {2, 1} ),
AddTerm( {1, 1}, {3, 1} ), AddTerm( {2, 1}, {3, 1} )}
*/

//want it to return
/*
{
	AddTerm( {1, 1} ), AddTerm( {2, 1} ), AddTerm( {3, 1} ), 
	AddTerm( {1, 2} ), AddTerm( {2, 2} ), AddTerm( {3, 2} ),
	AddTerm( {1, 1}, {2, 1} ), AddTerm( {1, 1}, {3, 1} ), AddTerm( {2, 1}, {3, 1} )
}
*/

재귀적으로 뭔가를 해야 한다고 생각하지만 실제로 아무것도 작동시키지 못하는 데 어려움을 겪고 있습니다.

어떤 도움이라도 대단히 감사하겠습니다.

실험 설계품질 및 프로세스 엔지니어링재 : 계급에 학위 스크립트

나는 나의 기대가 옳지 않다는 것을 깨달았다.  이것은 실제로 맞는 모델 매크로가하는 것과 같은 일을합니다.  

 

나는 다음과 같은 반복 접근법을 더 좋아한다.  

 

factorial_to_degree = function({factors, degree}, 
 n_factors = nitems(factors);
 factors = shape(factors, n_factors);
 termlist = {};
 for(i=1, i<=degree, i++, 
  nckmat = nchoosekmatrix(n_factors, i);
  for(r = 1, r<=nrows(nckmat), r++, 
   AddTermExpr = Expr(AddTerm());
   for(c=1, c<=ncols(nckmat), c++, 
    insert into(AddTermExpr, Evallist({factors[nckmat[r, c]], 1}));
   );
   insert into(termlist, nameexpr(AddTermExpr));
  );
 );
 return(termlist);
);