Artifact f2ac476a389e6c0b557469b42bfeaecdce036d231e70c5aaeeea0cc81354523b:
- File mttroot/mtt/bin/trans/m/mtt_check_sigs.m — part of check-in [0e41d1033c] at 2003-03-13 15:32:37 on branch origin/master — Octave m files for generating sorted equations _sese.r (user: gawthrop@users.sourceforge.net, size: 523) [annotate] [blame] [check-ins using] [more...]
function N = mtt_check_sigs (outsig,insigs) ## usage: N = mtt_check_sigs (outsig,insigs) ## ## ## A signal has the columns: bond number signal causality (+1 or -1) ## and component port number M=3; ## Sanity check [N_out,M_out] = size(outsig); if N_out<>1 error("There must be exactly one outbond"); endif [N_in,M_in] = size(insigs); if (M_out!=M)||(M_in!=M) error(sprintf("There must be exactly %i elements to a bond (number, causality, port)",M)); endif N = N_in; endfunction