function iter = chg_link_rdpwr(n)

    chcap_rdpwr = zeros(1, n);
    total_chcap_rdpwr = zeros(1, n);

    for i = 1:1:n
        [total_chcap_rdpwr(1,i),chcap_rdpwr(1,i)] = mk_sim_rdpwr(i);
        
        subplot(2,2,4);
        plot(total_chcap_rdpwr);
        
        subplot(2,2,2);
        plot(chcap_rdpwr);
    end
    
    subplot(2,2,[1,3]);
    title('simulation')
    legend({'','Receiver', '', 'Transceiver'},'Location','southwest')

    subplot(2,2,2);
    title('one channel capacity')
    sgtitle('Simulation with Random power')

    subplot(2,2,4);
    title('total channel capacity')
    sgtitle('Simulation with Fixed power')

    iter = chcap_rdpwr(1,:);
end
