y a-t-il un moyen de trouver une valeur d'évaluation?Bonjour,
je voudrais remercier tous les membres du personnel de la communauté qui m'ont beaucoup aidé à corriger mon script
J'ai une question. Existe-t-il un moyen de trouver des valeurs d'évaluation (diagnostic de la conception) pour le critère (D, G, A, AV), par exemple un PDF avec tous les résultats de la conception? dessins) et écrire critère de valeur
Merci beaucoup
c'est mon script
dt2_5_2 = Nouvelle table ("Premier exemple",
Ajouter des rangées (17),
Nouvelle colonne ("Colonne 1",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([-1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1])
),
Nouvelle colonne ("Colonne 2",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([-1, -1, -1, 0, 1, 1, 1, -1, 0, 1, -1, -1, -1, 0, 1, 1, 1])
),
Nouvelle colonne ("Colonne 3",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([-1, 1, 1, -1, -1, 0, 1, -1, 0, 1, -1, 0, 1, 1, -1, -1, 1])
),
Nouvelle colonne ("Colonne 4",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([1, -1, 1, -1, 1, -1, 0, -1, 0, 1, 0, 1, -1, 1, -1, 1, -1])
),
Nouvelle colonne ("Colonne 5",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([-1, 1, 0, 1, 1, -1, -1, -1, 0, 1, 1, 1, -1, -1, 0, -1, 1])
),
Nouvelle colonne ("Colonne 6",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([1, 1, -1, -1, 0, 1, -1, -1, 0, 1, 1, -1, 0, 1, 1, -1, -1])
),
Nouvelle colonne ("Colonne 7",
Numérique,
"Continu",
Format ("Meilleur", 12),
Valeurs définies ([1, 0, -1, 1, -1, -1, 1, -1, 0, 1, -1, 1, 1, -1, 1, 0, -1])
),
Nouvelle colonne ("Colonne 8",
Numérique,
"Continu",
Format ("Meilleur", 12),
Définir sélectionné,
Valeurs définies ([0, -1, 1, 1, -1, 1, -1, -1, 0, 1, 1, -1, 1, -1, -1, 1, 0])
),
Définir les états de ligne ([1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]]
)
NamesDefaultToHere (1);
dt = DataTable ("Premier exemple");
cols = dt << getColumnNames;
Pour (c1 = 1, c1 <= N éléments (cols), c1 ++,
Pour (c2 = c1 + 1, c2 <= N éléments (cols), c2 ++,
Pour (c3 = c2 + 1, c3 <= N éléments (cols), c3 ++,
Pour (c4 = c3 + 1, c4 <= N éléments (cols), c4 ++,
Pour (c5 = c4 + 1, c5 <= N éléments (cols), c5 ++,
Pour (c6 = c5 + 1, c6 <= N éléments (cols), c6 ++,
// dt << Sous-ensemble (Colonnes (cols [c1], cols [c2]))
// dt << Sous-ensemble (Colonnes (cols [c1], cols [c2], cols [c3]));
// dt << Sous-ensemble (Colonnes (cols [c1], cols [c2], cols [c3], cols [c4]));
// dt << Sous-ensemble (Colonnes (cols [c1], cols [c2], cols [c3], cols [c4], cols [c5]));
dt2 = dt << Sous-jeu (
Colonnes (
cols [c1],
cols [c2],
cols [c3],
cols [c4],
cols [c5],
cols [c6]
)
)
dt2 << Evaluer le design (
X(
cols [c1],
cols [c2],
cols [c3],
cols [c4],
cols [c5],
cols [c6]
),
{Ajouter un terme ({1, 0}), Ajouter un terme ({1, 1}),
Ajouter un terme ({2, 1}), Ajouter un terme ({3, 1}),
Ajouter un terme ({4, 1}), Ajouter un terme ({5, 1}),
Ajouter un terme ({6, 1}), Ajouter un terme alias ({1, 1}, {2, 1}),
Ajouter un terme de pseudonyme ({1, 1}, {3, 1}),
Ajouter un terme de pseudonyme ({1, 1}, {4, 1}),
Ajouter un terme de pseudonyme ({1, 1}, {5, 1}),
Ajouter un terme de pseudonyme ({1, 1}, {6, 1}),
Ajouter un terme de pseudonyme ({2, 1}, {3, 1}),
Ajouter un terme de pseudonyme ({2, 1}, {4, 1}),
Ajouter un terme de pseudonyme ({2, 1}, {5, 1}),
Ajouter un terme de pseudonyme ({2, 1}, {6, 1}),
Ajouter un terme de pseudonyme ({3, 1}, {4, 1}),
Ajouter un terme de pseudonyme ({3, 1}, {5, 1}),
Ajouter un terme de pseudonyme ({3, 1}, {6, 1}),
Ajouter un terme de pseudonyme ({4, 1}, {5, 1}),
Ajouter un terme de pseudonyme ({4, 1}, {6, 1}),
Ajouter un terme de pseudonyme ({5, 1}, {6, 1})}
)
Fermer (dt2, pas de sauvegarde);
)
)
)
)
)
)
Re: y at-il un moyen de trouver une valeur d'évaluation? @txnelson me battre à la poste, mais je travaillais sur une solution qui consistait à enregistrer les résultats dans un tableau de données. Cela pourrait être rendu plus efficace et plus sec, mais cela vous montrera au moins comment saisir les valeurs des rapports en naviguant dans la structure de l'arborescence d'affichage. Il est intéressant de noter que tous les modèles sont exactement équivalents.
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: y at-il un moyen de trouver une valeur d'évaluation?Voici un exemple très simple de capture des diagnostics de conception
La sortie n’est pas très jolie, mais elle devrait vous donner une idée de la façon de procéder.
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 );
)
)
)
)
)
);
