Changeset 8758c62 in tol

Timestamp:

Dec 18, 2009, 2:39:29 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

0e6c99d

Parents:

b3d8e46

Message:

Using FunRn2R::@BaseC2.LinComb::Compact.K

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

File:

• tol_pkg/MulVarFunAprox/DesignC2.Monomial.tol (modified) (2 diffs)

tol_pkg/MulVarFunAprox/DesignC2.Monomial.tol

@@ -34 +34 @@
     WriteLn("TRACE "+_MID+"1.4 SC="<<min.contrast.surface);
     WriteLn("TRACE "+_MID+"1.5 max.K="<<max.K);
+/*
     Real deg = 
     {
@@ -51 +52 @@
 
     WriteLn("TRACE "+_MID+"3");
-    FunRn2R::@BaseC2 base.feasible = FunRn2R::@BaseC2.Monomial::New(_.n,deg);
+    FunRn2R::@BaseC2 base.feasible_ = FunRn2R::@BaseC2.Monomial::New(_.n,deg);
+    FunRn2R::@BaseC2 base.feasible = FunRn2R::@BaseC2.LinComb::New(base.feasible_,Eye(base.feasible_::_.K),Eye(base.feasible_::_.K));
+*/
+    FunRn2R::@BaseC2 base.feasible = FunRn2R::@BaseC2.LinComb::Compact.K(_.base[1],max.K);
     Real _.K := base.feasible::_.K;
     Set Append(_.base, [[base.feasible]]);