49921_es-ES

liliconcom

¿Hay una manera de encontrar valor de evaluación?

Hola,

Me gustaría agradecer a todo el personal de la comunidad que me ayudó mucho para corregir mi script. 

Tengo una pregunta, ¿hay una manera de encontrar valores de evaluación (diagnósticos de diseño) para el criterio (D, G, A, AV), por ejemplo, PDF con todos los resultados de los diseños porque cuando evalúo mis scripts, tengo que ver cada diseño (28) diseños) y escribir criterio vlue

muchas gracias 

este es mi guion 

 

dt2_5_2 = Nueva tabla ("Primer ejemplo",
Añadir filas (17),
Nueva Columna ("Columna 1",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores de ajuste ([-1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1])
)
Nueva columna ("Columna 2",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores de ajuste ([-1, -1, -1, 0, 1, 1, 1, -1, 0, 1, -1, -1, -1, 0, 1, 1, 1])
)
Nueva Columna ("Columna 3",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores de ajuste ([-1, 1, 1, -1, -1, 0, 1, -1, 0, 1, -1, 0, 1, 1, -1, -1, 1])
)
Nueva Columna ("Columna 4",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores de ajuste ([1, -1, 1, -1, 1, -1, 0, -1, 0, 1, 0, 1, -1, 1, -1, 1, -1])
)
Nueva Columna ("Columna 5",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores establecidos ([-1, 1, 0, 1, 1, -1, -1, 0, 1, 1, 1, -1, -1, 0, -1, 1])
)
Nueva Columna ("Columna 6",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores establecidos ([1, 1, -1, -1, 0, 1, -1, -1, 0, 1, 1, -1, 0, 1, 1, -1, -1])
)
Nueva Columna ("Columna 7",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Valores establecidos ([1, 0, -1, 1, -1, -1, 1, -1, 0, 1, -1, 1, 1, -1, 1, 0, -1])
)
Nueva Columna ("Columna 8",
Numérico,
"Continuo",
Formato ("Mejor", 12),
Establecer seleccionado,
Valores de ajuste ([0, -1, 1, 1, -1, 1, -1, -1, 0, 1, 1, -1, 1, -1, -1, 1, 0])
)
Establecer estados de fila ([1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1])
);

 

NombresDefaultToHere (1);

dt = DataTable ("Primer Ejemplo");
cols = dt << getColumnNames;

Para (c1 = 1, c1 <= N elementos (cols), c1 ++,
Para (c2 = c1 + 1, c2 <= N elementos (cols), c2 ++,
Para (c3 = c2 + 1, c3 <= N Artículos (cols), c3 ++,
Para (c4 = c3 + 1, c4 <= N elementos (cols), c4 ++,
Para (c5 = c4 + 1, c5 <= N elementos (cols), c5 ++,
Para (c6 = c5 + 1, c6 <= N Artículos (cols), c6 ++,
// dt << Subconjunto (Columnas (columnas [c1], columnas [c2]))
// dt << Subconjunto (Columnas (columnas [c1], columnas [c2], columnas [c3]));
// dt << Subconjunto (Columnas (cols [c1], cols [c2], cols [c3], cols [c4]));
// dt << Subconjunto (Columnas (cols [c1], cols [c2], cols [c3], cols [c4], cols [c5]));
dt2 = dt << Subconjunto (
Columnas (
cols [c1],
cols [c2],
cols [c3],
cols [c4],
cols [c5],
cols [c6]
)
);
dt2 << Evaluar Diseño (
X(
cols [c1],
cols [c2],
cols [c3],
cols [c4],
cols [c5],
cols [c6]
)
{Agregar término ({1, 0}), Agregar término ({1, 1}),
Añadir término ({2, 1}), Añadir término ({3, 1}),
Añadir término ({4, 1}), agregar término ({5, 1}),
Añadir término ({6, 1}), agregar término de alias ({1, 1}, {2, 1}),
Añadir término de alias ({1, 1}, {3, 1}),
Añadir término de alias ({1, 1}, {4, 1}),
Añadir término de alias ({1, 1}, {5, 1}),
Añadir término de alias ({1, 1}, {6, 1}),
Añadir término de alias ({2, 1}, {3, 1}),
Añadir término de alias ({2, 1}, {4, 1}),
Añadir término de alias ({2, 1}, {5, 1}),
Añadir término de alias ({2, 1}, {6, 1}),
Añadir término de alias ({3, 1}, {4, 1}),
Añadir término de alias ({3, 1}, {5, 1}),
Añadir término de alias ({3, 1}, {6, 1}),
Añadir término de alias ({4, 1}, {5, 1}),
Añadir término de alias ({4, 1}, {6, 1}),
Añadir término de alias ({5, 1}, {6, 1})}
);
Cerrar (dt2, no guardar);
)
)
)
)
)
);

    

Re: ¿hay una manera de encontrar valor de evaluación?

@txnelson superarme en la publicación, pero estaba trabajando en una solución que implicaba guardar los resultados en una tabla de datos.  Esto podría hacerse más eficiente y seco, pero al menos le muestra cómo capturar valores de informes navegando a través de la estructura de árbol de visualización.  Interesante que todos los diseños son exactamente equivalentes.

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: ¿hay una manera de encontrar valor de evaluación?

Aquí hay un ejemplo muy simple de cómo capturar los Diagnósticos de Diseño.

El resultado no es muy bonito, pero debería darle una idea de cómo hacer este tipo de cosas.

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