Changeset 6d34a42 in tol

Timestamp:

Mar 4, 2009, 11:03:38 AM (18 years ago)

Author:

Miguel Ángel Fernández <mafernandez@…>

Branches:

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

Children:

45d466d

Parents:

ff605f5

Message:

small corrections for matrix grammar in series.handler::_.obs.node

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

File:

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

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/dynhlm/_db_api.estim.tol

@@ -85 +85 @@
   {
     Real outIsATimeSerie = ObjectExist("Serie",  "nsh::_.output::_.serie");
-    Real outIsAVector    = ObjectExist("Matrix", "nsr::_.output::_.vector");
-    Text grammar = If(outIsATimeSerie,"Serie","Matrix");
+    Real outIsAVector    = ObjectExist("Matrix", "nsh::_.output::_.vector");
     WriteLn("[GetLinearBlkEffects] Building node "+nsh::_.id_node);
     Set effect = EvalSet(nsh::_.input, Anything(NameBlock inp)
@@ -171 +170 @@
       {
         WriteLn("[GetLinearBlkEffects] Building vector input "+inpName);
+         Ratio tf = If(!ObjectExist("Ratio","inp::_.transferFunction"),1/1,
+          inp::_.transferFunction);
+        Polyn omega = Numerator  (tf);
+        Polyn delta = Denominator(tf);
+        Real p = Degree(omega);
+        Real q = Degree(delta);
+        Real h = Max(p,q);
+        Real noTransFunFlag = h==0;
+
         Matrix eff = Case(
         Not(inp::_.enabled),