]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Format second derivatives.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 6 Nov 1998 15:53:25 +0000 (15:53 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 6 Nov 1998 15:53:25 +0000 (15:53 +0000)
git-svn-id: https://svn.dealii.org/trunk@648 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/deal.II/source/fe/scripts/1d/postprocess

index 8b9fb127c733f88b73b28965eabb3717ece9d891..45c5371a60f9012310dc9a9e9ca5ff86f6500835 100644 (file)
@@ -4,13 +4,16 @@
 #  $Id$
 #  Wolfgang Bangerth, 1998
 
+
 #    concatenate lines belonging together
-perl -pi -e 's/([^;])\n/$1/g;' shape_value_1d
-perl -pi -e 's/([^;])\n/$1/g;' shape_grad_1d
+perl -pi -e 's/([^;])\n/$1/g;' *1d_shape_value
+perl -pi -e 's/([^;])\n/$1/g;' *1d_shape_grad
+perl -pi -e 's/([^;])\n/$1/g;' *1d_shape_grad_grad
 
 #    give the programs a structure
 perl -pi -e 's/phi_polynom\[(\d)\] =/case $1: return/g;' *1d_shape_value
 perl -pi -e 's/grad_phi_polynom\[(\d)\] = (.*);/case $1: return Point<1>($2);/g;' *1d_shape_grad
+perl -pi -e 's/grad_grad_phi_polynom\[(\d)\] = (.*);/case $1: return_value[0][0] = $2;/g;' *1d_shape_grad_grad
 
 #    use other indexing format for matrices
 perl -pi -e 's/\[(\d+)\]\[(\d)\]/($1,$2)/g;' *1d_massmatrix
@@ -22,5 +25,5 @@ perl -pi -e 's/(t\d+) =/const double $1 =/g;' *1d_massmatrix
 
 #    omit lines assigning zeroes to matrix elements, since zero is
 #    already set and to save compilation time
-perl -pi -e 's/.*= 0.0;\n//g;' restriction_1d
-perl -pi -e 's/.*= 0.0;\n//g;' prolongation_1d
\ No newline at end of file
+perl -pi -e 's/.*= 0.0;\n//g;' *1d_restriction
+perl -pi -e 's/.*= 0.0;\n//g;' *1d_prolongation

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.