//Example_a_4_2 page no:176
clc;
Ip=10;//peak value of current form the current equation(in milliAmpere)
Irms=Ip/sqrt(2);
Ipp=2*Ip;
Iav=Ip*0.637;
disp(Ip,"the peak value of current is (in mA)");
disp(Irms,"the rms value of current is (in mA)");
disp(Ipp,"the peak to peak value of current is (in mA)");
disp(Iav,"the average value of current is (in mA)");