Cubic regression program for TI-81 - works in same
manner as built-in linear regression.
----begin documentation----
This is the follow-up program to QUADREG.UUE.  It
works in the same manner.  Use (50,1688), (60,1572),
(70,1807), (80,3981), (85,7614) and (90,12848) to 
check.  Results should be the cubic equation
y=-112896+5759.69x-95.5026x^2+.522521x^3 (rounded).
For further information see QUADREG.UUE.
----end doucmentation----
----begin ASCII----
\START81\
\NAME=CUBICREG
\FILE=ti81_5.PRG
Disp "F(X)"
Disp "  =A+BX+CX\^2\+DX\^3\"
4->ARow
4->ACol
4->BRow
1->BCol
LinReg
n->E
1->N
0->C
0->Q
0->P
0->F
0->S
0->R
Lbl L
({x}(N))^3+C->C
({x}(N))^4+Q->Q
({x}(N))^2{y}(N)+P->P
({x}(N))^5+F->F
({x}(N))^6+S->S
({x}(N))^3{y}(N)+R->R
IS>(N,E)
Goto L
n->[A](1,1)
\Sigma-x\->[A](1,2)
\Sigma-x^2\->[A](1,3)
C->[A](1,4)
\Sigma-x\->[A](2,1)
\Sigma-x^2\->[A](2,2)
C->[A](2,3)
Q->[A](2,4)
\Sigma-x^2\->[A](3,1)
C->[A](3,2)
Q->[A](3,3)
F->[A](3,4)
C->[A](4,1)
Q->[A](4,2)
F->[A](4,3)
S->[A](4,4)
\Sigma-y\->[B](1,1)
\Sigma-xy\->[B](2,1)
P->[B](3,1)
R->[B](4,1)
[A]\^-1\[B]->[C]
Disp "A,B,C,D="
Disp [C]
\STOP81\
----end ASSCI----
----begin UUE----
begin 644 ti81_5.prg
M*BI423@Q*BH`;F\!6VU:85MJ75^W+%X?<!TL[+<L5E8@629:<"9;<$@F7'!*
M+.P4''3L%!QU[!0<=NP1''?LF^R.'%WL$1QF[!`<6^P0'&GL$!QH[!`<7NP0
M'&OL$!QJ[+QD[!^$9AT=1A,F6QQ;[!^$9AT=1A0F:1QI[!^$9AT=1A*%9ATF
M:!QH[!^$9AT=1A4F7AQ>[!^$9AT=1A8F:QQK[!^$9AT=1A.%9ATF:AQJ[+]F
M'ET=[+UD[(X<AA\1'A$=[(D<AA\1'A(=[(H<AA\1'A,=[%L<AA\1'A0=[(D<
MAA\2'A$=[(H<AA\2'A(=[%L<AA\2'A,=[&D<AA\2'A0=[(H<AA\3'A$=[%L<
MAA\3'A(=[&D<AA\3'A,=[%X<AA\3'A0=[%L<AA\4'A$=[&D<AA\4'A(=[%X<
MAA\4'A,=[&L<AA\4'A0=[(P<AQ\1'A$=[(L<AQ\2'A$=[&@<AQ\3'A$=[&H<
=AQ\4'A$=[(9'AQR([+<L61Y:'EL>7"`L[+>(`WD`
`
end
----end UUE----
eof (end of file)



--
Peter L. A. Oakes ae012@leo.nmc.edu
Muskegon Community College
221 S Quarterline Rd
Muskegon MI 49442 (616)-777-0295