Constant Acceleration Program

Forum Attachments

Summary:

My program won't work and I can't figure out why, so I bought a cord and uploaded it here

Constant Acceleration Program

Jessica C (guest) 24 Sep 2013 21:14

Hey all!

I have recently been trying to make a program for the TI-84 plus, but it just won't work for me. I am pasting it below. I know that I shouldn't use goto, but it was a bad habit I picked up in middle school. Sorry!

The problem with it is that it doesn't seem to be using nested ifs right. For instance, if I type in V=-999 and N=-999, it will still go through that first if statement, even though I think that xor is supposed to only continue if one and only one of the statements are true. "Correct" values, for example, might be A=10, T=1, D=5, O=0, V=10, and N=0, and if you eliminate any two, the other 4 should be able to find them.

ClrHome
Disp "ENTER KNOWNS OR"
Disp "–999"
Disp "DO"
Input O
Disp "D"
Input D
Disp "VO"
Input N
Disp "V"
Input V
Disp "A"
Input A
Disp "T"
Input T
Lbl 1
If V=–999 xor (N=–999 xor (A=–999 xor T=–999))
Then
Disp "T"
If V=–999
Then
N+A*T→V
End
If N=–999
Then
V-A*T→N
End
If A=–999
Then
(V-N)/T→A
End
If T=–999
Then
(V-N)/A→T
End
End
If D=–999 xor (O=–999 xor (N=–999 xor (V=–999 xor T=–999)))
Then
If D=–999
Then
O+.5(V+N)T→D
End
If O=–999
Then
D-.5(V+N)T→O
End
If V=–999
Then
(D-O-.5N*T)/(.5T)→D
End
If N=–999
Then
(D-O-.5V*T)/(.5T)→N
End
If T=–999
Then
(D-O)/(.5(V+N))→T
End
End
If D=–999 xor (O=–999 xor (N=–999 xor (T=–999 xor A=–999)))
Then
If D=–999
Then
O+N*T+.5*A*T^2→D
End
If O=–999
Then
D-N*T-.5*A*T^2→O
End
If A=–999
Then
(D-O-N*T)/(.5*T^2)→A
End
If T=–999
Then
(–N+√(N^2-4*O*.5*A))/(2*O)→B
(–N-√(N^2-4*0*.5*A))/(2*O)→C
Disp "IS TIME ="
Disp "B: "B
Disp "OR"
Disp "C: "C
Input T
End
End
If A=–999 xor (D=–999 xor (O=–999 xor (V=–999 xor N=–999)))
Then
If A=–999
Then
(V^2-N^2)/(2*(D-O))→A
End
If D=–999
Then
(V^2-N^2+2*A*O)/(2*A)→D
End
If O=–999
Then
(2*A*D-V^2+N^2)/(2*A)→O
End
If V=–999
Then
√(2*A*D-2*A*O+N^2)→B
–√(2*A*D-2*A*O+N^2)→C
Disp "IS V="
Disp "B: "
Disp B
Disp "C: "
Disp C
Input V
End
If N=–999
Then
√(V^2-2*A*D+2*A*O)→B
–√(V^2-2*A*D+2*A*O)→C
Disp "IS N="
Disp "B: "
Disp B
Disp "C: "
Disp C
Input N
End
End
If A=–999 OR D=–999 OR O=–999 OR T=–999 OR V=–999 OR N=–999
Goto 1
ClrHome
Output(1,1,"A: ")
Output(1,4,A)
Output(2,1,"D: ")
Output(2,4,D)
Output(3,1,"O: ")
Output(3,4,O)
Output(4,1,"T: ")
Output(4,4,T)
Output(5,1,"V: ")
Output(5,4,V)
Output(6,1,"N: ")
Output(6,4,N)

Re: Constant Acceleration Program

Silver Phantom 24 Sep 2013 23:56

I haven't looked at your code in whole yet but I noticed you kept using a if then end construct on single commands like if D= something, then something something, end. It will help yourself if you just use an if for such if statements so that the thens and ends don't confuse you. If something, something. Don't worry about it continuing on because the if will stop right after it finishes the command directly after it… I hope I didn't confuse you…

To clarify, use this

If something
Something

Instead of

If something
Then
Something
End

---

The Silver Phantom welcomes you

Jessica C (guest) 26 Sep 2013 01:10

Okay. I will try to do that in the future, but I don't think that that was what was messing up the code.

Re: Constant Acceleration Program

Xeda Elnara 26 Sep 2013 11:32

You are right about what xor does, but you may be mistaken about its use. (Then again, you may be using it precisely how you plan to.

If V=–999 xor (N=–999 xor (A=–999 xor T=–999))

This first computes (A=–999 xor T=–999) which will return either a 1 if one condition is true, or a zero if both or neither condition is true. It then performs XOR on this value with N=-999, then it takes the value output by this to XOR with V=-999.

XOR is not a function that checks if only 1 input of many is true, it can be used to check if only one of 2 inputs is true. What you may need to do is something like the following:

-999={V,N,A,T

This returns a list of 0s and 1s depending on if the corresponding element of {V,N,A,T} is -999. To make sure only one element is 1, you can sum the list and make sure it is 1:

If 1=sum(-999={V,N,A,T

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0