19 lines
519 B
Mathematica
19 lines
519 B
Mathematica
|
function area = ElementArea( ie )
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD>㵥Ԫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
|||
|
|
% ie ---- <EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD>
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ:
|
|||
|
|
% area ---- <EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
global gNode gElement gMaterial
|
|||
|
|
|
|||
|
|
xi = gNode( gElement( ie, 1 ), 1 ) ;
|
|||
|
|
yi = gNode( gElement( ie, 1 ), 2 ) ;
|
|||
|
|
xj = gNode( gElement( ie, 2 ), 1 ) ;
|
|||
|
|
yj = gNode( gElement( ie, 2 ), 2 ) ;
|
|||
|
|
xm = gNode( gElement( ie, 3 ), 1 ) ;
|
|||
|
|
ym = gNode( gElement( ie, 3 ), 2 ) ;
|
|||
|
|
ai = xj*ym - xm*yj ;
|
|||
|
|
aj = xm*yi - xi*ym ;
|
|||
|
|
am = xi*yj - xj*yi ;
|
|||
|
|
area = abs((ai+aj+am)/2) ;
|
|||
|
|
return
|