Minor update. Again working on elasticity solver notebook.

This commit is contained in:
Jukka Aho
2015-08-17 21:46:58 +03:00
parent 45ea803136
commit 21c9c19f1d
2 changed files with 227 additions and 561 deletions
+1 -1
View File
@@ -75,7 +75,7 @@ Return partial derivatives of shape functions w.r.t X using chain rule.
"""
function get_dbasisdX(el::Element, xi)
J = interpolate(el, "coordinates", xi; derivative=true)
dbasisdX = el.dbasis(xi)*inv(J)
dbasisdX = el.dbasis(xi)*inv(J')
return dbasisdX
end