]> https://gitweb.dealii.org/ - dealii.git/commitdiff
script for producing FE information table
authorGuido Kanschat <dr.guido.kanschat@gmail.com>
Thu, 29 Sep 2005 12:48:18 +0000 (12:48 +0000)
committerGuido Kanschat <dr.guido.kanschat@gmail.com>
Thu, 29 Sep 2005 12:48:18 +0000 (12:48 +0000)
git-svn-id: https://svn.dealii.org/trunk@11555 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/fe_table.pl [new file with mode: 0644]

diff --git a/deal.II/common/scripts/fe_table.pl b/deal.II/common/scripts/fe_table.pl
new file mode 100644 (file)
index 0000000..3a873a0
--- /dev/null
@@ -0,0 +1,69 @@
+# $id$
+
+# Create a table of finite element capabilities out of
+# tests/fe/fe_data_test.output
+
+use strict;
+
+print <<'EOF'
+<html>
+<head>
+<title>Finite element capabilities</title>
+</head>
+<body>
+<table border="1">
+<tr>
+<th rowspan="2">Element</th>
+<th rowspan="2">degree</th>
+<th rowspan="2">DoFs</th>
+<th colspan="4">DoFs on</th>
+<th rowspan="2">conforms</th>
+<th rowspan="2">components</th>
+<th colspan="4">Support points</th>
+</tr>
+<tr>
+<th>V</th><th>L</th><th>Q</th><th>H</th>
+<th>uc</th><th>uf</th><th>gc</th><th>gf</th>
+</tr>
+EOF
+    ;
+
+my @field = ('degree', 'dofs_per_cell',
+            'dofs_per_vertex', 'dofs_per_line', 'dofs_per_quad', 'dofs_per_hex',
+            'conformity', 'components',
+            'unit_support_points', 'unit_face_support_points',
+            'generalized_support_points', 'generalized_face_support_points');
+
+my %fe;
+my $hashref;
+
+while(<>)
+{
+    if (/DEAL::fe_data.*:(.*)/)
+    {
+       $fe{$1} =  { 'set' => 't' } unless ($1 =~ m/FESystem/);
+       $hashref = $fe{$1};
+    }
+    foreach my $entry (@field)
+    {
+       $hashref->{$entry} = $1 if /DEAL::$entry=(.*)/;
+    }
+}
+
+foreach (sort keys %fe)
+{
+    print '<tr><td>',$_,"</td>\n";
+    $hashref = $fe{$_};
+    foreach (@field)
+    {
+       print "<td>", $hashref->{$_}, "</td>\n";
+    }
+    print "</tr>\n";
+}
+
+print <<'EOF'
+</table>
+</body>
+</html>
+EOF
+    ;

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.