I have been unable to find a practical factoring program and was forced to actually find and download one- the only problem is that it was made for the TI-84 Plus Silver Edition. But I need to make it work for the TI-84 Plus. My coding skills are extremely basic and I keep getting errors here and there after believing I have finally fixed it. If someone could tell me what to fix, or actually fix it themselves, I would incredibly grateful!

Code:
```CLASSIC a+bi DelVar L1DelVar L2DelVar L3DelVar L4DelVar L50->dim(L6 ClrDraw:AxesOff FnOff :PlotsOff ClrHome Input "DEGREE?",D For(I,D,0,~1    If I    Then       Disp "COEFF. OF X       If I>1       Then          2(D-I+1          If Ans>8          8          Output(Ans,12,"^          Output(Ans,13,I       End       Else       Disp "CONSTANT    End    Input C    C->L1(D-I+1 End 0->K 0->L 1->Z dim(L1->D 0->dim(L2 For(I,1,dim(L1    abs(L1(I->Y    1->C    While Y>|E~7C       C/Y->C       fPart(Y^^-1->Y    End    If 1<fPart(C    iPart(C->C    round(C,0->C    C->L2(1+dim(L2 End L2(1->G For(I,2,dim(L2    lcm(G,L2(I->G End GL1->L1 round(L1,0->L1 0->dim(L2 While not(L1(D    D-1->D    0->L2(1+dim(L2 End D->dim(L1 If 0>L1(1 Then    Text(K,L,"~    L+8->L    ~L1->L1 End L1(1->T For(I,2,dim(L1    gcd(T,abs(L1(I->T End If T L1/T->L1 If T>1 Then    Text(K,L,T    L+8+8int(log(T->L End 0->dim(L3 0->dim(L4 abs(L1(1->A For(I,1,sqrt(A    If not(fPart(A/I    Then       I->L3(1+dim(L3       A/I->L3(1+dim(L3    End End abs(L1(dim(L1->B For(I,1,sqrt(B    If not(fPart(B/I    Then       I->L4(1+dim(L4       B/I->L4(1+dim(L4    End End 0->dim(L5 For(I,1,dim(L3    For(J,1,dim(L4       L4(J)/L3(I->L5(1+dim(L5    End End 0->dim(L3 0->dim(L4 SortA(L5 Lbl 4 1->A Lbl 1 0->B Repeat B=4    L1(1->L3(1    For(I,2,dim(L1       L1(I)+L3(I-1)L5(A->L3(I    End    If abs(L3(dim(L3    Then       B+1->B       [i]L5(A->L5(A       Else       D-Z->D       L5(A->L2(1+dim(L2       L3->L1       DelVar L3       dim(L1)-1->dim(L1    End End Lbl 2 A+1->A If D=1 or A>dim(L5 Goto 3 If L5(A)=L5(A-1 Goto 2 Goto 1 Lbl 3 If dim(L2 Then    0->dim(L3    0->dim(L4    For(M,1,dim(L2       abs(L2(M->E       1->N       While E>|E~7N          N/E->N          fPart(E^^-1->E       End       If 1>fPart(N       iPart(N->N       round(N,0->N       N->L4(1+dim(L4       round(NL2(M),0->L3(1+dim(L3    End    For(M,1,dim(L2       L4(M->N       L3(M->O       If L>220       DelVar LK+14->K       Text(K,L,"(       L+6->L       If N>1       Then          Text(K,L,N          L+8+8iPart(log(N->L       End       Text(K,L,"X       If Z=2       Text(K,L,"X^^2       If Z=2       L+8->L       L+8->L       If Z>2       Then          Text(K,L,"^          Text(K,L+8,Z          L+16+8iPart(log(Z->L       End       If abs(O       Then          Text(K,L,"-          If real(O)<0 or 0>imag(O          Text(K,L,"+          L+8->L          If L>220          DelVar LK+14->K          Text(K,L,abs(O          L+8+8iPart(log(abs(O->L          If imag(O          Then             Text(K,L,"[i]             L+8->L          End       End       Text(K,L,")       L+6->L    End End Z->W If D>1 Then    If dim(L2    L4->L6    0->dim(L2    {1->L3    For(I,2,dim(L1       If abs(L1(I)) or (dim(L1)-I=I-1 and not(abs(L1(I-1       I->L3(1+dim(L3    End    abs(L3(2)-L3(1->theta    If theta!=abs(L3(dim(L3))-L3(dim(L3)-1    1->theta    Z+theta->Z    Z-(abs(D)-abs(Z)!=1->Z    If theta=1    W->Z    If Z>=2    Then       For(I,1,dim(L3          L1(abs(L3(I->L1(I       End       dim(L3->dim(L1    End End If Z>W Goto 4 If D=1 Then    If G>1    Then       Text(K,L,"/       Text(K,L+8,G       1->G    End    Text(140,100,"READY    Pause    AxesOn:FnOn    SetUpEditor    Disp "    Else    If dim(L6) and not(dim(L2    L6->L4    If Z>=2    Then       0->dim(L2       D->dim(L2       dim(L1->E       L1(1->L2(1       L1(E->L2(D       For(I,2,dim(L3)-1          L1(L3(I->L2(ZI-1       End       L2->L1    End    If not(dim(L4    {1->L4    L1/prod(L4->L1    Text(K,L,"(    L+6->L    For(I,1,dim(L1       If L>220       DelVar LK+14->K       If abs(L1(I       Then          If I>1          Text(K,L,"-          If I>1 and 0<real(L1(I          Text(K,L,"+          If I>1          L+8->L          If 1<abs(L1(I)) or I=dim(L1          Then             Text(K,L,abs(L1(I             L+8+8iPart(log(abs(L1(I->L          End          dim(L1)-I->P          If P=1          Then             Text(K,L,"X             L+8->L          End          If P=2          Then             Text(K,L,"X^^2             L+16->L          End          If P>2          Then             Text(K,L,"X^             Text(K,L+16,P             L+24+8iPart(log(P->L          End       End    End    Text(K,L,")    If G>1    Then       Text(K,L+6,"/       Text(K,L+14,G    End    Text(140,100,"READY    Pause    AxesOn:FnOn    SetUpEditor    Disp "```
The TI-84 Plus and TI-84 Plus Silver Edition have identical operating systems. Are you sure those are the two calculators you mean? On which commands are you getting errors?
These two calculators use an identical programming language, so just copy it :p
The only thing you would have to change are the dimensions on the graph screen, maybe make a few adjustments to how text is displayed in that way.

Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
» All times are UTC - 5 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum