ref_master.sci

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

function [Er]=ref_master(E,gnd_ind)
Er=[];
//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
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%