function iter = chg_link(n)
    pwr = 0.2;
    chcap = zeros(1, n);
    total_chcap = zeros(1, n);

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

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

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

    iter = chcap(1,:);
end
