Changeset 686f33d in tol

Timestamp:

Oct 26, 2008, 10:54:04 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

d3aa758

Parents:

eaba07d

Message:

Setting BSR and non linear block in _.externalInfo member of non linear filters having it

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

File:

• tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/gibbs/_nonLinMaster.tol (modified) (3 diffs)

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/gibbs/_nonLinMaster.tol

@@ -41 +41 @@
     Set aux = For(1,Card(nonLinFilter), NameBlock(Real numBlk)
     {
-      NameBlock nb = BysMcmc::Bsr::Gibbs::NonLinBlock
+      NameBlock nlf = nonLinFilter[numBlk];
+      NameBlock nlb = BysMcmc::Bsr::Gibbs::NonLinBlock
       (
-        nonLinFilter[numBlk], 
+        nlf, 
         _.bsrMst,
         numBlk+1, 
@@ -49 +50 @@
         config
       );
-      Real firstCol := nb::_.blockDef::_.lastCol+1;
-      Eval(ToName(nb::_.name)+"=nb")
+      Real If(ObjectExist("Set","nlf::_.externalInfo"),
+      {
+        Set nlf::_.externalInfo := [[ _.bsrMst, nlb ]];
+        1
+      });
+      Real firstCol := nlb::_.blockDef::_.lastCol+1;
+      Eval(ToName(nlb::_.name)+"=nlb")
     });
     aux
@@ -83 +89 @@
     EvalSet(_.nonLinBlk, VMatrix(NameBlock nlb)
     {
-      
       nlb::draw(numSim)
     }));