49921_zh-CN

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 );
     )
    )
   )
  )
 )
);