Γκαουσιανή Καμπύλη Συχνοτήτων
Author: Παντελής Μπουμπούλης

Παίρνοντας ένα πολύ μεγάλο δείγμα ανθρώπων και μετρώντας το ύψος τους προκύπτει το παρακάτω διάγραμμα συχνοτήτων.

Αν υποθέσουμε ότι ο αριθμός των κλάσεων μεγαλώνει (τείνει στο άπειρο) και το πλάτους τους στο τείνει στο 0 παίρνουμε την καμπύλη συχνοτήτων.

Εμφάνιση Ιστογράμματος Συχνοτήτων

Εμφάνιση Πολυγώνου Συχνοτήτων

Εμφάνιση Σημείων Πολυγώνου

Εμφάνιση Συνάρτησης Συχνοτήτων

n = 8 (slider from 3 to 100, step 1)
b = 2
B: (b + 1 / n, 0)
a = 1
A: (a - 1 / n, 0)
X1 = Sequence((a + 1 / n * i, 0), i, 0, n)
X = Append(Append[A, X1], B)
μ = 1.5 (slider from -5 to 5, step 0.01)
σ = 0.2 (slider from 0.01 to 1, step 0.01)
f(x) = exp((-(x - μ)^(2)) / σ^(2))
L = Sequence((x(Element[X, i]) + 1 / n / 2, 0), i, 1, n + 2)
Y1 = Sequence((x(Element[X1, i]), f(Element[X1, i])), i, 1, n + 1)
Y = Append(Append[A, Y1], B)
U_L = Sequence((x(Element[L, i]), y(Element[Y, i + 1])), i, 1, n + 1)
U_R = Sequence((x(Element[L, i]), y(Element[Y, i])), i, 2, n + 2)
Polys = Sequence(Polygon[Element[L, i], Element[L, i + 1], Element[U_R, i], Element[U_L, i]], i, 1, n + 1)
Line = PolyLine(Y)
c = true
d = true
e = true
g = false