function [P,Pln]=func3(x);
P=1;
Pln=1;
for i=1:length(x);
    P=P*x(i);
    Pln=Pln*sin(x(i));
end

