Voici un programme pour la regression
- Code: Tout sélectionner
Define LibPub regression(listx,listy)=
Func
:Local xbar,ybar,i,n,a,b,s,ss
:n:=dim(listx)
:xbar:=0: ybar:=0:s:=0:ss:=0
:For i,1,n
: xbar:=xbar+listx[i]
: ybar:=ybar+listy[i]
:EndFor
:xbar:=((xbar)/(n)): ybar:=((ybar)/(n))
:a:=((∑((listx[i]-xbar)*(listy[i]-ybar),i,1,i=n))/(∑((listx[i]-xbar)^(2),i,1,i=n)))
:b:=ybar-a*xbar
:
:Disp "Equation de la droite: Y = ",a,"*X + ",b
:Return ok
:EndFunc
Pour le calcul de a il m'affiche le message suivant:"Erreur : L’argument doit être une expression."
Je ne vois pas du tout l'erreur !
Merci d'avance
