My improv factoring prgm

Forum Attachments

Summary:

Need some help editing it, huge bugs

My improv factoring prgm

L1k3awh15p3r 18 Jul 2013 05:00

So I tried making my very own factoring program, and it truly failed miserably. This is my code:

PROGRAM:A
:ClrHome
:Prompt A
:For(X,1,A
:A/X→Y
:If fPart(Y)=0
:Then
:For(M,1,(A/2
:For(N,1,(A/2
:Y→L₁(M)
:A/Y→L₁(N)
:End:End:End
:Disp L₁

First off, it took a super long time, like ten seconds. Then it displayed an infinite list of 1s. My testing number for A was 49… My guess is that it displayed 49 1s. I think I can edit my For loop to better complement larger numbers, and I know for a fact that my List has a huge problem. Any help, guys? Or do any of you have your own, working code?

the whisper guy

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: My improv factoring prgm

Timothy Foster 18 Jul 2013 11:05

Is your expected output {1, 7, 49}? If so, then you only need a single loop (If the Ans optimizations are failing, then just use L₁; don't have a calc anymore so this is purely off memory and similar to what I would do in other programming languages):

:Prompt N
:{1,N
:For(I,2,sqrt(N))
:If not(fPart(N/I
:augment(Ans,{I,N/I
:End
:Ans→L₁
:SortA(L₁
:Disp L₁

Assuming "factoring" means finding a list of multiplicative pairs for the given number (I'm assuming that based on what it appears your program intends), then you only need to check when N/I is an integer. If it is, then push the pair into the current list, and if not, check the next possible number. In the end, the running list is jumbled, so sorting it will make it look pretty. If this is being used within another program, though, I actually would not sort the list in order to make it more easily interpreted by future algorithms (depending on what the algorithms do of course).

If you want prime factorization, then TI-BD has what you are looking for.

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Last edited on 18 Jul 2013 11:07 by Timothy Foster Show more

Re: My improv factoring prgm

L1k3awh15p3r 19 Jul 2013 05:20

Thanks Timothy, this is what I was looking for. I needed this factoring method to help me with a program I am making to assist me solve quadratic functions using the "completing the square" method. Now my next step is to figure out a way to find how many variables are in a list.

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Last edited on 19 Jul 2013 05:22 by L1k3awh15p3r Show more

Eli (guest) 05 Aug 2013 20:10

Wouldn't dim(L1) return how many are in the list?