Matlab code to verify maximum power transfer theorem

%Program to plot power versus load resistance plot to verify maximum
%power transfer theorem

clc;
clear all;

Vm = 340;
Vrms = 340 / sqrt(2);
Rth = 100;
RL  = 50:1:200;
IL = Vrms./(Rth + RL);
PL = IL.^2 .* RL;

plot(RL,PL,'k*')
hold on 
title('\bf Maximum Power Transfer Theorem','FontSize',14);
xlabel('\bf Load Resistance','FontSize',10);
ylabel('\bf Power transferred to load','Fontsize',10);
gtext('Rth = RL = 100')
legend('PL')
grid on