Accueil

Annexe 2

Sous-Programme Visual Basic de propagation d'erreur dans la régression polynomiale

 

Public Sub PROP_ERR()
ReDim S_Car_Ec(100) As Double, YL_Prov(100) As Double, Y_Prov(100) As Double

'Calcul de la propagation d'erreur sur chaque donnée
'Sauvetage des valeurs lissée de référence (YL(I) étant modifié par le calcul d'erreur)

For I = 1 To Nbr_Pt
  YL_Prov(I) = YL(I)
  Y_Prov(I) = Y(I)
  S_Car_Ec(I) = 0
Next I

'Calcul des sommes des carrés des écarts après ajout des sigma
For I = 1 To Nbr_Pt
  Y_Prov(I) = Y(I) + Y_Er(I)
  RGRS_POL Nbr_Pt, X(), Y_Prov(), Degre, Poly()
  For J = 1 To Nbr_Pt
    S_Car_Ec(J) = S_Car_Ec(J) + (YL(J) - YL_Prov(J)) ^ 2
  Next J
  Y_Prov(I) = Y(I)
Next I

'Calcul des erreurs sur les valeurs lissées
For I = 1 To Nbr_Pt
  YL_Er(I) = Sqr(S_Car_Ec(I))
  MSFlexGrid1.Row = I
  MSFlexGrid1.Col = 5
  MSFlexGrid1.Text = Int(1000 * YL_Er(I)) / 1000
Next I
End Sub