13 lines
443 B
Mathematica
13 lines
443 B
Mathematica
|
function J=Jacobi(ie,s,t,Elements,Nodes)
|
|||
|
|
ENodes = Elements(ie,:); %<EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
xe = Nodes(ENodes(:),:); %<EFBFBD><EFBFBD>ȡ<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
x1=xe(1,1);y1=xe(1,2);
|
|||
|
|
x2=xe(2,1);y2=xe(2,2);
|
|||
|
|
x3=xe(3,1);y3=xe(3,2);
|
|||
|
|
x4=xe(4,1);y4=xe(4,2);
|
|||
|
|
x5=xe(5,1);y5=xe(5,2);
|
|||
|
|
x6=xe(6,1);y6=xe(6,2);
|
|||
|
|
x7=xe(7,1);y7=xe(7,2);
|
|||
|
|
x8=xe(8,1);y8=xe(8,2);
|
|||
|
|
dNst=DiffShapeFun(s,t);
|
|||
|
|
J=dNst'*[x1 y1;x2 y2;x3 y3;x4 y4;x5,y5;x6,y6;x7,y7;x8,y8];
|