//chapter 10
// example 10.5
// page 351
R1=20
Vin=12;
Vout=0;//worst case  for masimum power across R1
VR1=Vin-Vout;
disp(VR1)
PR1=VR1^2/R1;
disp(PR1)//watt