1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| function [lf] = inf_medium(rd, pnt, cond);
% INF_MEDIUM_LEADFIELD calculate the infinite medium leadfield
% on positions pnt for dipole position R and conductivity cond
%
% [lf] = inf_medium_leadfield(R, pnt, cond)
rd=[0 0.5 0.5;0 0 0.5]
pnt=[0 0 1; 1 1 1]
cond=[0.3 0.0025 0.3]
%----------------------------------------------------------------
siz = size(rd);
if any(siz==1)
% positions are specified as a single vector
Ndipoles = prod(siz)/3;
elseif siz(2)==3
% positions are specified as a Nx3 matrix -> reformat to a single vector
Ndipoles = siz(1);
rd = rd';
rd = rd(:);
rd
else
error('incorrect specification of dipole locations');
end
%---------------------------------------------------------------------
Npnt = size(pnt,1);
lf = zeros(Npnt,3*Ndipoles);
s1 = size(rd);
if s1(1)>s1(2)
% assurez-vous que la position est un dipôle-vecteur ligne
rd = rd';
end
for i=1:Ndipoles
r = pnt - ones(Npnt,1) * rd((1:3) + 3*(i-1));
R = (4*pi*cond) * (sum(r' .^2 ) .^ 1.5)';
if any(R)==0
warning('dipôle est situé sur la frontière du volume modèle');
end
lf(:,(1:3) + 3*(i-1)) = r ./ [R R R];
end |
Partager