]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
better matrix generation
authorguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 9 Jul 2002 06:34:21 +0000 (06:34 +0000)
committerguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 9 Jul 2002 06:34:21 +0000 (06:34 +0000)
git-svn-id: https://svn.dealii.org/trunk@6233 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/contrib/utilities/embedding.cc
deal.II/contrib/utilities/simplify.pl

index 1cbc34ed101e72debbaeace1129e46f928677f3e..d8e21687661a80feee119c6c9c8ba14d891b4b7e 100644 (file)
@@ -135,7 +135,11 @@ void compute_embedding (unsigned int degree,
        {
          for (unsigned int j=0;j<fe_coarse.dofs_per_cell;++j)
            {
-             cout << ' ' << setprecision(10) << result[cell][j][i] << "/27.,";
+             double s = result[cell][j][i];
+             if (fabs(s) < 1.e-13)
+               cout << " 0,";
+             else
+               cout << ' ' << setprecision(10) << s << "/27.,";
            }
          cout << endl;
        }
index f4508bd0818a84707c35bf11bc67224f22181e18..45801ac961197e3d7e209f6cc3c94ae55cd03e8e 100644 (file)
@@ -16,7 +16,7 @@ s! (-?)15\.1875/27.! ${1}9./16.!g;
 s! (-?)18\.5625/27.! ${1}11./16.!g;
 s! (-?)21\.9375/27.! ${1}13./16.!g;
 s! (-?)25\.3125/27.! ${1}15./16.!g;
-s! (-?)0?\.84375/27.! ${1}1./32.!g;
+s! (-?)0\.84375/27.! ${1}1./32.!g;
 s! (-?)2\.53125/27.! ${1}3./32.!g;
 s! (-?)4\.21875/27.! ${1}5./32.!g;
 s! (-?)5\.90625/27.! ${1}7./32.!g;
@@ -32,3 +32,35 @@ s! (-?)21\.09375/27.! ${1}25./32.!g;
 s! (-?)22\.78125/27.! ${1}27./32.!g;
 s! (-?)24\.46875/27.! ${1}29./32.!g;
 s! (-?)26\.15625/27.! ${1}31./32.!g;
+s! (-?)0\.421875! ${1}1./64.!g
+s! (-?)1\.265625! ${1}3./64.!g
+s! (-?)2\.109375! ${1}5./64.!g
+s! (-?)2\.953125! ${1}7./64.!g
+s! (-?)3\.796875! ${1}9./64.!g
+s! (-?)4\.640625! ${1}11./64.!g
+s! (-?)5\.484375! ${1}13./64.!g
+s! (-?)6\.328125! ${1}15./64.!g
+s! (-?)7\.171875! ${1}17./64.!g
+s! (-?)8\.015625! ${1}19./64.!g
+s! (-?)8\.859375! ${1}21./64.!g
+s! (-?)9\.703125! ${1}23./64.!g
+s! (-?)10\.546875! ${1}25./64.!g
+s! (-?)11\.390625! ${1}27./64.!g
+s! (-?)12\.234375! ${1}29./64.!g
+s! (-?)13\.078125! ${1}31./64.!g
+s! (-?)13\.921875! ${1}33./64.!g
+s! (-?)14\.765625! ${1}35./64.!g
+s! (-?)15\.609375! ${1}37./64.!g
+s! (-?)16\.453125! ${1}39./64.!g
+s! (-?)17\.296875! ${1}41./64.!g
+s! (-?)18\.140625! ${1}43./64.!g
+s! (-?)18\.984375! ${1}45./64.!g
+s! (-?)19\.828125! ${1}47./64.!g
+s! (-?)20\.671875! ${1}49./64.!g
+s! (-?)21\.515625! ${1}51./64.!g
+s! (-?)22\.359375! ${1}53./64.!g
+s! (-?)23\.203125! ${1}55./64.!g
+s! (-?)24\.046875! ${1}57./64.!g
+s! (-?)24\.890625! ${1}59./64.!g
+s! (-?)25\.734375! ${1}61./64.!g
+s! (-?)26\.578125! ${1}63./64.!g

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.