**TI85**Program file dated 11/04/94, 20:33^ N FormulasN L ClLCDÖ0ZÖDisp " Formulas","1. Quadratic","2. Í B.R.F.","3. Prime Factorizaton","4. Distance Form.","5. Midpoint Form.","6. Line Equasion (SF)"ÖOutpt(8,1,"Enter-More")ÖLbl ZÖgetKyAÖIf A==0:Goto ZÖIf A==92:Goto AÖIf A==93:Goto BÖIf A==94:Goto CÖIf A==82:Goto DÖIf A==83:Goto EÖIf A==84:Goto NÖClLCDÖDisp "1. Sums","2. Trig Ratios","3. Law of cosines"ÖLbl QÖgetKyAÖIf A==0:Goto QÖIf A==92:Goto PÖIf A==93:Goto SÖIf A==94:Goto TÖLbl AÖ0ZÖClLCDÖDisp " Quadratic Formula"ÖDisp " ax+bx+c=0"ÖDisp ""ÖInput "a=",AÖInput "b=",BÖInput "c=",CÖB-4A*CDÖIf D==0ÖThenÖDisp B/2AFracÖStopÖEndÖIf D<0ÖGoto IÖIf D>0ÖThenÖIf D==int DÖThenÖDisp (B+D)/(2A)FracÖDisp (B-D)/(2A)FracÖStopÖEndÖEndÖLbl HÖIf D<0ÖDDÖint D+1EÖLbl FÖE-1EÖDisp EÖIf D/Eint (D/E)ÖGoto FÖE+1FÖLbl GÖF-1FÖDisp FÖIf E/Fint (E/F)ÖGoto GÖIf B/Fint (B/F)ÖGoto GÖIf 2A/Fint (2A/F)ÖGoto GÖClLCDÖOutpt(2,2,B/F)ÖOutpt(2,6,"+-")ÖOutpt(2,8,E/F)ÖIf Z==1ÖOutpt(2,10,"i")ÖOutpt(2,11,"")ÖOutpt(2,12,D/E)ÖOutpt(3,2,"--------------"ÖOutpt(4,7,2A/F)ÖStopÖLbl IÖ1ZÖDDÖGoto HÖLbl BÖClLCDÖDisp " Í Factorization"ÖDisp " nÍa"ÖDisp ""ÖInput "n=",NÖInput "a=",AÖint (NÍA)+1BÖLbl JÖB-1BÖDisp BÖIf (A/B^N)int (A/B^N)ÖGoto JÖClLCDÖIf A/B^N==1ÖThenÖDisp BÖStopÖEndÖOutpt(1,1,B)Ö1WÖ1VÖWhile BWÖW*10WÖV+1VÖEndÖOutpt(1,V,"")ÖOutpt(1,V+1,(A/B^N))ÖDisp ""ÖStopÖLbl CÖClLCDÖDisp " Prime Factorization"ÖDisp ""ÖInput "Enter #",NÖRectCÖ0dimL FACTORSÖ1SÖ2FÖ0EÖNMÖWhile FMÖWhile mod(N,F)==0ÖE+1EÖDisp EÖN/FNÖEndÖIf E>0:ThenÖ(F,E)FACTORS(S)Ö0EÖS+1SÖNMÖEndÖIf F==2ÖThen:3FÖElse:F+2FÖEndÖEndÖIf N1:(N,1)FACTORS(S)ÖClLCDÖPause FACTORSÖ0FACTORSÖStopÖLbl DÖClLCDÖDisp " Distance"ÖDisp "D=(X1-X2)+(Y1-Y2)"ÖDisp ""ÖLbl LÖInput "X1=",XÖInput "Y1=",YÖInput "X2=",XXÖInput "Y2=",YYÖIf Z==1ÖGoto MÖIf Z==2ÖGoto OÖ(X-XX)+(Y-YY)DÖClLCDÖDisp ""ÖDisp DFracÖDisp ""ÖDisp DÖStopÖLbl EÖClLCDÖDisp " Midpoint"ÖDisp " X1+X2 Y1+Y2"ÖDisp " ----- -----"ÖDisp " 2 2"Ö1ZÖGoto LÖLbl MÖDisp (X+XX)/2,(Y+YY)/2ÖStopÖLbl NÖClLCDÖDisp " Line Equasion"Ö2ZÖGoto LÖLbl OÖ(YY-Y)/(XX-X)MÖY-M*XBÖClLCDÖDisp "M="ÖDisp MFracÖDisp "B="ÖDisp BFracÖ0DÖLbl RÖD+1DÖIf (D*B)int (D*B)ÖGoto RÖIf (D*M)int (D*M)ÖGoto RÖIf D*M<0ÖDDÖPause ÖClLCDÖDisp " Ax+By+C=0"ÖDisp "A="ÖOutpt(2,3,D*M)ÖDisp "B="ÖOutpt(3,3,D)ÖDisp "C="ÖOutpt(4,3,D*B)ÖStopÖLbl PÖClLCDÖ0TÖDisp "n"ÖDisp "E (E=a function of I)"ÖDisp "I"ÖDisp " I,I+1,I+2,I+3,I+4,,n"ÖInput "n=",NÖInput "I=",IÖI-1IÖInpSt "Equas= ",suumÖStEq(suum,Su)ÖWhile INÖI+1IÖDisp IÖSolver(Su,E,I)ÖE+TTÖEndÖDisp TÖStopÖLbl SÖClLCDÖDisp "sin y/r csc r/y"ÖDisp "cos x/r sec r/x"ÖDisp "tan y/x cot x/y"ÖDisp ""ÖInput "x=",xÖInput "y=",YÖ(x+Y)RÖClLCDÖDisp "sin "ÖDisp "cos "ÖDisp "tan "ÖDisp "csc "ÖDisp "sec "ÖDisp "cot "ÖIf R0ÖOutpt(1,5,Y/R)ÖIf R0ÖOutpt(2,5,x/R)ÖIf x0ÖOutpt(3,5,Y/x)ÖIf Y0ÖOutpt(4,5,R/Y)ÖIf x0ÖOutpt(5,5,R/x)ÖIf Y0ÖOutpt(6,5,x/Y)ÖOutpt(7,1,R)ÖPause ÖClLCDÖIf R0ÖDisp Y/RFracÖIf R0ÖDisp x/RFracÖIf x0ÖDisp Y/xFracÖIf Y0ÖDisp R/YFracÖIf x0ÖDisp R/xFracÖIf Y0ÖDisp x/YFracÖStopÖLbl TÖClLCDÖDisp " Law of cosinses"ÖDisp "a=b+c-2bc cos A"ÖDisp "b=a+c-2ac cos B"ÖDisp "c=a+b-2ab cos C"ÖDisp ""ÖInput "A=",AÖInput "b=",BÖInput "c=",CÖB+CD:2B*CEÖClLCDÖDisp "a="ÖOutpt(1,4,D)ÖOutpt(1,8,"-")ÖOutpt(1,9,E)ÖOutpt(1,13,"cos")ÖOutpt(1,18,A)ÖD-E cos AFÖDisp "a="ÖOutpt(2,4,F)ÖDisp "a="ÖOutpt(3,3,F)ÖStopôg