Mercurial > fem-fenics-eugenio
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");