//chapter 19
//example 19.13
//page 848
printf("\n")
printf("given")
Rl=20;Po=2.5;Rd=4;Vr6=1;Vr9=Vr6;Vth=1;gFS=250*10^-3;Vbe=.7;
Vp=sqrt(2*Rl*Po)
Ip=Vp/Rl
Vcc=(Vp+Ip*Rd)
vr6=Ip/gFS
Vr2=vr6+1
Vce=Vr2;
Vce3=1;
Vr2=Vcc-Vce
Vee=Vcc;
Vr3=Vee-Vbe
Vr7=Vr2-Vr6
Vr8=Vcc-(-Vee)-Vr6-Vr7-Vr9