Changeset a0a6906 in tol

Timestamp:

Oct 26, 2008, 7:12:31 PM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

0dcc44c

Parents:

d3aa758

Message:

Just traces

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

File:

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

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

@@ -201 +201 @@
   Text ResName = segment::Get.Name(0)+"::Noise";
   Real nEqu = segment::Get.Equation.Size(0);
-  WriteLn(_MID+"Escribiendo ecuaciones para el segmento "<<
-          ResName<<"["<<nEqu<<"]");
   Real iE = 1;
   Real fefz = FunctionExist("Real", "segment::Get.Param.ForceZero");
@@ -234 +232 @@
 {
   NameBlock handler = segmentOrFullModel::Get.Constraints.Handler(0);
-  WriteLn(_MID+"Escribiendo restricciones de orden ");
   Set For(1, handler::Get.OrderRelation.Size(0), Real(Real r) 
   {
@@ -241 +238 @@
     Real 0
   });
-  WriteLn(_MID+"Escribiendo restricciones lineales generales ");
   Set For(1, handler::Get.GenericConstraint.Size(0), Real(Real r) 
   {
@@ -262 +258 @@
     Real 0
   });
-  WriteLn(_MID+"Escribiendo restricciones lineales explicitas ");
   Set For(1, handler::Get.ExplicitConstraint.Size(0), Real(Real r) 
   {
@@ -276 +271 @@
 ///////////////////////////////////////////////////////////////////////////
 {
-  //Escribo valores iniciales de los parametros. Se asume que cada
-  //segmento es "owner" de los parametros que solo aparecen en el y que
-  //cada parametro aparece en algun segmento que lo posee.
   WriteLn(_MID+"Writing definition of main linear block parameters");
   Real FPutText(fileHandler,