Is there no way to use a variable number in Output()?

]]>` ``Define LibPub funvarsolv()= Prgm :Local y1,res,i,ab,d,c : :Loop :0→c :1→d :While d =1 :Try :RequestStr "enter function",y1,0,ab :0→d : :Else :© user left input box empty :Text "you entered nothing",0 :ClrErr : :EndTry :If d=0 :Exit :EndWhile :© user pressed cancel : If ab=0 Then : Disp "Press ENTER to end" : subrtine\delay() : DelVar y1,i,k,ab : Return : :EndIf : : : : expr("Define y1(x) ="&y1) : res:=exp▶list(solve(y1(x)=0,x),x) : :Disp "Solution set: "&var&" =",res : :subrtine\dlay() :If k="esc" Then :1→c :ElseIf k="enter" Then :0→c :EndIf :If c=1 :Exit :EndLoop :EndPrgm`

]]>
Sorry for all of the posts recently. I don't mind trying to bring a little of bit of life to forums when I am learning the methods of the particular language.

Thanks, as usual for any help.

]]>I just got a used TI-84 Plus today, seems to work okay, program are fine, when I try to do a backup on TI-Connect I always get the error message "The device does not recognise the command" (80070016) during the transferring of file 1/32. If I skip that, then it happens on file 2/32, etc. It cannot backup, even if I press 2ND then LINK then go to BACKUP at the same time as I press backup on PC (2 PCs actually, Windows 10 and Windows 8.1, both of which work fine with the Silver Edition.

Any Ideas on that? Obviously, I want it to be able to backup :-).

]]>Is there a way to increase how far it can be scrolled back?

Thanks for any help.

]]>The problem is , after a program is Done, then if I try to scroll up, the results I have Displayed with the program, disappear, and the word Done is highlighted, and the prgmNAME is all that is displayed at that point.

Currently I have my program save the numbers I need to Variables A and B, but I would rather see them in the screen and be able to copy them using the MathPrint method.

Is that possible on TI-84 Plus?

Thanks for any help.

]]>Thanks!

Edit:

If you have any questions about what I want, just ask.

Here is the Link: tibasicdev . wikidot . com/snake#toc0

Just remove the spaces

Here is the code:

` ``:26→K :1.1→B :{4Ans→A :ClrHome :For(A,1,ᴇ2 :randInt(1,16)+.1randInt(1,8→C :Repeat C=Ans(1 :A→dim(ʟA :ʟA(1 :Output(10fPart(Ans),int(Ans),"O :Output(10fPart(B),int(B)," //1 space :Output(10fPart(C),int(C),"* :getKey :If Ans=45 :Goto 0 :If Ans=34 or 2>abs(Ans-25 :Ans→K :ʟA(A→B :ʟA(1)+(K=26)-(K=24)+.1((K=34)-(K=25 :If max(ʟA=Ans :Goto 0 :Ans+16(not(int(Ans))-(17=int(Ans)))+.8(not(fPart(Ans))-(.9=fPart(Ans :augment({Ans},ʟA→A :End :augment(Ans,{Ans(A→A :End :Lbl 0 :ClrHome :A`

Thanks!

]]>ClrHome

ClrDraw

AxesOff

DispGraph

BackgroundOn Image1

BackgroundOff

BackgroundOn Image2

BackgroundOff

BackgroundOn Image3

BackgroundOff

BackgroundOn Image4

BackgroundOff

BackgroundOn Image5

BackgroundOff

BackgroundOn Image6

BackgroundOff

BackgroundOn Image7

BackgroundOff

BackgroundOn Image8

BackgroundOff

BackgroundOn Image9

BackgroundOff

BackgroundOn Image0

BackgroundOff

Pause

AxesOn

ClrHome

If anyone has proper code to play the images at a normal rate that would be great, thanks. ]]>

Thanks, anything helps!

]]>Let's say that I have the equation 1/2X+3 stored into Str1, I can put this into the Y= screen, put when I hit graph, nothing happens, anyone know how to fix this?

Thanks! ]]>

I hope that's the right place to post my questions - otherwise sorry!

I decided to try some games (Robot War and Nárkemen) on a TI-82 Stats so I connected the device with my PC via TI Connect. The program won't recognize the calculator as a TI-82 but as a TI-83. As a consequence I'm not able to copy the files over as they are deemed "incompatible". Is there anything that can be done about that?

I also tried to start the games in Wabbitemu (with the ROM-file from TIRoms) but here I can't even open the file itself in the emulator (he gives me a "A problem with Wabbitemu prevented the file from getting sent").

I'm rather new in the fascinating world of calculator gaming and programming so I'm very grateful for every help. Thank you! :)

]]>Edit: Found one that will work! I must have mistyped it in the search bar the first time :)

]]>Do any of you know of a program (for Windows 7) that can allow me to do math work and scribblings? Right now, I'm using MS Paint, and it gets the job done, but I'm getting frustrated with its shortcomings. Here's a list of the features I would like.

1: Take a snip, and paste it in, resize it, or move it on the canvas. (MS Paint lets me do this.)

2: Invert the colors of a selection (MS Paint lets me do this, as well.)

3: Draw 2D shapes.

4: Write on the canvas with my USB writing pad.

5: Draw lines easily (by pressing a key or something to toggle line mode)

6: Lock graphics, so they can't be erased. E.G. Put my formulas in the canvas, lock them, then I can scribble all over , and delete my writing and have the formulas be unaffected. (can't do this in Paint)

I don't want to pay for software, so ideally it would be free.

Thank you!

]]>` ``If A>B Then Disp ".." Else If A=B Disp ".." Else Disp "`

Thanks for any help 😊

Here is my code if that helps

` ``Lbl EL Disp “X Input X Disp “B Input B Disp “Y Input Y “logBASE(“+toString(Y)+”,”+toString(B)+”)”->Y1 Equ>String(Y1,Str1) Disp Str1+”=“+toString(x) Pause Goto T`

You might want to skim the code before continuing, so you understand what I'm saying.

The code runs fine if I say the number ("N") is correct, (press 1, and it displays "Woo hoo!"), or when I tell it the number is lower, (it sets the returned number as the upper limit, and re-runs the equation). But when I try to tell it my desired number is *higher,* it all falls apart, and just returns the same number again. Example:

I set "H" to 100, "L" to 0, and let it run. Calculator returns N, which is 50. When I tell it to go higher, (input "2"), the calculator returns 50 again. The only way I can explain that, is that it's putting "50" in both "H" and "L", which makes no sense. How do I tell it to keep one number the same, and only reset the one I'm telling it to?

Here's the code:

ClrHome

Disp "LOW LIMIT"

Prompt L

Disp "HIGH LIMIT"

Prompt H

Lbl 1

(H+L)/2→N

Disp "CORRECT?",N

Disp "1 IF YES"

Disp "0 IF LOWER"

Disp "2 IF HIGHER"

Prompt A

If A=1

Goto 2

If A=0

N→H

Goto 1

If A=2

N→L

Goto 1

Lbl 2

Disp "WOO HOO!"

Pause

ClrHome

Also, if you know how I could get the calculator to round "N" to the nearest integer, I would appreciate that. Something with the "round(" function, right?

P.S. Please do not tell me to go download an program, or copy someone else's. I'm not doing this to actually utilize program, I'm doing this to learn how these things work.

]]>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:"`

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.

]]>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

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

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`

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.

]]>I am working on a reaction game where it displays a number from 1-9 on the graph screen, and you need to push the number displayed on the screen before the time runs out. I have gotten the repeating function of displaying the number.

What I want to know it if you can create a loop, and as soon as you it number 1-9, it exits it, but if you don't press any key, It waits for an amount of time (I would prefer a time that could be displayed as well.

If you have any questions about what I am asking, just ask!

Thanks!

-Edit

I am pretty sure that it has something to do with a While loop, and Boolean Logic, but don't know how to do it.

Thanks!

` ``:asm(`

codes

]]>Here's the source code:

` ``DelVar L1 5->dim(L1 For(X,1,7 Disp " End Repeat Ans L1(4->L1(5 L1(3->L1(4 L1(2->L1(3 L1(1->L1(2 randInt(1,16->L1(1 Output(8,Ans,0 Disp " getKey X+(Ans=26)-(Ans=24 Ans+16((Ans=0)-(Ans=17->X Output(3,Ans,8 Ans=L1(5 End`

If you see anywhere where I can shave a couple bytes, please let me know. Also, I plan to make a version with a couple more features in the future. If you have any ideas, please let me know and I might implement them.

]]>Here is the code:

Menu("Analytic Geo","Distance",1,"Midpoint",2

Lbl 1

ClrHome

Disp "CO 1"

Prompt A,B

Disp "CO 2"

Prompt C,D

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

√(X)→Y

Disp "SQRT",X

Disp "DISTANCE REAL",Y

ClrHome

Lbl 2

ClrHome

Disp "CO 1"

Prompt A,B

Disp "CO 2"

Prompt C,D

(A+C)/2→X

(B+D)/2→Y

Disp "MIDPOINT",X,Y

Here is the optimized code:

` ``StoreGDB 1 ClrDraw AxesOff ⁻10→Ymin 10→Ymax ⁻10→Xmin 10→Xmax 4→H {0,0,0,0→L₁ Horizontal 7.5 Horizontal ⁻8 Text(1,0,"ABACUS- TATERTOMORROW Text(57,0,"EXIT COUNT: Line(⁻6,Ymin,⁻6,⁻8.5 For(A,1,4) For(B,20,80) Pxl-On(12A+3,B End For(B,1,9) For(C,1,5) Pxl-On(12A+C,20+2B End End End Lbl A Text(12H,8,"> Text(57,45,L₁(1),L₁(2),L₁(3),L₁(4 0→A While not(A getKey→A End Text(12H,8," " If A=11 Goto D If A=25 H-1→H If A=34 H+1→H If not(H 4→H If H>4 1→H If A=26 and 9>L₁(H Then 1+L₁(H→L₁(H If 0≠L₁(H Then For(A,12H-2,12H+2) If 12H≠A Then Pxl-Off(A+3,40-L₁(H)2 Pxl-On(A+3,80-L₁(H)2 End End End End If A=24 and 0≠L₁(H Then ⁻1+L₁(H→L₁(H For(A,12H-2,12H+2) If 12H≠A Then Pxl-On(A+3,40-L₁(H)2-2 Pxl-Off(A+3,80-L₁(H)2-2 End End End Goto A Lbl D ClrDraw RecallGDB 1 DelVar GDB1"`

Keeping in character: from the ground.

**What do you do? Any hobbies?**

Just learning things and working for eventual certification in Business IT. My main hobbies at the moment are developing programs, collecting calculators, reading/writing, and creating a personal brand online (which I started about a month ago).

**How long have you been programming? What languages?**

I have been programming as a hobby on and off for about six years as a hobby. "AppleScript", Axe, "Batch", C, JavaScript, Java, Python, QBasic, "Scratch/Snap", TI-Basic, Visual Basic Script, and Z80 Assembly (note all the quotes) are ones I have picked up at one point or another. Some I know more than others. I like esoteric languages, too!

**What projects are you working on?**

For my calculators, I am making joke applications. That's as far as I am going to say in this post. Besides that, I want to develop a website and post all my programs and ideas on it, plus publish an e-book or two in the coming years.

As stated in the Code of Conduct, please refrain from posting in threads (as of this month) that were created before November. This makes more past and current threads clean and easier to read. If other users are doing it, that doesn't mean you can.

I do not mean to hurt anyone's feelings, but please follow the guidelines so it will make life easier for the site Moderators and Administrators. Have a good day! :)

]]>Thanks! ]]>

-I am a High School student(freshman to be exact), and I really like problem solving and playing Minecraft, specifically survival or redstone and command blocks.

-I have been programming for about 4 years now, started out on scratch.mit.edu, then moved to the Javascript course on Khan Academy. For my High School Math I received a TI-84 Plus CE graphing Calculator, and mainly program in Basic on it.

-I am working on many projects right now, most are for programs that help me with my Geometry Class, such as the Pythagorean Theorem. Some other projects are a Dice rolling program for DnD, and a Rock Paper Scissors game.

-Right Now, I don't think that there is much that I can bring, except for an extra brain to help solve problems, and maybe create some as well. My main goal is learning how to create better programs, and work on my problem solving skills.

Thanks Everyone! ]]>

1+(E/|E2->E

Any help is welcome

]]>(P.s, I am using a TI-83+) ]]>

I am working on making a tank game, like the ones where you can move and shoot at your opponent. This game needs a feature though where it takes the angle of your shot, puts it into an equation, and forms a parabola that would calculate the distance that the shot should travel. I have a few ideas, but I was wondering if any of you have used one of these, or have any ideas about how to do it.

Thanks,

CalcNerd

]]>(Sorry, I couldn't get the image to load as I just made an account to ask this question, but if you want to graph it you can see)

` ``Lbl 2 0.4→Z iPart(Xmin)→Q iPart(Ymin)→W For(J,W,iPart(Ymax),1) If abs(Ymin-J)<Z Then J+1→J End For(C,Q,iPart(Xmax),1) If abs(Xmin-C)<Z Then C+1→C End J+0.00000001→J If abs(D*Y₁(C))>100 Then Z→R 0→D Else J-0.00000001→J If (Y₁(C))>1 Then (Z/Y₁(C))→D Z→R Else Z*Y₁(C)→R Z→D End End If R>Z Then (Z/Y₁(C))→D Z→D End (C-D)→A (J-R)→S (C+D)→N (J+R)→M If N>Xmax Xmax→N If S<Ymin Ymin→S If S>Ymax Ymax→S If M<Ymin Ymin→M If M>Ymax Ymax→M Line(A,S,N,M) End End`

` ``"Str1Str2Str3`

on my ti-83 and press ENTER, it shows random commands. (Str1, Str2, and Str3 aren't defined)

is this just something that happens on my calculator or is this behavior shown on all ti-83's?

(note: i did this after my calc crashed while messing with the → symbol while it's in Y_{1})

(This was made for the ti84-CE on TI connect CE so some of the syntax might be a little different)

` ``Lbl TS ClrHome Disp "SWAP? - 1 Disp "INFO? - 2 Disp "Quit? - 3 Input A If A=3 Goto GH If A=1 Then ClrHome 1→O For(O,1,6 Output(O,1,O Output(O,2,". End If dim(⌊TEAM)≤10 Then For(O,1,dim(⌊TEAM Output(O,3,⌊TEAM(O End Else For(O,1,10 Output(O,3,⌊TEAM(O End Output(10,6,">>" End 9→V 1→U 1→D 1→W 1→V 1→Q "Q is page number Output(W,4,"< While 1=1 getKey→P If P=34 1+W→W If W=min(dim(⌊TEAM),10)+1 1→W If P=25 W-1→W If W=0 min(dim(⌊TEAM),10→W If P=45 Goto GH If V≠W Then Output(W,4,"< Output(V,4," W→V End If P=26 and dim(⌊TEAM)>10Q Then Q+1→Q For(O,10(Q-1)+1,min(10Q,dim(⌊TEAM)) Output(O,3,⌊TEAM(O End End If P=24 and Q>1 Then Q-1→Q For(O,10(Q-1)+1,10Q Output(O,3,⌊TEAM(O) End End If P=105 Then V→S Output(V,5,"< End If P=95 Then ⌊TEAM(V)→T ⌊TEAM(S)→⌊TEAM(V) T→⌊TEAM(S) For(V,1,min(dim(⌊TEAM),10 Output(V,5," ") Output(V,3,⌊TEAM(V End End End End If A=2 Then 1→Q Goto IF End`

` ``:26→K :1.1→B :{4Ans→A :ClrHome :For(A,1,ᴇ2 :randInt(1,16)+.1randInt(1,8→C :Repeat C=Ans(1 :A→dim(ʟA :ʟA(1 :Output(10fPart(Ans),int(Ans),"O :Output(10fPart(B),int(B)," //1 space :Output(10fPart(C),int(C),"* :getKey :If Ans=45 :Goto 0 :If Ans=34 or 2>abs(Ans-25 :Ans→K :ʟA(A→B :ʟA(1)+(K=26)-(K=24)+.1((K=34)-(K=25 :If max(ʟA=Ans :Goto 0 :Ans+16(not(int(Ans))-(17=int(Ans)))+.8(not(fPart(Ans))-(.9=fPart(Ans :augment({Ans},ʟA→A :End :augment(Ans,{Ans(A→A :End :Lbl 0 :ClrHome :A`

To elaborate, I want a larger window to play snake on and a slower speed on the snake moving. ]]>

I know it's basic but I need some help. ]]>