Normal
Connected
Full
Func
Float
RectGC
GridOff
AxesOff
LabelOff
PlotsOff 
FnOff 
ClrDraw
CoordOn
­15Xmin
79Xmax
0Ymin
62Ymax
For(X,62,60,­1)
Line(4,X,8,X)
End
Pt-On(0,56)
Pt-On(0,55)
Pt-On(­1,56)
Pt-On(1,53)
Line(4,59,9,59)
Line(4,58,9,58)
Line(4,57,9,57)
Line(14,59,17,59)
Line(14,58,18,58)
Line(14,57,18,57)
Line(1,56,7,56)
Line(1,55,7,55)
Line(16,56,19,56)
Line(16,55,19,55)
Line(1,54,9,54)
Line(2,53,9,53)
Line(14,54,19,54)
Line(14,53,19,53)
Line(2,52,9,52)
Line(14,52,19,52)
Line(3,51,9,51)
Line(15,51,19,51)
Line(7,50,10,50)
Line(3,50,4,50)
Line(14,50,17,50)
Line(8,49,15,49)
Line(8,48,14,48)
Line(9,47,14,47)
Line(9,46,13,46)
Line(10,45,13,45)
Line(11,44,13,44)
Line(11,52,11,58)
Line(12,52,12,58)
Line(11,60,12,60)
Line(11,61,12,61)
Text(4,39,"TEXAS")
Text(11,39,"INSTRUMENTS")
Line(­6,41,70,41)
Line(70,41,70,26)
Line(70,26,­6,26)
Line(­6,26,­6,41)
Text(22,17,"MAT.  DO  MUNDO  REAL")
Text(29,12,"     COM  O  SISTEMA  CBL")
Text(43,29,"OLHA  A  LUZ!")
Text(50,1,"ACTIVIDADE 15")
Text(50,80,"V1.2")
Text(57,6,"PRIMA [ENTER] PARA INICIO"
For(I,2,62,1)
For(J,22,12,­1)
If getKey=105
Goto R
Pt-Change(I,J)
End
End
Pause 
Lbl R
AxesOn
ClrHome
Menu("****OPCOES****","RECOLHER DADOS",1,"USAR AMOSTRA",2,"SAIR",3)
Lbl 3
ClrHome
Stop
Lbl 2
prgmDATA15B
Func
Connected
Full
PlotsOff 
FnOff 
ClrHome
Goto S
Lbl 1
ClrHome
Menu("VER INSTRUCOES?","SIM",G,"NAO",H,"SAIR",3)
Lbl G
1Xmin:95Xmax
1Ymin:63Ymax
0Xscl:0Yscl
ClrHome
FnOff 
{24,24,38,38,36,36,24}LŽ
{14,50,50,40,33,14,14}L¤
Plot1(xyLine,LŽ,L¤, )
{60,60,71,71,60}LÐ
{13,50,50,13,13}Lð
Plot2(xyLine,LÐ,Lð, )
Horiz
Text(16,37,"CBL")
Text(16,73,"TI-83")
Line(26,38,35,38)
Line(35,38,35,46)
Line(35,46,26,46)
Line(26,46,26,38)
For(I,27,34,2)
Pt-On(I,32)
End
For(I,38,46,2)
Line(62,I,69,I)
End
For(K,20,32,4)
For(I,62,68,3)
Pt-On(I,K)
Pt-On(I+1,K)
End
End
Disp "USE CABO NORMAL"
Disp "PARA LIGAR"
Disp "CBL COM TI-83."
Output(4,10,"[ENTER]")
For(I,13,5,­.5)
Pt-On(27,I)
End
For(I,27,66,.25)
Pt-On(I,5)
End
For(I,5,13,.5)
Pt-On(66,I)
End
Pause 
ClrHome
Line(34,53,34,63)
Line(33,55,35,55)
Line(36,57,32,57)
Disp "LIGUE O SENSOR"
Disp "DE LUZ AO CANAL"
Disp "CH1 NO TOPO DO"
Output(4,1,"CBL.     [ENTER]")
Pause 
ClrHome
For(I,38,46,2)
Line(26,I,35,I)
End
Disp "LIGUE O CBL."
Output(4,10,"[ENTER]")
Pause 
Full
ClrHome
Disp "AGORA ESTOU A"
Disp "VERIFICAR"
Disp "A LIGACAO"
Disp "CALCULADORA-CBL."
Disp "P.F.ESPERE..."
{1,0}LŽ
Send(LŽ)
{0}L¤
Lbl M
{7}LŽ
Send(LŽ)
Get(L¤)
If dim(L¤)=1 and L¤(1)=0
Then
ClrHome
Disp "*** ERRO NA ***
Disp "*** LIGACAO ***"
Disp "CARREGUE BEM"
Disp "NAS LIGACOES"
Disp "DO CABO E PRIMA"
Disp "[ENTER]."
Pause 
Goto M
End
Disp " "
Output(7,1," ESTADO: O.K."
Output(8,5,"PRIMA [ENTER]")
Pause 
Lbl H
Full
ClrHome
PlotsOff 
FnOff 
Func
AxesOn
{1,0}LŽ
Send(LŽ)
{1,1,1}LŽ
Send(LŽ)
ClrHome
Disp "SEGURE NO SENSOR"
Disp "PERTO DE UMA"
Disp "LAMPADA"
Disp "FLUORESCENTE."
Disp ""
Disp "PRIMA [ENTER]"
Disp "PARA REGISTAR A"
Output(8,1,"INTENSIDADE.")
Pause 
{3,.0003,99,0,0,0,0,0,1}LŽ
Send(LŽ)
ClrHome
Disp "ANALISANDO...."
ClrDraw
Get(L¤)
Get(LŽ)
Lbl S
.0025Xscl
0Xmin
max(LŽ)Xmax
.25*(max(L¤)-min(L¤))A
.025Yscl
min(L¤)-AYmin
max(L¤)+AYmax
Plot1(xyLine,LŽ,L¤, )
Text(2,2,"INTENSIDADE")
Text(54,73,"TEMPO")
1U:0V
StoreGDB GDB6
Stop