Changeset adba4fa in tol

Timestamp:

Feb 9, 2010, 1:49:31 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

67e3378

Parents:

a494d07

Message:

refs #745

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

File:

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

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

@@ -188 +188 @@
 };
 
-
 ///////////////////////////////////////////////////////////////////////////
 Real Write.Data.MainLinearBlock(NameBlock segment,
@@ -198 +197 @@
   {
     Set P = segment::Get.Param(k);
-    Real iv = If(IsUnknown(P->InitValue),
-      Rand(P->LowerBound, P->UpperBound),
-      P->InitValue);
-    FPutText(fileHandler, P->Name+" <- "+ RealTextS(iv)+";\n");
+    Real iv = If(!IsUnknown(P->InitValue),
+    {
+      P->InitValue
+      FPutText(fileHandler, P->Name+" <- "+ RealTextS(iv)+";\n");
+    },
+    {
+      If(IsUnknown(P->LowerBound)&IsUnknown(P->UpperBound),
+      {
+        FPutText(fileHandler, "$Extern "+P->Name+";\n");
+        ?
+      }, 
+      {
+        Rand(P->LowerBound, P->UpperBound),
+        FPutText(fileHandler, P->Name+" <- "+ RealTextS(iv)+";\n");
+      })
+    });
     Real 0
   });