:⸤DECK(T

:Disp "Value:", sub("A23456789TJQK",int(Ans),1

:Disp "Suit:", sub("SPADES HEARTS DIAMONDSCLUBS ",4fpart(Ans)+1,8

When I run this I get

ADES HE

SPADES

:For(A,dim(_{L}SX)-1,0,-1

:_{L}SX(A)->_{L}SX(A+1)

:End

dim(_{L}SX) is 5

the error sends me to the A in _{L}SX(A)

can someone explain this?

` ``ClrHome:Delvar A Repeat getKey not(A->A Wait .5 getTmStr(12 If 7=length(Ans "0"+Ans Output(1,1,sub(Ans,1,2)+sub(" :",1+A,1)+sub(Ans,4,5 Output(2,1,getDtStr(getDtFmt End:Clrhome "Simple Clock`

A few questions however:

- Would this qualify as a Routine?
- Can the "blinking colon" be accomplished on the monochrome calculators? (Yes, but at the same speed)

Given the bounds of what the list can be*, It can determine the largest mode of X.

(1 and 100 are the bounds in this example)

SortA(L1

seq(sum((L1=X)),X,1,100)->L2

max(seq(x,x,1,100)(L2=max(L2)))->C

C-1->dim(L2

L1(sum(L2)+1)->C

I was wondering how I could check for multiple modes (and store them) and if my code could be more efficient. Any help is appreciated.

*With an addition of min(L1) and max(L1) in place of the bounds, you can just check for them.

]]>For reference Ive stored a value to letters A and B but I am getting a 0 when they are input as:

normalcdf(A,B,0,1)

This is for a TI-84 btw

]]>Yup! It's kind of late for me to do this, I can't sleep right now. Even with sleeping pills and stuff. No results. Anyways, I am up and about!

]]>N represents the first random number generated by an nonnegative integer seed S

The random seed function inputs a seed, and outputs the first random number that the generator returns with that given seed value.

Conjecture #1- the 9,7,4,2 pattern

For every value of S less than 13, round(10N,1) will always be approximately equal to either 9,7,4,2. The pattern oscillates until S=13, but the relationship remains reasonably approximate for much longer, slowly growing more inaccurate until it is almost completely flawed.

The following conjecture has been rewritten to better explain the point after a helpful comment by Deoxal

Conjecture #2- the largest gaps between the random seeds occur between numbers divisible by 58 and 59. For small seed values the 59 divisible seeds are (usually) the biggest, but since this pattern seems to shift downward over time, it probably isn’t an important way to find 1 valued random seed functions.

When the variable T is repeated with an operation it repeats and never stops unless there is a break. When T reaches 26, that is about a second for TI84+ SE. But when I run this program, nothing happens on the screen.

` ``While 1 T+1->T If T=26 Then 1+C->C Disp C 0->T End End`

Can anyone tell me why nothing will display on screen? Thanks in advance :)

]]>` ``ClrHome AxesOff PlotsOff FnOff 1+real(11 //Gets the calculator model being used, 0 being the 83+, 1 being the 83+SE, 2 being the 84+, 3 being the 84+SE, Text(15,0,"TI-"+sub("83+**83+SE84+**84+SE",5Ans-4,5 //Replace * with spaces det(4,3 //Gets the OS version. Kind of buggy, still works expr(sub(Ans,1,1)+"."+sub(Ans,3,2→A //gets rid of the "CubigReg", replaces with a decimal and turns it to a real number If max(Ans={2.53,2.55:det(1,Ans)+"MP //det(1,... converts any real numbe or list to a string, works like the 84+CE toString() command Text(22,0,Ans det(4 //Free RAM If Ans>999 det(1,iPart(.001Ans))+"K Text(29,0,"RAM FREE: ",Ans //3 spaces between : and " det(4,1 //Free ROM (Archive) If Ans>999 det(1,iPart(.001Ans))+"K Text(29,0,"ROM FREE: ",Ans //3 spaces between : and " "Welcome!`

Pretty cool, huh? I'm suprised the OS would allow you to do this. This could be a good idea for a warm-welcome for a start-up program!

]]>I also had a question about all the letters in the program, such as Y, and X. Even the first line has :3→A:4→X. To get those letters, I clicked Alpha and then the corresponding key to get that letter. Should I be doing something differently?

Hopefully the forum can answer my two questions. Thanks a bunch.

]]>` ``ClrHome ClrList L₁ 10→dim(L₁ Repeat getKey L₁(1)+1→L₁(1 If L₁(1)>9:Then For(A,1,10 If L₁(A)>9 and A≠10:Then 0→L₁(A L₁(A+1)+1→L₁(A+1 Output(A,1," //10 spaces End End End For(A,1,10 For(B,1,L₁(A Output(A,B,"O End End End`

]]>
` ``:Lbl M :Disp "CI" :Input "Mean=",M :Input "Stnd. Dev=",S :Input "Sample Size=",N :Input "Confidence=",C :TInterval M,S,N,C :Goto ZZ`

This is part of a larger program (hence the `Lbl` and `Goto` commands). The `TInterval` will not display any data because of the commands after it. I tried putting a `Pause` between the `TInterval` and the `Goto`, but that didn't solve the problem. Any suggestions?

:ClrDraw

:For(A,0,1000

:A->rand

:Pt-On(A,10rand

:End

This is meant to be run with a window range of Xmin=0, Xmax=1000, Xscl=1, Ymin=-10, Yscl=1, Ymax=10. ]]>

PROGRAM:BREAK

` ``:Stop :"LOL "→Str1 :While 1 :Disp Str1 :Str1+Str1→Str1 :End`

The way this program works is it assigns a phrase ("LOL ") to Str1. It then infinitely adds that string to itself. It also displays the string so that you can watch as your calculator is dying. :) This is quick and easy to program. Don't abuse it.

]]>:1→X:1→Y

:DelVar [B]{8,16→dim([B]

:6→[B](randInt(2,7),15

:6→[B](randInt(2,7),14

:For(A,1,8

:6→[B](A,randInt(2,15

:End

:1→[B](4,16

:Output(Y,X,">

:Output(4,16,"*

:Repeat [B](Y,X

:Repeat Ans

:getKey→G

:End

:Output(Y,X," // 1 space

:X-(G=24 and X>1)+(G=26 and X<16→X

:Y-(G=25 and Y>1)+(G=34 and Y<8→Y

:Output(Y,X,">

:End

:ClrHome

:"YOU "+sub("WIN!!LOSE!",[B](Y,X),5 ]]>