Mercurial > fem-fenics-eugenio

changeset 203:bd90d5fa4eba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix call to the function JacobianForm.m
author gedeone-octave <marcovass89@hotmail.it>
date Thu, 30 Jan 2014 08:53:59 +0100
parents 63df40d0b4d4
children 0faaf956bd3a
files inst/example/Elasticity/HyperElasticity.m
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/inst/example/Elasticity/HyperElasticity.m	Thu Jan 30 08:50:21 2014 +0100
+++ b/inst/example/Elasticity/HyperElasticity.m	Thu Jan 30 08:53:59 2014 +0100
@@ -51,7 +51,7 @@
 # Create function for the resolution of the NL problem
   function [y, jac] = f (problem, xx, V, bc1, bc2, B, T, mu, lmbda)
     u = Function ('u', V, xx);
-    a = JacobianForm (problem, V, mu, lmbda, u);
+    a = JacobianForm (problem, V, V, mu, lmbda, u);
     L = ResidualForm (problem, V, mu, lmbda, B, T, u);
     if (nargout == 1)
       [y, xx] = assemble (L, xx, bc1, bc2);