changeset 36:a750f27dff05

Compatible with new functionalities
author gedeone-octave <marco.vassallo@outlook.com>
date Thu, 18 Jul 2013 14:46:49 +0200
parents d633bf5a63a7
children ef15088753e6
files test/laplace.m
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/test/laplace.m	Thu Jul 18 14:31:40 2013 +0200
+++ b/test/laplace.m	Thu Jul 18 14:46:49 2013 +0200
@@ -16,12 +16,16 @@
 #Set BC equal to zero on sides with label 2 and 4
 bc = fem_bc (V, @(x, y) 0.0, [2,4]);
 
-##Set the rhs
-#g = fem_rhs (V, @(x, y));
+##Set the coefficient for the rhs
+fv = @(x,y) 10*exp(-((x - 0.5).^2 + (y - 0.5).^2) / 0.02);
+f = fem_coeff ('f', fv);
+
+gv = @(x,y) sin (5.0 * x);
+g = fem_coeff ('g', gv);
 
 # #Get the matrices
-# A  = BilinearForm (V, V, bc, "Laplace");
-# L  = LinearForm (V, bc, "Laplace");
+# A  = BilinearForm (V, V, bc);
+# L  = LinearForm (V, bc, f, g);
 
 # #Solve it
 # u = A\L;