ClrHome
Disp "REMPLIR L1"
Disp "AVEC INDICE MAR"
Disp "IDEM L2 AVEC"
Disp "COURS TITRE"
Pause
ClrHome
0->L3(1)
0->L4(1)
For(I,2,dim(L1))
(L1(I)-L1(I-1))/L1(I-1)->L3(I)
(L2(I)-L2(I-1))/L2(I-1)->L4(I)
End
2-Var Stats L3, L4
Disp "x" ###RECOPIE PAS ; x est en fait dans Vars->statistics->x avec barre, c'est la moyenne de RM"
Disp "y" ###RECOPIE PAS ; y est en fait dans Vars->statistics->y avec barre, c'est la moyenne de RT"
écart-type^2->V ###Pour faire ça : Vars->statistics->écart-type et tu le mets au carré pour avoir la variance de RM"
Disp "V(RM)=",V
Pause
LinReg(ax+b) L3, L4, Y1
Equ>String(Y1,Str1) ### Tu trouves la fonction Equ>String dans le catalog (touche 0) et Str1 dans Vars->Strings
Text(0,0,"Y1(X)=",Str1)
Pause
ClrHome
expr(sub(Str1,1,8))->B
Disp "BETA=",B
Disp "COV(RM,RT)=",B*V