ref_master.m

用来实现三维阻抗及光学断层成像重建的matlab程序

function [Er] = ref_master(E,gnd_ind);
%function [Er] = ref_master(E,gnd_ind);
%
%Applying reference to the system. Modifying the system matrix to
%preserve uniqueness.
%
%
%
%E       = The renk deficient by 1 system matrix
%Er      = The full rank matrix
%gnd_ind = The ground index 


Er = E;

Er(gnd_ind,:)= 0;					%zeros(1,mas_c);
Er(:,gnd_ind)= 0;					%zeros(mas_r,1);
Er(gnd_ind,gnd_ind) = 1;




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This is part of the EIDORS suite.
% Copyright (c) N. Polydorides 2001
% Copying permitted under terms of GNU GPL
% See enclosed file gpl.html for details.
% EIDORS 3D version 1.0
% MATLAB version 5.3 R11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%