Changeset dacdfcd8 in tol

Timestamp:

Oct 27, 2008, 4:59:46 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

f752ef9

Parents:

4c93933

Message:

Write.Domain.Constraints

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@98 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol (modified) (4 diffs)

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol

@@ -227 +227 @@
 
 ///////////////////////////////////////////////////////////////////////////
+Real Write.Domain.Constraints(NameBlock segment, Real f)
+///////////////////////////////////////////////////////////////////////////
+{
+  WriteLn(_MID+"Escribiendo restricciones de intervalo para los parametros "
+          "del bloque "<<segment::Get.Name(0));
+  //Uso los parametros del bloque para escribir los intervalos.
+  Set For(1,segment::Get.Param.Size(0), Real(Real k) 
+    {
+      Set P = segment::Get.Param(k);
+      
+      Real lb = GT(P->Prior.LowerBound,Real -1/0);
+      Real ub = LT(P->Prior.UpperBound,Real +1/0);
+      If(lb, FPutText(f, RealTextS(P->Prior.LowerBound)+"<=+"+P->Name+";\n"));
+      If(ub, FPutText(f, RealTextS(P->Prior.UpperBound)+">=+"+P->Name+";\n"));
+      Real 0
+    });
+  Real 0
+};
+
+///////////////////////////////////////////////////////////////////////////
 Real Write.Data.Constraints(NameBlock segmentOrFullModel, 
                             Real fileHandler)
@@ -238 +258 @@
     Real 0
   });
+  
   Set For(1, handler::Get.GenericConstraint.Size(0), Real(Real r) 
   {
@@ -392 +413 @@
     Real Write.Data.NoiseDistribution  (segment, f.dis);
     Real Write.Data.RegressionEquations(segment, f.reg);
+    Real Write.Domain.Constraints      (segment, f.con);
     Real Write.Data.Constraints        (segment, f.con);
     Real iB := iB+1
@@ -411 +433 @@
     file.bsr+".con"]],
     file.bsr);
+
   Real OSFilRemove(file.bsr+".head");
   Real OSFilRemove(file.bsr+".lin");