I am an AP Stats student with a TI-83+, and need some help inputting a program for LinRegTInt program called LNREGINT. I am unable to, due to my lack of understanding of how to input it, and would appreciate someone helping me input it, as a lot hinges on me passing this. The program is as follows, when translated using SourceCoder from this sight, using TI-83+/TI-84+ TI BASIC.
Code:
Apologies for any trouble.
Code:
Prompt L1,L2,C
LinReg(a+bx) L1,L2,{Y1}
[|a]->Z
[|b]->Y
[r]->R
dim(L1)->N
N-2->D
2-Var StatsL1,L2
sqrt(([Sigmay^2]-Z*[Sigmay]-Y*[Sigmaxy])/D)->S
(1-C)/2->A
solve(A-tcdf(~1|E99,X,D),X,{~1|E99,1|E99})->T
abs(T)->T
T*S/sqrt([Sigmax^2]-([Sigmax])^^2/N)->E
ClrHome
Output(1,3,"LINREGTINT")
Output(2,1,"Y=[|a]+[|b]X")
Output(3,1,"(")
Fix 4
Y-E->L
Output(3,2,L)
Y+E->U
Output(3,8,",")
Output(3,9,U)
Output(3,16,")")
Output(4,1,"[|b]=")
Float
Output(4,3,Y)
Output(5,1,"[df]=")
Output(5,4,D)
Output(6,1,"[s]=")
Output(6,3,S)
Output(7,1,"[|a]=")
Output(7,3,Z)
Pause
ClrHome
Output(1,1,"[r^2]=")
Output(1,4,R^^2)
Output(2,1,"[r]=")
Output(2,3,R)
Pause
ClrHome
Output(1,2,"CI FOR CONSTANT")
TSsqrt(1/N+[xbar]^^2/([Sigmax^2]-([Sigmax])^^2/N))->E
Z-E->L
Z+E->U
Fix 4
Output(2,1,"(")
Output(2,2,L)
Output(2,7,",")
Output(2,9,U)
Output(2,14,")")
Pause
ClrHome
Apologies for any trouble.
