function p = myprod(a)
%MYPROD  Compute the product of the positive elements in a. 

p = 1;
n = length(a);

for i=1:n
	if a(i)  > 0
		p = p * a(i);
	end
end

