Join us on Discord!
You can help CodeWalrus stay online by donating here.

Code Optimization for Math Program

Started by SiphonicSugar, November 21, 2015, 04:33:06 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

SiphonicSugar

Could anyone help me optimize this TI-Basic code for my math program?  It is really slow.  For an example, if I press [1] on the keyboard, it takes FOREVER to display the number 1 on the screen.  PLEASE HAAAALP!

ClrHome
ClrDraw
AxesOff
0->Xmin
94->Xmax
0->Ymin
62->Ymax
0->Z
""->Str0
While 1
Text(0,1,Str0)
getKey->K
If K=92:Then
"1"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=93:Then
"2"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=94:Then
"3"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=82:Then
"4"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=83:Then
"5"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=84:Then
"6"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=72:Then
"7"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=73:Then
"8"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=74:Then
"9"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=102:Then
"0"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=103:Then
"."->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=104:Then
"~"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=95:Then
"+"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:"+"->Str0:1->Z:End
End
If K=85:Then
"-"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=75:Then
"*"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=65:Then
"/"->Str1
If Z=1:Str0+Str1->Str0
If Z=0:Then:Str1->Str0:1->Z:End
End
If K=105:Then
If Z=1:Then:Text(6,1,expr(Str0)):""->Str0:0->Z:End
End
End
  • Calculators owned: TI-89, TI-84 Plus, TI-92, TI-84 Plus C SE, and TI-Nspire CAS with Touchpad
I'm just trying to grab some inspiration. :P

Excelseo

Okay, let me tell you this.
This is one serious Rube Goldberg machine of a program. It doesn't need to be on the graphscreen (that just makes it harder), it doesn't really need to use getkey (input would work just fine) and you're just making it really hard on yourself, whether that was your intention or not.

If it needs to be on the graphscreen and use getkey, there's not much I know how to do to help, except for minimally increasing efficiency.
Otherwise, here's a simple program that does the same thing.

ClrHome
clear the graphscreen
Input("",Str1
prompt the user for an input without any question text
expr(Str1
store the expression of Str1 into Ans so it displays at the end of the program instead of "Done"

And there you have your entire program. If you need it to be on the graphscreen and using getkey, sorry about that. But here's a 3-line equivalent to which you can add if you'd like.

Hope this helps.

SiphonicSugar

Thanks for the help!  :D

But I wanted it to be on the graph screen so I would not have to use the massive home screen text, and also, since my intention was to make this program like the TI-92 OS, I was going to add F1-F5 options that would display a menu on the graph screen that would have small text.
  • Calculators owned: TI-89, TI-84 Plus, TI-92, TI-84 Plus C SE, and TI-Nspire CAS with Touchpad
I'm just trying to grab some inspiration. :P

Excelseo

Finally got around to making a proper optimization.
The program is still not by any means fast (there is still about a half-second delay between input and output on my Ti-84 plus), but it's likely faster than the original.

ClrHome
AxesOff
0->Xmin
Xmin->Ymin
1->[triangle]X
[triangle]X->[triangle]Y
" ->Str1
DelVar KRepeat K=45 or K=105
getKey->K
1+6iPart(.1Ans)+10fPart(.1Ans
Str1+sub("[20 spaces]X[10 spaces]-1sin(cos(tan(^ 2 ()/ log(789* ln(456-  123+  0.~ ",Ans,1->Str1
length(Str1
sub(Str1,1,Ans-(sub(Str1,Ans,1)=" ->Str1
sub(Ans,1,length(Ans)-(K=23->Str1
[line to clear any text currently written]
[line to write Str1 in location just cleared]
End
sub(Str1,2,length(Str1,2,length(Str1)-1->Str1
If K[not equal]45:Pause expr(Str1

Dream of Omnimaga

I did not have much time to compare both code, but I definitively notice that your new code looks less repetitive and much smaller. I'm glad that it's faster, because in some occasions, optimizing for size leads to slower speed. >.<
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

Powered by EzPortal