This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Author Message
thornahawk
μολών λαβέ


Active Member


Joined: 27 Mar 2005
Posts: 569

Posted: 29 Nov 2007 07:52:53 am    Post subject:

I had promised in a post I had made a while back to upload some of the programs I had made for operating on polynomials (as lists of their coefficients).

Unfortunately, all I could retrieve from my busted hard drive are POLADD (polynomial addition), POLMUL (polynomial multiplication), and POLDIV (polynomial division). The convention I used is constant term first, e.g. 2x+3 would be represented as the list {3,2}.

I now upload this to United-TI, for everyone's free use.

thornahawk
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 01 Dec 2007 12:10:02 am    Post subject:

I'm rather curious about POLADD. Its operation is identical to:

Prompt L1,L2
max(dim(L1),dim(L2→dim(L1
Ans→dim(L2
L1+L2

Why the excess fluff?


Last edited by Guest on 04 Sep 2010 07:38:47 pm; edited 1 time in total
Back to top
thornahawk
μολών λαβέ


Active Member


Joined: 27 Mar 2005
Posts: 569

Posted: 01 Dec 2007 01:01:40 am    Post subject:

My intent back then was to preserve the input, should it ever have to be reused. If the user does not mind the input lists being modified, what you have there is of course the more compact approach. :)

I had thought of rewriting POLDER (polynomial derivative) and POLQ (integral of a polynomial from an arbitrary lower limit), two of the programs which I could not retrieve, but then recalled that there was a TI-BASIC challenge that you proffered a while back for polynomial derivatives, and with some modification, could be made to work for integrals. :)

The others... I'll upload once I reconstitute them.

thornahawk
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 01 Dec 2007 03:48:49 am    Post subject:

Funnily enough, I had never posted the solution to that challenge. Here you go:

While 1≠dim(Ans
Pause seq(Ans(X)(dim(Ans)-X),X,1,dim(Ans)-1
End


Last edited by Guest on 04 Sep 2010 07:38:01 pm; edited 1 time in total
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 21 Apr 2010 03:33:18 pm    Post subject:

Crosspost from TI|BD:

0L1
For(X,1,dim(Ans
augment(Ans,{0})+augment(0rand(X),L1L2(X
End
[font=times new roman]
List(cumSum(Ans
Back to top
Display posts from previous:   
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
    »
» View previous topic :: View next topic  
Page 1 of 1 » All times are UTC - 5 Hours

 

Advertisement