Changeset 804f404 in tol

Timestamp:

Jan 21, 2009, 1:28:38 PM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

bbae0b6

Parents:

42033f3

Message:

Fixed bug managing sigma prior in Write.Data.NoiseDistribution

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

File:

• tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/_import.tol (modified) (1 diff)

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

@@ -175 +175 @@
   Anything s2 = segment::Get.Sigma2(0);
   Real s2HasPrior = And(Grammar(s2)=="Text", 
-                        ObjectExist("Text","segment::Get.SigmaPrior(0)"));
+                        FunctionExist("Text","segment::Get.SigmaPrior"));
+//WriteLn("TRACE "+_MID+" Grammar(s2)="<<Grammar(s2));
+//WriteLn("TRACE "+_MID+" FunctionExist(Text,segment::Get.SigmaPrior)="<<FunctionExist("Text","segment::Get.SigmaPrior"));
+//WriteLn("TRACE "+_MID+" s2HasPrior="<<s2HasPrior);
   Text s2Prior = If(!s2HasPrior, "",
   {
     Text sp = segment::Get.SigmaPrior(0);
-    If(sp=="",0, FPutText(fileHandler, " ~ "+sp+" "))
-  });
+    If(sp=="",""," ~ "+sp+" ")
+  });
+//WriteLn("TRACE "+_MID+" s2Prior="<<s2Prior);
   FPutText(fileHandler, segment::Get.Name(0)+"::Noise"
     "["+IntText(segment::Get.Equation.Size(0))+timeExpr+"]"+