clc;
//Example 12.1
//Page No 505

disp("Given: A D/r ratio of 12.22");

//solution

dr=12.22;

disp("Susbstituting into equation 12-14(refer pgno 505), we obtain ");

Z0=276*log10(dr);

disp('Ohm',round(Z0),"Z0 = ");