**TI86** Program file dated 06/23/04, 19:57 0 ZLCdiffN FnOff Öy1=c1*cos (w*x)+c2*sin (w*x)Öy3=w*c1*sin (w*x)+w*c2*cos (w*x)ÖIf c1==0ÖThenÖy1=c2 sin (w*x)Öy3=w*c2*cos (w*x)ÖEndÖIf c2==0ÖThenÖy1=c1*cos (w*x)Öy3=w*c1*sin (w*x)ÖEndÖ(c1+c2)a1Ö2Ä/wpÖClLCDÖEqSt(y1,YÖDisp "Q(x)="+YÖEqSt(y3,YÖDisp "I(x)="+YÖOutpt(4,1,"w=":Outpt(4,3,wÖOutpt(5,1,"c1=":Outpt(5,4,c1ÖOutpt(6,1,"c2=":Outpt(6,4,c2ÖMenu(1,MO,T1,2,PR,TÖLbl T1:ClLCDÖOutpt(1,1,"Qmax(or A)=":Outpt(1,13,a1ÖOutpt(2,1,"PERIOD=":Outpt(2,8,pÖOutpt(3,1,"c0 (FARADS)=":Outpt(3,14,c0ÖOutpt(4,1,"l0 (HENRYS)=":Outpt(4,14,l0ÖZASKGRAFÖLbl TÖReturnÅ¯