filename = 'Book11.csv';
M = readtable(filename);
disp(M)
a=M{:,3};
rcs=M{:,4};
idx = a >=120 & a <= 240;
p = a(idx);
r = rcs(idx);
t=prctile(r,50)
plot(a,rcs,'.k'); hold on; grid on
plot(p,r,'gs')
plot([120 240],[t t],'r')
legend('all','120<=phi<=240','median')