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.
TI-Basic =>
TI-BASIC
| Author |
Message |
|
IAmACalculator
In a state of quasi-hiatus
Know-It-All
Joined: 21 Oct 2005
Posts: 1571
|
 Posted: 18 Apr 2006 08:22:50 pm Post subject: |
|
|
MeBeatYou wrote: Does anyone know how I can "port" this to the 89 Titanium? I forgot to mention that this is for the 89 Titanium  My mistake... If anyone could help me out, that would be great.
[post="75982"]<{POST_SNAPBACK}>[/post]
[font="courier new"]
Fact(A,B,C)
ClrIO
Local A,B,C,tmp
Disp "ax²+bxy+cy²",""
abs(A)→tmp
For D,tmp,-tmp,-1
D-not(D)→D
If not(fPart(A/tmp) Then
int(√(abs©))→tmp
For E,-tmp,tmp
When(E=0,E,E+1)→E
If B=tmp*D+AC/(Ans*D) and not(fPart(C/tmp))
Goto 0
EndFor
EndIf
EndFor
Output 7,4,"NO FACTORS"
Stop
Lbl 0
gcd(abs(D),abs(C/tmp))→tmp
{tmp,D/tmp,C/E/tmp,A/D,E}→tmp
ClrIO
Disp "a(bx+cy)(dx+ey)",""
For A,1,5
Disp sub("abcde",A,1)+"="
Output A+2,3,tmp*A
EndFor
That was off the top of my head, so it probably doesn't work, and I probably messed everything up, but it's a start. I don't think [font="courier new"]ans works on the 89. Also, the [font="courier new"]output stuff will not work for sure.
Last edited by Guest on 18 Apr 2006 08:38:21 pm; edited 1 time in total |
|
| Back to top |
|
|
programmer_to_be
Jesus is my Lord and Saviour.
Elite
Joined: 07 Feb 2006
Posts: 755
|
| Posted: 18 Apr 2006 08:29:24 pm Post subject: |
|
|
You could probably ask on the 89 forums.  People would probably be alot more help there than here as this is the 83/84 Basic forum. Good luck! |
|
| Back to top |
|
|
MeBeatYou
Member
Joined: 29 Sep 2005
Posts: 178
|
| Posted: 19 Apr 2006 05:02:19 pm Post subject: |
|
|
Somebody told me on the MaxCoderz forum that there is just a Factor( button on the TI-89  What a huge waste of my time |
|
| Back to top |
|
|
IAmACalculator
In a state of quasi-hiatus
Know-It-All
Joined: 21 Oct 2005
Posts: 1571
|
| Posted: 19 Apr 2006 05:51:45 pm Post subject: |
|
|
| Um... Well, yes. I had thought that you wanted to write your own. Otherwise I would have told you. |
|
| Back to top |
|
|
MeBeatYou
Member
Joined: 29 Sep 2005
Posts: 178
|
| Posted: 20 Apr 2006 02:36:51 pm Post subject: |
|
|
Weregoose wrote: But they offer no programming experience. ;)
[font="courier new"][size=2]ClrHome
Disp "ax²+bxy+cy²","
Input "a=",A
Input "b=",B
Input "c=",C
abs(A
For(D,Ans,‾Ans,‾1
D-not(D→D
If not(fPart(A/Ans
Then
int(√(abs(C
For(E,‾Ans,Ans
E+not(E→E
If B=AnsD+AC/(AnsD) and not(fPart(C/Ans
Goto 0
End
End
End
Output(7,4,"NO FACTORS
Stop
Lbl 0
gcd(abs(D),abs(C/Ans
{Ans,D/Ans,C/E/Ans,A/D,E
ClrHome
Disp "a(bx+cy)(dx+ey)","
For(A,1,5
Disp sub("abcde",A,1)+"=
Output(A+2,3,Ans(A
End
[/color]
Be warned that this won't factor by grouping, but see if it works.
[post="74426"]<{POST_SNAPBACK}>[/post]
Well goose sorry it's been a while but I found one flaw in this program... It works great but how can i get it to factor trinomials that factor but have imaginary solutions? Like 4X^2 + 12X + 25 --- This factors into (2X-i)(2X+7i) [i think... not positive... but i know it factors]... how do i get this to work? |
|
| Back to top |
|
|
thornahawk
μολών λαβέ
Active Member
Joined: 27 Mar 2005
Posts: 569
|
| Posted: 21 Apr 2006 11:02:28 am Post subject: |
|
|
Threads like this are tempting me to just slap the little robust quadratic solver I have posted a while back in my signature. :roll:
thornahawk |
|
| Back to top |
|
|
MeBeatYou
Member
Joined: 29 Sep 2005
Posts: 178
|
| Posted: 21 Apr 2006 11:23:40 am Post subject: |
|
|
| Well if you would like to, go ahead and put the code in this post for everyone to see :biggrin: |
|
| Back to top |
|
|
|
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
