Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.
This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Author Message
john massey


Advanced Newbie


Joined: 26 Jul 2009
Posts: 50

Posted: 03 Jan 2010 09:40:24 am    Post subject:

The reason I am calling Mac users is because you can Copy from a post and Paste into TI Connect and download it into your 84. Then run it. My problem in the past had centered around understanding a problem and then explaining what is happening. There are three programs below.

//. this is the first on it is used to set up the testing of REDUE22. call it anything you choose

{1,3,5,7,9,11,13,15,16}→⌊OVER1
prgmREDUE22


// the next program must be named REDUE22. In this program you will see a problem. You must Decide on an answer and use the number keys to enter the correct answer and then press the "enter" key. Then the program has a pause for you to see what has happened so you must press the "enter" key again to go on to the next problem

ClrDraw:CoordOff:GridOff:AxesOff:ZStandard:Full:FnOff:ClrHome:While 0:setup graph screen:End
Output(1,1,"REDUE 2 2
Pause:While 0:just a pause to let you see the program name:End
While 0:This starts the initialization routine:End
If not(isClockOn
ClockOn
ClrList ⌊JONL4
SetUpEditor ⌊JONL4
ClrList ⌊JONL5
SetUpEditor ⌊JONL5
ClrList ⌊JONL1
SetUpEditor ⌊JONL1
0→E
0→W
0→Xmin
94→Xmax
62→Ymin
0→Ymax
ClrHome
While 0:This ends that routine:End
While 0: This starts the routine that inserts the "0s" into OVER:End
seq(0,J,1,16→⌊TEMP5
For(R,1,dim(⌊OVER1
⌊OVER1(R→⌊TEMP5(⌊OVER1(R
End
⌊TEMP5→⌊OVER1
While 0:This ends that routine:End
While 0:The three lines below are to check on the code above:End
Output(1,1,⌊OVER1
Pause
ClrHome
For(J,1,dim(⌊OVER1
While 0:The two lines below are for starting the skipping:End
If ⌊OVER1(J)=0
End
While 0:this routine clears line six of the graph screen:End
Text(6,0," "
While 0:This ends that routine:End
While 0:This routine draws the lines to form the frames for the flash cards:End
Line(0,19,94,19
Line(0,41,94,41
Line(19,19,19,62
Line(38,19,38,62
Line(57,19,57,62
Line(76,19,76,62
While 0:This ends that routine:End
W+1→W
{6,32,8,9,10,3,12,16,6,4,42,7,8,6,7,11}→⌊FN002:While 0:FIRST NUMBER IN MATH PROBLEM:End
{20,20,20,20,20,42,42,42,42,42,20,20,20,20,20,42}→⌊FY002:While 0:Y VALUE FOR STARTING POINT OF PROBLEM & LOCATION OF FIRST NUMBER:End
{4,24,43,62,81,4,24,43,62,81,4,24,43,62,81,4}→⌊FX002:While 0:X VALUE FOR STARTING POINT OF PROBLEM & LOCATION OF FIRST NUMBER:End
Text(⌊FY002(J),⌊FX002(J),⌊FN002(J)
{6,32,8,18,20,6,24,1,1,8,42,14,16,12,8,12}→⌊SN002:While 0:SECOND NUMBER IN MATH:End
{26,26,26,34,34,57,57,50,50,57,26,34,34,34,34,57}→⌊SY002:While 0:VERTICAL VALUES FOR SECOND NUMBERS:End
Text(⌊SY002(J),⌊FX002(J),⌊SN002(J):While 0:PRINT SECOND NUMBER:End
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}→⌊SS002:While 0:THIS SETS THE OPERATOR SINE '1' FOR + , '2' FOR - AND '3' FOR X :End
If ⌊SS002(J)=1
Text(⌊FY002(J)+6,⌊FX002(J)-4,"+":While 0:PRINT +:End
If ⌊SS002(J)=2
Text(⌊FY002(J)+6,⌊FX002(J)-4,"":While 0:PRINT :End
If ⌊SS002(J)=3
Text(⌊FY002(J)+6,⌊FX002(J)-4,"x":While 0:PRINT X:End
{1,21,40,59,78,1,21,40,59,78,1,21,40,59,78,1}→⌊X1002:While 0:THESE ARE THE START VALUES FOR LINE VARIABLES:End
{33,33,33,33,33,56,56,56,56,56,33,33,33,33,33,56}→⌊Y1002:While 0:VERTICAL VALUES:End
{17,36,55,74,94,17,36,55,74,94,17,36,55,74,94,17}→⌊X2002:While 0:THESE ARE THE STOP VALUES FOR LINE STATEMENTS:End
Line(⌊X1002(J),⌊Y1002(J),⌊X2002(J),⌊Y1002(J)
{12,64,16,9,10,3,12,17,7,4,84,7,8,6,1,1}→⌊AN002:While 0:THE ANSWERS ARE STORED HERE:End
{34,34,34,26,26,49,49,57,57,49,34,26,26,26,26,49}→⌊UD002
Text(⌊UD002(J),⌊FX002(J),"?"
While 0:This routine starts the timer:End
startTmr→T
While 0:This ends that routine:End
While 0: This routine is a getkey to number converter and stops the timer:End
"(→Str9
Repeat (K=105 and length(Str9)>1)
getKey→K
If 2>abs(5-abs(10-abs(Ans-88
Str9+sub("7894561230.-",Ans-22-7int(.1Ans),1→Str9
End
checkTmr(T
(Ans=0)+Ans(Ans≠0→⌊JONL4(1+dim(⌊JONL4
While 0:This ends that routine:End
While 0: This routine indexes JONL5 for values of JONL4 that are > 3 seconds:End
0→dim(⌊JONL5
For(J,1,dim(⌊JONL4
If 3<⌊JONL4(J
J→⌊JONL5(1+dim(⌊JONL5
End
While 0:This ends that routine:End
While 0:This routine displays the reaction time:End
Text(12,0,"SUM COUNT ",⌊JONL4(dim(⌊JONL4)),"TOTAL COUNT ",sum(⌊JONL4
While 0:This ends that routine:End
While 0:This routine does a number of things. First it checks to see if the returned value from the child matches the value of stored in AN002(J) if so it prints "WAY TO GO DUDE" message. Second it prints the correct answer in the correct place in the correct flash card. Even when a mistake is made the child is shown the correct answer in the else section but gets and error message message :End
If expr(Str9)=⌊AN002(J)
Then
Text(6,5," WAY TO GO DUDE
Text(⌊UD002(J),⌊FX002(J),⌊AN002(J)
Else
Text(⌊UD002(J),⌊FX002(J),⌊AN002(J)
E+1→E
prgmCLEAR6
Text(6,0,⌊AN002(J)," NOT ",expr(Str9)
J→⌊JONL1(1+dim(⌊JONL1
End
While 0:This the end of that For then else routine:End
While 0:Reaction time is measured between the appearance of the question mark prompt and the completion of the get key to number convewrter. This pause lets the child see what has happened at the end of each flash card:End
Pause
ClrDraw
End
While 0:This is the end of the "J" loop:End
While 0:This the beginning of the routine that combines JONL1 and JONL5 into OVER1 and recalls REDUE22:End
If 0=dim(⌊JONL1) and 0=dim(⌊JONL5
prgmMOD2
If 0=dim(⌊JONL1)
Then
⌊JONL5→⌊OVER1
prgmREDUE22
End
If 0=dim(⌊JONL5)
Then
⌊JONL1→⌊OVER1
prgmREDUE22
End
If 0≠dim(⌊JONL1) and 0≠dim(⌊JONL5
augment(⌊JONL1,⌊JONL5→⌊OVER1
SortA(⌊OVER1
augment({0},⌊OVER1→⌊OVER1
For(A,dim(ΔList(⌊OVER1)),1,1
ΔList(⌊OVER1
If not(Ans(A
augment(seq(⌊OVER1(J),J,1,A-1),seq(⌊OVER1(J),J,A+1,dim(⌊OVER1→⌊OVER1
End
seq(⌊OVER1(J),J,2,dim(⌊OVER1→⌊OVER1
Output(5,1,"OVR
Output(5,6,⌊OVER1
Pause
ClrHome
prgmREDUE22
End
While 0:This is the end of that routine:End
End


// I have used this statement If J=3:STOP to look at what is happening in a certain location. There are certain locations where a simple stop will work but the If statement above will not work. I conclude that "J" does not exists in that location. Which makes no sense to me. Here is the code.

ClrHome
Output(1,1,"L4 "
Output(1,5,⌊JONL4
Output(2,1,"L5 "
Output(2,5,⌊JONL5
Output(3,1,"L1 "
Output(3,5,⌊JONL1
Output(4,1,"AN"
Output(4,5,⌊AN002(J)
Output(5,1,"NUM "
Output(5,5,expr(Str9)
Pause
Back to top
Display posts from previous:   
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
    »
» View previous topic :: View next topic  
Page 1 of 1 » All times are GMT - 5 Hours

 

Advertisement