File mttroot/mtt/bin/trans/m/mtt_other_causality.m artifact 1f9cfc8d6c part of check-in 0cb8463412
function other = mtt_other_causality (causality) ## usage: other = mtt_other_causality (causality) ## ## causality = deblank(causality); if strcmp(causality,"effort"); other = "flow"; elseif strcmp(causality,"flow"); other = "effort"; elseif strcmp(causality,"e"); other = "f"; elseif strcmp(causality,"f"); other = "e"; else error(sprintf("Causality \"%s\" not recognised",causality)); endif endfunction