%Zadanie1_a)
clc;
clear;
Gt=1.6;
Gr=1.6;
f=900*10^6; %czestotliwosc
c=3*10^8;  %predkosc swiatla
La=c/f;
d1=1:0.5:100;

hold on
for d1=1:0.5:100
    PrPt=Gt*Gr*((La./(4*pi*d1)).^2);
    PRPTdb=log10(PrPt);
    plot(d1,PRPTdb)
    title('Wzgledny spadek mocy sygnalu na dlugosci[1m-100m]');
    xlabel('Odleglosc[m]');
    ylabel('Moc sygnalu[dB]');


end