:Lbl Z

:ClrHome

:Disp "WHAT NUMBER AM I

:Disp "THINKING OF?

:Disp "(1 TO 5)

:Prompt B

:If B=A

:Then

:Disp "CORRECT

:Else

:Goto Z

:End ]]>

` ``ClrDraw ClrHome Outpuy(3,2,"VALUE OF MONEY" Output(4,6,"V.0.1" Output(6,3,"PRESS ENTER" Output(8,3,"U.S EDDITION" Pause If getKey=105 Then ClrHome END ClrHome Input "VALUE OF QUARTER?",A If A=25 Then ClrHome Disp "WELL DONE!" END If A ≠ 25 Then ClrHome Disp "WRONG!, IT IS 25" END`

]]>
` ``fPart(E7√(.1+randInt(0,9999)+cumSum(binomcdf(dim(L1)-1,0→L₂ SortA(L₂,L₁ //this code assumes L₁ is already defined !`

on my ti83+, i measured it to be about .5 seconds faster on average

]]>For example: String 1 stores X and X is 1234. How would I make String 1 store 1234?

I can't just do 1234 store into String 1, as I want the string to be able to change during the program.

And I can't just do "expr(X) store into String 1", as that just doesn't work. What can I do?

EDIT: "expr(String 1) store into String 1" doesn't work either, before someone says that.

]]>I am trying to make a program to calculate Spearman's rho with ties. The easiest way is just to use Pearson correlation on the ranks of the variables. One can get the Pearson correlation from the LinRegTTest program available on the Stats > Tests. However, I would like to have a custom Spearman rho that would do two things:

1. Rank the observations (with ties) (there's a ZZRANK program in the forum to do that)

2. apply the LinRegTTest to ranked Lists and retrieve the "R" , "T" and "p" statistics from the linRegTTest.

Now, I don't know how to call the LinRegTTest from within a program and how to recover the statistics of interest.

Any help will be appreciated!

Clrhome

4->X

4->Y

While 1

Output(Y,X,"0

getkey->A

If A=26

x-1->X

If A=24

x+1->X

If A=25

Y-1->Y

If A=34

Y+1->Y

End

Thanks!

]]>heads up i am still very new to this. all help and tips would be appreciated. :)

]]>Next: the programming part all you have to do is copy the program below:

:Menu(“main menu”,”start”,1,”Quit”,2)

:

:Stop

:LbI 1

:Disp “hello”

:Stop

:

:LbI 2

:Disp “goodbye”

]]>

My programs:

http://tibasicdev.wikidot.com/archive:maze

http://tibasicdev.wikidot.com/archive:lunar-lander

http://tibasicdev.wikidot.com/archive:math-program

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