12 lines
371 B
Mathematica
12 lines
371 B
Mathematica
|
function [G] = Q4_G(kesi,yita)
|
|||
|
|
%Q4_G <EFBFBD><EFBFBD><EFBFBD><EFBFBD>G<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƫ<EFBFBD><EFBFBD>ֵ
|
|||
|
|
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԪG<EFBFBD><EFBFBD><EFBFBD><EFBFBD>*(1/4)
|
|||
|
|
G=[ yita-1, 0, 1-yita, 0,yita+1, 0,-yita-1, 0;
|
|||
|
|
kesi-1, 0,-kesi-1, 0,kesi+1, 0, 1-kesi, 0;
|
|||
|
|
0,yita-1, 0, 1-yita, 0,yita+1, 0,-yita-1;
|
|||
|
|
0,kesi-1, 0,-kesi-1, 0,kesi+1, 0, 1-kesi];
|
|||
|
|
G=G/4;
|
|||
|
|
end
|
|||
|
|
|