Mercurial > forge
view extra/ocs/doc/Mcurrentsources.m_in @ 12671:20e8aca47b2c octave-forge
prepare for release
author | cdf |
---|---|
date | Mon, 17 Aug 2015 10:19:39 +0000 |
parents | 60ed834d44ad |
children |
line wrap: on
line source
function [a,b,c] =... Mcurrentsources(string,parameters,parameternames,extvar,intvar,t) ## [a,b,c] = ... ## Mcurrentsources(string,parameters,parameternames,extvar,intvar,t) switch string case "DC" for ii=1:length(parameternames) eval([parameternames{ii} "=" num2str(parameters(ii)) ";"]) end a = zeros(2); b = a; c = [I -I]'; break case "sinwave" for ii=1:length(parameternames) eval([parameternames{ii} "=" num2str(parameters(ii)) ";"]) end I = shift+Ampl * sin(2*pi*(t+delay)*f ); a = zeros(2); b = a; c = [I -I]'; break otherwise error (["unknown section:" string]) end