16 lines
444 B
Mathematica
16 lines
444 B
Mathematica
|
function [D]=hooke(E,v)
|
||
|
|
|
||
|
|
% D=hooke(E,v)
|
||
|
|
%-------------------------------------------------------------
|
||
|
|
% PURPOSE
|
||
|
|
% Calculate the material matrix for a linear
|
||
|
|
% elastic and isotropic material.
|
||
|
|
%
|
||
|
|
% INPUT: E : Young's modulus
|
||
|
|
% v : Poissons const.
|
||
|
|
%
|
||
|
|
% OUTPUT: D : material matrix
|
||
|
|
%-------------------------------------------------------------
|
||
|
|
D=E/(1-v^2)*[1 v 0;v 1 0;0 0 (1-v)/2];
|
||
|
|
%--------------------------end--------------------------------
|