clear; clc; close; a = 15; Rl = 8; Rl_dash = (a^2)*Rl; disp(Rl_dash,'Effective resistance looking into primary transformer is ');