Optimize my program?

(no title)

Wed, 25 Feb 2015 13:02:06 +0000

No! If the things to output vary in length then they will overlap or have space in-between.

(no title)

Wed, 25 Feb 2015 03:51:32 +0000

Teechnically, you can string arguments together with Output() if you use multiple Output commands. I see what you're saying though.

(no title)

Mon, 23 Feb 2015 00:57:11 +0000

ClrHome Prompt A,B,C ~2C/(B+{~1,1}sqrt(B^2-4AC->L1 {0,1->L2 {0,abs(L1(1->L3 LinReg(ax+b) L2,L3,Y1 Equ>String(Y1,Str1 {0,abs(L1(2->L3 LinReg(ax+b) L2,L3,Y1 Equ>String(Y1,Str2 DelVar Y1"-->Str3 If 0>L1(1 "+->Str3 "- If 0>L1(2 "+ "(X"+Str3+sub(Str1,1,length(Str1)-3)+")(X"+Ans+sub(Str2,1,length(Str2)-3)+")

All Home Screen. Perfectly on spec. Enjoy.

(no title)

Mon, 23 Feb 2015 00:37:37 +0000

Ugh. Been snowed in with sick stomach bug. Will try tomorrow. Sorry to be late…

(no title)

Thu, 19 Feb 2015 20:22:54 +0000

Problem Solved…

Thread Closed…

(no title)

Thu, 19 Feb 2015 20:06:53 +0000

Thnks…i'm ok with it… :)

(no title)

Thu, 19 Feb 2015 20:03:26 +0000

This is why I used Text() the first time. With Text(), you can chain all of the answer as multiple arguments. You can not do the same with Output(). If you feel like converting a number to string multiple times and concatenate the string with the rest of the answer, then go ahead. However, this will greatly increase the size of the program. I believe that the program does factor a quadratic function completely and displays a result that can be interpreted with ease.

(no title)

Thu, 19 Feb 2015 19:43:46 +0000

Questions:

If i input the problem "9x^2+12x+4", it displays "1 (3 x+2 )(3 x+ 2 )

Is there a way to remove this extra spaces between the numbers???

(no title)

Thu, 19 Feb 2015 18:57:24 +0000

You just have to change the Output() locations. Replace the Output() commands with these.

Output(1,4,"( X+ )( X+ ) Output(1,1,real(Ans(1 Output(1,5,imag(Ans(2 Output(1,9,real(Ans(2 Output(1,14,imag(Ans(3 Output(1,19,real(Ans(3

(no title)

Thu, 19 Feb 2015 18:47:14 +0000

I actually have Ti-84 Plus C SE, which has supports way more pixels than a monochrome screen

Re: Optimize my program?

Thu, 19 Feb 2015 18:29:08 +0000

Weregoose's code does use that single line of code in his program. However, the algorithm also provides the logic to convert them to integers and formats them to a quasi-familiar form.
Is there a better way to do this?

(no title)

Thu, 19 Feb 2015 18:23:05 +0000

Instead of using Text() to display anything on the graphscreen, you could use Disp, Output, or Pause to display it on the homescreen. Instead of using one Text() command, you can use several Output commands to display the answer. However, if the numbers are larger than the spaces provided they may cover up some of the answer. The following code was developed with the monochrome calculators in mind, which have 16 character width screen.

Prompt A,B,C C+B[i]-A→D round(Ans/([i]+2C/(B+{1,⁻1}√(B²+4AC[i]² Ans/gcd(abs(real(Ans)),abs(imag(Ans augment({D/prod(Ans)},Anstanh(ᴇ9A ClrHome Output(1,3,"( X+ )( X+ ) Output(1,1,real(Ans(1 Output(1,4,imag(Ans(2 Output(1,7,real(Ans(2 Output(1,11,imag(Ans(3 Output(1,14,real(Ans(3 "

This code was compiled with TokenIDE. [i] represents the imaginary i.

(no title)

Thu, 19 Feb 2015 18:10:32 +0000

i dont want that…the answer should be on the home screen itself??

(no title)

Thu, 19 Feb 2015 17:59:32 +0000

You can add the following code to the end of the second solution code block from above.

Text(⁻1,0,0,real(Ans(1)),"(",imag(Ans(2)),"X+",real(Ans(2)),")(",imag(Ans(3)),"X+",real(Ans(3)),")

This will reformat the output to the format you want.

(no title)

Thu, 19 Feb 2015 14:52:56 +0000

Can you write the program in the way you want?

Re: Optimize my program?

Thu, 19 Feb 2015 13:20:09 +0000

You don't need a complex algorithm to solve this problem. Just use the quadratic formula to obtain the roots (which only needs a single line of code), check if both Ar₁ and Ar₂ are integral, then the factored version is A(x - r₁)(x - r₂). You can use additional logic to convert this into the more familiar (ax - b)(cx - d) form.

(no title)

Thu, 19 Feb 2015 12:16:52 +0000

Thanks for your reply….but i think what you have provided is not what i want…

My quadratic formula is "AX^2+BX+C"

But the program that you have provided uses "ax²+bxy+cy²"

The second program you have provided outputs answer in form of three term list…but that not what i want because the program that i'm currently using displays the answers in this format : "(x+3)(x+2)"….

Thanks for your efforts anyways….

(no title)

Thu, 19 Feb 2015 12:06:36 +0000

Yes

Re: Optimize my program?

Thu, 19 Feb 2015 05:26:58 +0000

I feel as if I have seen this exact code somewhere else…. In fact, I used this code and optimized it myself a couple years ago until I found better code which accomplish the same goal.

The first solution is provided here. The code is provided below.

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

Another solution can be found here. I reproduced it below. Note: This program uses real(). Therefore, make sure there are no conflicting libraries.

Prompt A,B,C C+Bi-A→D round(Ans/(i+2C/(B+{1,‾1}√(B²+4ACi² Ans/gcd(abs(real(Ans)),abs(imag(Ans augment({D/prod(Ans)},Anstanh(ᴇ9A

This code outputs Ans in the form of a three term list. If the format of the factored equation is A(Bx+C)(Dx+E), then the first term of the list is A, the second term is (C+Bx), and the third term is (E+Dx). You can think of the i replacing the x. For example, to solve x²+5x+6=0 you would define A=1, B=5, and C=6. The output in Ans would be {1 3+i 2+i} which means 1(3+x)(2+x) or (x+3)(x+2).
For further explanation on how this program works, visit the topic linked above.

Re: Optimize my program?

Thu, 19 Feb 2015 02:28:05 +0000

Just making sure, when you use "!=" you mean "≠", right?

(no title)

Thu, 19 Feb 2015 02:23:16 +0000

Thank you for your efforts…..waiting eagerly

(no title)

Thu, 19 Feb 2015 02:09:20 +0000

Yes, I will post completely optimized within 24 hours.

(no title)

Wed, 18 Feb 2015 23:46:30 +0000

Could anyone one of you please rewrite the program for me???

Re: Optimize my program?

Wed, 18 Feb 2015 21:39:16 +0000

As earthnite was saying, don't use Lbl's and Goto's.
Since you are using a Goto (Lbl) inside a If..Then..End block to jump outside of that block, it will cause memory leaks.

Re: Optimize my program?

Wed, 18 Feb 2015 21:20:57 +0000

replace inputs with Prompt A,B,C

Re: Optimize my program?

Wed, 18 Feb 2015 21:15:37 +0000

Optimize my program?

Wed, 18 Feb 2015 18:05:48 +0000

This program can be used to factorize a quadratic function.

Is their a way it can be optimized, tweaked, or improved?

Any suggestions will be appreciated :)

ClrHome 1->D 1->F Disp "AX^^2+BX+C" Input "A: ",A Input "B: ",B Input "C: ",C ClrHome Lbl 1 A/D->E C/F->G If E!=round(E,0 Then D+1->D Goto 1 End If G!=round(G,0 Then F+1->F 1->D Goto 1 End If DG+FE=B Then Goto Z Else D+1->D End If D>abs(A Then ~D->D D+1->D End If D=0 Then F+1->F 1->D End If F>abs(C Then ~F->F F+1->F End If F=0 Then Disp "NOT FACTORABLE" Stop Else Goto 1 End Lbl Z Output(1,1,"( X+ )( X+ )" If D<1 and E<1 Then ~D->D ~E->E ~F->F ~G->G End Output(1,2,D Output(1,6,F Output(1,10,E Output(1,14,G Pause ClrHome Stop