//EXAMPLE 2-77    PG NO-114
R=sqrt(2.5^2-1.724^2)-0.69;
disp('i)   Resistance (R) is    =  '+string (R) +'  ohm ');
R1=sqrt(2.5^2-1.92^2)-0.384;
disp('ii)   Resistance (R1) is    =  '+string (R1) +'  ohm ');
r=5;
PF=(0.69+R)/2.5;
disp('iii)   Power Factor (PF) is    =  '+string (PF) +'  lagging ');
r1=10;
PF1=(0.384+R1)/2.5;
disp('iv)   Power Factor (PF1) is    =  '+string (PF1) +'  lagging ');