49921_de-DE

liliconcom

Gibt es eine Möglichkeit, einen Bewertungswert zu finden?

Hallo,

Ich möchte allen Community-Mitarbeitern danken, die mir sehr geholfen haben, mein Skript zu reparieren 

Ich habe eine Frage, gibt es eine Möglichkeit, Bewertungswerte (Designdiagnostik) für das Kriterium (D, G, A, AV) zu finden, zum Beispiel PDF mit allen Konstruktionsergebnissen, denn wenn ich meine Skripte evaluiere, muss ich jedes Design sehen (28 Designs) und schreiben Kriterium vlue

Vielen Dank 

Das ist mein Skript 

 

dt2_5_2 = Neue Tabelle ("Erstes Beispiel",
Reihen hinzufügen (17),
Neue Spalte ("Spalte 1")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([-1, -1, -1, -1, -1, -1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1])
)
Neue Spalte ("Spalte 2")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([-1, -1, -1, 0, 1, 1, -1, 0, 1, -1, -1, -1, 0, 1, 1, 1])
)
Neue Spalte ("Spalte 3")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([-1, 1, 1, -1, -1, 0, 1, -1, 0, 1, -1, 0, 1, 1, -1, -1, 1])
)
Neue Spalte ("Spalte 4")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([1, -1, 1, -1, 1, -1, 0, -1, 0, 1, 0, 1, -1, 1, -1, 1, -1])
)
Neue Spalte ("Spalte 5")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([-1, 1, 0, 1, 1, -1, -1, -1, 0, 1, 1, 1, -1, -1, 0, -1, 1])
)
Neue Spalte ("Spalte 6")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([1, 1, -1, -1, 0, 1, -1, -1, 0, 1, 1, -1, 0, 1, 1, -1, -1])
)
Neue Spalte ("Spalte 7")
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Einstellwerte ([1, 0, -1, 1, -1, -1, 1, -1, 0, 1, -1, 1, 1, -1, 1, 0, -1])
)
Neue Spalte ("Spalte 8",
Numerisch,
"Kontinuierlich",
Format ("Best", 12),
Set Selected,
Einstellwerte ([0, -1, 1, 1, -1, 1, -1, -1, 0, 1, 1, -1, 1, -1, -1, 1, 0])
)
Zeilenzustände einstellen ([1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1])
);

 

NamesDefaultToHere (1);

dt = DataTable ("Erstes Beispiel");
cols = dt << getColumnNames;

Für (c1 = 1, c1 <= N Elemente (Spalten), c1 ++,
Für (c2 = c1 + 1, c2 <= N Elemente (Spalten), c2 ++,
Für (c3 = c2 + 1, c3 <= N Elemente (Spalten), c3 ++,
Für (c4 = c3 + 1, c4 <= N Elemente (Spalten), c4 ++,
Für (c5 = c4 + 1, c5 <= N Elemente (Spalten), c5 ++,
Für (c6 = c5 + 1, c6 <= N Elemente (Spalten), c6 ++,
// dt << Teilmenge (Spalten (Spalten [c1], Spalten [c2]))
// dt << Subset (Spalten (Spalten [c1], Spalten [c2], Spalten [c3]));
// dt << Subset (Spalten (Spalten [c1], Spalten [c2], Spalten [c3], Spalten [c4]));
// dt << Subset (Spalten (Spalten [c1], Spalten [c2], Spalten [c3], Spalten [c4], Spalten [c5]));
dt2 = dt << Teilmenge (
Säulen(
Spalten [c1],
Spalten [c2],
cols [c3],
cols [c4],
Spalten [c5],
Spalten [c6]
)
);
dt2 << Design bewerten (
X (
Spalten [c1],
Spalten [c2],
cols [c3],
cols [c4],
Spalten [c5],
Spalten [c6]
)
{Begriff hinzufügen ({1, 0}), Begriff hinzufügen ({1, 1}),
Begriff hinzufügen ({2, 1}), Begriff hinzufügen ({3, 1}),
Begriff hinzufügen ({4, 1}), Begriff hinzufügen ({5, 1}),
Begriff hinzufügen ({6, 1}), Alias-Begriff hinzufügen ({1, 1}, {2, 1}),
Alias-Term hinzufügen ({1, 1}, {3, 1}),
Alias-Term hinzufügen ({1, 1}, {4, 1}),
Alias-Term hinzufügen ({1, 1}, {5, 1}),
Alias-Term hinzufügen ({1, 1}, {6, 1}),
Alias-Term hinzufügen ({2, 1}, {3, 1}),
Alias-Term hinzufügen ({2, 1}, {4, 1}),
Alias-Term hinzufügen ({2, 1}, {5, 1}),
Alias-Term hinzufügen ({2, 1}, {6, 1}),
Alias-Term hinzufügen ({3, 1}, {4, 1}),
Alias-Term hinzufügen ({3, 1}, {5, 1}),
Alias-Term hinzufügen ({3, 1}, {6, 1}),
Alias-Term hinzufügen ({4, 1}, {5, 1}),
Alias-Term hinzufügen ({4, 1}, {6, 1}),
Alias-Begriff hinzufügen ({5, 1}, {6, 1})}
);
Schließen (dt2, kein Speichern);
)
)
)
)
)
);

    

Re: Gibt es eine Möglichkeit, einen Bewertungswert zu finden?

@txnelson schlug mir den Posten, aber ich arbeitete an einer Lösung, bei der die Ergebnisse in einer Datentabelle gespeichert wurden.  Dies könnte effizienter und trockener gestaltet werden, zeigt aber zumindest, wie Sie Werte aus Berichten ziehen, indem Sie durch die Struktur der Anzeigestruktur navigieren.  Interessanterweise sind alle Designs genau gleichwertig.

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: Gibt es eine Möglichkeit, einen Bewertungswert zu finden?

Hier ist ein sehr einfaches Beispiel für die Erfassung der Konstruktionsdiagnose

Die Ausgabe ist nicht sehr hübsch, aber es sollte Ihnen eine Vorstellung davon geben, wie Sie diese Dinge angehen.

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