**TI85** ª œNMLAPXœšClLCDÖ{4.471965,7.936194,.00516848,.012629,.00814914,.0800785,.00707859,.397898,0}CoeffÖDisp"Computes areas under"ÖDisp"normal curve in pct."ÖDisp"Give endpoints a&b"ÖLbl AÖInput"a? ",AÖInput"b? ",BÖIf (abs(A)>4.5)+(abs(B)>4.5):ThenÖDisp"a,b must be in range"ÖDisp"-4.5 to 4.5"Ögoto AÖEndÖ(pEval(Coeff,abs(B))*sign(B)-pEval(Coeff,abs(A))*sign(A))*100AreaÖFix 2ÖDisp"Appx area (in pct) is",AreaÖFloatÖ$„