[VB6]calcul et affichage d'une pente

**fahmichebaane** · 06/03/2006, 09h52

bonjour à tous
Je voudrais faire une prévision pour une série chronologique
J’ai une table Access de la forme
date traffic
1/1/2006 2000
2/1/2006 2500
3/1/2006 3000
……. ……..

Je veux faire une régression linéaire de cette série, pour cela je dois calculer la variance et la covariance pour trouver les paramètres (a, b) de la droite : traffic=a*date+b
Je sais que cela facile avec Excel
Mais dans mon application je faire l’affichage et le calcul de la pente avec un code vb 6.0
Je veux qq qui peut m’aider à résoudre ce problème
merci d'avance

**DarkVader** · 06/03/2006, 10h30

La variance est disponible sous Access -
sinon tu as les formules dans l'aide d'Excel - la mise en œuvre est facile

Variance :
[ n.Somme(x.x) - Somme(x).Somme(x) ] / n(n-1)

Covariance :
1/n . Somme[ EcartALaMoyenne (x) * EcartALaMoyenne (y) ]

**random** · 06/03/2006, 11h41

la covariance est la moyenne du produit des écarts ce qui donne en sql

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
select avg(pcar) as covariance from
(SELECT (data1-(select avg(data1) from matable))*(data2-(select avg(data2) from matable)) AS pcar
FROM matable)  
;

bien penser à diviser par varp et non par var

**random** · 06/03/2006, 17h17

attention la base va se retrouver déformée

01/01/2006 correspond à 38718 je te conseille de prendre comme entrée
x clng([date])-38717

**random** · 07/03/2006, 11h03

plus généralement on peut demander à access de faire tous les calculs
d'un coup
on obtient pour le même prix toutes les stats d'excel covariance,pente, ordonnée à l'origine, coefficient de corrélation et de détermination

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
SELECT SPRODECAR/NBVAL AS COVARIANCE, 
covariance/VARPX AS PENTE,
 moyenney-(moyennex*pente) AS ORIGINE,
 ((nbval*sprodxy)-(somx*somy)) /(sqr(((nbval*SX2) - (somx*somx)) * ((nbval*Sy2) - (somy*somy)))) AS COEFFCORRELATION, coeffcorrelation^2 AS COEFFDETERMINATION
FROM (SELECT
 Count(X) AS NBVAL, 
Sum(X) AS SOMX, 
Sum(Y) AS SOMY, 
Sum([x]*[y]) AS SPRODXY,
 VarP([x]) AS VARPX, 
Sum([X]*[x]) AS SX2, 
Sum([Y]*[y]) AS SY2,
 sum( (x-(select avg(x) from matable)) * (y-(select avg(y) from matable))) AS SPRODECAR,
 avg(x) as MOYENNEX, 
avg(y) as MOYENNEY 
FROM matable)  AS etape1;

**fahmichebaane** · 07/03/2006, 12h33

Je voudrais faire une prévision pour une série chronologique
J’ai une table Access de la forme
date traffic
1/1/2006 2000
2/1/2006 2500
3/1/2006 3000
……. ……..

Je veux faire une régression linéaire de cette série, pour cela je dois calculer la variance et la covariance pour trouver les paramètres (a, b) de la droite : traffic=a*date+b
Je sais que cela facile avec Excel
Mais dans mon application je faire l’affichage et le calcul de la pente avec un code vb 6.0
j' ai déja connecté ma base à mon applicaation et je cherche comment à partir des enregistrement calculer les paramètres (a, b) puis je dois afficher la série avec la pente comme le fait Excel
Je veux qq qui peut m’aider à résoudre ce problème

**jmfmarques** · 07/03/2006, 12h48

y1 = ax1 + b
y2 = ax2 + b

= système de 2 équations du 1er degré à 2 inconnues (a et b) puisque par définition sont connus x1, y1, x2 et y2.

Tout le reste n'est qu'algèbre de base (niveau 1er cycle du 2ème degré)

rechercher sur le forum. j'ai déjà donné cette réponse

**fahmichebaane** · 07/03/2006, 14h03

salut
le problème est facile lorsqu'il sagit de 2 equations mais on a n équations
et je besoin d'afficher la droite et la série avec un code vb 6.0
si vous pouvez m'aider pour écrire le code permet ca
merci

**jmfmarques** · 07/03/2006, 14h17

Je veux faire une régression linéaire de cette série, pour cela je dois calculer la variance et la covariance pour trouver les paramètres (a, b) de la droite : traffic=a*date+b

tu dois appliquer n (autant de fois que nécessaire) fois ce qui est dit dans mon message précédent. Cela peut être fait par une fonction à laquelle tu dois passer, chaque fois, x1, y1, x2 et y2 ! (ou y1 et y2 sont 2 valeurs, de la même droite, de traffic et x1 et x2 2 valeurs, de la même droite, de date) !