Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Standardabweichung
Autor: Noura
Datum: 14.01.02 13:06
Hallo zusammen! ich arbeite mit Access97 Ich habe ein Bericht erstellt der sich auf eine Abfrage bezieht ,Ergebnis der Abfrage sind 41 Meßwerte nun habe ich ein Textfeld im Bericht Plaziert und ich will die StandardAbweichung über diese 41 Meßwerte bilden und im Bericht ausgeben .ich gebe als Klassenmodul folgenden Code ein aber es klappt nicht , Private Function Berechnung() Dim n As Double Dim varianz As Double Dim ArithmetischesMittel As Double Dim i As Integer Dim Standardabweichung As Double Dim messwerte() As Double 'arithmetisches mittel berechnen : For i = 1 To n ArithmetischesMittel = ArithmetischesMittel + messwerte(i) Next i ArithmetischesMittel = ArithmetischesMittel / n 'varianz berechnen For i = 1 To n Dim zwischenWert As Double zwischenWert = Abs(ArithmetischesMittel - messwerte(i)) varianz = varianz + zwischenWert ^ 2 Next i varianz = varianz / (n - 1) ' standardabweichung Standardabweichung = Sqr(varianz) End Function Weiß jemand was darüber,Danke schon mal Gruß Noura

Standardabweichung

191

Noura

14.01.02 13:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen