Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Zimmi am 14.10.02 - 12:58:31
-
Hallo,
Ziel ist es einen Report zu erstellen, die auf Grund einer Zeitspanne neben der durchschnittlichen Zeit zusätzlich die Standard-Abweichung beinhaltet.
Hat/Kennt da jemand ein Beispiel, wo dies realisiert ist ???
Schon mal vielen Dank im voraus ...
... Zimmi
-
yoo, da hab ich doch was ( ist aber nicht auf meinem Mist gewachsen )
Function StdDeviation(Src1 As Variant) As Variant
S1 = ConvertToNumberArray(Src1)
elem = Ubound(S1)
Forall numv In S1
sum = sum + numv
End Forall
mean = Round((sum / elem), 2)
Forall numv In S1
sumSquared = sumSquared + ((numv - mean) ^ 2)
End Forall
StdDeviation = Round(Cdbl(Sqr(sumSquared / ( elem - 1))), 2)
End Function
Function ConvertToNumberArray(Src1 As Variant) As Variant
S1 = SetArray(Src1)
Dim R1
ub1 = Ubound(S1)
dt1 = Datatype(S1(0))
If dt1 < V_STRING Then
R1 = S1
Else
Redim R1(ub1)
For i = Lbound(S1) To ub1
R1(i) = Cdbl(S1(i))
Next
End If
ConvertToNumberArray = R1
End Function
eknori
-
Hi eknori,
Danke schon mal, hab's mir bereits angesehen ...
... dabei ist mir aufgefallen, dass noch eine Funktion fehlt.
Function ConvertToNumberArray(Src1 As Variant) As Variant
S1 = SetArray(Src1) '<---- diese Funktion fehlt noch
Dim R1
Kannst du mir diese Funktion noch liefern ???
Wäre prima und vielen Dank schon mal
von Zimmi
-
Hallo Zimmi,
habs leider auch nicht vollständiger ( hier der Original Link: http://searchdomino.techtarget.com/tip/1,289483,sid4_gci490215,00.html )
Aber das sollte sich umgehen lassen, wenn man S1 "manuell" besetzt
S1(i%) = SRC1(i%) mit i% = 0 ... n
eknori
-
Hi eknori,
prima und Danke für den Link. :D :D
Hat zwar nicht ganz funktioniert, aber ein Suche auf der Seite hat zum Erfolg geführt ...
Zimmi