Quote Originally Posted by ixtapalapaquetl View Post
SUCCESS! This is so effin cool!

There are a few 89-related syntax modifications to your original code, but all I really did was add in a couple gettime()'s and converted the difference (in {hr,min,sec} format) to seconds in order to prevent negative values from popping up. Note that the Clock must be manually enabled: Home -> F1 -> B and then set time and date. Unfortunately, the Clock does not seem to work on Virtual TI, so we can't run the emulator realtime on our computers...

Code:
spi89()
Prgm
ClrIO
getTime()->ti
1->s
0->c
For a,1,4000,2
4/(s*a)->b
b+c->d
d->c
-1*s->s
EndFor
getTime()->tf
tf-ti->dt
3600*dt[1]+60*dt[2]+dt[3]->tpi
Disp "pi="
Disp c+.0005
Disp "time="
Disp tpi
EndPrgm
Check it out!

...


102 seconds!!! Does this qualify as the current WR? Time for some memory tweaks!!!

Great work Knight! Obviously, feel free to modify any ugly code - my programming skills are limited to TI calculators, and thus may be substandard!
You are added onto my hero list. The use of the getTime function was smart. Is it confirmed that it is not possible on a 83/84?

Great work.

More efficient coding might be determined by the method in which we calculate Pi itself. Of course I will experiment, and clean it up. So this can be our first version.