Mercurial > fem-fenics-eugenio
diff example/Evolution.m @ 94:4f688918f76a
Used new available functions assemble and assemble-systems.
author | gedeone-octave <marcovass89@hotmail.it> |
---|---|
date | Wed, 07 Aug 2013 18:26:26 +0200 |
parents | d06b423169fa |
children | 77aabcc087dc |
line wrap: on
line diff
--- a/example/Evolution.m Wed Aug 07 18:25:27 2013 +0200 +++ b/example/Evolution.m Wed Aug 07 18:26:26 2013 +0200 @@ -21,7 +21,10 @@ u0 = Expression ('u0', @(x,y) 10*exp(-((x - 0.5)^2 + (y - 0.5)^2) / 0.02)); -A = Evolution_BilinearForm (V, bc, k); +a = Evolution_BilinearForm (V, k); +b = Evolution_LinearForm (V, k, u0); + +A = assemble (a, bc); # solve the problem for each time step # We need to update only the lhs @@ -30,7 +33,7 @@ # we can pass u0 to the lhs indifferently as a fem_coeff or # as a fem_func - b = Evolution_LinearForm (V, k, u0, bc); + b = assemble (L, bc); u = A \ b;