Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Mandelbrot set ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Game for CalcNerd's Youtube Channel ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Game for CalcNerd's Youtube Channel ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Conway's Game of Life Help ]]>

Game Of Life

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Conway's Game of Life Help ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Conway's Game of Life Help ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: ACT calculator rules for programs that do symbolic math or make use of a "CAS" ]]>

Any insight is appreciated!

Source:

` ``:Plot1(Scatter,X,Y,. :∟X→P:∟Y→Q :Repeat getKey or S<2 :∟P→X:∟Q→Y :DispGraph :DelVar ∟PDelVar∟Q1→S :For(X,min(∟X)-1,1+max(∟X :For(Y,min(∟Y)-1,1+max(∟Y :sum(1=max(abs(∟X-X),abs(∟Y-Y :3=Ans or 3=Ans-max(∟X=X and ∟Y=Y :If Ans:Then :X→∟P(S :Y→∟Q(S :S+1→S :End:End :End:End :PlotsOff :ClrHome:"`

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Conway's Game of Life Help ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: ACT calculator rules for programs that do symbolic math or make use of a "CAS" ]]>

` ``PRGM: CONTRAST :AsmPrgmEFD74AEFEF4AC6D8D8D3107B324784C9`

` ``PRGM: ASMS1 :AsmPrgm213F960E40060CB7CB162B10FB0D20F5EF6A48C9`

` ``PRGM: ASMR1 :AsmPrgm2140930E40060CB7CB1E2310FB0D20F5EF6A48C9`

` ``PRGM: NBRD :Vertical Xmin :Vertical Xmax :Horizontal Ymin :Horizontal Ymax`

` ``PRGM: NSETUP :1->Q :SetUpEditor |LNDTA :If not(dim(|LNDTA :5->dim(|LNDTA :SetUpEditor |LNSHP :If not(dim(|LNSHP :{50,300,200,250,0,0,0->|LNSHP :SetUpEditor |LNP :If not(dim(|LNP :{0,0,5,0,50,1,0,0,50,30,0->|LNP :SetUpEditor NSC :If not(dim(|LNSC :22->dim(|LNSC :SetUpEditor |LNE :If not(dim(|LNE :{10,10,4,10->|LNE :SetUpEditor |LNCLS :If not(dim(|LNCLS :{1->|LNCLS`

` ``PRGM: ASMU1 :AsmPrgm214C9311409301F402EDB0EB010C00EF304CEF6A48C9`

` ``PRGM: INFINITE :29->P :Asm(prgmCONTRAST :Goto 1 :Lbl BG :ClrDraw :For(A,0,30,2 : A : Asm(prgmCONTRAST :End :Lbl 1 :ClrDraw :AxesOff:FnOff :ClrHome :0->Xmin:94->Xmax :0->Ymin:62->Ymax :Text(28,33,"INFINITE : :Line(46,18,46,13 :Line(48,11,48,20 :Pt-On(47,12 :Pt-On(46,35 :Pt-On(48,35 :Line(50,36,44,36 :Line(45,37,49,37 :Line(47,40,47,38 : :Line(44,19,41,19 :Line(45,20,40,20 :Line(40,21,40,26 :Line(39,25,39,21 :Line(41,27,45,27 :Line(46,26,40,26 :Pt-On(45,25 :Pt-On(41,25 :Pt-On(41,21 :Pt-On(45,21 :Line(46,26,46,23 :Line(47,21,47,25 :Line(48,23,48,20 :Line(49,21,49,19 :Line(50,20,54,20 :Line(53,19,49,19 :Pt-On(53,21 :Line(54,20,54,26 :Line(55,25,55,21 :Pt-On(53,25 :Line(54,26,49,26 :Line(50,27,53,27 :Pt-On(49,25 :Text(57,0,"( :For(A,2,94 : Text(57,A,") :End :For(A,0,94,5 : Text(~1,55,A," :End :For(A,29,1,~5 : A : Asm(prgmCONTRAST :End :Lbl MK :For(A,1,21 : Asm(prgmASMU1 :End :SetUpEditor |LNP :If not(dim(|LNP:Then : Text(29,33,"NEW GAME :Else : Text(29,32,"CONTINUE :End :Text(35,38,"STATS :Text(41,26,"ACHEIVMENTS :Text(47,32,"PASSCODE :Text(53,40,"QUIT :StorePic 4 :For(A,0,30,5 : A : Asm(prgmCONTRAST :End :Lbl ML :ClrDraw :RecallPic 4 :Lbl 3 :Repeat K=21 : getKey->K : If Ans:Then : Text(P,2," : Text(P,90," : End : P+6(K=34)(P<53)-6(K=25)(P>29->P : Text(P,2,"> : Text(P,90,"< :End :If P=53:Goto Q :If P=29:Goto CL :If P=35:Goto HS :If P=41:Goto AC :If P=47:Then : SetUpEditor |LNP : If not(dim(|LNP)):Then : Lbl HS : For(X,1,3 : Asm(prgmASMS1 : Asm(prgmASMR1 : End : Goto 3 : Else : If |LNP(11)=1:Then : For(X,1,3 : Asm(prgmASMS1 : Asm(prgmASMR1 : End : Goto 3 : Else : Goto PC : End : End :End :Lbl Q :ClrDraw :ZStandard :AxesOn:FnOn :Disp :Stop :Lbl PC :ClrHome :SetUpEditor |LNP :0->A :Repeat A>3 : Input "PASS:",Str5 : If Str5="README":Then : Disp "YAY!" : |LNP(4)+2000->|LNP(4 : |LNP(10)+100->|LNP(10 : 1->|LNP(11 : Pause : Output(4,1,"2000 G and 100 D have been addedto your game : Pause : ClrHome : Goto ML : Else : A+1->A : Disp "NAY! >:( : End :End :Goto ML :Lbl AC :SetUpEditor |LNSC :If not(dim(|LNSC :22->dim(|LNSC :UnArchive |LNSC :ClrDraw :Horizontal 54 :Vertical 52 :prgmNBRD :Text(1,2,"Acheivments :SetUpEditor |LNDTA,|LNSC :5->dim(|LNDTA :22->dim(|LNSC :0->C :For(A,25,100,25 : C+1->C : If |LNDTA(1)>=A : 1->|LNSC(C : If |LNDTA(2)>=A/2.5 : 1->|LNSC(C+4 : If |LNDTA(3)>=240A : 1->|LNSC(C+8 : If |LNDTA(4)>=A/5 : 1->|LNSC(C+12 : If |LNDTA(5)>=40A : 1->|LNSC(C+16 :End :3->X:~2->Y :For(theta,1,4 : Y+3->Y : X+6->X : Text(X,2,"Slayer",sub("I II IIIIV ",Y,3 :End :~2->Y :For(theta,1,4 : X+6->X : Y+3->Y : Text(X,2,"Challenger",sub("I II IIIIV ",Y,3 :End :3->X :For(theta,1,8 : X+6->X : theta->Y : Text(X,54,sub("INCOMPLETECOMPLETE ",1+10(|LNSC(Y)=1),10 :End :Pause :ClrDraw :Horizontal 54 :prgmNBRD :Vertical 52 :Text(1,2,"Acheivments :3->X:~2->Y :For(theta,1,5 : X+6->X : Y+3->Y : Text(X,2,"Wealth ",sub("I II IIIIV V ",Y,3 :End :~2->Y :For(theta,1,3 : X+6->X : Y+3->Y : Text(X,2,"K.O.",sub("I II III",Y,3 :End :3->X:9->Y :For(theta,1,8 : X+6->X : Y+1->Y : Text(X,54,sub("INCOMPLETECOMPLETE ",1+10(|LNSC(Y)=1),10 :End :Pause :ClrDraw :Horizontal 54 :Vertical 52 :prgmNBRD :Text(1,2,"Acheivments :3->X:~2->Y :For(theta,1,5 : X+6->X : Y+3->Y : Text(X,2,"XP ",sub("I II IIIIV V ",Y,3 :End :3->X:17->Y :For(theta,1,5 : Y+1->Y : X+6->X : Text(X,54,sub("INCOMPLETECOMPLETE ",1+10(|LNSC(Y)=1),10 :End :Pause :Archive |LNSC :Goto ML :Lbl CL :SetUpEditor |LNCLS :If not(dim(|LNCLS:Then : Goto NP :Else : Goto AP :End :Lbl NP :ClrHome :prgmNSETUP :ClrDraw :prgmNBRD :Text(2,2,"WORLD/CLASS SELECT :Text(17,2,"Grasslands :Text(23,2,"Forest :Text(29,2,"Ruins :Text(35,2,"Magma :Text(41,2,"Depths :Horizontal 52 :For(A,49,69,5 : Text(13,A,sub("AKNBW",(A-44)/5,1 :End :17->A :Repeat K=21 : getKey->K : If Ans : Text(A,38," : A+6(K=34)(A<41)-6(K=25)(A>17->A : Text(A,38,"< :End :~3->C :For(B,17,41,6 : C+4->C : If A=B:Then : C->|LNCLS(1 : C+10->|LNE(1 : Ans->|LNE(2 :End:End :49->A :Text(32,42,"Gold :Text(38,42,"Diamonds :Text(44,42,"HP :Text(50,42,"Attack :Repeat K=21 : getKey->K : If Ans : Text(19,A," : If A=49:Then : 2000->B:200->C:30->D:5->E : End : If A=54:Then : 1500->B:150->C:50->D:7->E : End : If A=59:Then : 1000->B:100->C:45->D:9->E : End : If A=64:Then : 300->B:10->C:90->D:15->E : End : If A=69:Then : 1500->B:50->C:55->D:10->E : End : A+5(K=26)(A<69)-5(K=24)(A>49->A : Text(19,A,"^ : Text(32,75,B," : Text(38,75,C," : Text(44,75,D," : Text(50,75,E," :End :B->|LNP(4 :C->|LNP(10 :D->|LNP(1 :Ans->|LNP(2 :E->|LNP(3 :sub("AKNBW",(A-44)/5,1->Str4 :Lbl AP :UnArchive |LNCLS :UnArchive |LNDTA :UnArchive |LNE :UnArchive |LNP :UnArchive |LNSC :UnArchive |LNSHP :ClrDraw :Line(2,20,92,20 :Line(1,19,1,17 :Line(93,17,93,19 :Line(2,16,92,16 :Line(22,15,22,0 :Horizontal 0 :Text(47,2,"STAGE :Text(48,24,"G: :Text(54,24,"D: :Text(48,42-4(|LNP(4)>=10)-4(|LNP(4)>=100)-4(|LNP(4)>=1000),|LNP(4 :Text(54,42-4(|LNP(10)>=10)-4(|LNP(10)>=100),|LNP(10 :Text(51,85-4(|LNP(7)>=10)-4(|LNP(7)>=100)-4(|LNP(7)>=1000),|LNP(7 :Text(48,58-4(|LNP(5)>=10),|LNP(5 :Text(~1,54,13-6(|LNP(8)>=10),|LNP(8 :For(X,46,52 : Text(54,X,sub("xo:[xbar]Y ",X-45,1 :End :Line(7,29,7,53 :Line(2,49,1,48 :Text(0,11-4(|LNP(1)>=10)-4(|LNP(1)>=100),|LNP(1 :Text(0,15,"/ :Text(0,27-4(|LNP(2)>=10)-4(|LNP(2)>=100),|LNP(2 :Text(0,74-4(|LNE(1)>=10)-4(|LNE(1)>=100),|LNE(1 :Text(0,78,"/ :"4int(log(Ans+not(Ans->|u :|LNP(4 :Text(48,42-|u,Ans :|LNP(10 :Text(54,42-|u,Ans :|LNP(7 :Text(51,85-|u,Ans :Text(48,58-|u,Ans :Text(~1,54,13-6(|LNP(8)>=10),|LNP(8 :For(X,46,52 : Text(54,X,sub("xo:[xbar]Y ",X-45,1 :End :0->W :For(Z,9,27,6 : For(theta,1,7 : Text(Z,theta,sub("xo:[xbar]Y ([i2( {y!y{ +:I:+ ",W+theta,1 : End : W+7->W :End :Line(7,29,7,53 :Line(2,49,1,48 :|LNP(1 :Text(0,11-|u,Ans :Text(0,15,"/ :|LNP(2 :Text(0,27-|u,Ans :|LNE(1 :Text(0,74-|u,Ans :Text(0,78,"/ :|LNE(2 :Text(0,90-|u,Ans :Text(48,52,": :Text(54,52,": :Text(51,63,"XP: :For(C,3,92,2 : Pt-On(C,19 : Pt-On(C-1,18 :End :Disp :rand(2 :DispGraph :Lbl WI :Text(36,26,Str4 :randInt(|LNCLS(1),|LNCLS(1)+3 :sub("x[xbar]y[ybar]FgHdVWSQmklLXYZtheta",Ans,1->Str1 :9->A :Lbl TR :Text(36,76,Str1 :Repeat K=21 : getKey->K : If Ans : Text(A,9," : If K=45:Then : Archive |LNCLS : Archive |LNDTA : Archive |LNE : Archive |LNP : Archive |LNSC : Archive |LNSHP : Goto Q : End : If K=22:Goto ML : A+6(K=34)-6(K=25->A : If A>27:9->A : If A<9:27->A : Text(A,9,"< :End :If A=9:Goto AK :If A=21:Goto IY :If A=15:Goto HL :If A=27:Goto DM :Lbl AK :randInt(~|LNE(4),|LNE(4),2 :If Ans(1)=Ans(2:Then : Text(29,66,"DODGED : rand(40 : Text(~1,29,66," : Goto ET :End :randInt(|LNP(3)-3,|LNP(3->D :|LNE(1)-D->|LNE(1 :Asm(prgmASMR1 :Asm(prgmASMS1 :Text(0,70," :If |LNE(1)<0 :0->|LNE(1 :|LNE(1 :Text(0,74-|u,Ans :If |LNE(1)=0:Then : For(C,1,2 : Asm(prgmASMS1 : Asm(prgmASMR1 : End : |LNP(8)+1->|LNP(8 : If Ans=20:Then : Text(9,22,"WORLD COMPLETE! : Pause : Text(16,33,"Continue? : Text(24,22,"1) YES : Text(24,61,"2) NO : Repeat max(K={92,93 : getKey->K : End : If K=92:Then : For(J,1,29 : Line(20+J,33,20+J,52,0 : Line(76-J,33,76-J,52,0 : End : Else : 0->|LNP(8 : Goto NP : End : End : Text(11,29,"Enemy Defeated! : |LNDTA(1)+1->|LNDTA(1 : randInt(100,150->Y : Y+|LNDTA(3->|LNDTA(3 : Y+|LNP(4->|LNP(4 : |LNP(4 : Text(48,42-|u,Ans : randInt(50,100->I : I+|LNDTA(5->|LNDTA(5 : I+|LNP(7->|LNP(7 : |LNP(7 : Text(51,85-|u,Ans : Text(48,58-4(|LNP(5)>=10),|LNP(5 : 1+|LNP(6->|LNP(6 : Text(~1,54,13-6(|LNP(8)>=10),|LNP(8 : 1+|LNDTA(2->|LNDTA(1 : 1+|LNE(3->|LNE(3 : 1+|LNE(2->|LNE(2 : Ans->|LNE(1 : |LNE(1 : Text(0,74-|u,Ans : |LNE(2 : Text(0,90-|u,Ans : |LNP(6 : Text(54,58-|u,Ans : randInt(10,20->J : J+|LNP(10->|LNP(10 : |LNP(10 : Text(54,42-|u,Ans : Text(17,30,"+",Y," G : Text(23,30,"+",I," XP : Text(29,30,"+",D," D : rand(50 : For(J,29,85 : Line(J,51,J,28,0 : End : Goto WI :Else : Goto ET :End:End :Lbl HL :If 0<|LNP(5:Then : |LNP(5)-1->|LNP(5 : |LNP(2->|LNP(1 : Text(48,58-4(|LNP(5)>=10),|LNP(5 : |LNP(1 : Text(0,11-|u,Ans :End :Goto ET :Lbl IY :ClrDraw :Text(~1,0,0,"UPGRADES :Horizontal 54 :Text(55,4,"Cost: :Text(11,4,"Attack(+2) :Text(22,4,"Defense(+0.01) :Text(33,4,"Max HP(+1) :For(C,44,22,~11 : Line(4,C,54,C : Line(55,C-1,55,C-2 : Line(4,C-3,54,C-3 : Line(3,C-1,3,C-2 :End :Text(49,60,"Gold: :|LNP(4 :Text(49,89-|u,Ans :42->B :For(C,5,7 : For(A,1,|LNSHP(C : Line(A+3,B,A+3,B+1 : End : B-11->B :End :41->L :While 1 : Repeat K=21 : getKey->K : If Ans:Then : Text(~1,48,77," : Line(0,L,0,L+9,0 : End : If K=45:Goto AP : L+11(K=25)(L<41)-11(K=34)(L>19->L : Line(0,L,0,L+9 : Text(55,20,|LNSHP((L+3)/11 : |LNP(4 : Text(49,89-|u,Ans : End : If |LNP(4)>=|LNSHP((L+3)/11:Then : |LNP(4)-|LNSHP(int(L/9->|LNP(4 : If L=41:Then : |LNP(3)+2->|LNP(3 : |LNSHP(5)+1->|LNSHP(5 : Line(Ans+3,42,Ans+3,43 : End : If L=30:Then : Q-.01->Q : |LNSHP(6)+1->|LNSHP(6 : Line(Ans+3,31,Ans+3,32 : End : If L=19:Then : |LNP(2)+2->|LNP(2 : Ans->|LNP(1 : |LNSHP(7)+1->|LNSHP(7 : Line(Ans+3,21,Ans+3,20 : End : End : |LNP(4 : Text(49,89-|u,Ans :End :Lbl ET :randInt(~1,1,2 :If Ans(1)=Ans(2:Then : Text(29,17,"DODGED : rand(40 : Text(~1,29,17," : Goto TR :End :randInt(|LNE(3)-3,|LNE(3->D :int(DQ->D :Asm(prgmASMS1 :Asm(prgmASMR1 :|LNP(1)-D->|LNP(1 :Text(0,3," :|LNP(1 :Text(0,11-|u,Ans :If |LNP(1)<=0:Then : If M=1:Then : |LNP(2->|LNP(1 : 0->M : |LNP(1 : Text(0,11-|u,Ans : Goto TR : Else : For(C,1,2 : Asm(prgmASMS1 : Asm(prgmASMR1 : End : Text(21,33,"GAME OVER : |LNDTA(4)+1->|LNDTA(4 : Pause : For(C,30,1,~5 : C : Asm(prgmCONTRAST : End : DelVar |LNP : DelVar |LNE : DelVar |LNSC : DelVar |LNDTA : DelVar |LNCLS : DelVar |LNSHP : ClrDraw : Goto BG : End :End :Goto TR`

I do not take credit for any of this code, I give it all to the creator, Battlesquid.

Forum category: General Discussion / Wiki Page Discussions

Forum thread: inFINITE Beta ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Programming functions ]]>

` ``Output(1,1,"Y= (X- )+") Output(1,3,Y₂(Z)) Output(1,11,A) Output(1,18,Y₁(Z))`

In this example I put 5 spaces between each part so that it will show up to five decimal places of the values, but you can adjust the number of spaces and the starting column (the second argument of the Output command) to make the numbers show up exactly how you want!

Two quick notes: For clarity I included the closing quotes/parenthesis on the end of each line, but to save space you can remove them, since the Output command works without them! Also, there may be a more complicated but more efficient way to achieve this same result by using the toString command. If you're interested I can explain it, or feel free to check out the toString command page for more info!

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Programming functions ]]>

I've played around with it and the 2nd one seems to be working perfectly, which I am thankful for.

To clarify what I am trying to do, I am trying to program the calculator into finding the tangent line of an equation I have given one point.

I know the formula y = Df(a)(x-a) + f(a) and I am trying to make usage of that.

` ``Input "Function:",Str1 StringEqu(Str1,Y₁ Input "Derivative:",Str2 StringEqu(Str2,Y₂ Input "X=",Z Y₂(Z)(X-A)+Y₁(Z)→Y Disp "Y=",Y`

This is what I currently have, this seems to be working well excluding the fact that it is giving a certain value to "X" and not leaving it just as "X"

For example it returns me "Y= 5" (Because it assumes that x = 0?

Is there a way to go around it or is it impossible?

Thanks

Edit: if not, is there a way to use matrices and display the coefficients or something similar, perhaps?

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Programming functions ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: ACT calculator rules for programs that do symbolic math or make use of a "CAS" ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

If you have a function stored to one of the Y= variables such as Y₁, you can use the notation Y₁(X) to return the y-value for a corresponding x-value. So simply ask the user to input a value for X, then display Y₁(X).

If you want the user to input a function *during* the program, instead of using one that was previously typed into the Y= page, you can use the Input command! Doing this

` ``Input "Y₁:",Y₁`

will take what is entered and store it to Y₁. However, using the Input command to store to Y₁ requires the user to put quotes around the function when they type it in, which I find annoying and unintuitive. Instead, you can do

` ``Input "Y₁:",Str1 StringEqu(Str1,Y₁`

This stores to a string variable, which doesn't need to be entered with quotes around it, and then stores that string to Y₁. The code is longer but provides a nicer experience, so take your pick!

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Programming functions ]]>

So I am working on a school project and I was wondering if there was a way to make a program that asks you to insert a function equation, together with an x variable. I want to have the calculator use that x variable to fill the equation in and return you the y value.

I need this to program something else which I have in mind.

I am a novice when it comes to programming but I catch on things quickly, if you can give me an idea or example of how to do it I will be sure to pick it up!

I am using a Ti-84 and the "Ti Connect CE" app to program my calculator.

Any help is very appreciated!

Thanks.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Programming functions ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

The "Goto7" redirects to the main menu page. I only put a snippet of the entire code here.

Would writing the equation something like this work?

If C-A=0

Then

(C-A)²+(D-B)²→X

√(X)→Y

Disp "SQRT",X

Disp "DISTANCE REAL",Y

Else

(C-A)²+(D-B)²→X

√(X)→Y

(D-B)/(C-A)→Z

Disp "SQRT",X

Disp "DISTANCE REAL",Y

Disp "SLOPE",Z

Thank you!

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

(Also, what Lbl is "Goto 7" directed at in your code? I didn't notice a "Lbl 7" anywhere.)

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

This is using the distance formula (line 7), then the slope formula (line 8).

Thank you!

Here's the code:

Lbl 1

ClrHome

Disp "Point A"

Prompt A,B

Disp "Point B"

Prompt C,D

(C-A)²+(D-B)²→X

√(X)→Y

(D-B)/(C-A)→Z

If Z>0

Disp "SQRT",X

Disp "DISTANCE REAL",Y

Disp "SLOPE",Z

Else

Disp "SQRT",X

Disp "DISTANCE REAL",Y

Pause

Goto 7

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: How to get the calculator to ignore the "Divide by Zero" rule ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: Forest Escape ]]>

Forum category: General Discussion / Humor & Jokes

Forum thread: jokes ]]>

Forum category: General Discussion / Humor & Jokes

Forum thread: jokes ]]>

a shovel is a gorundbreaking tool

how do u repair a pumpkin with a pumpkin patch

so i went to the doctor about the food coloring in my stomach he said i was fine but i feel like i am dyeing inside

judge: did you kill a person

suspect: no he died of naturel causes

judge: you pushed him off a roof

suspect: gravity is naturel

how does a joke become a dad joke when it become apparent

why are there no fat man in japan the last there was 50000 people died

what should you not bring to a drug deal a weed eater

why should you not fart in a apple store they have no windows

Forum category: General Discussion / Humor & Jokes

Forum thread: jokes ]]>

Forum category: General Discussion / Open Topic

Forum thread: XBox Series X ]]>

Forum category: General Discussion / Open Topic

Forum thread: Map Generation ]]>

Since the Xbox Series X uses a modified version of Windows 10, I'm sure at some point people will find exploits to install Linux

Forum category: General Discussion / Open Topic

Forum thread: XBox Series X ]]>

Forum category: General Discussion / Open Topic

Forum thread: Map Generation ]]>

Forum category: General Discussion / Open Topic

Forum thread: Map Generation ]]>

Forum category: General Discussion / Open Topic

Forum thread: Map Generation ]]>

Forum category: General Discussion / Open Topic

Forum thread: XBox Series X ]]>

Forum category: General Discussion / Open Topic

Forum thread: Map Generation ]]>

Forum category: General Discussion / Open Topic

Forum thread: XBox Series X ]]>

Forum category: General Discussion / Open Topic

Forum thread: Map Generation ]]>

Forum category: General Discussion / Wiki Page Discussions

Forum thread: BCBetaTetris ]]>

Okay now, so here's the fix. Scroll down to the line "0->C" a bit after Lbl 2. Insert "Lbl θ" (θ being the theta symbol) right between "I+4->I" and "0->C". That's step one. Step two: scroll down from there until you see the SECOND "Goto 1", NOT the first one you see after the line "If C≠ 13:Then". Once you scroll down to the correct "Goto 1" (right before "Lbl EN"), change it to "Goto θ" (θ being the theta symbol). That's all there is to it! Let me know how it works.

Forum category: General Discussion / Wiki Page Discussions

Forum thread: BCBetaTetris ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Game for CalcNerd's Youtube Channel ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Game for CalcNerd's Youtube Channel ]]>

Instructions: You start as a pixel in the top-left corner, and you must use the arrow keys to navigate to the bottom-right corner of the maze. If you run into a wall you die. If you die, you can load the last maze that was generated by pressing "LOAD" in the main menu of the game. Press [CLEAR] while playing to go back to the main menu. Make sure to always press "NEW" in the game's main menu when you first play.

*Note* — The sidewinder algorithm for maze generation works well, but it has some biases. So, while each

maze will be unique, many of them will be similar in overall structure. To experiment with different

configurations, edit the specified number that I have marked with a comment in the code (there are

only a couple comments in the code, so you can probably find it :D).

Here's the code (// indicates a comment and the indentation is just to make it look cleaner):

` ``PROGRAM: MAZE Lbl 3 ClrDraw AxesOff FnOff PlotsOff 0->Xmin 94->Xmax -62->Ymin 0->Ymax Menu("_MAZE_-_BY_JOE__" //Underscores are spaces ,"NEW",0 ,"LOAD",1 ,"QUIT",2 Lbl 0 Text(-1,1,65,"MAZE Line(61,-9,92,-9 For(X,1,61,2 Line(X,-1,X,-61 Line(1,-X,61,-X End Line(2,-2,60,-2,0 Pt-Off(61,-60 For(Y,2,30 1->R For(X,1,30 If X≠30 and randInt(0,1 // This is the line that I talked about in the *Note*. Right now, it's configured // so that 50% of the passages are carved horizontally and 50% are carved // vertically. To increase the number of horizontal passages carved, increase // the second argument (1) of randInt(). To increase the number of vertical passages // carved, change the randInt(0,1 to not(randInt(0,1 and increase the value of the // second argument (1) of randInt(). Then Pxl-Off(2Y,2X+1 Else Pxl-Off(2Y-1,2randInt(R,X X+1->R End End End StorePic 0 Lbl 1 RecallPic 0 2->X:2->Y:E3->S // "E" being the character found by pressing [2nd] and then the comma button Repeat K=45 or X=61 or pxl-Test(Y,X Pxl-On(Y,X Repeat Ans getkey->K End Pxl-Off(Y,X S-1->S X+(K=26)-(K=24->X Y+(K=34)-(K=25->Y End Text(15,65,"YOU"+sub("LOSEWIN!",1+4(X=61),4 Text(27,65,"SCORE: Text(-1,34,66,S(X=61 Pause ClrDraw ZStandard AxesOn ClrHome Goto 3 Lbl 2 Disp "83-2(20/4) // You don't need this, it just makes it look like you're 73 // doing math if a teacher walks by and you just quit the game. :D`

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Game for CalcNerd's Youtube Channel ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Kirby Games for TI 83/84+ in TI BASIC ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Kirby Games for TI 83/84+ in TI BASIC ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Kirby Games for TI 83/84+ in TI BASIC ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Kirby Games for TI 83/84+ in TI BASIC ]]>

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Matrix Question ]]>

` ``//If the matrix is filled with 0's and is a 2*2 matrix: {0,0}->L1 {0,0}->L2 //To store {1,2} in row 2: {1,2}->L2`

Keep in mind this approach will probably suck for checkers if the Y value is a variable each time you need to do this operation. Honestly, since you're dealing with a matrix, using a for( loop is your best bet.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Matrix Question ]]>

` ``For(Y,1,8 Ans→[A](Y,X End`

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Matrix Question ]]>

As the summary says, I am trying to put a one-line matrix into another matrix that is larger without defining the whole matrix. I am using this in a checkers program to define the positions of the checkers. I want to do something like this…

` ``[[1,0,1,0,1,0,1,0 ->[A] at a specific Y Ans->[A] Another Y Ans->[A] Another Y So on...`

I was wondering if anyone knows how to do this. If not I can just use a for loop, but I was thinking this would be more efficient.

Forum category: Programming & Design / TI-83/84/+/SE Programming

Forum thread: Matrix Question ]]>

Forum category: General Discussion / Tech Support

Forum thread: ti-83 errors ]]>

Forum category: General Discussion / Tech Support

Forum thread: ti-83 errors ]]>

Forum category: General Discussion / Open Topic

Forum thread: Older TI Calculators ]]>

Forum category: General Discussion / Open Topic

Forum thread: Older TI Calculators ]]>

The TI-83+ Might not be able to link with those calculators you suggested (nor the TI-84+CE as well). But you can also run that in an emulator as well… your choice.

I know that's not any of the calc you requested, but this is my recommendation since I haven't used any of those.

Forum category: General Discussion / Open Topic

Forum thread: Older TI Calculators ]]>