%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:788
File Name:BOYLE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"
"BOYLE'S LAW"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{9,1,1,2.203,0}\->\List 6
\Send(\List 6)
\Seq(X,X,1,10,1)\->\List 1
\Seq(0,X,1,10,1)\->\List 2
\For 1\->I \To 10
\ClrText
21-I\->\List 1[I]
"POSITION"
"PLUNGER AT":(21-I)\Disp"CC."\Disp\ClrText
"PUSH TRIGGER"
"TO MEASURE"
"PRESSURE."
{3,.2,5,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 5)
(\Sum (\List 5)-\Max(\List 5)-\Min(\List 5))/3\->\List 2[I]
\Next 
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow .6\Min(\List 1),1.2\Max(\List 1),2,.6\Min(\List 2),1.2\Max(\List 2),1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1006
File Name:SLOPE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"
"EXPLORE SLOPE"
\For 1\->A \To 800:\Next 
\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"PUSH TRIGGER"
"TO GET DATA"
"FOR WALK 1."
{3,.03,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 5)
\Receive(\List 6)
\Seq(X,X,1,56,1)\->\List 1
\Seq(X,X,1,56,1)\->\List 2
\For 25\->I \To 80
\List 5[I]\->\List 1[I-24]
\List 6[I]\->\List 2[I-24]
\Next 
\ClrText
"PUSH TRIGGER"
"TO GET DATA"
"FOR WALK 2."
{3,.03,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 5)
\Receive(\List 6)
\Seq(X,X,1,56,1)\->\List 3
\Seq(X,X,1,56,1)\->\List 4
\For 25\->I \To 80
\List 5[I]\->\List 3[I-24]
\List 6[I]\->\List 4[I-24]
\Next 
\List 1-\List 1[1]\->\List 1
\List 3-\List 3[1]\->\List 3
\LinearReg \List 1,\List 2
\Ra\->A:\Rb\->B
\LinearReg \List 3,\List 4
\Ra\->C:\Rb\->D
\ClrText
"THESE GRAPHS"
"REPRSNTS THE"
"CLLCTED DATA"
"FOR WALK 1"\Disp"AND WALK 2."\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-4."\Disp\ClrText
"USE DATA AND"
"GRAPHS"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,5,1,0,5,1
\Y=Type
"AX+B"\->\Y 1
"CX+D"\->\Y 2
\G SelOn 1
\DrawGraph

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:921
File Name:LINES
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"\Disp"EXPLORE LNEARSYSTEMS"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"POSITION THE WALKER 4 M   FROM MOTION"
"DETECTOR."\Disp\ClrText
"WHEN WALKER"
"STARTS, PRESS[TRIGGER] TO"
"COLLECT DATA"
{3,.05,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\ClrText
"POSITION THE WALKER 0.5 M FROM MOTION"
"DETECTOR."\Disp\ClrText
"WHEN WALKER"
"STARTS, PRESS[TRIGGER] TO"
"COLLECT DATA"
{3,.05,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 3)
\Receive(\List 4)
\ClrText
"THESE GRAPHS"
"REPRSNTS THE"
"CLLCTED DATA"
"FOR WALK 1"\Disp"AND WALK 2."\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-4."\Disp\ClrText
"USE DATA AND"
"GRAPHS TO"
"COMPLETE THE"
"EXPLORATION."\Disp\ViewWindow 0,5,1,0,1.2\Max(\List 2),1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\S-Gph2 \DrawOn,\xyLine,\List3,\List4,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:620
File Name:FALLOBJ
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"\Disp"QUADRATIC      FUNCTIONS"\Disp"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\Lbl 1
\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"DROP THE BALLIMMEDIATELY  AFTER PUSHING[TRIGGER]."
{3,.02,80,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 3)
\Receive(\List 4)
\ViewWindow 0,2.2,.5,0,1.2\Max(\List 4),1
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Dot
\DrawStat
\For 1\->X \To 1000:\Next 
\ClrText
"GRAPH OK?    YES=1,NO=2"
?\->R
R=2\=>\Goto1
\ClrText
"TRACE GRAPH  TO IDENTIFY  NECESSARY    POINTS."\Disp\Seq(.02X,X,0,79,1)\->\List 3
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:307
File Name:SELECTPT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"ENTER TIME   OBJECT BEGAN FALLING"?\->A
\ClrText
"ENTER TIME   OBJECT STOPPDFALLING"?\->B
\ClrText
"REVISING       DATA..."
(B-A)/.02\->D
\Seq(0,X,1,D+1,1)\->\List 1
\Seq(0,X,1,D+1,1)\->\List 2
1\->C
\For 1\->I \To 80
\If \List 3[I]\>=A\ And \List 3[I]\<=B
\Then \List 3[I]\->\List 1[C]
\List 4[I]\->\List 2[C]
C+1\->C
\IfEnd
\Next 
\ClrText
\List 1-\List 1[1]\->\List 1
\ViewWindow 0,.5,.1,0,1.2\Max(\List 2),.25
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:631
File Name:BOUNCE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"\Disp"GEOMETRIC     SEQUENCES"\Disp"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"PUSH TRIGGER"
"TO GET DATA"
{3,.04,90,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\Max(\List 2)-\List 2\->\List 2
\ClrText
"THIS GRAPH"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LIST 1 AND 2"\Disp\ClrText
"USE DATA AND"
"GRAPH TO 
"COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow 0,\Max(\List 1),.5,\(-).1,1.2\Max(\List 2),.1
\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:700
File Name:VELOCITY
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"\Disp"VELOCITY AND    SPEED"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,1,1}\->\List 6
\Send(\List 6)
"BEGIN SUBJECTAT LEAST 3 M"
"FROM MOTION"
"DETECTOR."\Disp\ClrText
"PRESS TRIGGERAFTER SUBJECTMOVES."
{3,.1,99,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\ClrText
"THE FOLLOWNG"
"SCATTER PLOT"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS"
"STORED IN"
"LIST 1 AND"
"LIST 2."\Disp\ClrText
"USE DATA AND"
"SCATTER PLOT"
"TO COMPLETE"
"EXPLORATION."\Disp\ViewWindow 0,12,1,0,1.2\Max(\List 2),1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:765
File Name:RELATE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Norm
\G-Connect
\Y=Type
\ClrText
\ClrGraph
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\Cls
\ClrList
"MERIDIAN      CREATIVE      GROUP"\Disp"POSITION,     VELOCITY      AND"
"ACCELERATION"\Disp\ClrText
"CHECK THE"
"EQUIPMENT"
"SETUP BEFORE"
"CONTINUING."\Disp\ClrText
"BE SURE TO"
"CAREFULLLY"
"FOLLOW THE"
"WORKBOOK"\Disp"INSTRUCTIONS."\Disp\ClrText
"YOU ARE NOW"
"READY TO"
"BEGIN THE"
"EXPERIMENT."\Disp\ClrText
{1,0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
"POSITION THE OBJECT 0.5 M FROM MOTION"
"DETECTOR."\Disp\ClrText
"PRESS TRIGGERTHEN TOSS"
"OBJECT AS"
"DIRECTED."
\Locate 16,7,"[EXE]"
{3,.025,80,1,1}\->\List 6
\Send(\List 6)\Disp\ClrText
"GETTING        DATA..."
\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\ClrText
"THE FOLLOWNG"
"LINE GRAPHS"
"REPRSNTS THE"
"CLLCTED DATA"\Disp\ClrText
"THE DATA IS  STORED IN    LISTS 1-3."\Disp\ClrText
"USE DATA AND"
"LINE GRAPHS"
"TO COMPLETE"
"EXPLORATION."\Disp\ClrText
\ViewWindow O,2.5,.5,-1.25\Max(\List 3),1.25\Max(\List 3),1
\S-Gph1 \DrawOn,\xyLine,\List1,\List3,1,\Dot
\DrawStat

%End