Omnimaga

Calculator Community => Other Calc-Related Projects and Ideas => TI Z80 => Topic started by: Munchor on October 19, 2010, 06:01:49 pm

Title: Formulum: Texas Instruments Version
Post by: Munchor on October 19, 2010, 06:01:49 pm
Hey, I'm a Python programmer, and I've made quite a good program in Python:

http://code.google.com/p/formulum/ (http://code.google.com/p/formulum/)

It's really hard to do something like this in Python :S:

Code: [Select]
import wx
import math

class MainFrame(wx.Frame):
   
    def __init__(self, parent,id):
        wx.Frame.__init__(self, parent,id, 'Formulum', size=(415,135))
        panel=wx.Panel(self)
     
       
        ChooseFormulaButtonImage=wx.Image("chooseformulabutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
        self.ChooseFormulaButton=wx.BitmapButton(panel, -1, ChooseFormulaButtonImage, pos=(10,10))
        self.Bind(wx.EVT_BUTTON, self.ChooseFormula, self.ChooseFormulaButton)
       
        AboutButtonImage=wx.Image("aboutbutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
        self.AboutButton=wx.BitmapButton(panel, -1, AboutButtonImage, pos=(200,10))
        self.Bind(wx.EVT_BUTTON, self.About, self.AboutButton)
       
        ExitButtonImage=wx.Image("exitbutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
        self.ExitButton=wx.BitmapButton(panel, -1, ExitButtonImage, pos=(200,50))
        self.Bind(wx.EVT_BUTTON, self.Close, self.ExitButton)
       
        HelpButtonImage=wx.Image("helpbutton.bmp", wx.BITMAP_TYPE_BMP).ConvertToBitmap()
        self.HelpButton=wx.BitmapButton(panel, -1, HelpButtonImage, pos=(10,50))
        self.Bind(wx.EVT_BUTTON, self.Help, self.HelpButton)
   
    def ChooseFormula(self, event):
        ChoiceBox=wx.SingleChoiceDialog(None, "Which formula do you want to use?", "Formulum", ['Circle Area', 'Square Area', 'Rectangle Area', 'Parallelogram Area', 'Trapezium Area', 'Cube Surface Area', 'Spherical Surface Area', 'Sphere Volume', 'Cylinder Volume', 'Quadrangular Prism Volume','Cone Volume', 'Cube Surface Area', 'Parallelepiped Volume', 'Parallelepiped Surface Area','Quadrangular Pyramid Volume', 'Quadrangular Pyramid Surface Area'])
        if ChoiceBox.ShowModal()==wx.ID_OK:
            Answer=ChoiceBox.GetStringSelection()
        if Answer == "Circle Area":
            RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Circle Area', 'Enter radium...')
            if RadiumInput.ShowModal()==wx.ID_OK:
                Radium=float(RadiumInput.GetValue())
                circlearea=(Radium**2)*math.pi
                box = wx.MessageDialog(None, "The area of the circle which radium is " + str(Radium)+ " is:\n\n " + str(circlearea), 'Circle Area', wx.OK)
                varanswer1 = box.ShowModal()
                box.Destroy()
        if Answer == "Square Area":
            SideInput=wx.TextEntryDialog(None, "Enter the side:", 'Square Area', 'Enter side...')
            if SideInput.ShowModal()==wx.ID_OK:
                Side=float(SideInput.GetValue())
                squarearea=Side*Side
                box = wx.MessageDialog(None, "The area of the square which side is " + str(Side)+ " is:\n\n " + str(squarearea), 'Square Area', wx.OK)
                varanswer2 = box.ShowModal()
                box.Destroy()
        if Answer == "Rectangle Area":
            LengthInput=wx.TextEntryDialog(None, "Enter the length: ", 'Rectangle Area', 'Enter lenth...')
            WidthInput=wx.TextEntryDialog(None, "Enter the width: ", 'Rectangle Area', 'Enter width...')
            if LengthInput.ShowModal()==wx.ID_OK and WidthInput.ShowModal()==wx.ID_OK:
                Length=float(LengthInput.GetValue())
                Width=float(WidthInput.GetValue())
                rectanglearea= Length * Width
                box = wx.MessageDialog(None, "The area of the rectangle is:\n\n " + str(rectanglearea), 'Rectangle Area', wx.OK)
                varanswer3 = box.ShowModal()
                box.Destroy()
        if Answer == "Parallelogram Area":
            BaseInput=wx.TextEntryDialog(None, "Enter the length of the base: ", 'Parallelogram Area', 'Enter base lenght...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height: ", 'Parallelogram Area', 'Enter height...')
            if BaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                Base = float(BaseInput.GetValue())
                Height=float(HeightInput.GetValue())
                parallelogramarea = Base * Height
                box = wx.MessageDialog(None, "The area of the parallelogram is:\n\n " + str(parallelogramarea), 'Parallelogram Area', wx.OK)
                varanswer4 = box.ShowModal()
                box.Destroy()
        if Answer=="Trapezium Area":
            LargerBaseInput=wx.TextEntryDialog(None, "Enter the length of the larger base:", 'Trapezium Area', 'Enter length...')
            SmallerBaseInput=wx.TextEntryDialog(None, "Enter the length of the smaller base:", 'Trapezium Area', 'Enter length...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Trapezium Area', 'Enter heigth...')
            if LargerBaseInput.ShowModal()==wx.ID_OK and SmallerBaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                LargerBase=float(LargerBaseInput.GetValue())
                SmallerBase=float(SmallerBaseInput.GetValue())
                Height=float(HeightInput.GetValue())
                trapeziumarea = ((LargerBase + SmallerBase) / 2) * Height
                box = wx.MessageDialog(None, "The area of the trapezium is:\n\n " + str(trapeziumarea), 'Trapezium Area', wx.OK)
                varanswer5 = box.ShowModal()
                box.Destroy()
        if Answer == "Spherical Surface Area":
            RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Spherical Surface Area', 'Enter radium...')
            if RadiumInput.ShowModal()==wx.ID_OK:
                Radium=float(RadiumInput.GetValue())
                sphericalsurfacearea = (4 * math.pi * (Radium ** 2))
                box = wx.MessageDialog(None, "The spherical surface area is:\n\n " + str(sphericalsurfacearea), 'Spherical Surface Area', wx.OK)
                varanswer6 = box.ShowModal()
                box.Destroy()
        if Answer == "Sphere Volume":
            RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Sphere Volume', 'Enter radium...')
            if RadiumInput.ShowModal()==wx.ID_OK:
                Radium=float(RadiumInput.GetValue()) 
                spherevolume= 4 * math.pi * (Radium) ** 3/3
                box = wx.MessageDialog(None, "The volume of the sphere is:\n\n " + str(spherevolume), 'Sphere Volume', wx.OK)
                varanswer7 = box.ShowModal()
                box.Destroy() 
        if Answer=="Cylinder Volume":
            RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Cylinder Volume', 'Enter radium...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Cylinder Volume', 'Enter height...')
            if RadiumInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                Radium=float(RadiumInput.GetValue())
                Height=float(HeightInput.GetValue())
                cylindervolume = ((math.pi * (Radium ** 2)) * Height)
                box = wx.MessageDialog(None, "The cylinder volume is:\n\n " + str(cylindervolume), 'Cylinder Volume', wx.OK)
                varanswer7 = box.ShowModal()
                box.Destroy()
        if Answer=="Quadrangular Prism Volume":
            SideOfBaseInput=wx.TextEntryDialog(None, "Enter the side of base: ", 'Quadrangular Prism Volume', 'Enter side of base...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height: ", 'Quandrangular Prism Volume', 'Enter height...')
            if HeightInput.ShowModal()==wx.ID_OK and SideOfBaseInput.ShowModal()==wx.ID_OK:
                SideOfBase=float(SideOfBaseInput.GetValue())
                Height=float(HeightInput.GetValue())
                quadrangularprismvolume = (SideOfBase**2)*Height
                box = wx.MessageDialog(None, "The quadrangular prism volume is:\n\n " + str(quadrangularprismvolume), 'Quadrangular Prism Volume', wx.OK)
                varanswer8 = box.ShowModal()
                box.Destroy()
        if Answer=="Cone Volume":
            RadiumInput=wx.TextEntryDialog(None, "Enter the radium:", 'Cylinder Volume', 'Enter radium...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Cylinder Volume', 'Enter height...')
            if RadiumInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                Radium=float(RadiumInput.GetValue())
                Height=float(HeightInput.GetValue())
                conevolume = (((math.pi * (Radium ** 2)) * Height) / 3) 
                box = wx.MessageDialog(None, "The cone volume is:\n\n " + str(conevolume), 'Cone Volume', wx.OK)
                varanswer9 = box.ShowModal()
                box.Destroy()
        if Answer=="Cube Volume":
            EdgeInput=wx.TextEntryDialog(None, "Enter the edge:", 'Cube Volume', 'Enter edge...')
            if EdgeInput.ShowModal()==wx.ID_OK:
                Edge=float(EdgeInput.GetValue())
                cubevolume = Edge**3
                box = wx.MessageDialog(None, "The cube volume is:\n\n " + str(cubevolume), 'Cube Volume', wx.OK)
                varanswer10 = box.ShowModal()
                box.Destroy()
        if Answer=="Cube Surface Area":
            EdgeInput=wx.TextEntryDialog(None, "Enter the edge:", 'Cube Surface Area', 'Enter edge...')
            if EdgeInput.ShowModal()==wx.ID_OK:
                Edge=float(EdgeInput.GetValue())
                cubesurfacearea = 6 * (Edge**2)
                box = wx.MessageDialog(None, "The cube surface area is:\n\n " + str(cubesurfacearea), 'Cube Surface Area', wx.OK)
                varanswer11 = box.ShowModal()
                box.Destroy()
        if Answer=="Parallelepiped Volume":
            LengthInput=wx.TextEntryDialog(None, "Enter the length:", 'Cube Volume', 'Enter length...')
            WidthInput=wx.TextEntryDialog(None, "Enter the width:", 'Cube Volume', 'Enter width...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Cube Volume', 'Enter heigth...')
            if LengthInput.ShowModal()==wx.ID_OK and WidthInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                Length=float(LengthInput.GetValue())
                Width=float(WidthInput.GetValue())
                Height=float(HeightInput.GetValue())
                parallelepipedvolume = Length*Width*Height
                box = wx.MessageDialog(None, "The Parallelepiped Volume is:\n\n " + str(parallelepipedvolume), 'Parallelepiped Volume', wx.OK)
                varanswer12 = box.ShowModal()
                box.Destroy()
        if Answer=="Parallelepiped Surface Area":
            LengthInput=wx.TextEntryDialog(None, "Enter the length:", 'Parallelepiped Surface Area', 'Enter length...')
            WidthInput=wx.TextEntryDialog(None, "Enter the width:", 'Parallelepiped Surface Area', 'Enter width...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Parallelepiped Surface Area', 'Enter heigth...')
            if LengthInput.ShowModal()==wx.ID_OK and WidthInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                Length=float(LengthInput.GetValue())
                Width=float(WidthInput.GetValue())
                Height=float(HeightInput.GetValue())
                parallelepipedsurfacearea = ((Length + Width + Length + Width)*Height) + ((Length*Width)*2)
                box = wx.MessageDialog(None, "The parallelepiped surface area is:\n\n " + str(parallelepipedsurfacearea), 'Parallelepiped Surface Area', wx.OK)
                varanswer13 = box.ShowModal()
                box.Destroy()
        if Answer=="Quadrangular Pyramid Volume":
            SideOfBaseInput=wx.TextEntryDialog(None, "Enter the side of base:", 'Quadrangular Pyramid Volume', 'Enter side of base...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Quadrangular Pyramid Volume', 'Enter height...')
            if SideOfBaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                SideOfBase=float(SideOfBaseInput.GetValue())
                Height=float(HeightInput.GetValue())
                quadrangularpyramidvolume = ((SideOfBase ** 2) * Height) / 3
                box = wx.MessageDialog(None, "The Quadrangular Pyramid Volume is:\n\n " + str(quadrangularpyramidvolume), 'Quadrangular Pyramid Volume', wx.OK)
                varanswer14 = box.ShowModal()
                box.Destroy()   
        if Answer=="Quadrangular Pyramid Surface Area":
            SideOfBaseInput=wx.TextEntryDialog(None, "Enter the side of base:", 'Quadrangular Pyramid Surface Area', 'Enter side of base...')
            HeightInput=wx.TextEntryDialog(None, "Enter the height:", 'Quadrangular Pyramid Surface Area', 'Enter height...')
            if SideOfBaseInput.ShowModal()==wx.ID_OK and HeightInput.ShowModal()==wx.ID_OK:
                SideOfBase=float(SideOfBaseInput.GetValue())
                Height=float(HeightInput.GetValue())
                quadrangularpyramidsurfacearea = (SideOfBase*4*Height) * (2 *(SideOfBase**2))
                box = wx.MessageDialog(None, "The Quadrangular Pyramid Surface Area is:\n\n " + str(quadrangularpyramidvolume), 'Quadrangular Pyramid Surface Area', wx.OK)
                varanswer15 = box.ShowModal()
                box.Destroy()
    def About(self, event):
        aboutbox = wx.MessageDialog(None, 'Formulum v2.0 - by David Gomes', 'About Formulum', wx.OK)
        aboutanswer = aboutbox.ShowModal()
        aboutbox.Destroy()
       
    def Close(self, event):
        exitbox = wx.MessageDialog(None, 'Do you really want to leave?', 'Exit', wx.YES_NO)
        if exitbox.ShowModal()==wx.ID_YES:
            exitbox.Destroy()
            self.Destroy();
        else:
            exitbox.Destroy()
       
    def Help(self, event):
        helpbox = wx.MessageDialog(None, 'Press Choose Formula to calculate areas and volumes\n\nPress About to see Info\n\nScoutDavid', 'Help', wx.OK)
        helpanswer = helpbox.ShowModal()
        helpbox.Destroy()   
       
if __name__=='__main__':
    app=wx.PySimpleApp()
    frame=MainFrame(parent=None, id= -1)
    frame.Show()
    app.MainLoop()

So, check the program:

http://code.google.com/p/formulum/downloads/detail?name=Formulum2.1.zip&can=2&q=#makechanges (http://code.google.com/p/formulum/downloads/detail?name=Formulum2.1.zip&can=2&q=#makechanges)

I'll make something that looks alike it to TI Nspire.

I'll be posting some progresses here tomorrow if I can:)

For now, just try Formulum


David
Title: Re: Formulum: Texas Instruments Version
Post by: TC01 on October 19, 2010, 07:32:31 pm
Python!

Um, I mean, so... you trying to make a Python program with an Nspire-style interface for formula solving?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 19, 2010, 07:39:58 pm
Python!

Um, I mean, so... you trying to make a Python program with an Nspire-style interface for formula solving?

No, a NSpire Program for formula solving, similar to Formulum(the idea)
Title: Re: Formulum: Texas Instruments Version
Post by: kyllopardiun on October 19, 2010, 10:37:08 pm
Well, good lucky, and I think in Nspire 2.x it won't be difficulty for you do ...
but you could just write a simpler thing in nspire [working on 1.4-2.x]
with many well documented functions...

EDIT:

if you want I can do it for you, and you will be able to look at, and see how simple it is,
and then do this program using the request, which is available just for 2.x OSes
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 19, 2010, 11:07:52 pm
Nice, hopefully this can be greatly useful for students.  I personally wouldn't use it as I am out of school since 2004 and had my last math classes in 2003, but other people might find it useful.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 20, 2010, 09:41:56 am
Nice, hopefully this can be greatly useful for students.  I personally wouldn't use it as I am out of school since 2004 and had my last math classes in 2003, but other people might find it useful.

That's just the goal.
Well, good lucky, and I think in Nspire 2.x it won't be difficulty for you do ...
but you could just write a simpler thing in nspire [working on 1.4-2.x]
with many well documented functions...

EDIT:

if you want I can do it for you, and you will be able to look at, and see how simple it is,
and then do this program using the request, which is available just for 2.x OSes

I'm using request yeah but I will do it, I need to practise TI Basic
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 21, 2010, 09:57:54 am
Here is some progress, a few formulas working fine already.

Sorry for double post, but it makes sense :S


Save it, try it and comment please. I will be adding more formulas, something like more 12 formulas, but for now only these. Later today...

Thx for help :) (even though I've had no problem until now)
Title: Re: Formulum: Texas Instruments Version
Post by: willrandship on October 21, 2010, 11:41:34 am
There's not much to practice in the way of Nspire BASIC. Input, disp, text, and a few math functions are all that are really useful, IMO. :P
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 21, 2010, 12:36:39 pm
There's not much to practice in the way of Nspire BASIC. Input, disp, text, and a few math functions are all that are really useful, IMO. :P

Yeah, but as long as we keep making this kind of programs to keep Nspire alive :D

I'll be posting screenshots in a few minutes :D
Title: Re: Formulum: Texas Instruments Version
Post by: kyllopardiun on October 21, 2010, 01:05:10 pm
There's not much to practice in the way of Nspire BASIC. Input, disp, text, and a few math functions are all that are really useful, IMO. :P

Yeah, but as long as we keep making this kind of programs to keep Nspire alive :D

I'll be posting screenshots in a few minutes :D

ndless 1.7 will keep nspire alive ... //it already does, but not officially

someday in the future the touchpad, will get it too,
but, don't expect much as 1.7 isn't released yet...
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 21, 2010, 01:30:35 pm
Here are some screenshots, please comment with any tips please
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 21, 2010, 07:58:07 pm
Nice, but I wonder if it's possible to add titles in those black bars?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 22, 2010, 11:58:43 am
Nice, but I wonder if it's possible to add titles in those black bars?

So do I, anyone knows if this is possible? I will update this thread soon with a new file and more GIFs :)
Title: Re: Formulum: Texas Instruments Version
Post by: kyllopardiun on October 22, 2010, 12:34:05 pm
Good work,
but i think it would be more optimized without all that request thing...
Don't missunderstand me, I not saying your program isn't great,

But, in my opinion just all those functions, would be better also if you need to calculate something else ...
//I don't know if what you wrote is functions or prgrm

but my tip is:

if it isn't a function, then convert it into one:
Let me say you have a circle area, and need to find the radius

you could easily do nsolve(circlearea(x)=40,x);
and i don't know if you can use this, while using request...
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 22, 2010, 02:30:51 pm
Good work,
but i think it would be more optimized without all that request thing...
Don't missunderstand me, I not saying your program isn't great,

But, in my opinion just all those functions, would be better also if you need to calculate something else ...
//I don't know if what you wrote is functions or prgrm

but my tip is:

if it isn't a function, then convert it into one:
Let me say you have a circle area, and need to find the radius

you could easily do nsolve(circlearea(x)=40,x);
and i don't know if you can use this, while using request...


It is several programs. When I did it as a function, I couldn't work with it :S
Title: Re: Formulum: Texas Instruments Version
Post by: kyllopardiun on October 22, 2010, 02:38:05 pm
It is several programs. When I did it as a function, I couldn't work with it :S

Well, then I guess request its only available to programs,
So if you want keep it as it is fine,
but as I said, you could just replace every program for a function like:
[that's how i did my first tns]

circlearea(r):=#pi*r^2
And then you just need to do a page documenting your tns...

so you will write:
circlearea(x) calculates the area of a circle with x radius
.
.
.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 22, 2010, 02:40:54 pm
It is several programs. When I did it as a function, I couldn't work with it :S

Well, then I guess request its only available to programs,
So if you want keep it as it is fine,
but as I said, you could just replace every program for a function like:
[that's how i did my first tns]

circlearea(r):=#pi*r^2
And then you just need to do a page documenting your tns...

so you will write:
circlearea(x) calculates the area of a circle with x radius
.
.
.

I can do so, but the request thing is more 'good-looking' for the user, and when I tried games and programs that are based on:

raise(300)

or

guess("gulabom")

or even

point(P, {2,-2,0}


I'm not pleased with the G.U.I., I know it's calculators lol, but requests aren't slow, the program is quite fast actually. In addition, they look better.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 25, 2010, 04:36:21 pm
In the next version of formulum it will return not only the area or the volume but ALSO the way you get there, stay tuned for more.

For now, here is a small example as a 'teaser':

Tell me what you think :)
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 25, 2010, 04:38:06 pm
cool, shows work for you (kinda)! :D

No that is pretty cool.  Nice job so far David! :D :D
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 25, 2010, 04:38:58 pm
Nice! Will it be available in English, though?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 25, 2010, 04:40:26 pm
Nice! Will it be available in English, though?

It is in English, only my calculator is in portuguese :( (it has to, unfortunately, otherwise when I had to do maths and chemistry it would be hard for the teachers to tell me what to do, right?)
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 25, 2010, 04:42:56 pm
Oh ok that's why. And yeah I understand. Over here on the 83+ everyone was in english but I think now they sell 83+ with the Français app. One thing that sucks about languages is that Ndless 1.0 requires the calc to be in English mode. I wonder if it's the same for other versions of Ndless?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 25, 2010, 05:14:54 pm
Oh ok that's why. And yeah I understand. Over here on the 83+ everyone was in english but I think now they sell 83+ with the Français app. One thing that sucks about languages is that Ndless 1.0 requires the calc to be in English mode. I wonder if it's the same for other versions of Ndless?

Ndless has lots of problems, hope they launch a stable 2.0 release: that would be pure awesomeness.

I will be posting another formula in a few minutes :)
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 25, 2010, 05:16:36 pm
maybe one for finding triangle areas, missing sides/angles?  mehopes so :)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 25, 2010, 05:25:56 pm
maybe one for finding triangle areas, missing sides/angles?  mehopes so :)

I will work on that :)

For now, here is the sphere volume teaser:

Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 25, 2010, 05:26:43 pm
looking good :D

keep up the good wok ;)
Title: Re: Formulum: Texas Instruments Version
Post by: Silver Shadow on October 25, 2010, 05:43:20 pm
Oh ok that's why. And yeah I understand. Over here on the 83+ everyone was in english but I think now they sell 83+ with the Français app. One thing that sucks about languages is that Ndless 1.0 requires the calc to be in English mode. I wonder if it's the same for other versions of Ndless?
Actually, for Ndless 1.0, that problem was only for beta versions. I successfully installed it even though my calc's language was set to French.
Title: Re: Formulum: Texas Instruments Version
Post by: kyllopardiun on October 25, 2010, 06:18:57 pm
Nice! Will it be available in English, though?

It is in English, only my calculator is in portuguese :( (it has to, unfortunately, otherwise when I had to do maths and chemistry it would be hard for the teachers to tell me what to do, right?)

Not really, if you know your calc well, you could use it even in a strange language as Chinese ...
and also if you keep your calculator in english it can be helpful for you improve your english skills.
//I am also a native portuguese speaker [not the same portuguese] and my calculator isn't in my language
and it is very easy to use..

/*NOTE: I said it as a strange language as I can't figure it out, nothing against anyone who likes it,
and I didn't meant to offend any Chinese speaker
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 25, 2010, 07:34:55 pm
Boa kyllopardium e mesmo fixe que tambem fales (no teu pais, suponho Brasil, deve ser fale*) PORTUGUES.

Anyways, here it goes, cone volume, a more complex formula WORKING:
Title: Re: Formulum: Texas Instruments Version
Post by: apcalc on October 25, 2010, 07:44:23 pm
Looks nice!

It's nice to see more Nspire projects popping up! :)
Title: Re: Formulum: Texas Instruments Version
Post by: kyllopardiun on October 25, 2010, 07:46:09 pm
Boa kyllopardium e mesmo fixe que tambem fales (no teu pais, suponho Brasil, deve ser fale*) PORTUGUES.

Anyways, here it goes, cone volume, a more complex formula WORKING:

Aqui no brasil as duas formas são aceitas, embora a terceira pessoa seja a mais comum na maior parte do país.
/exceto região sul
Mas, há diversas diferenças entre nossos idiomas, [0,2% do idioma de fato]
o que é o bastante para todo o esquema de acentuação e blá blá blá...

/* if you do not understand, you shouldn't care, we are just having a casual portuguese talk around here.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 25, 2010, 07:52:36 pm
This looks nice ScoutDavi!
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 26, 2010, 07:43:11 am
Mas, há diversas diferenças entre nossos idiomas, [0,2% do idioma de fato]

De fato? -.- De facto* hahahaha portugues> portugues do brasil.

Sorry for the portuguese conversation. Anyways, I've got my TI 84 Keypad, but will keep working on formulum.
5 formulas available already and better appearance too:)
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 26, 2010, 02:20:24 pm
/me wonders if acquiring a TI-84+ keypad means he will code some 84+ games as well in the future ;D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 26, 2010, 02:21:42 pm
/me wonders if acquiring a TI-84+ keypad means he will code some 84+ games as well in the future ;D

So does David... If I manage to code a game in the future, I'll be awesomely pleased, really...

I'll finally upload formulum.tns today!!!
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 26, 2010, 06:06:40 pm
Well, here it is, a new GIF and formulum2.tns, the awaited first version of the New Formulum.

This is a very basic version yet, will be updated constantly.

Please comment :)

In the GIF you may notice that I added = signs :)
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 27, 2010, 03:09:15 am
Nice. On a side note, do you actually choose the color for the text and background near the end of the screenshot or is it how the Nspire shows it by default?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 27, 2010, 12:26:12 pm
Nice. On a side note, do you actually choose the color for the text and background near the end of the screenshot or is it how the Nspire shows it by default?

I didn't, it's default :S

What? Lost 1 respect again (not here, though...)
Title: Re: Formulum: Texas Instruments Version
Post by: 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?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 27, 2010, 04:39:32 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.

I have a doubt on Formulum for TI-8x:
Code: [Select]
:ClrHome
:Menu("Choose Formula","Circle Area",1,"Sphere Volume",2)
:Lbl 1
:Input R
:Disp R*R*pi
:Pause
:Goto 3
:Lbl 2
:Input R
:Disp (4/3)*pi*R^3
:Pause
:Goto 3
:Lbl 3
:Disp "End..."

What do you think?
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 27, 2010, 04:41:06 pm
for the Input R instruction, I would advise you to put in Input "Radius",R, which will make it look more professional to the users.
Title: Re: Formulum: Texas Instruments Version
Post by: squidgetx on October 27, 2010, 04:42:14 pm
for the Input R instruction, I would advise you to put in Input "Radius: ",R, which will make it look more professional to the users.


Also you don't need any of the multiplication symbols or parenthesis in that code, and ^3 can be replaced with 3 :)
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 27, 2010, 04:43:02 pm
picky, picky :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 27, 2010, 04:43:35 pm
for the Input R instruction, I would advise you to put in Input "Radius: ",R, which will make it look more professional to the users.


Isn't that for strings?
Title: Re: Formulum: Texas Instruments Version
Post by: 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
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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...
Title: Re: Formulum: Texas Instruments Version
Post by: squidgetx 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 :)
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 27, 2010, 04:46:54 pm
very true indeed :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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...
Title: Re: Formulum: Texas Instruments Version
Post by: 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...
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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
Title: Re: Formulum: Texas Instruments Version
Post by: 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
Title: Re: Formulum: Texas Instruments Version
Post by: squidgetx 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. :)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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 (http://www.code.google.com/p/formulum)

But thanks anyway.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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!!
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 27, 2010, 07:36:35 pm
variables cannot be more than one letter long, using only A-Z and theta.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga 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.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor 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
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 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.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 30, 2010, 07:48:08 am
Oh my god, so much trouble for something SO simple:

Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOLUME",2)
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Goto 3
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Goto 3
:Lbl 3

Now, I want to add more formulas, but it gives me label error, any help?
Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOLUME",2,"CYLINDER VOLUME",3)
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Goto 3
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Lbl3
:Prompt R
:Prompt H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Goto 4
:Lbl 4
Title: Re: Formulum: Texas Instruments Version
Post by: JosJuice on October 30, 2010, 08:39:48 am
Lbl3 should be Lbl 3
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 30, 2010, 08:46:59 am
Lbl3 should be Lbl 3

Fail -.-

Will upload a first version in a few minutes :):):)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 30, 2010, 09:21:23 am
Here is Formulum for TI-8x series. HOWEVER, I'm having quite a few undesired problems...

The formulas are correct, I've tested them using Formulum PC, which is correct, I tested it using calculators and hand calculus haha

www.davidgom.co.cc/Formulum2.3.zip (http://www.davidgom.co.cc/Formulum 2.3.zip)

It is working, is optimized. I will add more formulas later :)

In my birthday(today) I managed to make Formulum available for 3 different supports (PC, NSpire and TI-8x calculators), so I'm quite happy.

Please comment :)

EDIT: Source Code:

Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOLUME",2,"CYLINDER VOLUME",3,"CONE VOLUME",4,"QUADR PYR VOLUME",5
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R
:Prompt H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R
:Prompt H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L
:Prompt H
:Output(4,2,"VOLUME IS:":Output(5,2,(LLH)/3
:Stop

Optimization, tips, ideas?
Title: Re: Formulum: Texas Instruments Version
Post by: ztrumpet on October 30, 2010, 09:29:52 am
Looks nice!  I have a couple of suggestions:
1) Change the lines like Prompt R:Prompt H to lines like Prompt R,H.  It makes the code a tad bit smaller. :)
2) Change the Stops to Returns.  It really doesn't make much of a difference, but it's a good habit to get into for when you step up to Axe. :D

Oh, and Happy Birthday! ;D
Title: Re: Formulum: Texas Instruments Version
Post by: MRide on October 30, 2010, 09:41:33 am
Looks good.  And yeah, what Z said about optimizing.
Happy Birthday!
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 30, 2010, 02:45:42 pm
Nice, and happy birthday!
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 30, 2010, 04:27:44 pm
happy birthday scout david! :D :D :D

It looks like you're almost done with this project, what is to come next?  I'm sure whatever it is will be as great as this one  ;)

EDIT: well actaully I didn;t read that you were adding new formulas.  Sounds great!!! :D
Title: Re: Formulum: Texas Instruments Version
Post by: nemo on October 30, 2010, 04:37:18 pm
happy birthday! also, can i refer you to this post (http://ourl.ca/7639/134389) to get rid of the lbl's while keeping the simplicity of Menu()?
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on October 30, 2010, 05:23:03 pm
Code: [Select]
ClrHome
Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5
Lbl 1
Prompt R
Output(4,2,"AREA IS:
Output(5,2,πR²
Stop
Lbl 2
Prompt R
Output(4,2,"VOLUME IS:
Output(5,2,4/3πR³
Stop
Lbl 3
Prompt R,H
Output(4,2,"VOLUME IS:
Output(5,2,HπR²
Stop
Lbl 4
Prompt R,H
Output(4,2,"VOLUME IS:
Output(5,2,R²πH/3
Stop
Lbl 5
Prompt L,H
Output(4,2,"VOLUME IS:
Output(5,2,L²H/3

Or if you wanna see what nemo was talking about:

Code: [Select]
ClrHome
5
Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5
Lbl 1
Ans-1
Lbl 2
Ans-1
Lbl 3
Ans-1
Lbl 4
Ans-1
Lbl 5
Ans-1→J
If not(Ans
Prompt R
Output(4,2,"AREA IS:
Output(5,2,πR²
If J=1
Prompt R
Output(4,2,"VOLUME IS:
Output(5,2,4/3πR³
If J=2
Prompt R,H
Output(4,2,"VOLUME IS:
Output(5,2,HπR²
J=3
Prompt R,H
Output(4,2,"VOLUME IS:
Output(5,2,R²πH/3
J=4
Prompt L,H
Output(4,2,"VOLUME IS:
Output(5,2,L²H/3

I haven't checked that to make sure it works but it should. Happy Birthday, hope ya have a good one.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 09:02:52 am
Nice, and happy birthday!
Looks nice!  I have a couple of suggestions:
1) Change the lines like Prompt R:Prompt H to lines like Prompt R,H.  It makes the code a tad bit smaller. :)
2) Change the Stops to Returns.  It really doesn't make much of a difference, but it's a good habit to get into for when you step up to Axe. :D

Oh, and Happy Birthday! ;D
happy birthday scout david! :D :D :D

It looks like you're almost done with this project, what is to come next?  I'm sure whatever it is will be as great as this one  ;)

EDIT: well actaully I didn;t read that you were adding new formulas.  Sounds great!!! :D
happy birthday! also, can i refer you to this post (http://ourl.ca/7639/134389) to get rid of the lbl's while keeping the simplicity of Menu()?

Thanks everyone, so I tried what you said: The returns instead of stops are not working.

What meishe91 said and what nemo said I couldn't make it work, tried several things, will retry it later. For now, this is my problem:

Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"CYLINDER SRFCE AREA",7,"CONE SRFCE AREA",8
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RR?
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)?RRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RR?H
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RR?H)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4?RR
:Lbl 7
:Prompt R
:Prompt H
:Output(4,2,"SURFCE AREA IS:":Output(5,2,2?RH+2?RR
:Lbl 8
:Prompt R,H
:Output(4,2,"SURFCE AREA IS:":Output(5,2,(?Rsqrt(HH+RR))+?RR

It says that Label 8 is argument error in the menu line.

The screen has 8 lines vertical, that means I can't have more than 8 labels?

:O

If yes, how to 'twist' it?
If not, alternatives?


Thanks much
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 31, 2010, 09:05:54 am
you can have the 7th option be "other formulas" and make it go to another menu, where you can put 7 more forumulas.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 09:07:34 am
you can have the 7th option be "other formulas" and make it go to another menu, where you can put 7 more forumulas.

Conclusion: TI Basic sucks, we can't even make a scroll -.-

I will do that, however -.-
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 31, 2010, 09:08:36 am
well, with the menu option, you can't.  But using a custom menu, you can probably do that ;)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 09:09:44 am
well, with the menu option, you can't.  But using a custom menu, you can probably do that ;)

Custom means Axe? Or a custom menu made in TI Basic?

If so, I'm more looking forward to create a custom menu in ti basic with a scroll, i don't think it is that hard.
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 31, 2010, 09:13:26 am
you can do it in TI-basic, not terribly hard but not super easy either.  Basically, you have a menu that draws the options starting at a cutoof and 6-7 more after that.  I did something like this before ;)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 09:27:03 am
Just googled it, it's easy, will upload it today :)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 12:14:30 pm
Code: [Select]
Okay, I'm kind of stuck now, I don't know if I should do a custom menu like this:

[code]:AxesOff
:ClrDraw
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:CIRCLE AREA
:Text(14,1,"2:SPHERE VOL.
:Text(21,1,"3:CYLINDER VOL.
:Text(28,1,"4:CONE VOL.
:Text(35,1,"5:CONE SURFACE AREA
:Text(42,1,"6:QUADR. PYR. VOL.
:Text(49,1,"7:CYLINDER SURFACE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:If Ans=92
:Disp "CIRCLE AREA
:If Ans=94
:Disp "SPHERE VOL.
:If Ans=82
:Disp "CYLINDER VOL.
:If Ans=83
:Disp "CONE VOLUME
:If Ans=84
:Disp "CONE SURFACE AREA
:If Ans=85
:Disp "QUADR. PYR. VOLUME
:If Ans=86
:Disp "CYLINDER SURFACE AREA
:Stop
:If Ans=87
::AxesOff
:ClrDraw
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:SPHERE SURFACE AREA
:Text(14,1,"2:CUBE VOL.
:Text(21,1,"3:CUBE SURFACE AREA
:Text(28,1,"4:PARALLELEPIPED VOL.
:Text(35,1,"5:PARALLELEPIPED SURFACE AREA
:Text(42,1,"6:TRAPEZIUM AREA
:Text(49,1,"7:RECTANGLE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:If Ans=92
:Disp "SPHERE SURFACE AREA
:If Ans=94
:Disp "CUBE VOLUME
:If Ans=82
:Disp "CUBE SURFACE AREA
:If Ans=83
:Disp "PARALLELEPIPED VOL.
:If Ans=84
:Disp "PARALLELEPIPED SURFACE AREA
:If Ans=85
:Disp "TRAPEZIUM AREA
:If Ans=86
:Disp "RECTANGLE AREA
:If Ans=87
:Disp "MORE FORMULAS"

This is not working very well, no, not working very good, please try it with SourceCoder I really need help.

So, with a Menu Function, I tried to do this:
Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"MORE FORMULAS",7
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4πRR
:Lbl 7
:Menu("CHOOSE FORMULA","CONE SURFACE AREA",1,"CYLINDER SURFACE AREA",2,"CUBE VOL.",3,"CUBE SURFACE AREA",4,"PARALLELEPIPED VOL.",5,"PARALLELEPIED SURF. AREA",6
:Lbl 1
:Disp "CONE SURFACE AREA"

On this one, the labels for the second menu are used as the ones in the first menu.


Ideas? Thanks much[/code]
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on October 31, 2010, 12:19:22 pm
I say just stick with the later one with the two menus for now.  It looks professional, and won't leave your graphscreen in a mess.
Title: Re: Formulum: Texas Instruments Version
Post by: JosJuice on October 31, 2010, 12:29:56 pm
On this one, the labels for the second menu are used as the ones in the first menu.


Ideas? Thanks much
Menu( and Goto will always skip to the first label that has the correct name. Make sure that there are no labels that share the same same.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 12:32:35 pm
Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"MORE FORMULAS",7
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4πRR
:Lbl 7
:Menu("CHOOSE FORMULA","CONE SURFACE AREA",1,"CYLINDER SURFACE AREA",2,"CUBE VOL.",3,"CUBE SURFACE AREA",4,"PARALLELEPIPED VOL.",5,"PARALLELEPIED SURF. AREA",6
:Lbl 1
:Disp "CONE SURFACE AREA"

Then, I should use this one which is simpler.

Hahahah, I did it!!!

Code: [Select]
:ClrHome
:Menu("CHOOSE FORMULA","CIRCLE AREA",1,"SPHERE VOL.",2,"CYLINDER VOL.",3,"CONE VOL.",4,"QUADR PYR VOL.",5,"SPHERICAL SRFCE AREA",6,"MORE FORMULAS",7
:Lbl 1
:Prompt R
:Output(4,2,"AREA IS:":Output(5,2,RRπ
:Stop
:Lbl 2
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)πRRR
:Stop
:Lbl 3
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,RRπH
:Stop
:Lbl 4
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,(RRπH)/3
:Stop
:Lbl 5
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:Stop
:Lbl 6
:Prompt R
:Output(4,2,"SURFCE AREA IS:":Output(5,2,4πRR
:Lbl 7
:Menu("CHOOSE FORMULA","CONE SURFACE AREA",8,"CYLINDER SURFACE AREA",9,"CUBE VOL.",10,"CUBE SURFACE AREA",4,"PARALLELEPIPED VOL.",11,"PARALLELEPIED SURF. AREA",12
:Lbl 8
:Disp "TEST SUCCESS"

So happy:)
Title: Re: Formulum: Texas Instruments Version
Post by: FinaleTI on October 31, 2010, 12:38:13 pm
Try this code:
Code: [Select]
:AxesOff
:ClrDraw
:1→W
:While W
:While W=1
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:CIRCLE AREA
:Text(14,1,"2:SPHERE VOL.
:Text(21,1,"3:CYLINDER VOL.
:Text(28,1,"4:CONE VOL.
:Text(35,1,"5:CONE SURFACE AREA
:Text(42,1,"6:QUADR. PYR. VOL.
:Text(49,1,"7:CYLINDER SURFACE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans→K
:If K=73
:Then
:ClrDraw
:2→W
:Else
:If K=92
:Disp "CIRCLE AREA
:If K=93
:Disp "SPHERE VOL.
:If K=94
:Disp "CYLINDER VOL.
:If K=82
:Disp "CONE VOLUME
:If K=83
:Disp "CONE SURFACE AREA
:If K=84
:Disp "QUADR. PYR. VOLUME
:If K=72
:Disp "CYLINDER SURFACE AREA
:Stop
:End
:End
:While W=2
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:SPHERE SURFACE AREA
:Text(14,1,"2:CUBE VOL.
:Text(21,1,"3:CUBE SURFACE AREA
:Text(28,1,"4:PARALLELEPIPED VOL.
:Text(35,1,"5:PARALLELEPIPED SURFACE AREA
:Text(42,1,"6:TRAPEZIUM AREA
:Text(49,1,"7:RECTANGLE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans→K
:If K=73
:Then
:1→W
:ClrDraw
:Else
:If K=92
:Disp "SPHERE SURFACE AREA
:If K=93
:Disp "CUBE VOLUME
:If K=94
:Disp "CUBE SURFACE AREA
:If K=82
:Disp "PARALLELEPIPED VOL.
:If K=83
:Disp "PARALLELEPIPED SURFACE AREA
:If K=84
:Disp "TRAPEZIUM AREA
:If K=72
:Disp "RECTANGLE AREA
:Stop
:End
:End
:End

To quit, press ON to break it. One of the main reasons the above code didn't work it because you had the wrong key-codes in your If statements. I didn't know if it was supposed to loop back or not, but you can change that or add in another While W= loop with more formulas. Another thing that went wrong was before the If that created the second menu you had your Stop statement, which would end program execution.
If you want your If statements to do more than one thing, you'll need to use and If Then structure.
Code: [Select]
:If (Condition)
:Then
:(Do Whatever)
:End
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 12:43:19 pm
Try this code:
Code: [Select]
:AxesOff
:ClrDraw
:1→W
:While W
:While W=1
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:CIRCLE AREA
:Text(14,1,"2:SPHERE VOL.
:Text(21,1,"3:CYLINDER VOL.
:Text(28,1,"4:CONE VOL.
:Text(35,1,"5:CONE SURFACE AREA
:Text(42,1,"6:QUADR. PYR. VOL.
:Text(49,1,"7:CYLINDER SURFACE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans→K
:If K=73
:Then
:ClrDraw
:2→W
:Else
:If K=92
:Disp "CIRCLE AREA
:If K=93
:Disp "SPHERE VOL.
:If K=94
:Disp "CYLINDER VOL.
:If K=82
:Disp "CONE VOLUME
:If K=83
:Disp "CONE SURFACE AREA
:If K=84
:Disp "QUADR. PYR. VOLUME
:If K=72
:Disp "CYLINDER SURFACE AREA
:Stop
:End
:End
:While W=2
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:SPHERE SURFACE AREA
:Text(14,1,"2:CUBE VOL.
:Text(21,1,"3:CUBE SURFACE AREA
:Text(28,1,"4:PARALLELEPIPED VOL.
:Text(35,1,"5:PARALLELEPIPED SURFACE AREA
:Text(42,1,"6:TRAPEZIUM AREA
:Text(49,1,"7:RECTANGLE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans→K
:If K=73
:Then
:1→W
:ClrDraw
:Else
:If K=92
:Disp "SPHERE SURFACE AREA
:If K=93
:Disp "CUBE VOLUME
:If K=94
:Disp "CUBE SURFACE AREA
:If K=82
:Disp "PARALLELEPIPED VOL.
:If K=83
:Disp "PARALLELEPIPED SURFACE AREA
:If K=84
:Disp "TRAPEZIUM AREA
:If K=72
:Disp "RECTANGLE AREA
:Stop
:End
:End
:End

To quit, press ON to break it. One of the main reasons the above code didn't work it because you had the wrong key-codes in your If statements. I didn't know if it was supposed to loop back or not, but you can change that or add in another While W= loop with more formulas. Another thing that went wrong was before the If that created the second menu you had your Stop statement, which would end program execution.
If you want your If statements to do more than one thing, you'll need to use and If Then structure.
Code: [Select]
:If (Condition)
:Then
:(Do Whatever)
:End

That works really good, I would never find out about that.
Thanks so MUCH FinaleTI.

I will use this one as a base now haha
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 02:22:00 pm
OKAY, here it goes. I still have to add full formula resolution like there is in the Nspire:

(http://www.omnimaga.org/index.php?action=dlattach;topic=4914.0;attach=4103;image)

Also, I have to add ALL triangle formulas :)

I have to make something like a title when the program asks for data, like "SPHERICAL SURFACE AREA" on top of the window.

For now it is cool and already useful in tests.

Here it goes! FORMULUM (69).8xp

Tell me what you think :)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 02:55:45 pm
Another version of Formulum for NSpire, Formulum v2.2.

It is just like this one, but with a few more formulas AND the resolution had some updates too, better for tests, ooh yeah:

(http://www.omnimaga.org/index.php?action=dlattach;topic=4914.0;attach=4103;image)

Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on October 31, 2010, 03:02:06 pm
New progress!

EDIT Double post ???
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 03:04:19 pm
Oh my god, when I try to run it in a calculator, the result shows up fast and the program quits, instead of what happens in WabbitEmu...

No idea why?
Title: Re: Formulum: Texas Instruments Version
Post by: JosJuice on October 31, 2010, 04:42:24 pm
Oh my god, when I try to run it in a calculator, the result shows up fast and the program quits, instead of what happens in WabbitEmu...

No idea why?
Try adding a Pause if you want the results to stay on the screen.

Are you using a shell?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 04:47:41 pm
Oh my god, when I try to run it in a calculator, the result shows up fast and the program quits, instead of what happens in WabbitEmu...

No idea why?
Try adding a Pause if you want the results to stay on the screen.

Are you using a shell?

I am using a "Stop" to keep the results. When I use Pause it gives me an error, the same as when I use a ":Return".

A Shell? Please explain :S
Title: Re: Formulum: Texas Instruments Version
Post by: JosJuice on October 31, 2010, 04:51:17 pm
(Just for clarification, this is the 83+/84+ version, right? I know nearly nothing about the Nspire...)

Stop (and Return) will immediately end the program.
A shell is a program that launches programs; for example, DCS and MOS.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 04:53:13 pm
No, I'm not using a Shell.

Stop yeah shuts the program in the 84+.

But the Pause gives me an error...
Return gives me an error too...

Not Nspire version, lol
Title: Re: Formulum: Texas Instruments Version
Post by: nemo on October 31, 2010, 04:58:26 pm
are you using the token Return/Pause or are you actually typing "Pause" and "Return"?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 05:00:29 pm
I'm typing
:Pause

and

:Return

(only one at a time, I made two files, one with Pause everywhere and another with Return everywhere, any works).
Title: Re: Formulum: Texas Instruments Version
Post by: nemo on October 31, 2010, 05:02:58 pm
where are you coding? are you using source coder, or on-calc?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 05:04:44 pm
where are you coding? are you using source coder, or on-calc?

SourceCoder+WabbitEmu, in WabbitEmu Stop doesn't quit, everything works fine.
Then, SourceCoder+Calculator, it quits after the formula, not that fine...

Do you want the code?
Title: Re: Formulum: Texas Instruments Version
Post by: nemo on October 31, 2010, 05:05:45 pm
i'm intrigued. i do want the code.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on October 31, 2010, 05:06:59 pm
Code: [Select]
:ClrHome
:AxesOff
:ClrDraw
:1?W
:While W
:While W=1
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:CIRCLE AREA
:Text(14,1,"2:SPHERE VOL.
:Text(21,1,"3:CYLINDER VOL.
:Text(28,1,"4:CONE VOL.
:Text(35,1,"5:CONE SURFACE AREA
:Text(42,1,"6:QUADR. PYR. VOL.
:Text(49,1,"7:CYLINDER SURFACE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans?K
:If K=73
:Then
:ClrDraw
:2?W
:Else
:If K=92
:Then
:ClrHome
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,RRp
:End
:If K=93
:Then
:ClrHome
:Prompt R
:Output(4,2,"VOLUME IS:":Output(5,2,(4/3)pRRR
:End
:If K=94
:Then
:ClrHome
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,pRRH
:End
:If K=82
:Then
:ClrHome
:Prompt R,H
:Output(4,2,"VOLUME IS:":Output(5,2,pRRH/3
:End
:If K=83
:Then
:ClrHome
:Prompt R,H
:Output(4,2,"SRFCE AREA IS:":Output(5,2,(pR*sqrt(HH+RR))+pRR
:End
:If K=84
:Then
:ClrHome
:Prompt L,H
:Output(4,2,"VOLUME IS:":Output(5,2,LLH/3
:End
:If K=72
:Then
:ClrHome
:Prompt R,H
:Output(4,2,"SRFCE AREA IS:":Output(5,2,2pRH+2pRR
:End
:Stop
:End
:End
:While W=2
:Text(1,1,"CHOOSE FORMULA
:Text(7,1,"1:SPHERE SURFACE AREA
:Text(14,1,"2:CUBE VOL.
:Text(21,1,"3:CUBE SURFACE AREA
:Text(28,1,"4:PARALLELEPIPED VOL.
:Text(35,1,"5:PARALLELEPIPED SURFACE AREA
:Text(42,1,"6:TRAPEZIUM AREA
:Text(49,1,"7:RECTANGLE AREA
:Text(56,1,"8:MORE FORMULAS
:Repeat 2>abs(5-abs(5-abs(Ans-83
:getKey
:End
:Ans?K
:If K=73
:Then
:1?W
:ClrDraw
:Else
:If K=92
:Then
:ClrHome
:Prompt R
:Output(4,2,"SFRCE AREA IS:":Output(5,2,4pRR
:End
:If K=93
:Then
:ClrHome
:Prompt A
:Output(4,2,"VOLUME IS:":Output(5,2,AAA
:End
:If K=94
:Then
:ClrHome
:Prompt A
:Output(4,2,"SFRCE AREA IS:":Output(5,2,6AA
:End
:If K=82
:Then
:ClrHome
:Prompt A,B,C
:Output(4,2,"VOLUME IS:":Output(5,2,ABC
:End
:If K=83
:Then
:ClrHome
:Prompt A,B,C
:Output(4,2,"SFRCE AREA IS:":Output(5,2,2BC+2AC+2AB
:End
:If K=84
:Then
:ClrHome
:Disp "A Larger Base
:Disp "B Smaller Base
:Disp "H Height
:Prompt A,B,H
:Output(7,2,"AREA IS:":Output(8,2,((A+B)/2)H
:End
:If K=72
:Then
:ClrHome
:Prompt B,H
:Output(4,2,"AREA IS:":Output(5,2,BH
:End
:Stop
:End
:End
:End

The ?s are STOs and the 'p's are the pi.

Sorry, saved that in ANSI coding...

Do you want unlocked file?
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on October 31, 2010, 09:11:06 pm
Well if you are using SourceCoder to type all your code that might be the origin of a lot of your problems. SourceCoder syntax, although quite similar, is just a bit different sometimes and can cause errors when it creates a file. I'll look over the code in a second.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 01, 2010, 03:55:11 am
As a side note, if you ever have any problem creating a file from the code that you opened from a program in SourceCoder or any other error, you might want to immediately report the bug to KermMartian in his Cemetech topic, as he will get notified of it and fix it whenever he gets some time.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 01, 2010, 10:31:04 am
As a side note, if you ever have any problem creating a file from the code that you opened from a program in SourceCoder or any other error, you might want to immediately report the bug to KermMartian in his Cemetech topic, as he will get notified of it and fix it whenever he gets some time.

SourceCoder works perfectly.

It's just a shame that my TI-8x version was downloaded once and the NSpire version wasn't even downloaded :S
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 01, 2010, 12:04:11 pm
Well the issue is that Omnimaga is a gaming-oriented website, not a math program website, so it's inevitable that non-game-related programs will get less downloads. Such math program would probably get more attention on United-TI, TI-BANK or Ticalc.org, which are more general. One month ago, there was even the possibility of completely forbidding math programs in the projects section to not lose our focus on games. I personally no longer need math tools since about 2003, the final year I did maths. I only use my calc for games. On top of that, most people here got a TI-83+ or 84+.

Also, my Nspire is always in 84+ mode because I need it in that mode and I try to avoid swapping keypads too often.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 01, 2010, 12:32:48 pm
Well the issue is that Omnimaga is a gaming-oriented website, not a math program website, so it's inevitable that non-game-related programs will get less downloads. Such math program would probably get more attention on United-TI, TI-BANK or Ticalc.org, which are more general. One month ago, there was even the possibility of completely forbidding math programs in the projects section to not lose our focus on games. I personally no longer need math tools since about 2003, the final year I did maths. I only use my calc for games. On top of that, most people here got a TI-83+ or 84+.

Also, my Nspire is always in 84+ mode because I need it in that mode and I try to avoid swapping keypads too often.

'Gaming-oriented Forum' -  had no idea, though.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 01, 2010, 12:36:23 pm
Aah ok, yeah Omnimaga has been mostly about calculator games and calculator game programming. There was an era where it was exclusive to RPGs like Final Fantasy too. However, United-TI and CalcG.org became less active in the last two years and most people come here on Omnimaga instead. In the future, I think I will split the projects section so math programs are in their own. It will be easier to see them for people who need school stuff.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 01, 2010, 12:41:23 pm
Aah ok, yeah Omnimaga has been mostly about calculator games and calculator game programming. There was an era where it was exclusive to RPGs like Final Fantasy too. However, United-TI and CalcG.org became less active in the last two years and most people come here on Omnimaga instead. In the future, I think I will split the projects section so math programs are in their own. It will be easier to see them for people who need school stuff.

Good idea, then I should start programming a game, since I have an idea already
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 01, 2010, 12:43:28 pm
Starcraft ;D

j/k, make sure to not start too big, lol, and do a lot of backups, even if it's just in BASIC. The TI-OSes can crash, too.
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on November 01, 2010, 12:44:29 pm
but, this is where every good programmer starts: making math programs.  So I think you'll do great with your first game :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 01, 2010, 12:44:43 pm
Starcraft ;D

j/k, make sure to not start too big, lol, and do a lot of backups, even if it's just in BASIC. The TI-OSes can crash, too.

Starcraft? I was more into something like Crysis :S
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on November 01, 2010, 12:45:45 pm
ooh, crysis in basic.  Might be hard to do, but I bet you'll do great with it :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 01, 2010, 12:48:54 pm
ooh, crysis in basic.  Might be hard to do, but I bet you'll do great with it :D

Maybe COD?

Hahahah

Anyways, I prefer PC programming than Calculator Programmming and i'm afraid I will stop calc. programming when I i finish highschool and go to med school :'(

Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 01, 2010, 04:11:58 pm
I hope even when you stop that you stick around for a while around here :(. You can still show your PC projects as well.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 01, 2010, 05:07:40 pm
I hope even when you stop that you stick around for a while around here :(. You can still show your PC projects as well.

Of course DJ, this is A GREAT COMMUNITY. If I stay much longer, I will want to help you more frequently and seriously, maybe joining the staff. However, for now, I must learn Axe and TI Basic, to be more 'in' the community :)

A new version of Formulum will be released for PC as well, just like the NSpire one, with complete formula resolution.

DJ, can I attach PC versions in this thread too?
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 01, 2010, 07:44:24 pm
Cool to hear :D

And yes you can attach PC stuff in this topic :) (as long as it's under 4096 KB large)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 02, 2010, 08:44:49 am
Cool to hear :D

And yes you can attach PC stuff in this topic :) (as long as it's under 4096 KB large)

What about 4097 KB? haha just kidding, the latest version setup is 5mb, though, so I may only post links :S
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 02, 2010, 02:21:10 pm
Aw ok. The attachment size maximum used to be 8 MB but the new hosting provider offers less diskspace so I didn't take chances, in case too many large files get uploaded. Host it on Mediafire.com, maybe?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 02, 2010, 05:09:33 pm
Aw ok. The attachment size maximum used to be 8 MB but the new hosting provider offers less diskspace so I didn't take chances, in case too many large files get uploaded. Host it on Mediafire.com, maybe?

I host them in my own website or Google Code. I don't want to have them around in MegaUpload's, Rapidshare's, MediaFire's, etc.

Maybe in SourceForge, though :)
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 02, 2010, 05:52:46 pm
Ah ok. It's up to you, really.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 02, 2010, 05:54:14 pm
I have problems with Formulum, it gives me a DIM error in this line:

Code: [Select]
Text(0,0,"CHOOSE FORMULA
I can't say anymore now, but what could it be?
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 02, 2010, 07:16:22 pm
Mhmm that is not supposed to happen ???
Title: Re: Formulum: Texas Instruments Version
Post by: willrandship on November 02, 2010, 07:39:26 pm
Maybe 1,1 instead of 0,0? just beause you technically can (i think) use 0 for px-based functions doesn't mean the OS won't reject it. Just a possibility
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 02, 2010, 07:40:19 pm
Yeah but normally 0,0 works fine. I tried on my 83+ and it works perfectly.
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on November 02, 2010, 09:17:57 pm
Ya, that should work. Go into Wabbit, not SourceCoder, and retype it into the code in the emulator and see if it works.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 04, 2010, 10:36:52 am
Ok, I tried Text(1,1, and it doesn't work as well.

I typed everything in my 84 (Nspire 84+ Keypad) and doesn't work too...
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on November 04, 2010, 05:19:58 pm
Could you post the code or the actual program?
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 04, 2010, 05:22:24 pm
I see the versions made it to ticalc.org. Hopefully this shall get more popularity :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 05, 2010, 12:22:54 pm
I see the versions made it to ticalc.org. Hopefully this shall get more popularity :D

Yeah, but afterall there are tons of programs like mine, I thought I was the only one hahahaha

ANYWAYS, the problem is solved, now I have some ideas and the program for TI-8x will be hugely improved with two more pages of formulas and no bugs, but only in a few days (busy with school tests :()
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on November 05, 2010, 04:47:16 pm
What was the problem?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 05, 2010, 05:08:21 pm
What was the problem?

An extra 'End' in the code :S
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on November 05, 2010, 05:21:57 pm
Why was it pointing to the Text( command though? Glad you got it fixed though.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 05, 2010, 05:34:30 pm
Why was it pointing to the Text( command though? Glad you got it fixed though.

Stupid poiting error, fixed now.

Now I'm having difficulties adding a third page, but I will manage by myself :)
Title: Re: Formulum: Texas Instruments Version
Post by: ASHBAD_ALVIN on November 05, 2010, 06:31:31 pm
good luck with the third page!  Remeber, 3+ pages and yuo should upload it on ticalc as a suite -- which is much more respected than a regular formula solver cuz' it can solve just about anything you'll need for a certain topic (in this case, geometry) :D

And also, there's less suites, so I'd say Formulum would stand out more then on ticalc.org.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 05, 2010, 08:47:22 pm
Yeah a Suite sounds like a good idea.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on November 06, 2010, 08:26:43 am
good luck with the third page!  Remeber, 3+ pages and yuo should upload it on ticalc as a suite -- which is much more respected than a regular formula solver cuz' it can solve just about anything you'll need for a certain topic (in this case, geometry) :D

And also, there's less suites, so I'd say Formulum would stand out more then on ticalc.org.

Huh... What's a suite? lol
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on November 07, 2010, 02:57:59 am
good luck with the third page!  Remeber, 3+ pages and yuo should upload it on ticalc as a suite -- which is much more respected than a regular formula solver cuz' it can solve just about anything you'll need for a certain topic (in this case, geometry) :D

And also, there's less suites, so I'd say Formulum would stand out more then on ticalc.org.

Huh... What's a suite? lol
http://en.wikipedia.org/wiki/Software_suite

Micro$oft Office and OpenOffice are examples of suites.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 01, 2010, 02:45:13 pm
Ok, I'm thinking of finishing this project by Christmas :S I want to add Triangle Solver to formulum, but nemo hasn't replied yet :S
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 01, 2010, 02:57:11 pm
Cool that it is still alive. It would be nice to see more stuff integrated to it. :)
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 01, 2010, 04:52:49 pm
Cool that it is still alive. It would be nice to see more stuff integrated to it. :)

I am thinking of adding pictures of the solids to the calculation page and adding full formula solving like in the nspire:

Code: [Select]
A=2pir
A=2pi6
A=12pi
A=37.7

But that would imply making the program Axe, which is quite easy :)
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on December 02, 2010, 01:55:59 am
Well adding pictures wouldn't be to hard in TI-BASIC, if I understand you correctly. All you'd have to do is create routines for drawing the shapes and then just use commands to call the correct one. Also, if you do the full solving thing like you showed (I believe you tried it before in a former release or something and I showed you a graphscreen based one) I would possibly stick with the graphscreen since it will look a lot neater. Or you could use the Output( command, would be the same as using Text( roughly. Using Disp would just make it to fast to see anything, I think anyways. You could get it to work if it was tweaked with correctly.

I would also say you might want to avoid Axe for something like this (unless a new version was released that fully supports floating point numbers). Since the numbers you get with this program, especially from using π, are mainly numbers with decimals which are a pain in Axe. Just my two cents though.

Good luck on any progress though.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 02, 2010, 04:07:18 pm
Well adding pictures wouldn't be to hard in TI-BASIC, if I understand you correctly. All you'd have to do is create routines for drawing the shapes and then just use commands to call the correct one. Also, if you do the full solving thing like you showed (I believe you tried it before in a former release or something and I showed you a graphscreen based one) I would possibly stick with the graphscreen since it will look a lot neater. Or you could use the Output( command, would be the same as using Text( roughly. Using Disp would just make it to fast to see anything, I think anyways. You could get it to work if it was tweaked with correctly.

I would also say you might want to avoid Axe for something like this (unless a new version was released that fully supports floating point numbers). Since the numbers you get with this program, especially from using π, are mainly numbers with decimals which are a pain in Axe. Just my two cents though.

Good luck on any progress though.

Yes, I really hope Axe includes pi in the next version and some more math functions. I heard it was to avoid that it gets slow, but I don't really think it would be such a memory consumption.

Now, I have managed to make that after you calculate a formula, you go back to the menu (Labels easy stuff).

Now, the next step is another page and adding triangle solver
Title: Re: Formulum: Texas Instruments Version
Post by: Happybobjr on December 02, 2010, 04:09:16 pm
Well adding pictures wouldn't be to hard in TI-BASIC, if I understand you correctly. All you'd have to do is create routines for drawing the shapes and then just use commands to call the correct one. Also, if you do the full solving thing like you showed (I believe you tried it before in a former release or something and I showed you a graphscreen based one) I would possibly stick with the graphscreen since it will look a lot neater. Or you could use the Output( command, would be the same as using Text( roughly. Using Disp would just make it to fast to see anything, I think anyways. You could get it to work if it was tweaked with correctly.

I would also say you might want to avoid Axe for something like this (unless a new version was released that fully supports floating point numbers). Since the numbers you get with this program, especially from using π, are mainly numbers with decimals which are a pain in Axe. Just my two cents though.

Good luck on any progress though.

Yes, I really hope Axe includes pi in the next version and some more math functions. I heard it was to avoid that it gets slow, but I don't really think it would be such a memory consumption.

Now, I have managed to make that after you calculate a formula, you go back to the menu (Labels easy stuff).

Now, the next step is another page and adding triangle solver


you can do many digits of pi if you use 31415  then divide it by 10000 at the end of the equation for more precise answers.
Title: Re: Formulum: Texas Instruments Version
Post by: nemo on December 02, 2010, 04:09:38 pm
axe was made for games, so i highly doubt floating point will be added. and for things like raycasters which provide precision math, Runer has made slow but accurate sin/cos routines for pre-generated tables.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 02, 2010, 05:51:46 pm
Well adding pictures wouldn't be to hard in TI-BASIC, if I understand you correctly. All you'd have to do is create routines for drawing the shapes and then just use commands to call the correct one. Also, if you do the full solving thing like you showed (I believe you tried it before in a former release or something and I showed you a graphscreen based one) I would possibly stick with the graphscreen since it will look a lot neater. Or you could use the Output( command, would be the same as using Text( roughly. Using Disp would just make it to fast to see anything, I think anyways. You could get it to work if it was tweaked with correctly.

I would also say you might want to avoid Axe for something like this (unless a new version was released that fully supports floating point numbers). Since the numbers you get with this program, especially from using π, are mainly numbers with decimals which are a pain in Axe. Just my two cents though.

Good luck on any progress though.

Yes, I really hope Axe includes pi in the next version and some more math functions. I heard it was to avoid that it gets slow, but I don't really think it would be such a memory consumption.

Now, I have managed to make that after you calculate a formula, you go back to the menu (Labels easy stuff).

Now, the next step is another page and adding triangle solver


you can do many digits of pi if you use 31415  then divide it by 10000 at the end of the equation for more precise answers.

I'm sorry nemo, but this is a great idea! Getting the original value of pi, by making it ourselves!
Title: Re: Formulum: Texas Instruments Version
Post by: nemo on December 02, 2010, 05:53:13 pm
what are you going to do if you want to square pi?
Title: Re: Formulum: Texas Instruments Version
Post by: Happybobjr on December 02, 2010, 05:56:11 pm
you could deal with 4 byte numbers by yourself with L1+0 through L1+3 etc.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 03, 2010, 12:55:11 am
axe was made for games, so i highly doubt floating point will be added. and for things like raycasters which provide precision math, Runer has made slow but accurate sin/cos routines for pre-generated tables.
Would fixed points be enough for a raycaster?
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on December 03, 2010, 07:45:01 pm
Well adding pictures wouldn't be to hard in TI-BASIC, if I understand you correctly. All you'd have to do is create routines for drawing the shapes and then just use commands to call the correct one. Also, if you do the full solving thing like you showed (I believe you tried it before in a former release or something and I showed you a graphscreen based one) I would possibly stick with the graphscreen since it will look a lot neater. Or you could use the Output( command, would be the same as using Text( roughly. Using Disp would just make it to fast to see anything, I think anyways. You could get it to work if it was tweaked with correctly.

I would also say you might want to avoid Axe for something like this (unless a new version was released that fully supports floating point numbers). Since the numbers you get with this program, especially from using ?, are mainly numbers with decimals which are a pain in Axe. Just my two cents though.

Good luck on any progress though.

Yes, I really hope Axe includes pi in the next version and some more math functions. I heard it was to avoid that it gets slow, but I don't really think it would be such a memory consumption.

Now, I have managed to make that after you calculate a formula, you go back to the menu (Labels easy stuff).

Now, the next step is another page and adding triangle solver

It's not so much memory consuming as it is speed consuming. Floating point numbers are a big slowdown since they are a routine by themselves, I believe.

axe was made for games, so i highly doubt floating point will be added. and for things like raycasters which provide precision math, Runer has made slow but accurate sin/cos routines for pre-generated tables.
Would fixed points be enough for a raycaster?

Seems to be fast enough for Squidgetx (http://ourl.ca/8144/148678;topicseen#new) ;)
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 03, 2010, 10:59:04 pm
Ah, right. I forgot about his raycaster, I'll go check his topic now that he posted about it. :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 04, 2010, 06:22:08 am
axe was made for games, so i highly doubt floating point will be added. and for things like raycasters which provide precision math, Runer has made slow but accurate sin/cos routines for pre-generated tables.
Would fixed points be enough for a raycaster?

I don't know, but squidget made a very good one. Runner followed him with another great one!
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 04, 2010, 03:55:22 pm
Yeah I saw last night. Amazing stuff :D
Title: Re: Formulum: Texas Instruments Version
Post by: meishe91 on December 04, 2010, 08:26:10 pm
axe was made for games, so i highly doubt floating point will be added. and for things like raycasters which provide precision math, Runer has made slow but accurate sin/cos routines for pre-generated tables.
Would fixed points be enough for a raycaster?

I don't know, but squidget made a very good one. Runner followed him with another great one!

Well all roughly the same code as Squidget's, Runner just did a few optimizations and added a Assembly routine (I believe that's what it is unless Runner released a different one that I missed). But ya, they are really nice.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 05, 2010, 02:55:38 pm
Quote
Well all roughly the same code as Squidget's, Runner just did a few optimizations and added a Assembly routine (I believe that's what it is unless Runner released a different one that I missed). But ya, they are really nice.

From now on, everybody will use his source as base.

Back on Formulum

Putting the file in my calculator, then I can really work on this
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 05, 2010, 06:28:56 pm
Cool to hear! So are you integrating Nemo's triangle solver in this?
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 05, 2010, 06:29:42 pm
Cool to hear! So are you integrating Nemo's triangle solver in this?

Yes, but later. I haven't printed its code yet.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 09, 2010, 06:15:22 pm
NEW VERSION! 2.3!

After finding out Formulum for the NSpire had had 150 downloads in ticalc, I had to make a new one, here it is!

IMPORTANT: SAVE IT IN THE MyLib FOLDER

This program calculates and returns the whole formula resolution of geometry formulas, such as circle area, sphere volume, parallelepiped surface area, etc.

You access the formulas by pressing the library button, the press 5 for programs that are in the MyLib folder. Then, move to Formulum 2, choose one of the formulas, press enter, insert values and enjoy!


Change Log:
> Fixed Quadrangular Pyramid Volume bug;
> Added Trapezium Area;
> Added Triangle Area;
> Added Parallelepiped Surface Area;
> Added Cube Surface Area;
> Added Quadrangular Prism Volume;
> Added Quandrangular Pyramid Surface Area.

Quite a good change log to me :)
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 09, 2010, 06:22:29 pm
Nice to see an update! It seems pretty popular on ticalc :D

Also nice screenshot :D
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 10, 2010, 10:05:30 am
Nice to see an update! It seems pretty popular on ticalc :D

Also nice screenshot :D

I finished uploading all my programs to ticalc, so I gotta make new ones :D
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 10, 2010, 07:26:52 pm
Yeah I noticed. Try to not upload stuff like quadratic solvers alone that were done many times before, though. :P
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 11, 2010, 07:01:17 am
Yeah I noticed. Try to not upload stuff like quadratic solvers alone that were done many times before, though. :P

There are more matches for Mario than for quadratic, according to ticalc.org package manager, though.
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 12, 2010, 04:25:20 am
O.O

What?

I am a bit scared to open these Mario files if that's the case. I wouldn't be surprised if some of these Mario games were actual quadratic solvers. X.x
Title: Re: Formulum: Texas Instruments Version
Post by: JosJuice on December 12, 2010, 04:41:10 am
Maybe searching for quadratic won't find quadratic solvers with more clever/silly names (such as QuadSolv)?
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 12, 2010, 05:34:24 am
This, and I am certain many people spelled "quadratic" or "solver" wrong.
Title: Re: Formulum: Texas Instruments Version
Post by: Munchor on December 18, 2010, 06:55:41 am
This, and I am certain many people spelled "quadratic" or "solver" wrong.

I still think that Mario Games are hidden Quadratic Solvers :o
Title: Re: Formulum: Texas Instruments Version
Post by: DJ Omnimaga on December 18, 2010, 02:36:45 pm
I wouldn't be surprised. I know one RPG for the TI-89 had a quadratic solver mod, though. You had to type the answer right to deal damage to the enemy.