Changeset 8e0c1fd in tol


Ignore:
Timestamp:
Dec 16, 2009, 9:24:20 AM (17 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
5fe6b4e
Parents:
7a0385c
Message:

Field @BSR.NoiseDistrib->SigmaIndex must be remixed in MasterToJoint method

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/modularSchema/_monophasic.tol

    r7a0385c r8e0c1fd  
    77
    88/////////////////////////////////////////////////////////////////////////////
    9 NameBlock Monophasic =
     9NameBlock Monophasic = 
    1010/////////////////////////////////////////////////////////////////////////////
    1111[[
    … …  
    171171    Set MissingOutputBlock = BinGroup("<<",reDim[2]);
    172172    Set NoiseDistrib = BinGroup("<<",reDim[3]);
     173    Real sigmaIndex = 0;
     174    Set EvalSet(NoiseDistrib,Real (@BSR.NoiseDistrib seg)
     175    {
     176      Real If(seg->SigmaIndex<=0,seg->SigmaIndex,
     177      {
     178        sigmaIndex:=sigmaIndex+1;
     179        seg->SigmaIndex := Copy(sigmaIndex)
     180      })
     181    });
    173182  //WriteLn("TRACE MasterToJoint 7.1");
    174183    VMatrix Y = Convert(Group("ConcatRows",reDim[4]),"Blas.R.Dense");
    … …  
    193202      VMatrix a;
    194203      VMatrix A)
    195   })}
    196  
     204  })}
    197205]];
     206
Note: See TracChangeset for help on using the changeset viewer.