Code covered by the BSD License
-
M_CR=stima_massCR_3D(elements...
Crouzeix-Raviart mass matrix computation
-
[M_CR Z]=stima_gradgradCR_3D(...
-
[b_volumeforces, volumes]=rhs...
GaussPoints2=GaussPoints1;
-
[element2edges, edge2nodes]=g...
function: [element2edges, edge2nodes]=edge_numbering(elements)
-
[element2faces, face2nodes]=g...
function: [element2faces, face2nodes]=getFaces(elements)
-
[elements4,T1_Plane_index]=ro...
elements4_OnIntersection=elements4(T1_Plane_index,:);
-
[matrix,I]=deleterepeatedrows...
function: [element2edges, edge2nodes]=edge_numbering(elements)
-
[x_center, y_center, area]=ce...
-
entryrows=entryInWhichRows(A)
function: entryrows=entryInWhichRows(A)
-
f(point)
VolumeForce =ones(size(VolumeForce));
-
middle_points=face_middlepoin...
middle_points=zeros(size(F,2),3);
-
show_mesh(elements,coordinate...
-
show_middlepoints(face_number...
-
show_points(pointsX,pointsY,p...
-
show_vertices(vertices,coordi...
-
tetrarefine3(XYZ,Elm,ERef);
author: Ales Janka, ales.janka@unifr.ch, http://perso.unifr.ch/ales.janka
-
value=exact_solution(point)
onesvector=ones(size(x));
-
picture_paper.m
-
start.m
-
View all files
from
3D Crouzeix-Raviart mortar finite element method
by Jan Valdman
Implementation of 3D Crouzeix-Raviart mortar finite element
|
| entryrows=entryInWhichRows(A)
|
function entryrows=entryInWhichRows(A)
%function: entryrows=entryInWhichRows(A)
%requires: none
%for every entry of integer matrix A,
%its rows indices are stored in output matrix,
%zeros entries indicate no more occurence
%example: entryrows=entryInWhichRows([1 2; 1 3; 2 2]) returns
% entryrows=[1 2 0;
% 1 3 3;
% 2 0 0]
%meaning: entry 1 appears in rows 1 and 2
% entry 2 appears in rows 1 and 3 (twice)
% entry 3 appears in row 2 only
%size computation;
r=max(max(A));
repetition=accumarray(A(:),ones(numel(A),1));
c=max(repetition);
%filling rows occurences
%this part should be somehow vectorized!
entryrows=zeros(r,c);
repetition=zeros(r,1);
for i=1:size(A,1)
for j=1:size(A,2)
index=A(i,j);
repetition(index)=repetition(index)+1;
entryrows(index,repetition(index))=i;
end
end
|
|
Contact us at files@mathworks.com