« previous next »
Pages: 1 2 3 [4] 5 6 ... 11   Go Down

Author Topic: Formulum: Texas Instruments Version  (Read 27373 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 »
Quote from: ASHBAD_ALVIN on October 27, 2010, 04:44:38 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...
Logged

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 »
Quote from: ASHBAD_ALVIN on October 27, 2010, 04:43:02 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 »
Logged

ASHBAD_ALVIN

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

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...
Logged

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...
Logged

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 »
Quote from: squidgetx 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...

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

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 »
Logged

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 »
Logged

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 »
Quote from: ASHBAD_ALVIN 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

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

www.code.google.com/p/formulum

But thanks anyway.
Logged

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!!
Logged

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.
Logged

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • 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 »
Quote from: ScoutDavid on October 27, 2010, 04:39:32 pm
Quote from: DJ Omnimaga on October 27, 2010, 04:10:15 pm
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.
Logged

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
Logged

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
Logged

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.
Logged
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)
Pages: 1 2 3 [4] 5 6 ... 11   Go Up
« previous next »