RosettaCodeData/Task/Averages-Arithmetic-mean/Octave/averages-arithmetic-mean-1.octave
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

10 lines
140 B
Text

function m = omean(l)
if ( numel(l) == 0 )
m = 0;
else
m = mean(l);
endif
endfunction
disp(omean([]));
disp(omean([1,2,3]));