- Benchmarking all TI-84 Plus CE OS Version [5.0.0-5.6.0]
- 25 Sep 2017 07:49:06 pm
- Last edited by TheLastMillennial on 03 Nov 2020 04:45:33 pm; edited 5 times in total

A few days ago I watched a video about benchmarking every iOS. This gave me an idea, benchmark all CE OSes! I came up with a few small programs to benchmark, I used this program to time everything.

Here are my results. Green=fastest time, red= slowest time.

ABENCH (runs every benchmark and stores the results into a list)

T01RAND (random integer test)

T02GRAPH (Horizontal line test)

T03GRAPH (vertical line test)

T04SUM (summation test)

T05LIST (creating list test)

T06LIST (sorting list of only 0s)

T07LIST (sorting list of only 7s)

RAYTRSPR ( this is a 3D modeling test using raycasting) (I didn't make this program, this was made by TheScienceElf, you can view his video here.)

If you spot any errors in my testing, or want me to benchmark some other aspect of the CE, please post below!

Here are my results. Green=fastest time, red= slowest time.

ABENCH (runs every benchmark and stores the results into a list)

**Code:**```
```

SetUpEditor L₆

9→dim(L₆

prgmT01RAND

Ans→L₆(1

prgmT02GRAPH

Ans→L₆(2

prgmT03GRAPH

Ans→L₆(3

prgmT04SUM

Ans→L₆(4

prgmT05LIST

Ans→L₆(5

prgmT06LIST

Ans→L₆(6

prgmT07LIST

Ans→L₆(7

L₆

T01RAND (random integer test)

**Code:**```
0→B
```

For(A,1,5

Asm(prgmTIMER

rand(100

Asm(prgmTIMER

Ans+B→B

End

B/5

T02GRAPH (Horizontal line test)

**Code:**```
0→W
```

For(A,1,5

Asm(prgmTIMER

ClrDraw

For(B,Ymax,Ymin,Y

Horizontal B

End

Asm(prgmTIMER

Ans+W→W

End

W/5

T03GRAPH (vertical line test)

**Code:**```
0→W
```

For(A,1,5

Asm(prgmTIMER

ClrDraw

For(B,Xmax,Xmin,X

Vertical B

End

Asm(prgmTIMER

Ans+W→W

End

W/5

T04SUM (summation test)

**Code:**```
0→W
```

For(A,1,5

Asm(prgmTIMER

Σ(X²,X,0,1000

Asm(prgmTIMER

Ans+W→W

End

W/5

T05LIST (creating list test)

**Code:**```
0→W
```

For(A,1,5

DelVar L₁

Asm(prgmTIMER

999→dim(L₁

Asm(prgmTIMER

Ans+W→W

End

W/5

T06LIST (sorting list of only 0s)

**Code:**```
0→W
```

For(A,1,5

DelVar L₁

100→dim(L₁

Asm(prgmTIMER

SortA(L₁

Asm(prgmTIMER

Ans+W→W

End

W/5

T07LIST (sorting list of only 7s)

**Code:**```
0→W
```

For(A,1,5

DelVar L₁

100→dim(L₁

Fill(7,L₁

Asm(prgmTIMER

SortA(L₁

Asm(prgmTIMER

Ans+W→W

End

W/5

RAYTRSPR ( this is a 3D modeling test using raycasting) (I didn't make this program, this was made by TheScienceElf, you can view his video here.)

**Code:**```
Asm(prgmTIMER
```

ClrDraw:1→G

{12,24,23,22,21,20}→L₁

For(Y,0,162,2G)

(81-Y)/164→B

For(X,0,262,2G)

(X-131)/164→A

A²+B²+1→E:2B-12→F

34.75→H:F²-4EH→D

1/B→T

AT→U:T→V

remainder(abs(int(U)+int(V)),2)→C

12→L:12→M

12-(T>0)(C+1)→C

If D≥0:Then

(F-√(D))/(2E)→T

AT→I:BT-1→J:6-T→K

J/1.5→M

If M>0:Then

int(10M)→M

L₁(1+int(M/2))→L

L₁(1+int(M/2+.5))→M

Else:12→M

End

{I,J,K}/1.5→L₃

{A,B,1}→L₂

2sum(L₃L₂)→S

SL₃-L₂→L₄

L₄(1)→P:L₄(2)→Q:L₄(3)→R

(J+2)/Q→T

If T>0:Then

PT+I→U:RT+6-K→V

11-remainder(abs(int(U)+int(V)),2)→C

Else:12→C:End

Else:If T>0:Then

1→E:4→F

U²+V²-12V+37.75→H

F²-4EH→D

12(D≥0)+C(D<0)→L

L→M

End:End

Pxl-On(Y,X,C)

Pxl-On(Y+1,X,L)

Pxl-On(Y,X+1,M)

Pxl-On(Y+1,X+1,C)

End:End

Asm(prgmTIMER

Ans

If you spot any errors in my testing, or want me to benchmark some other aspect of the CE, please post below!