Home > eeg > egis > phantom > transfer_plot.m

transfer_plot

PURPOSE

[h,a,l] = transfer_plot(nmax,s12,s13,r1,r2,r3,r4,rz)

SYNOPSIS

function [h,a,l] = transfer_plot(nmax,s12,s13,r1,r2,r3,r4,rz)

DESCRIPTION

[h,a,l] = transfer_plot(nmax,s12,s13,r1,r2,r3,r4,rz)

CROSS-REFERENCE INFORMATION

This function calls:

fender_4 [a,b,c,d,e,f,g] = fender_4(nmax,s12,s13,r1,r2,r3,r4,rz)

This function is called by:

SOURCE CODE

0001 function [h,a,l] = transfer_plot(nmax,s12,s13,r1,r2,r3,r4,rz)
0002 %[h,a,l] = transfer_plot(nmax,s12,s13,r1,r2,r3,r4,rz)
0003 
0004 [a,b,c,d,e,f,g] = fender_4(nmax,s12,s13,r1,r2,r3,r4,rz);
0005 h = f+g;
0006 
0007 for i = 1:nmax
0008 l(i) = i*(i+1)*h(i)/r4/r4;
0009 end;
0010 for i = 1:size(a,2)
0011 a(i) = a(i)+i*((rz/r1)^(i-1))/(4*pi*r1^2);
0012 end;
0013 h = 4*pi*h./(2*[1:nmax]+ones(1,nmax));
0014 a = 4*pi*a./(2*[1:nmax]+ones(1,nmax));
0015 l = 4*pi*l./(2*[1:nmax]+ones(1,nmax));