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

The code:

` ``ClrHome Input "dY/dX= ",Str1 Input "Xmin= ",A Input "Xmax= ",B Input "Ymin= ",C Input "Ymax= ",D C-.5→Ymin D+.5→Ymax (265/165)(D-C+1)→K (A+B)/2+K/2→Xmax (A+B)/2-K/2→Xmin ClrHome ClrDraw inString(Str1,"/")→N If Ans>0 sub(Str1,Ans+1,length(Str1)-Ans)→Str2 For(X,A,B) For(Y,C,D) If N>0 and expr(Str2)=0:Then Line(X,Y-.25,X,Y+.25) Else tan^-1(expr(Str1))→M Line(X-.25cos(M),Y-.25sin(M),X+.25cos(M),Y+.25sin(M),RED) End End End`

So as you can see, some of the bottom left lines are simply missing. Interestingly enough, the program will actually refuse to graph anything until Y = 0 from what I have found (except for the first one? idk). I changed the order of the for loops to run left->right and top->bottom, as opposed to the current bottom->top and left->right, and it resulted in the entire top half of the graph being cut off, again not working until Y=0. I have since changed it back.

Honestly, I have looked at this program for about a week and I still haven't figured out what's wrong. If anyone could help me out that would be amazing! Also I realize that this probably isn't very optimized, so if anyone would like to point out ways to make it more efficient that would be cool too! THANKS!

]]>What I would like to do is:

Variables X/Y.

If X and Y is positive subtract highest value from lower to have a positive answer.

If X and Y is negative subtract highest value from lower. -10-(-8)=-2

IF X is positive and Y is negative (And Vice versa) then add both together and treat both as being positive. X: -10 Y: 8 =18

Is there any way to do it?

]]>I found a snake clone on this website a little while ago and something about it caught my eye.

For some reason, it has a weird smallcaps L in it. (ʟ)

I did some research and it reveals itself to be a character called "List Capital L"

The code is right here:

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

_{seems to be a little short for a snake clone, or is that just me?}

One more thing, I would like to know how to do it on my TI-89 as well. just in case.

]]>` ``1-abs(2x-1)`

can be used as a PRNG, like this:

` ``Prompt X While 1 1-abs(2X-1→X Output(1,1,X End`

it might even be a alternative to the rand command, and can be useful if you have a program that uses the rand command but you don't want anyone manipulating the numbers that are outputted.

]]>In this challenge, you will convert the **current date and time** to a percentage that represents the progress of the year.

For an example input of the current date and time, the following temporary lists will be used:

Code:

` ``getDate→L1 getTime→L2`

And the output will be a percentage that looks like this:

Code:

` ``32.18 (% symbol is NOT required!)`

Another example is the start of the year is the very beginning of the year is 00.00 and the end is 99.99.

Requirements:

- The program must be equal to or less then
**750 bytes** - The program must be compatible on all models of the TI-84 Plus family (including color editions)
- The program must be compatible with
**OS 2.20+ (no 2.53MP+ commands)** - The code must be YOURS! You may not copy it from other people.
- The output MUST have a fixed decimal place of two. (eg. 56.32)
- The output value must be
**>0 and <100.01** *No assembly is permitted.*This includes ICE, Axe, BBC Basic, Grammar, etc.*No libraries of any kind are permitted*including Celtic III, xLib, Axe, BatLib, etc.*You must work on this by your own.*If you had help from others, what's the point?- The deadline is 12:00 AM on January 1st, 2021 UTC.
- This program must work with any date and time of any year,
**INCLUDING LEAP YEARS.**

You can take all the time you need, no need to rush!

]]>So I have this string of code.

I have a Convergence and Conversion angles calculated and they are correct if my calculator is in Degrees mode, wrong is mode is in radians. (all understandable)

Then I have a formula which is meant to be used via radians (haversin), thus I convert my inputs via X*3.14(it's pie, but i edited out as was unable to copy normally)/180 to get value in radians. All is well, but output for great circle track comes out valid only my calculator is in Radian mode again. Is it possible to "force" for this specific formula (the long one) to use radians for my inputs and for the rest degrees?

` ``Lbl C Disp "LatAdec" Input A Disp "LonAdec" Input C Disp "LatBdec" Input B Disp "LonBdec" Input D Disp "CHGLat" Input E Disp "CHGLong" Input F Disp "MeanLAT" Input G sin(G)*F0->M (F*60)*cos((A+B/2)->L M*0.5->N 2*3440sin-1(square root(sin(.5*((E*3.14)/180))^2+cos((A*3.14)/180)cos((B*3.14)/180)sin(.5((F*3.14)/180))^2))->R ClrHome Output(1,1,"Departure") Output(1,12,round(L,2) Output(2,1,"Convergenc") Output(2,12,round(M,2) Output(3,1,"Conversion") Output(3,12,round(N,2) Output(4,1,"GCT NM") Output(4,9,round(R,2) Float Stop`

Can't post a picture as I am new with the exact code, but it should be understandable.

Thank you.

]]>I wanted to upload a program of mine to the archives, and it says that a download is required. I was looking for a converter, but I couldn't find one that worked. I was wondering if any of you have one that you use to convert files to upload them.

Thanks,

CalcNerd

]]>why is that? why isn't there a picture of the token? surly it isn't too hard to find it. ]]>

Input "DECIMAL: ",R

round(R²,0→R

R→A

Repeat 0=fPart(R/A²

A-1→A

End

ClrHome

Output(1,1,A

Output(1,3,"√(

Output(1,5,R/A²

Here's is what the user wrote in this:

"If you want to make it work for any order of root (cube root, 4th root etc.) you can replace ^2 with ^I, where I is the index prompted for I at the beginning."

In which it showed how to write a program that it does.

Issue lies when I try to use anything that isn't square root. The answers for square root is flawless but trying to use cube root or 4th root, it doesn't show the right answers. How will I go on to fix that so the custom index works?

Anyway, good luck! ]]>

I can't change the name back to 'TI-84 Plus CE' without the name in the certificate, it is stuck as 'TI-SucksA**CE' because I did for a meme. Is there a way to get them back from the ROM and transfer it to the real CE, or am I out of luck?

Some had said to me that I am on the road to permanent certificate corruption and I want to see if I can restore anything before it's gone.

I can't even change the minimum OS field, it's stuck at 0x220000 on page 0x33

i^{4} = 1

and when I solved for i by replacing each side of the equation with it's 4th root, i got

i = ^{4}√1 or i=1

knowing that i is defined as √⁻1, i squared both sides to get

i^{2} = 1^{2} or (√⁻1)^{2} = 1^{2} or -1 = 1

is ther a error in the line of reasoning or is this just a property of imagenary numbers?

]]>√2, √3, √5, golden ratio, Apéry's constant, e, pi, ln(2), Plastic number, Reciprocal Fibonacci constant.

constraints:

1. the constant being computed by the program has to be on one of the given constants above.

2. the program has to be able to compute at minimum the first 20 digits of said constant chosen by the programmer.

3. the program has to be executable on any calculator in the TI-83 family **or** the TI-84 Plus family.

4. Assembly programs and/or subprograms can be used, but they must be included with the main program when submitted.

5. the program has to be no bigger than 25000 bytes if it can be executed on a TI-83, otherwise the limit is 6 times that.

6. the programs must be as optimized as you can make it. and yes, you can enlist the help of fellow TI-BASIC programmers in the community.

programs must be submitted by January 15th, 2021.

programs will be ranked by memory size. the winner will be announced on February 7th, 2021. (note: "memory size" is defined as the size of the main program in bytes plus the size of any and all subprograms in bytes.)

although it's not required, it will be helpful to optimize for speed. for example displaying a variable only when it changes in value.

oh and another thing: I may not be able to test all of your programs or make the Feb 7 due date, as I am a high schooler that gets a lot of work.

(edit: the program also has to store the computed digits in a string or a list.)

(edit 2: to submit your project for this competition, send a message with the project code in it)

Thanks for reading!

CalcNerd

]]>Thanks!

CalcNerd

` ``:7->X:16->A:ClrHome :Output(8,1,"================ //16 Equals :Repeat K=45 or X=7 and A=2 :getKey->K :A-1->A :If A=1 :16->A :Output(7,1," // 16 spaces :Output(7,A,"v :If X=6 :Output(X+1,2," // One Space :Output(X-1,2," //One Space :Output(X,2,"θ :max(4,min(7,X+1-4(K=21->X :End`