49921_zh-TW

liliconcom

有沒有辦法找到評估價值？

你好，

我要感謝所有幫助我修復腳本的社區工作人員 

我有一個問題，有沒有辦法找到標準（D，G，A，AV）的評估值（設計診斷），例如PDF和所有設計結果，因為當我評估我的腳本時，我必須看到每個設計（28設計）並寫標準vlue

非常感謝 

這是我的劇本 

 

dt2_5_2 =新表（“第一個例子”，
添加行（17），
新欄目（“第1欄”，
數字，
“連續”，
格式（“最佳”，12），
設定值（[-1，-1，-1，-1，-1，-1，-1,0,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,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]）
）
新欄目（“第8欄”，
數字，
“連續”，
格式（“最佳”，12），
設置選中，
設定值（[0，-1,1,1，-1,1，-1，-1,0,1,1，-1,1，-1，-1,1,0]）
）
設置行狀態（[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項（cols），c1 ++，
對於（c2 = c1 + 1，c2 <= N項（cols），c2 ++，
對於（c3 = c2 + 1，c3 <= N項（cols），c3 ++，
對於（c4 = c3 + 1，c4 <= N項（cols），c4 ++，
對於（c5 = c4 + 1，c5 <= N項（cols），c5 ++，
對於（c6 = c5 + 1，c6 <= N項（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 <<子集（
列（
COLS [C1]，
COLS〔C2〕，
COLS〔C3〕，
COLS〔C4〕，
COLS [C5]，
COLS [C6]
）
）;
dt2 <<評估設計（
X（
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 );
     )
    )
   )
  )
 )
);