Math Programs With Code

[NotYourLoginID]

[font="Courier New"]Hello, I'm not the best programmer, but I do enjoy making math programs on my TI83+ (Especially during geometry class). I have a few programs that I'm willing to share with anyone who wants them. Feel free to post your own, and I encourage all the "MASTERS" out there to help perfect them. BTW there not all Math programs... I lied...sorry!

[ticalcnoah]

OK can we see them?

[NotYourLoginID]

First up is my favorite, My "Tetris" Virus. THIS IS NOT A VIRUS It only makes the people who aren't smart enough to click ON to end the program get mad. Its funny, and I am very proud of it.It does nothing to your calculator at all.It runs in Mirage OS and also runs by selecting it from the program menu as long as it isn't archived.

P.S. Before you post and say "Why is it called Tetris" read this:
It is called Tetris because all the people I know who have calculator games are always asking me for it. I decided to play a trick on them so they would FINALLY STOP ASKING!




::"Tetris v.3.6
:5->G
:14->D
:-4->θ
:Goto SG
:Lbl RL
:If X=79
:Goto BM
:If θ=76
:Then
:-4->θ
:D=7->D
:End
:θ+4->θ
:randInt(0,1)->N
:If θ=36
:Then
:Text(D,θ," "
:θ+4->θ
:End
:Text(D,θ,N)
:X+1->X
:Goto RL
:Lbl ED
:If V<0
:Goto Aθ
:Horizontal V
:V-1->V
:Goto ED
:Lbl Aθ
:1->A
:For(A,1,25)
:Output(1,1," "
:DispGraph
:End
:Disp "ERROR"
:1->A
:For(A,1,50)
:Disp "","","","" \\I Just made up a random jumble of Text that was 4 lines long... you can make up your own
:End
:ClrHome
:1->A
:For(A,20,25)
:Output(2,1,"Did I Scare You?"
:End
:For(A, 25,50)
:Output(3,1,"You Should Have"
:Output(4,1,"Seen The Look On"
:Output(5,1,"Your Face!"
:End
:For(A,50,75)
:Output(7,1,"You've Just Been"
:Output(8,1,"PUNKED!"
:End
:Pause
:Return
:Lbl BM
:ClrDraw
:DispGraph
:1->A
:Text(0,15,"THIS"
:Text(7,15,"CALCULATOR"
:Text(14,15,"WILL"
:Text(21,15,"SELF-DESTRUCT"
:1->A
:Text(28,15,"IN:"
:For(A,1,8)
:5->K
:End
:Lbl Tθ
:64->V
:If K<0
:Goto ED
:DispGraph
:1->A
:For(A,1,15)
:Text(28,25,K
:End
:K-1->K
:1->A
:Goto Tθ
:Lbl SG
:15->X
:0->Xmin
:94->Xmax
:1->Xscl
:0->Ymin
:62->Ymax
:1->Yscl
:1->Xres
:RectGC
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ClrHome
:ClrTable
:ClrDraw
:For(A,1,10)
:Text(-1,4,25,"LOADING"
:DispGraph
:End
:Line(15,50,15,44)
:Line(79,50,79,44)
:Lbl CD
:If X=31
:Goto V1
:If X=46
:Goto V2
:If X=57
:Goto V3
:If X=78
:Goto V4
:If X=>79 \\"=>" means "Equal to or greater than"
:Goto VF
:Lbl NX
:X+1->X
:Line(X,49,X,45)
:DispGraph
:Goto CD
:Lbl VT
:Return
:Lbl V1
:Text(21,10,"Trojan8Vxr.exe Opened"
:Goto NX
:Lbl V2
:1->A
:For(A,1,5)
:Text(28,10,"Extracting Files:"
:End
:Text(28,76,"Done"
:Goto NX
:Lbl V3
:1->A
:For(A,1,4)
:Text(35,10,"Clearing RAM:"
:End
:Text(35,76,"Done"
:Goto NX
:Lbl V4
:1->A
:For(A,1,8)
:Text(42,10,"Clearing Archive:"
:End
:Text(42,76,"Done"
:Goto NX
:Lbl VF
:ClrDraw
:1->A
:For(A,1,3)
:Text(0,0,"Removing Operating System:"
:End
:Text(7,0,"In Progress:"
:0->X
:Goto RL

[NotYourLoginID]

[font="Comic Sans MS"]V 2.3

This Is My Number "Factorer"...I love it, Made it in 45 min! It shows all the factors of a number....however it takes some time to work...I gave it a counter that tells you how many seconds are left. Its my first version, and it is only really good for numbers under a thousand. It can do higher, but the display might become a bit jumbled then. Runs in Mirage OS


::"Factor The Number
:Lbl BG
:ClrHome
:SetUpEditor
:ClrList ∟FIRST
:ClrList ∟SECND
:99→dim(∟FIRST,∟SECND)
:Imput "Number? ",X
:If X≤0
:Goto NV
:If X≥10000
:Goto TH
:If X≠int(X)
:Goto WN
:X→A:0→L
:ClrHome
:Lbl DN
:int(A/7)→S
:Output(4,4,"Loading..."
:Output(7,1,"Seconds"
:Output(8,1,"Left:"
:Output(8,6,S)
:If A=700 or A=70
:ClrHome
:If A<1
:Goto DS
:X/A→B
:If B=int(B)
:Goto SN
:A-1→A
:Goto DN
:Lbl SN
:L+1→L
:B→∟FIRST(L)
:A→∟SECND(L)
:A-1→A
:Goto DN
:Lbl DS
:ClrHome
:1→G
:2→C
:1→D
:1→L
:Output(1,1,"Nmbr:")
:Output(1,7,X)
:Lbl D1
:If ∟FIRST(L)=0 or ∟SECND(L)=0
:Goto FN
:If L≥3:Then
:Goto A1
:Else
:Goto A2
:End
:LblA1
:L-1→P
:L-2→Q
:If ∟FIRST(L)=∟SECND(P) or ∟FIRST(L)=∟SECND(Q)
:Goto FN
:Lbl A2
:If C>8:Then
:2→C
:9→D
:End
:If G>13
:Goto OF
:Output(C,D,∟SECND(L)
:Output(C,D+4,"*"
:Output(C,D+5,∟FIRST(L)
:G+1→G
:L+1→L
:C+1→C
:Goto D1
:Lbl FN
:Output(1,12,"Done"
:Pause
:Return
:Lbl OF
:Output(8,10,"-More-"
:Pause
:ClrHome
:1→G
:Output(1,1,"Nmbr:"
:Output(1,7,"X"
:2→C
:1→D
:Goto D1
:Lbl TH
:ClrHome
:Disp "Number To High!","","Number Must","Be Between","0 and 9999"
:Pause
:Goto BG
:Lbl WN
:ClrHome
:Disp "Wrong Value!","","You May Only","Enter Whole","Numbers."
:Pause
:Goto BG
:Lbl NV
:ClrHome
:Disp "Number To Low!","","Number Must","Be Between","0 and 9999"
:Goto BG




This Program is Very useful... Post your comments and reviews, and if you can post any adjustments you can think of...I'll continue to Edit this as i find Changes

NOTE: This was written and used on a TI-83 Plus, Better calculators, such as the TI84 might need to make adjustments to get the second counter at the begining correct...[I envy all of you with TI84's....Lucky people with faster better calculators and a built in USB port :'( ]

[woodswolf]

I would be nice, if you just uploaded the files.
It takes to long to copy the code and it's boring.

If you would upload them, I would check them for sure!

[NotYourLoginID]

I would Do that if i had a cable and if the software didn't crash my computer!

[Eeems]

get a cable, and maybe install it at school?

[simplethinker]

[NotYourLoginID]

Thanks simplethinker! Ill be sure to do so, thou i dont like codeboxes as much as just displaying them

[NotYourLoginID]

[simplethinker]

If you have something to add to your post, you can hit "Edit" (near the lower-right corner of the post) and modify your post instead of double-posting .

[Weregoose]

Being one to prefer simple I/O over a classy interface...

Input A
{1:For(B,2,√(A
If not(fPart(A/B
augment({B},Ans
End
Ans→A
SortA(LA
augment(LA,A/Ans

You can also use:

Input A
ClrDraw
0:For(B,1,√(A
If not(fPart(A/B
Then
Text(6Ans-60(Ans>9),48(Ans>9),B,"·",A/B
Ans+1
End
End

[Eeems]

[NotYourLoginID]

Whoa! i havent been on in a while.... Weregoose...you need to explain that code for me i only no basic BASIC

[dxfan101010]

It Is Basic just done to a crazy optimized state

[Weregoose]