TI-83/84+ "CUBELAB" (scrambler, etc.)


Nice. It's about the same amount of lines as the one in my signature. If I wasn't already using it I would use yours. I was tired of seeing scramble generators with 30-40 lines to type in (I lost my transfer cable).

It's slightly faster and slightly less memory.

I can't perform a scramble in 3 seconds :)
 
You guys can use Lbl and Goto to define and access subroutines within a single program instead of creating heaps of modules you know. It makes program management easier if you've a lot. And you can fast scroll the code :-)

Tim.
 
I've revised most of my programs by now, but I bet no one would care if I posted them, anyway.

I might be interested. I have a timer (for when I'm not around the computer or stackmat) and a scrambler, so I need something that will find the best average of 12 in a large list of times.

I noticed when I was trying to get your averaging program to work, that it was placing (or trying to place) the times I put in, in the STAT lists. That's what I usually use when recording my times, so is there a way I can use those times, after I'm finished?
 
You guys can use Lbl and Goto to define and access subroutines within a single program instead of creating heaps of modules you know. It makes program management easier if you've a lot. And you can fast scroll the code :-)

Tim.

Lbl and Goto makes the program messy.
 
I put in your scramble program so I could hopefully edit it to be a <M,M',M2,U,U',U2> scrambler but I can't get the normal version to work. It highlights the place after the "1" on line 13.

:ClrHome
:1→A:-1→B
:"URFDLB'2 →Str0
:0→E:0→F
:While A<6
:B+3→B:B+1→C
:E→F: D→E (":" + "D" made a smiley, so I had to put a space there)
:While D=E or D=F
:randInt(1,6→D
:End
:Output(A,B,sub(Str0,D,1
:randInt(7,9
:Output(A,C,sub(Str0,Ans,1
:If B=14:Then
:-1→B:A+1→A
:Else
:End
:End
 
I put in your scramble program so I could hopefully edit it to be a <M,M',M2,U,U',U2> scrambler but I can't get the normal version to work. It highlights the place after the "1" on line 13.

:ClrHome
:1→A:-1→B
:"URFDLB'2 →Str0
:0→E:0→F
:While A<6
:B+3→B:B+1→C
:E→F: D→E (":" + "D" made a smiley, so I had to put a space there)
:While D=E or D=F
:randInt(1,6→D
:End
:Output(A,B,sub(Str0,D,1
:randInt(7,9
:Output(A,C,sub(Str0,Ans,1
:If B=14:Then
:-1→B:A+1→A
:Else
:End
:End

I'm not sure. What was the error? It works for me. Did you put a space after the 2 in line 3?
 
I put in your scramble program so I could hopefully edit it to be a <M,M',M2,U,U',U2> scrambler but I can't get the normal version to work. It highlights the place after the "1" on line 13.

:ClrHome
:1→A:-1→B
:"URFDLB'2 →Str0
:0→E:0→F
:While A<6
:B+3→B:B+1→C
:E→F: D→E (":" + "D" made a smiley, so I had to put a space there)
:While D=E or D=F
:randInt(1,6→D
:End
:Output(A,B,sub(Str0,D,1
:randInt(7,9
:Output(A,C,sub(Str0,Ans,1
:If B=14:Then
:-1→B:A+1→A
:Else
:End
:End

I'm not sure. What was the error? It works for me. Did you put a space after the 2 in line 3?

That was the problem, thanks :)

Now, any idea how to make it only do M and U turns? I tried changing Line 3 to "MU'2 →Str0...
 
Last edited:
I put in your scramble program so I could hopefully edit it to be a <M,M',M2,U,U',U2> scrambler but I can't get the normal version to work. It highlights the place after the "1" on line 13.

:ClrHome
:1→A:-1→B
:"URFDLB'2 →Str0
:0→E:0→F
:While A<6
:B+3→B:B+1→C
:E→F: D→E (":" + "D" made a smiley, so I had to put a space there)
:While D=E or D=F
:randInt(1,6→D
:End
:Output(A,B,sub(Str0,D,1
:randInt(7,9
:Output(A,C,sub(Str0,Ans,1
:If B=14:Then
:-1→B:A+1→A
:Else
:End
:End

I'm not sure. What was the error? It works for me. Did you put a space after the 2 in line 3?

That was the problem, thanks :)

Now, any idea how to make it only do M and U turns? I tried changing Line 3 to "MU'2 →Str0...

Change :randInt(1,6→D to :randInt(1,2→D
and :randInt(7,9 to :randInt(3,5

And of course doing your line.

I'm working on a 4x4 scrambler.
 
Last edited:
Change :randInt(1,6→D to :randInt(1,2→D
and :randInt(7,9 to :randInt(3,5

And of course doing your line.

I'm working on a 4x4 scrambler.

Sorry to keep bothering you but it doesn't seem to work for me, it would be strange if I messed up something as simple as changing two numbers. It will display one or two moves then in the top right it looks like it wants to load more but can't, I press "2nd then On" and it says ERR:BREAK, I select goto and it highlights the → in :randInt(1,2→D.

I noticed that if I change :randInt(1,2→D to :randInt(1,3→D, it will display the scramble but it will repeat turns. I really should learn this programming language so I can do things myself.
 
http://frozenmists.blogspot.com/2008/11/ti-8384-3x3x3-scrambler-ver20.html

New version!

EDIT: I finished my "CUBELAB" (TI-CCT) yesterday. I don't a have a transmission cable though nor did I finished the megaminx nor the 5x5 scrambler.

Features are:

Scramblers: Cubes 2-4 (5 would be soon enough), Clock, Square-1, Pyraminx, and hopefully megaminx
Timer: A timer
Averager: Add times, able to view up to 21 times and look at stats like: SD(a small bug with that), average, fastest and slowest times, number of solves, and load and save averages.

Hopefully add settings too.
 
Last edited:
Back
Top