Chemical Equation Solver

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

You have not uploaded your program! Please edit the page to upload your program.

Author: Edward H Download: chemeq1-0.zipNo Download Available Version: 1.0 Compatibility: TI-83/84/+/SE File Size: 928 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:
Balances chemical equations, inputted as a string.

What the community thinks:

Isaac1943 07 Nov 2017 21:58

Would it be okay if you were to display the source code because I can’t download the file:/

Battlesquid 07 Nov 2017 22:14

Program: CHEMEQ

Input "Eq:",Str8
[[0->[E]
DelVar ADelVar B{0->EE
Str8+"+->Str8
inString(Ans,"=->C
DelVar U1->S
Repeat U=length(Str8
    inString(Str8,"+",S->U
    If Ans>C and S<C
    C->U
    sub(Str8,S,U-S->Str0
    {0->A
    Ans->E
    DelVar NDelVar VDelVar WDelVar X0->Z
    For(T,1,length(Str0
        sub(Str0,T,1->Str9
        If X
        Then
            inString("ieaouglrcnsbhdftypmkjqvmxz",Str9->Y
            Z+1->Z
            1-2(X>=30->|LA(Z
            30Y+min(27,X->|LE(Z
        End
        If XY
        Then
            0->X
            Else
            inString("HCONBDAPSFGIKLMRTUVXYZWEJQ~-[e]plotcross*",Str9->X
        End
        If Ans
        Then
            If N
            Then
                For(theta,(W!=0)V+Znot(W),Z
                    N|LA(theta->|LA(theta
                End
                0->N
            End
            If W
            Then
                DelVar WDelVar V
            End
            Else
            inString("0123456789",Str9
            If Ans
            Then
                10N+Ans-1->N
                Else
                If N
                Then
                    For(theta,(W!=0)V+Znot(W),Z
                        N|LA(theta->|LA(theta
                    End
                    0->N
                End
                If W
                Then
                    DelVar VDelVar W
                    Else
                    If V
                    Then
                        Str9=")->W
                        Else
                        (Z+1)(Str9="(->V
                    End
                End
            End
        End
    End
    If X
    Then
        1-2(X>=30->|LA(Z+1
        min(27,X->|LE(Z+1
        Else
        If N
        Then
            For(theta,(W!=0)V+Znot(W),Z
                N|LA(theta->|LA(theta
            End
        End
    End
    1-2(U>C->X
    B+1->B
    {max(1,A),B->dim([E]
    For(theta,1,dim(|LE
        If A
        Then
            sum(cumSum(|LEE=|LE(theta
            If Ans
            Then
                A+1-Ans
                [E](Ans,B)+X|LA(theta->[E](Ans,B
                Else
                A+1->A
                |LE(theta->|LEE(A
                {A,B->dim([E]
                X|LA(theta->[E](A,B
            End
            Else
            |LE(1->|LEE(1
            X|LA(1->[E](1,B
            1->A
        End
    End
    U+1->S
End
A+1->A
max(A,B+1->X
{A,X->dim([E]
1->[E](A,1
1->[E](A,X
Matr>list(rref([E]),X,|LA
B->dim(|LA
cumSum(1+0|LA)not(not(fPart(|LA->E
SortD(|LE
sum(not(not(|LE->dim(|LE
For(theta,1,Ans
    |LA(|LE(theta
    If fPart(Ans
    Then
        {1,abs(Ans
        Repeat |E~9>Ans(2
            Ans(2){1,fPart(Ans(1)/Ans(2
        End
        |LAround(Ans(1)^^-1,0->A
    End
End
|LA

Notice that to access lowercase letters, you may need the following assembly hex code.

AsmPrgmFDCB24DEC9

To run, select the Asm( option in the catalog, then select the program from the program menu.

---

Last edited on 08 Nov 2017 00:48 by Battlesquid Show more

Isaac1943 08 Nov 2017 02:06

Thank you. How do you put |LA, the ~, and the * into the program?

(Posts merged by moderator)

Last edited on 08 Nov 2017 02:23 by Trenly Show more

Battlesquid 08 Nov 2017 02:26

The "|L" is the list token, and can be accessed by pressing [2nd]+[STAT]+[RIGHT]+[UP]+[ENTER]. The "~" is the negative sign, found underneath the number 3 on the calculator. The "*" is the multiplication sign, which is below the division sign.

Hope this helps :)

---

Trenly 08 Nov 2017 02:26

The * is the multiplication key. |LA is list A which is 2nd, Stat, Right, Up, Enter, Alpha, Math. The code was decompiled using SourceCoder3, so the ~ is really the negative sign, which is the key right below 3 and looks like (-)

Dang Battlesquid, same minute yet you still ninja'd me.

Last edited on 08 Nov 2017 02:27 by Trenly Show more

Isaac1943 08 Nov 2017 02:52

Thanks you guys, I might need some more help in the future but thank you very much

Battlesquid 08 Nov 2017 03:33

No prob! We're always happy to help :)

---