//chapter 20
//example 20.1
//page 902
printf("\n")
printf("given")
Vs=25;Vtm=1.7;Rl=25;Ih=5*10^-3;
Vspk=1.414*Vs
Ilpk=(Vs-Vtm)/Rl
disp(" for half wave rectifier sinusodial waveform")
Ilrms=.5*Ilpk
disp(" switch-off voltage")
es=Vtm+(Ih*Rl)