49921_ko-KR

liliconcom

평가 가치를 찾는 방법이 있습니까?

여보세요,

제 스크립트를 고치는 데 많은 도움을 주신 모든 커뮤니티 스태프에게 감사드립니다. 

나는 스크립트를 평가할 때 각 디자인을보아야하기 때문에 모든 디자인 결과와 함께 예를 들어 PDF와 같은 기준 (D, G, A, AV)에 대한 평가 값 (설계 진단)을 찾는 방법이 있습니까? 디자인) 및 쓰기 기준선

정말 고마워 

이건 내 대본이다. 

 

dt2_5_2 = 새 테이블 ( "첫 번째 예",
행 추가 (17),
새 열 ( "열 1",
숫자,
"마디 없는",
형식 ( "최고", 12),
값 설정 ([-1, -1, -1, -1, -1, -1, -1, 0, 0, 1, 1, 1, 1, 1, 1, 1])
),
새 열 ( "열 2",
숫자,
"마디 없는",
형식 ( "최고", 12),
값 설정 ([-1, -1, -1, 0, 1, 1, 1, -1, 0, 1, -1, -1, -1, 0, 1, 1,
),
새 열 ( "열 3",
숫자,
"마디 없는",
형식 ( "최고", 12),
값 설정 ([-1, 1, 1, -1, -1, 0, 1, -1, 0, 1, -1, 0, 1, -1, -1, -1, 1]
),
새 열 ( "열 4",
숫자,
"마디 없는",
형식 ( "최고", 12),
값 설정 ([1, -1, 1, -1, -1, -1, 0, -1, 0, 1, 0, 1, -1, -1, -1, 1, -1]
),
새 열 ( "열 5",
숫자,
"마디 없는",
형식 ( "최고", 12),
설정 값 ([-1,1,0,1,1, -1, -1, -1, 0, 1, 1, 1, -1, -1, 0, -1, 1])
),
새 열 ( "열 6",
숫자,
"마디 없는",
형식 ( "최고", 12),
값 설정 ([1, 1, -1, -1, 0, 1, -1, -1, 0, 1, 1, -1, 0, 1, 1, -1, -1]
),
새 열 ( "열 7",
숫자,
"마디 없는",
형식 ( "최고", 12),
값 설정 ([1, 0, -1, 1, -1, -1, -1, -1, 0, 1, -1, 1, 1, -1, 1, 0, -1]
),
새 열 ( "Column 8",
숫자,
"마디 없는",
형식 ( "최고", 12),
선택 설정,
값 설정 ([0, -1, 1, -1, -1, -1, -1, -1, 0, 1, -1, -1, -1, -1, 1, 0])
),
행 상태 설정 ([1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1])
);

 

NamesDefaultToHere (1);

dt = DataTable ( "첫 번째 예");
cols = dt << getColumnNames;

(c1 = 1, c1 = N Items (cols), c1 ++,
(c2 = c1 + 1, c2 <= N Items (cols), c2 ++,
(c3 = c2 + 1, c3 <= N Items (cols), c3 ++,
(c4 = c3 + 1, c4 <= N Items (cols), c4 ++,
(c5 = c4 + 1, c5 = N Items (cols), c5 ++,
(c6 = c5 + 1, c6 <= N Items (cols), c6 ++,
// dt << 부분 집합 (열 (cols [c1], cols [c2])))
// dt << 부분 집합 (열 (cols [c1], cols [c2], cols [c3])));
// dt << 부분 집합 (열 (cols [c1], cols [c2], cols [c3], cols [c4])));
// dt << Subset (Columns (cols [c1], cols [c2], cols [c3], cols [c4], cols [c5])));
dt2 = dt << 서브 세트 (
열 (
cols [c1],
cols [c2],
cols [c3],
cols [c4],
cols [c5],
cols [c6]
)
);
dt2 << 디자인 평가 (
엑스(
cols [c1],
cols [c2],
cols [c3],
cols [c4],
cols [c5],
cols [c6]
),
{용어 ({1, 0}) 추가, 용어 ({1, 1}) 추가,
용어 추가 ({2, 1}), 용어 추가 ({3, 1}),
용어 추가 ({4, 1}), 용어 추가 ({5, 1}),
용어 추가 ({6, 1}), 별칭 용어 ({1, 1}, {2, 1}) 추가,
별칭 용어 추가 ({1, 1}, {3, 1}),
별칭 용어 ({1, 1}, {4, 1}) 추가,
별칭 용어 ({1, 1}, {5, 1}) 추가,
별칭 용어 추가 ({1, 1}, {6, 1}),
별칭 용어 ({2, 1}, {3, 1}) 추가,
별칭 용어 ({2, 1}, {4, 1}) 추가,
별칭 용어 ({2, 1}, {5, 1}) 추가,
별칭 용어 ({2, 1}, {6, 1}) 추가,
별칭 용어 ({3, 1}, {4, 1}) 추가,
별칭 용어 ({3, 1}, {5, 1}) 추가,
별칭 용어 ({3, 1}, {6, 1}) 추가,
별칭 용어 ({4, 1}, {5, 1}) 추가,
별칭 용어 ({4, 1}, {6, 1}) 추가,
별칭 용어 추가 ({5, 1}, {6, 1})}
);
닫기 (dt2, 저장 안함);
)
)
)
)
)
);

    

제목 : Re : 평가 가치를 찾는 방법이 있습니까?

@txnelson 게시물을 때려 눕히기는했지만 결과를 데이터 테이블에 저장하는 솔루션을 개발하고있었습니다.  이것은보다 효율적이고 건조하게 만들 수 있지만 최소한 디스플레이 트리 구조를 탐색하여 보고서에서 값을 가져 오는 방법을 보여줍니다.  흥미로운 점은 모든 디자인이 정확히 동일하다는 것입니다.

Names Default To Here( 1 );

dt = Data Table( "First Example" );
cols = dt << getColumnNames;

D_eff = List();
G_eff = List();
A_eff = List();
PredVar = List();


For( c1 = 1, c1 <= N Items( cols ), c1++,
 For( c2 = c1 + 1, c2 <= N Items( cols ), c2++,
  For( c3 = c2 + 1, c3 <= N Items( cols ), c3++,
   For( c4 = c3 + 1, c4 <= N Items( cols ), c4++,
    For( c5 = c4 + 1, c5 <= N Items( cols ), c5++,
     For( c6 = c5 + 1, c6 <= N Items( cols ), c6++, 
      dt2 = dt << Subset(
       Columns(
        cols[c1],
        cols[c2],
        cols[c3],
        cols[c4],
        cols[c5],
        cols[c6]
       )
      );
      
      //Get Evaluate Designs as Report Object
      rpt = (dt2 << Evaluate Design(
       X( cols[c1], cols[c2], cols[c3], cols[c4], cols[c5], cols[c6] ),
       {Add Term( {1, 0} ), Add Term( {1, 1} ), Add Term( {2, 1} ),
       Add Term( {3, 1} ), Add Term( {4, 1} ), Add Term( {5, 1} ),
       Add Term( {6, 1} ), Add Alias Term( {1, 1}, {2, 1} ),
       Add Alias Term( {1, 1}, {3, 1} ), Add Alias Term( {1, 1}, {4, 1} ),
       Add Alias Term( {1, 1}, {5, 1} ), Add Alias Term( {1, 1}, {6, 1} ),
       Add Alias Term( {2, 1}, {3, 1} ), Add Alias Term( {2, 1}, {4, 1} ),
       Add Alias Term( {2, 1}, {5, 1} ), Add Alias Term( {2, 1}, {6, 1} ),
       Add Alias Term( {3, 1}, {4, 1} ), Add Alias Term( {3, 1}, {5, 1} ),
       Add Alias Term( {3, 1}, {6, 1} ), Add Alias Term( {4, 1}, {5, 1} ),
       Add Alias Term( {4, 1}, {6, 1} ), Add Alias Term( {5, 1}, {6, 1} )}
      ))<<REPORT></REPORT>

 

 

제목 : Re : 평가 가치를 찾는 방법이 있습니까?

다음은 디자인 진단을 캡처하는 방법에 대한 간단한 예제입니다

결과물은별로 좋지 않지만 이런 종류의 것들에 대해 어떻게 생각하는지 알려줄 것입니다.

dt2_5_2 = New Table( "First Example",
 Add Rows( 17 ),
 New Column( "Column 1",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [-1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1] )
 ),
 New Column( "Column 2",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [-1, -1, -1, 0, 1, 1, 1, -1, 0, 1, -1, -1, -1, 0, 1, 1, 1] )
 ),
 New Column( "Column 3",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [-1, 1, 1, -1, -1, 0, 1, -1, 0, 1, -1, 0, 1, 1, -1, -1, 1] )
 ),
 New Column( "Column 4",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [1, -1, 1, -1, 1, -1, 0, -1, 0, 1, 0, 1, -1, 1, -1, 1, -1] )
 ),
 New Column( "Column 5",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [-1, 1, 0, 1, 1, -1, -1, -1, 0, 1, 1, 1, -1, -1, 0, -1, 1] )
 ),
 New Column( "Column 6",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [1, 1, -1, -1, 0, 1, -1, -1, 0, 1, 1, -1, 0, 1, 1, -1, -1] )
 ),
 New Column( "Column 7",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [1, 0, -1, 1, -1, -1, 1, -1, 0, 1, -1, 1, 1, -1, 1, 0, -1] )
 ),
 New Column( "Column 8",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Selected,
  Set Values( [0, -1, 1, 1, -1, 1, -1, -1, 0, 1, 1, -1, 1, -1, -1, 1, 0] )
 ),
 Set Row States( [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] )
);

 

Names Default To Here( 1 );

dt = Data Table( "First Example" );
cols = dt << getColumnNames;
nw=new window("Design Diagnostics", vlb=V List Box());
counter=0;
For( c1 = 1, c1 <= N Items( cols ), c1++,
 For( c2 = c1 + 1, c2 <= N Items( cols ), c2++,
  For( c3 = c2 + 1, c3 <= N Items( cols ), c3++,
   For( c4 = c3 + 1, c4 <= N Items( cols ), c4++,
    For( c5 = c4 + 1, c5 <= N Items( cols ), c5++,
     For( c6 = c5 + 1, c6 <= N Items( cols ), c6++, 
//dt << Subset(Columns(cols[c1], cols[c2]))
      //dt << Subset(Columns(cols[c1], cols[c2], cols[c3]));
      //dt << Subset(Columns(cols[c1], cols[c2], cols[c3], cols[c4]));
      //dt << Subset(Columns(cols[c1], cols[c2], cols[c3], cols[c4], cols[c5]));
      dt2 = dt << Subset( Columns( cols[c1], cols[c2], cols[c3], cols[c4], cols[c5], cols[c6] ) );
      counter++;
      des=dt2 << Evaluate Design(
       X( cols[c1], cols[c2], cols[c3], cols[c4], cols[c5], cols[c6] ),
       {Add Term( {1, 0} ), Add Term( {1, 1} ), Add Term( {2, 1} ), Add Term( {3, 1} ),
       Add Term( {4, 1} ), Add Term( {5, 1} ), Add Term( {6, 1} ),
       Add Alias Term( {1, 1}, {2, 1} ), Add Alias Term( {1, 1}, {3, 1} ),
       Add Alias Term( {1, 1}, {4, 1} ), Add Alias Term( {1, 1}, {5, 1} ),
       Add Alias Term( {1, 1}, {6, 1} ), Add Alias Term( {2, 1}, {3, 1} ),
       Add Alias Term( {2, 1}, {4, 1} ), Add Alias Term( {2, 1}, {5, 1} ),
       Add Alias Term( {2, 1}, {6, 1} ), Add Alias Term( {3, 1}, {4, 1} ),
       Add Alias Term( {3, 1}, {5, 1} ), Add Alias Term( {3, 1}, {6, 1} ),
       Add Alias Term( {4, 1}, {5, 1} ), Add Alias Term( {4, 1}, {6, 1} ),
       Add Alias Term( {5, 1}, {6, 1} )}
      );
      ob= outline box(char(counter),vlb2=V List Box());
      vlb2 << append(report(des)["Design Diagnostics"]);
      des << close window;
      vlb << append(ob);
      Close( dt2, no save );
     )
    )
   )
  )
 )
);