**TI86** Program file dated 06/23/04, 19:57 ‚ rVOLTAGERrpRadianÖLbl TÖClLCDÖOutpt(1,1,"AVERAGE VALUE OF VOL-TAGE AND root mean square VOLTAGE"ÖOutpt(5,3,"F1 IN CIRCUIT F2 IN OUTLET"ÖMenu(1,"F1",T1,2,"F2",T2,5,QU,QÖLbl QÖZMAKÖStopÖLbl T1ÖClLCDÖOutpt(1,1,"VOLTAGE IN A CIRCUIT V=Vo*cos(wt+É)"ÖOutpt(3,1,"Vo IS MAX V. V' IS MAX @ Vo*w. AVERAGE OF V OVER ONE PERIOD"ÖOutpt(6,1,"IS (1/2)*Vo. Vo IS INPUTVOLTAGE, Ä/w IS"ÖMenu(1,MO,TA,2,PR,T,5,QU,Q)ÖLbl TAÖClLCDÖOutpt(1,1,"PERIOD AND É IS PHASESHIFT."ÖOutpt(3,1,"THE A.D. OF V=Vo* (1/2)(t+(1/(2w))* sin(2wt+2É))."Ö5lf:ZLINFEEDÖInput "Vo? ",v1ÖInput "w? ",w1ÖInput "É? ",p1ÖFnOff Öy1=v1*cos (w1*x+p1)Öy4=v1*w1*sin (w1*x+p1)Öy3=y1ÖGrStl(1,1ÖGrStl(3,2ÖFnOff 4ÖZINFOÖZASKGRAFÖIf K102ÖGoto TÖÄ/w1xÖv1yÖZGRAFSINÖText(0,3,"V(t)"ÖText(0,60,"THICK LINE IS V"ÖText(55,120,"t"ÖTraceÖStopÖLbl T2Ö"y4=Vo*cos(120Ät)"Y4Ö"y1=Vo(1/(120Ä))sin(120Ät)"Y1Ö"y2=der1(y1,t)"Y2Ö"y5=Vo(1/(240Ä))cos(120Ät)"Y5Ö"*sin(120Ät)+(1/2)Vot"Y5AÖ"y6=der1(y5,t)"Y6Ö"y7=(Vo*cos(120Ät))"Y7ÖLbl T2TÖZTÖZLÖText(0,15,"ELECTRICAL OUTLET VOLTAGE"ÖText(6,0,"OVER THE COMPLETE PERIOD OF A"ÖText(12,0,"sin WAVE THE AREAS CANCEL AND=0."ÖText(18,0,"THUS, THE AVERAGE V=0, HOWEVER,"ÖText(24,0,"SQUARING V INTO V PUTS THE WAVE"ÖText(30,0,"TOTALLY ABOVE OR EQUAL TO THE"ÖText(36,0,"THE X-AXIS. THE AVERAGE OF V"ÖText(42,0,"IS THEN (1/2)Vo/t"ÖMenu(1,MO,T2A,2,PR,T,5,QU,QÖLbl T2AÖClDrwÖZLÖ0x:51yÖZTÖText(4,8,"y4 dx=y1: y2 CHECKS THAT y1'=y4."ÖText(12,0,Y1ÖText(18,0,Y2ÖText(24,0,Y4ÖText(30,0,"ROOT MEAN VOLTAGE=(V/t): V=y7"ÖMenu(1,MO,T2B,2,PR,T2T,5,QU,QÖLbl T2BÖClDrwÖZLÖ0x:51y:ZTÖText(4,8,"y7 dx=y5"ÖText(12,0,Y5ÖText(18,40,Y5AÖText(24,0,Y6ÖText(30,0,Y7ÖText(36,0,"y6 IS MERELY OUR CHECK THAT y5'=y7"ÖText(42,0,"ROOT MEAN SQUARE IS"ÖMenu(1,MO,T2C,2,PR,T2A,5,QU,QÖLbl T2CÖClDrwÖZLÖText(0,0,"THUS Vo/2."ÖText(6,0,"AND, IT IS 110V IN THE HOUSES OF"ÖText(12,0,"THE UNITED STATES, Vo=1102"ÖMenu(1,MO,T2D,2,PR,T2B,5,QU,QÖLbl T2DÖZINFOÖZASKGRAFÖIf K102ÖGoto TÖy4=110cos (120Äx)ÖFnOff Öy7=y4Ö110yÖ1/120xMaxÖ0xMinÖ2yyMaxÖ0yMinÖxMaxxSclÖy/4ySclÖAxesOnÖClDrwÖDispGÖText(0,3,"V(t)"ÖText(55,120,"t"Ö1/240xÖTraceÖStop‡