I don't have the cable to upload a program to mi TI-83 so i decided to hand code this program and when I run it, it gives me undefined and when i go to the part in the code i have no idea what is wrong.
Code:
its this part that is giving me the problems:
Code:
I couldn't find the overline in the menu, the only thing I could find is the x with the overline over it. Any suggestions?
Code:
:ClrHome
:ClrDraw
:FnOff
:AxesOff
:PlotsOff
:
:Input "DEGREE:",X
:X+1→X
:0→dim(L1)
:Disp "COEF. OF :"
:
:For(A,1,X)
:If X-A=1
:Output(2,10,"X ")
:If X-A=0
:Output(2,10,"CONST")
:If X-A>1
:Then
:Output(2,10,"X^ ")
:Output(2,12,X-A)
:End
:Input Y
:Y→L1(A)
:End
:
:Text(1,1,A)
:1→C
:1→R
:
:If L1(1)<0
:Then
:Text(R,C,"‾")
:C+4→C
:‾1*L1→L1
:End
:
:
:
:L1(1)→I
:Lbl XX
:If I≤1
:Goto ZZ
:If sum(abs(fPart(L1/I)))=0
:Then
:L1/I→L1
:Text(R,C,I)
:While I>0
:iPart(I/10)→I
:C+4→C
:End
:Goto ZZ
:End
:I-1→I
:Goto XX
:
:Lbl ZZ
:
:0→Z
:While L1(X)=0
:Z+1→Z
:dim(L1)-1→dim(L1)
:X-1→X
:End
:
:If Z>0
:Then
:Text(R,C,"X")
:C+4→C
:If Z=2
:Then
:Text(R,C,"2")
:C+4→C
:End
:If Z>2
:Then
:Text(R,C,"^")
:Text(R,C+4,Z)
:C+8→C
:End
:End
:
:
:
:Lbl TP
:L1(1)→P
:L1(X)→Q
:abs(P)→P
:abs(Q)→Q
:
:For(I,1,P)
:For(J,1,Q)
:If fPart(Q/J)=0 and fPart(P/I)=0
:Then
:J/I→F
:Lbl MD
:0→dim(L2)
:L1(1)→L2(1)
:For(Z,1,X-1)
:L2(Z)*F+L1(Z+1)→L2(Z+1)
:End
:If L2(X)=0
:Then
:Goto PR
:Lbl FD
:L2→L1
:X-1→X
:
:If X≤1
:Then
:Text(50,1,"FINISHED."
:Text(57,1,"PRESS ENTER TO CONTINUE")
:Pause
:FnOn
:AxesOn
:ClrHome
:Stop
:End
:
:X→dim(L1)
:Goto TP
:End
:If F>0
:Then
:‾F→F
:Goto MD
:End
:End
:End
:End
:End
:
:Text(R,C,"(")
:C+3→C
:
:Lbl PP
:If C>74
:Then
:0→C
:R+7→R
:End
:
:If dim(L1)>0
:Then
:L1(1)→N
:
:If N≠1 or dim(L1)=1
:Then
:Text(R,C,N)
:abs(N)→N
:While N>0
:iPart(N/10)→N
:C+4→C
:End
:End
:End
:
:If dim(L1)≤1
:Then
:Text(R,C,")")
:Text(50,1,"FINISHED."
:Text(57,1,"PRESS ENTER TO CONTINUE")
:Pause
:FnOn
:AxesOn
:ClrHome
:Stop
:End
:
:Text(R,C,"X")
:C+4→C
:
:If dim(L1)=3
:Then
:Text(R,C,"2")
:C+4→C
:End
:
:If dim(L1)>3
:Then
:Text(R,C,"^")
:Text(R,C+4,dim(L1)-1)
:C+8→C
:End
:
:For(A,1,dim(L1)-1)
:L1(A+1)→L1(A)
:End
:dim(L1)-1→dim(L1)
:
:
:While dim(L1)>0 and L1(1)=0
:If dim(L1)>0
:Then
:For(A,1,dim(L1)-1)
:L1(A+1)→L1(A)
:End
:dim(L1)-1→dim(L1)
:End
:End
:
:
:
:Text(R,C,"+")
:If L1(1)<0
:Text(R,C,"-")
:C+4→C
:abs(L1(1))→L1(1)
:Goto PP
:
:Lbl PR
:If C>60
:Then
:0→C
:R+7→R
:End
:Text(R,C,"(")
:C+3→C
:If I≠1
:Then
:Text(R,C,I)
:While I>0
:iPart(I/10)→I
:C+4→C
:End
:End
:Text(R,C,"X+")
:If F>0
:Text(R,C+4,"-")
:C+8→C
:Text(R,C,J)
:While J>0
:iPart(J/10)→J
:C+4→C
:End
:Text(R,C,")")
:C+3→C
:
:Goto FD
:
its this part that is giving me the problems:
Code:
:If L1(1)<0
:Then
:Text(R,C,"‾")
:C+4→C
:‾1*L1→L1
:End
I couldn't find the overline in the menu, the only thing I could find is the x with the overline over it. Any suggestions?