Author Topic: Formulum: Texas Instruments Version  (Read 23655 times)

0 Members and 1 Guest are viewing this topic.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #45 on: October 27, 2010, 04:46:16 pm »
no, it would display Radius: and then the cursor would point to right after that.  then it would accept input for R :D

I know about Input "", R but I though it was for strings only.
Then:

Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2)
:Lbl 1
:Input "Radium: ",R
:Disp R*R*pi
:Pause
:Goto 3
:Lbl 2
:Input "Radium: ",R
:Disp (4/3)*pi*R^3
:Pause
:Goto 3
:Lbl 3
:Disp "End..."

I'll optimize it a minute. Radium or radius? I saw both on the web...

Offline squidgetx

  • Food.
  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1881
  • Rating: +503/-17
  • rawr.
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #46 on: October 27, 2010, 04:46:18 pm »
picky, picky :D
Well if you're going for a more professional look then putting the colon and space looks a lot better than having the cursor blinking right after the end of the word :P :)

And it's radius :)
« Last Edit: October 27, 2010, 04:46:42 pm by squidgetx »

ASHBAD_ALVIN

  • Guest
Re: Formulum: Texas Instruments Version
« Reply #47 on: October 27, 2010, 04:46:54 pm »
very true indeed :D

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #48 on: October 27, 2010, 04:48:39 pm »
Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2
:Lbl 1
:Input "Radium: ",R
:Disp R*R*pi
:Pause
:Goto 3
:Lbl 2
:Input "Radium: ",R
:Disp (4/3)*pi*R^3
:Pause
:Goto 3
:Lbl 3
:Disp "End...

Optimized.
Optimized?

Yeah, the collon and space looks good...

Offline squidgetx

  • Food.
  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1881
  • Rating: +503/-17
  • rawr.
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #49 on: October 27, 2010, 04:51:23 pm »

Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2
:Lbl 1
:Input "Radius: ",R
:Disp RRpi
:Pause
:Goto 3
:Lbl 2
:Input "Radius: ",R
:Disp 4/3pi(R^3)
:Pause
:Goto 3
:Lbl 3
:Disp "End...

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #50 on: October 27, 2010, 04:52:19 pm »

Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2
:Lbl 1
:Input "Radius: ",R
:Disp RRpi
:Pause
:Goto 3
:Lbl 2
:Input "Radius: ",R
:Disp 4/3pi(R^3)
:Pause
:Goto 3
:Lbl 3
:Disp "End...


Hahaha, those little tricks didn't know about them, yeah and radius*. Thanks much :) Will be adding more formulas and then publish it :D

ASHBAD_ALVIN

  • Guest
Re: Formulum: Texas Instruments Version
« Reply #51 on: October 27, 2010, 04:52:50 pm »
slitgh optimization, but a good one nonetheless :D

If you need any help with finding some useful forumlas you could use, trust me, I can supply you MANY forumlas :D
« Last Edit: October 27, 2010, 04:53:09 pm by ASHBAD_ALVIN »

Offline squidgetx

  • Food.
  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1881
  • Rating: +503/-17
  • rawr.
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #52 on: October 27, 2010, 04:54:29 pm »
You actually don't need the parentheses in the volume one. if you use the 3 symbol. Just 4/3piR3 will do

Yeah, these optimizations are small, but in BASIC every byte counts. :)
« Last Edit: October 27, 2010, 04:55:34 pm by squidgetx »

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #53 on: October 27, 2010, 04:56:15 pm »
slitgh optimization, but a good one nonetheless :D

If you need any help with finding some useful forumlas you could use, trust me, I can supply you MANY forumlas :D

Don't need help on that, I'm the creator of Formulum:

www.code.google.com/p/formulum

But thanks anyway.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #54 on: October 27, 2010, 07:34:35 pm »
Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2
:Lbl 1
:Input "Radius: ",R
:Disp RRpi
:Pause
:Goto 3
:Lbl 2
:Input "Radius: ",R
:πR^2→area
:Disp "π * R^2","="
:Disp "=","π * ",R,"^2","="
:Disp "=","π * ",R^(2),"="
:Disp "=",area
:Pause
:Goto 3
:Lbl 3
:Disp "End...

With this I'm getting:

Code: [Select]
Error #514 BASIC Ex Err.SYN
Goto Error

Code: [Select]
πR^2->area
That's a pi in the calculator and that's a STO.

What is the problem?

Thx!!

ASHBAD_ALVIN

  • Guest
Re: Formulum: Texas Instruments Version
« Reply #55 on: October 27, 2010, 07:36:35 pm »
variables cannot be more than one letter long, using only A-Z and theta.

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55941
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Formulum: Texas Instruments Version
« Reply #56 on: October 28, 2010, 01:05:13 am »
Ah ok, I don't know much about Nspire basic. I'M not sure about the respect drop. Maybe it was that comment on Ztrumpet game or something?

I don't really care about the respect drop, but WOULD like to know where.
Ah I found the exact post I think: http://ourl.ca/6586/132943

However your next post was rated up so that most likely undid the respect drop in some ways. I guess it was the fact the first post was criticising the game but without stating ways to improve what is wrong. For certain project authors this could sound offensive and they could give up on the project (which I saw happening before).

As for Formulum, I'M glad you are porting it to the TI-83 series :D.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #57 on: October 28, 2010, 11:15:41 am »
Yeah, I'm porting but I have a lottt of difficulties. I'll post them here tomorrow.

It's being really hard :S

In the NSpire version, it already has 7 formulas working :) Will upload it later tday

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Formulum: Texas Instruments Version
« Reply #58 on: October 28, 2010, 02:59:56 pm »
7 Formulas available with full resolution mode!

Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2
:Lbl 1
:Input "Radius: ",R
:Disp RRpi
:Pause
:Goto 3
:Lbl 2
:Input "Radius: ",R
:{pi}*R*R ->→area
:Disp "π * R^2","="
:Disp "=","π * ",R,"^2","="
:Disp "=","π * ",R^(2),"="
:Disp "=",area
:Pause
:Goto 3
:Lbl 3
:Disp "End...




Code: [Select]
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2
Code: [Select]
Error #514 BASIC Ex Err.SYN

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Formulum: Texas Instruments Version
« Reply #59 on: October 28, 2010, 08:06:36 pm »
Code: [Select]
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"CIRCLE AREA SW",2
:Lbl 1
:Input "RADIUS: ",R
:Disp πR²
:Pause
:Goto 3
:Lbl 2
:Input "RADIUS: ",R
:ClrDraw
:Text(0,0,"πR²
:Text(6,0,"=π",R,"²
:Text(12,0,"=π",R²
:Text(18,0,"=",πR²
:Pause
:Lbl 3
:Disp "End...

I think that more gets the desired effect you're after, but I'm not sure. "SW" stands for "Show Work" by the way, I just changed it because it wasn't solving the volume of a sphere. This is also untested so ya. Hope it helps.
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)