// Example  2.2


a1=%pi*3/4;           // Relative area of wire-A
a2=%pi*1/4;           // Relative area of wire-B
l1=1;                 // Relative lenght of wire-A
l2=3;                 // Relative lenght of wire-B 
R1=10;                // Resistance of wire
r=(l2/a2)/(l1/a1);
disp('The ratio of resistances (R2/R1) = '+string(r)+' ohm');
R2=r*R1;
disp('Resistance(R2) = '+string(R2)+' ohm');







             //  p 16          2.2