A voir également:
- Régression linéaire pondérée excel
- Liste déroulante excel - Guide
- Moyenne pondérée excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
3 réponses
salut voila le programme de la régression lineaire en VB/
' Effectuer une régression linéaire
' En entrée : un tableau de 5 points (0->4)
' En sortie : m (pente), b (décalage), Precision (Précision)
Public Sub Effectue_Regression(m As Double, b As Double, Precision As Double, Point() As CPoint)
On Error GoTo Erreur
Dim Xbarre As Double
Dim Ybarre As Double
Dim Numerateur As Double
Dim Denominateur As Double
Dim Y_Moyen As Double
Dim i As Integer
' Calcul de XBarre et YBarre
Xbarre = 0
Ybarre = 0
For i = 0 To 4
Xbarre = Xbarre + Point(i).X
Ybarre = Ybarre + Point(i).Y
Next i
Xbarre = Xbarre / 5
Ybarre = Ybarre / 5
'Calcul de m et b
Numerateur = 0
Denominateur = 0
For i = 0 To 4
Numerateur = Numerateur + (Point(i).X - Xbarre) * (Point(i).Y - Ybarre)
Denominateur = Denominateur + (Point(i).X - Xbarre) ^ 2
Next i
' pente
m = Numerateur / Denominateur
' constante
b = Ybarre - m * Xbarre
' Precision de l'estimation (estimation 'maison')
Precision = 0
For i = 0 To 4: Precision = Precision + ((m * Point(i).X + b) - Point(i).Y) ^ 2: Next i
Y_Moyen = 0
For i = 0 To 4: Y_Moyen = Y_Moyen + Point(i).Y ^ 2: Next i
Y_Moyen = Y_Moyen / 5
Precision = Precision / Y_Moyen
Exit Sub
BONNE JOURNEE
' Effectuer une régression linéaire
' En entrée : un tableau de 5 points (0->4)
' En sortie : m (pente), b (décalage), Precision (Précision)
Public Sub Effectue_Regression(m As Double, b As Double, Precision As Double, Point() As CPoint)
On Error GoTo Erreur
Dim Xbarre As Double
Dim Ybarre As Double
Dim Numerateur As Double
Dim Denominateur As Double
Dim Y_Moyen As Double
Dim i As Integer
' Calcul de XBarre et YBarre
Xbarre = 0
Ybarre = 0
For i = 0 To 4
Xbarre = Xbarre + Point(i).X
Ybarre = Ybarre + Point(i).Y
Next i
Xbarre = Xbarre / 5
Ybarre = Ybarre / 5
'Calcul de m et b
Numerateur = 0
Denominateur = 0
For i = 0 To 4
Numerateur = Numerateur + (Point(i).X - Xbarre) * (Point(i).Y - Ybarre)
Denominateur = Denominateur + (Point(i).X - Xbarre) ^ 2
Next i
' pente
m = Numerateur / Denominateur
' constante
b = Ybarre - m * Xbarre
' Precision de l'estimation (estimation 'maison')
Precision = 0
For i = 0 To 4: Precision = Precision + ((m * Point(i).X + b) - Point(i).Y) ^ 2: Next i
Y_Moyen = 0
For i = 0 To 4: Y_Moyen = Y_Moyen + Point(i).Y ^ 2: Next i
Y_Moyen = Y_Moyen / 5
Precision = Precision / Y_Moyen
Exit Sub
BONNE JOURNEE
bonjour tout le monde
je vous remercie d'habord pour ce programme mais j'ai rencontrè un problème c'est que j'ai une version en anglais et ce programme ca marche pas chez nous et je vous demande si quelqu'un peut le traduire et merci d'avance!!!!
je vous remercie d'habord pour ce programme mais j'ai rencontrè un problème c'est que j'ai une version en anglais et ce programme ca marche pas chez nous et je vous demande si quelqu'un peut le traduire et merci d'avance!!!!
breuge
Messages postés
139
Date d'inscription
jeudi 7 avril 2005
Statut
Membre
Dernière intervention
20 juin 2005
28
8 avril 2005 à 17:30
8 avril 2005 à 17:30
moi je conné VB mais pas les coefficient de machin truc...
mais je veux bien essayer de t'aider :)
mais je veux bien essayer de t'aider :)
