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

Chemical Equation Solver / Discussion

Forum
» Forum 101 / Wiki Page Discussions
» Chemical Equation Solver

This is the discussion related to the wiki page Chemical Equation Solver.

Isaac1943 07 Nov 2017 21:58

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.

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

(Posts merged by moderator)

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 :)

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.

/forum/t-848789/chemical-equation-solver#post-