function [ Y ] = Tabs3()

D=[50 100 200 500];
for k=1:4
    Tk(k)=Tabs(D(k)/2,D(k));
end
plot2d(D,Tk);
endfunction

