% zad #2
clear all;
x = -1:0.01:1;
nums = -1:0.01:1;
num = 10000;
saw1 = lab0(0.123, num)*2-1;
saw2 = lab0(0.521, num)*3;
exp1 = log(2*x) .* (x<=0.5) - log(2-2*x) .* (x>0.5);
varx = zeros(1,length(nums));
vary = zeros(1,length(nums));
for i = 1:num
       varx(i) = interp1(nums,exp1,saw1(i))/2.5;
       if varx(i) > 1
           varx(i) = 1;
       elseif varx(i) < -1
           varx(i) = -1;
       end
       vary(i) = interp1(nums,exp1,saw2(i));
       if vary(i) > 3
           vary(i) = 3;
       elseif vary(i) < 0
           vary(i) = 0;
       end
end



figure;
%plot(varx, vary, "r*");
wyk = exp(-x);
hold on;
plot(x,wyk);
[in, on] = inpolygon(varx, vary, x, wyk);
plot(varx(~in), vary(~in), "r*");
plot(varx(in), vary(in), "g*");