startup.m

MATLAB二维电阻抗断层成像算法!用于医学成像,里面包括有限元剖分正问题,及反问题的算法.并且附有网络剖分数据表!

%% Use this as your startup.m file to use QMG, or else append
%% it to your current startup.m


qmg_root = getenv('QMG_ROOT')
if length(qmg_root) > 0
  if strcmp(computer, 'PCWIN')
    m = findstr(qmg_root,'/');
    qmg_root(m) = '\' * ones(1, length(m));
    qmg_root = setstr(qmg_root);
    path(path, [qmg_root,'\mex']);
    path(path, [qmg_root,'\mfiles']);
    path(path, [qmg_root,'\mfiles2']);
  else
    path(path, [qmg_root,'/mex']);
    path(path, [qmg_root,'/mfiles'])
    path(path, [qmg_root,'/mfiles2']);
  end
end    
global gm_default_tol
gm_default_tol = 1e-13;
global gmviz_engine2
global gmviz_engine3
global gmviz_filename
global gmviz_filestat
global gmviz_notify
global gmviz_thickness
global gmviz_default_color
global qmg_data
gmviz_default_color = [1,1,1,1];
gmviz_engine2 = 'local';
gmviz_engine3 = 'local';
gmviz_filename = 'test.wrl';
gmviz_filestat = 'replace';
gmviz_thickness = [0,0,0];
gmviz_notify = 'none';

qmg_data = getenv('QMG_DATA');
if length(qmg_data) > 0
  if strcmp(computer,'PCWIN')
    m = findstr(qmg_data,'/');
    qmg_data(m) = '\' * ones(1,length(m));
    qmg_data = setstr(qmg_data);
  end
end

% ------------------------------------------------------------------
% Copyright (c) 1996 by Cornell University.  All rights reserved.
% See the accompanying file 'Copyright' for authorship information,
% the terms of the license governing this software, and disclaimers
% concerning this software.
% ------------------------------------------------------------------
% This file is part of the QMG software.  
% Version 1.1 of QMG, release date November 15, 1996.
% ------------------------------------------------------------------