netgraph_concentrations.m

％The Metabolic Networks Toolbox contains functions to create, ％modify, display, and simulate bioche

% netgraph_concentrations(network,S,J,flag_text,options)
%
% display concentrations and (optionally) fluxes

function netgraph_concentrations(network,S,J,flag_text,options)

if isempty(S),S=0; end
if length(S)==1,S=S*ones(size(network.metabolites)); end

if ~exist('flag_text','var'), flag_text=0; end

if flag_text,
  if exist('J','var'),
if length(J)==1,J=J*ones(size(network.actions)); end
    opt = struct('metvalues',S,'actvalues',J,'arrowvalues',J,'arrowstyle','fluxes','metprintvalues',1,'actprintvalues',1);
  else
    opt = struct('metvalues',S,'actvalues',J,'arrowstyle','none',' metprintvalues',1,'actprintvalues',1);
  end
else,
  if exist('J','var'),
    if length(J)==1,J=J*ones(size(network.actions)); end
    opt = struct('metvalues',S,'actvalues',J,'arrowvalues',J,'arrowstyle','fluxes','metprintnames',0,'actprintnames',0);
  else
    opt = struct('metvalues',S,'arrowstyle','none','metprintnames',0);
  end
end

if exist('options','var'),

f=fieldnames(options);
for it=1:length(f),
  opt = setfield(opt,f{it},getfield(options,f{it}));
end
end

netgraph_draw(network,opt);