Unión de modelos

[irobles]

Seria util que desde la interfaz de MMS se pudieran seleccionar varios modelos y hacer uno que fuera la union de todos los seleccionados.

Asi luego se podrian realizar jerarquias entre ellos, por ejemplo.

El nombre del nuevo modelo se podría preguntar por interfaz.

[irobles]

Pongo un codigo que hicimos por si sirve de ayuda

TclTkMessageBox( SetOfSet(
     @TclArgSt("-title",   "Modelagem"),
    @TclArgSt("-message", "Escolha nome do novo modelo"),
    @TclArgSt("-icon",    "warning")
));

Text newName = TclDialogEntry(Copy(Empty));

Set modelos = MMS::GetModels(?);



Real MMS::CreateModel(
  [[
    Text _.type        = "ARIMAX";
    Text _.name        = newName ;
    Text _.description = "Modelo Union"
  ]]
);

@MMS.Model model = MMS::GetModel2(newName,"1.0");


Set EvalSet(modelos, Real (NameBlock modelAux){

  Set setOutput = modelAux::GetOutputs(?);
  Set EvalSet(setOutput, Real (NameBlock aux){
    Real model::AppendOutput(aux)
  });
  Set setBaseExpTerm = modelAux::GetBaseExpTerms(?);
  Set EvalSet(setBaseExpTerm, Real (NameBlock aux){
    Real model::AppendBaseExpTerm(aux)
  });
  
  Set setExpTerm = modelAux::GetExpTerms(?);
  Set EvalSet(setExpTerm, Real (NameBlock aux){
    Real model::AppendExpTerm(aux)
  });
  
  Set setCombination = modelAux::GetCombinations(?);
  Set EvalSet(setCombination, Real (NameBlock aux){
    Real model::AppendCombination(aux)
  });

  Set setConstraint = modelAux::GetConstraints(?);
  Set EvalSet(setConstraint, Real (NameBlock aux){
    Real model::AppendConstraint(aux)
  });
  
  Set setHierarchies = modelAux::GetHierarchies(?);
  Set EvalSet(setHierarchies, Real (NameBlock aux){
    Real model::AppendHierarchy(aux)
  });
  
  Set setNonLinFilter = modelAux::GetNonLinFilters(?);
  Set EvalSet(setNonLinFilter, Real (NameBlock aux){
    Real model::AppendNonLinFilter(aux)
  });
  
  Set setPrior = modelAux::GetPriors(?);
  Set EvalSet(setPrior, Real (NameBlock aux){
    Real model::AppendPrior(aux)
  });

  Real 1
});

[Pedro Gea]

Véase el tique #330