Omnimaga
General Discussion => Introduce Yourself! => Topic started by: bwDraco on February 16, 2015, 10:07:50 pm
-
Hi! I'm DragonLord, a grad student studying Computer Science. You might know me as a regular on Super User (http://www.superuser.com/). I've always loved programming and working with computers, but I also happen to like working with calculators. I'm not a huge calculator programmer, but I enjoy using the latest in calculator technology.
I've gone through several different calculators over the years, starting from a TI-84 Plus in middle school (which still works), to a TI-Nspire in high school (the original Clickpad model), to an HP 50g for AP Calculus, to my current HP Prime. I sold my TI-Nspire a while back, but I still have the others. I absolutely love my Prime—that touchscreen is awesome and it's incredibly fast. A while back, I wrote an article (http://www.fierydragonlord.com/articles/calcbench/) on my personal website about benchmarks of the different calculators I've worked with and the HP Prime was by far the fastest of the calculators I tested.
Anyway, it's nice to be a part of the calculator community. Once again, hello!
—DragonLord
-
Hello there DragonLord, welcome to Omnimaga! Is your name a nod to Dragonlord from Dragon Warrior, or is it from something else? Anyhow, hope you enjoy it here. :)
-
No, not from Dragon Warrior—I've never played anything in the Dragon Quest series. I just happen to like dragons :)
—DragonLord
-
Hi and welcome to Omnimaga!
I was taking a peek at the benchmarking test you wrote. I wrote something a little more optimized (size and speed) for the 84+ benchmark.
:1
:For(A,1,2499
:tan(tan-1(e^(ln(√(Ans*Ans
:Ans+1
:End
It ran in ~2:22.47 and resulted in 2.499.999992
I took another look and realized I could improve it a bit by merging two lines into this:
:1
:For(A,1,2499
:1+tan(tan-1(e^(ln(√(Ans*Ans
:End
This completed in 2:18.36 and returned the exact same result. I'm not sure if there is any way to optimize it more since I don't play around with BASIC much anymore.
-
Welcome to Omnimaga, hope you'll enjoy your stay!
And don't worry, we all started out as calc n00bs at one point ;) It is fun to try to get a huge performance out of limited hardware, after all.
Also, have some peanuts:
!peanuts
-
After discussing with Eeems on IRC a bit more about the benchmark, we managed to create an even faster version:
:startTmr -> T
:2499.999992 -> A
:While Ans < A
:1+tan(tan-1(e^(ln(√(AnsAns
:End
:Disp checkTmr(T
The Tmr things are merely timer things so that I didn't have to sit with a stopwatch next to it.
It ran in 134 seconds.