changeset 20:c6ede799884c

Now include also call to fem_fs
author gedeone-octave <marco.vassallo@outlook.com>
date Thu, 11 Jul 2013 22:46:12 +0200
parents fe2264f1e789
children 676a42510364
files test/laplace.m
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/test/laplace.m	Thu Jul 11 22:44:38 2013 +0200
+++ b/test/laplace.m	Thu Jul 11 22:46:12 2013 +0200
@@ -3,18 +3,18 @@
 
 # Create mesh 
 fem_init_env ();
+pkg load msh;
 
-x = y = linspace (0, 1, 32) ;
-msho = msh2m_structured_mesh (x, y, 1, [ 1 1 2 2 ]);
+msho = msh2m_structured_mesh (0:0.05:1, 0:0.05:1, 1, 1:4);
 mshd = fem_init_mesh (msho);
 
 #Compile the problem defined in the .ufl file
-fem_ffc ("Laplace.ufl");
+#fem_ffc ("Laplace.ufl");
 
 # #Import the problem inside Octave
-# V  = FunctionSpace (mshd, "Laplace");
-# sd = SubDomain (mshd, @(x, y) abs (x - 1.0) < eps, "Laplace");
-# bc = DirichletBC (V, @(x, y) 0.0, sd, "Laplace");
+V  = fem_fs (mshd);
+#Set BC equal to zero on sides with label 2 and 4
+#bc = fem_bc (V, @(x, y) 0.0, [2,4]);
 
 # #Get the matrices
 # A  = BilinearForm (V, V, bc, "Laplace");