producercs.m

来自「共上载5个源码」· M 代码 · 共 7 行

function rcs=producercs(meanrcs, N,M);
if nargin<3,M=10000; end
if nargin<2 N=1;   end
if nargin<1 meanrcs=10; end
prorand=producerand(N,M);
rcs=-meanrcs*log(prorand);