solution_ext.sci

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

function [CC]=solution_ext(BB,vtx,%simp)
CC=[];
//function [CC] = solution_ext(BB,vtx,simp);
// 
//Auxiliary function that extracts a secondary NODE-wise solution CC 
//based on the calculated ELEMENT-wise solution BB. This function is 
//called from slicer_plot function.
// 
// 
// 
//BB   = The calculated (element-wise) inverse solution 
//vtx  = The vertices matrix
//simp = The simplices matrix
 
//Initialise the destination matrix CC
CC = zeros(size(vtx,1),1);
 
 
//! unknown arg type, using mtlb_length 
for uu = 1:mtlb_length(BB)
   
  sim_val = BB(uu);
  // Solution value for simplex number uu
   
  // We aim to distribute this solution value to the nodes involved in the current simplex.
   
  sim_nodes = %simp(uu,:);
   
   
  //! unknown arg type, using mtlb_length 
  for oo = 1:mtlb_length(sim_nodes)
     
    s_nd = sim_nodes(oo);
    // Each of the simplex's nodes 
     
    CC(s_nd) = CC(s_nd)+sim_val
  end
end
 
 
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
// 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
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%