**TI86** Program file dated 06/23/04, 19:55 w gErorFuncgeSETerfÖZINITÖZLÖText(0,0,"THE FOLLOWING ARE EXAMPLES OF THE")ÖText(7,0,"error function erf(x) DERIVITIVES")ÖText(14,0,"AND EXPRESSIONS WITH THE erf TERM.")ÖText(31,0,"erf(x)=2/Ä")Ö43x:24yÖZTÖ"0"lb:"x"ltÖZTLÖText(31,55,"e^x")ÖZPAUSGÖIf K==22 or K==25ÖReturnÖLbl TÖZINITÖZLÖText(0,0,"THE TERM erf(x) IN EXPRESSIONS")ÖText(12,0,"F1 (2/Ä)")Ö36x:45yÖZTÖ"0"lb:"x"ltÖZTLÖText(12,55,"e^(t/2) dt=")ÖText(26,0,"F2 (2/Ä)")Ö36x:31yÖZTÖ"A"lb:"b"ltÖZTLÖText(26,55,"e^(t/2) dt=")ÖText(37,0,"F3 d/dx erf(x)=")ÖText(46,0,"F4 d/dx x * erf(x)=")ÖLbl IÖZPAUSGXÖIf K==22ÖReturnÖIf K<11 or K>16ÖGoto IÖIf K==11ÖThenÖClLCDÖerf1=x/2Öy1=erfÖy2=(2/Ä)fnInt(e^(x/2),x,0,x)ÖEqSt(y2,Y)ÖOutpt(1,1,"y2=")ÖOutpt(1,4,Y)ÖEqSt(y1,Y)ÖOutpt(3,1,"erf(x/2)=y1")ÖOutpt(4,1,"y1=")ÖOutpt(4,4,Y)ÖOutpt(6,1,"COMPUTING TABLE TO PROVE EQUALITY")ÖDispTÖEndÖIf K==12ÖThenÖClLCDÖInput "A? ",lbÖInput "b? ",ltÖerf1=lt/2Öy1=erfÖy2=(2/Ä)fnInt(e^(x),x,0,lb/2)ÖFnOff 1,2Öy3=(2/Ä)fnInt(e^(x/2),x,lb,lt)Öy4=y1-y2ÖEqSt(y3,Y)ÖOutpt(1,1,"y3=")ÖOutpt(1,4,Y)ÖEqSt(y1,Y)ÖOutpt(3,1,"erf(b/2)=")ÖOutpt(3,11,Y)ÖEqSt(y2,Y)ÖOutpt(5,1,"erf(A/2)=")ÖOutpt(5,11,Y)ÖOutpt(7,1,"SHOW y3=y1-y2=y4")ÖOutpt(8,1,"COMPUTING TABLE")ÖDispTÖEndÖIf K==13ÖThenÖClLCDÖy1=(2/Ä)fnInt(e^((x1)),x1,0,(x1))Öy2=(1/(xÄ))e^xÖEqSt(y2,Y)ÖOutpt(2,1,"yx=erf((x+h))- erf(x))/h")ÖOutpt(4,1,"y2=")ÖOutpt(4,4,Y)ÖOutpt(6,1,"COMPUTING TABLE TO PROVE EQUALITY")Ö7lf:ZLINFEEDÖZPAUSTÖOutpt(8,4,"y2 yx")ÖFor(x,.1,.5,.1)ÖDisp ""ÖOutpt(8,1,round(y2,6))Öxx1:y1b1Öx1+16x1:y1a1ÖOutpt(8,11,round((a1-b1)/16,6)ÖEndÖZPAUSTÖEndÖIf K==14ÖThenÖClLCDÖerf1=xÖy1=x*erfÖy2=nDer(y1,x)Öy3=erf+x*(2/Ä)e^(x)ÖFnOff 1ÖEqSt(y1,Y)ÖOutpt(1,1,"y1=")ÖOutpt(1,4,Y)ÖEqSt(y2,Y)ÖOutpt(2,1,"y2=y1'=")ÖOutpt(2,9,Y)ÖEqSt(y3,Y)ÖOutpt(3,1,"y3=y1'=")ÖOutpt(3,8,Y)ÖOutpt(6,1,"COMPUTING TABLE TO PROVE EQUALITY")ÖDispTÖEndÖGoto TYR