Artifact d105a576d527499d81df58f46eb2a4b474e87a999645840aecc6ee8b01fafde4:

• File mtt/bin/trans/m/cause2index.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 561) [annotate] [blame] [check-ins using] [more...]
• File mttroot/mtt/bin/trans/m/cause2index.m — part of check-in [5d463df513] at 2003-03-13 15:43:36 on branch origin/master — Helper for _sese generation (user: gawthrop@users.sourceforge.net, size: 561) [annotate] [blame] [check-ins using]

function index = cause2index (causality)

  ## usage:  index = cause2index (causality)
  ##
  ## 

  if isstr(causality)
    if strcmp(causality,"effort")
      index = 1;
    elseif strcmp(causality,"flow")
      index = 2;
    elseif strcmp(causality,"state")
      index = 3
    else
      error(sprintf("Causality ""%s"" not recognised",causality));
    endif
    
  else
    if causality==1
      index = 1;
    elseif causality==-1
      index = 2;
    else
      error(sprintf("Causality ""%i"" not recognised",causality));
    endif
  endif

endfunction