Ψηφιακό σχολείο - Μαθηματικά Β΄ Γυμνασίου - Α.4.3. Κατανομή συχνοτήτων και σχετικών συχνοτήτων

ΟΚ

Τι ώρα είναι;

Οι δείκτες του ρολογιού 
μετακινούνται από τα 
πράσινα σημεία.
Βάλε τη σωστή ώρα 
στο ρολόι και 
επίλεξε το ΟΚ.

Αριθμός μαθητών

Σύνολο

Ρωτήσαμε ένα δείγμα 
μαθητών Γυμνασίου 
πόσες ώρες περίπου 
βλέπουν τηλεόραση την εβδομάδα.

Οι παραπάνω αριθμοί είναι 
οι απαντήσεις των μαθητών αυτών.

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

Η διαλογή ολοκληρώθηκε!

Τώρα να συμπληρώσετε
τον αριθμό των μαθητών
στο λογιστικό φύλλο
της εφαρμογής.
Για να εμφανιστεί, τραβήξτε 
την κατακόρυφη πλευρά του
που βρίσκεται 
στη δεξιά άκρη της εφαρμογής.

Ώρες τηλεθέασης
  την εβδομάδα

 Διαλογή

Αριθμός μαθητών
  (συχνότητες)

       Σχετικές
  Συχνότητες (%)

 Γωνίες κυκλικού
   διαγράμματος

Γεωμετρικά εργαλεία

Σχετικές Συχνότητες (%)

Γωνίες Κυκλικού Τομέα

Η συμπλήρωση του αριθμού των μαθητών 
(συχνοτήτων) ολοκληρώθηκε!

Τώρα να υπολογίσετε τις σχετικές συχνότητες
και να συμπληρώσετε την αντίστοιχη στήλη
στο λογιστικό φύλλο της εφαρμογής
(τραβήξτε περισσότερο την άκρη).

Η συμπλήρωση των σχετικών συχνοτήτων 
ολοκληρώθηκε!

Τώρα να υπολογίσετε τις γωνίες
για την κατασκευή του κυκλικού διαγράμματος
και να συμπληρώσετε την αντίστοιχη στήλη
στο λογιστικό φύλλο της εφαρμογής
(τραβήξτε περισσότερο την άκρη).

Η συμπλήρωση του πίνακα ολοκληρώθηκε!

Τώρα να κλείσετε το λογιστικό φύλλο
και να κατασκευάσετε
το διάγραμμα των συχνοτήτων,
το διάγραμμα των σχετικών συχνοτήτων,
το κυκλικό διάγραμμα και
το εικονόγραμμα
με τα εργαλεία που σας δίνονται
στην εργαλειοθήκη.

Τι χρειάζεστε;

Χώρο

Εικόνες

Ώρες τηλεθέασης

Διαλογή

Κατανομή

συχνοτήτων

τσκΟΚ = false
ΩΧ_Λ = Point(Circle[(0, 0), 4.2])
Ω_Λ = Mod(round(Angle[ΩΧ_Λ, (0, 0), (0, 1)] / (6°)), 60)
ΩΧ_Ω = Point(Circle[(0, 0), 3.7])
Ω_Ω = Mod(round(Angle[ΩΧ_Ω, (0, 0), (0, 1)] / (30°) - Ω_Λ / 60), 12)
Ωλ = 0 (slider from 0 to 10, step 0.0010)
ΟΚ: τσκΟΚ ∧ Ωλ ≥ 1
Σ50 = (8.3, 2.4)
Σ49 = (-8.34, 2.9)
Σ48 = (-7.42, 4.16)
Σ47 = (7.34, 2.9)
Σ46 = (3.9, 3.44)
Σ45 = (5.56, 2.22)
Σ44 = (1.46, 4.22)
Σ43 = (-0.74, 3.56)
Σ42 = (-2.54, 3.42)
Σ41 = (-3.58, 2.38)
Σ40 = (-6.9, 2.78)
Σ39 = (-2.2, 2.9)
Σ38 = (0.86, 1.96)
Σ37 = (3.08, 1.78)
Σ36 = (7.14, 4.3)
Σ35 = (8.06, 3.48)
Σ34 = (5.98, 2.82)
Σ33 = (4.44, 4.02)
Σ32 = (2.12, 3.08)
Σ31 = (-0.5, 4.3)
Σ30 = (-1.22, 2.8)
Σ29 = (-2.96, 1.66)
Σ28 = (-5.28, 2.34)
Σ27 = (-5.9, 4.26)
Σ26 = (-7.36, 2.12)
Σ25 = (-6.04, 3.1)
Σ24 = (-3.64, 3.34)
Σ23 = (0.38, 3.84)
Σ22 = (1.14, 2.74)
Σ21 = (4.62, 2.92)
Σ20 = (7.34, 2.18)
Σ19 = (5.5, 3.86)
Σ18 = (3.1, 2.92)
Σ17 = (-6.86, 3.56)
Σ16 = (-4.68, 1.7)
Σ15 = (-2.92, 4.12)
Σ14 = (1.72, 3.74)
Σ13 = (-0.54, 2.26)
Σ12 = (-4.22, 4.3)
Σ11 = (-7.84, 3.76)
Σ10 = (-4.5, 2.64)
Σ09 = (-1.76, 3.52)
Σ08 = (1.96, 2.1)
Σ07 = (3.04, 3.92)
Σ06 = (6.7, 3.52)
Σ05 = (4.32, 2.06)
Σ04 = (-0.06, 3.24)
Σ03 = (-2.7, 2.54)
Σ02 = (-4.86, 3.52)
Σ01 = (-6.24, 2.22)
Σημεία: {Σ01, Σ02, Σ03, Σ04, Σ05, Σ06, Σ07, Σ08, Σ09, Σ10, Σ11, Σ12, Σ13, Σ14, Σ15, Σ16, Σ17, Σ18, Σ19, Σ20, Σ21, Σ22, Σ23, Σ24, Σ25, Σ26, Σ27, Σ28, Σ29, Σ30, Σ31, Σ32, Σ33, Σ34, Σ35, Σ36, Σ37, Σ38, Σ39, Σ40, Σ41, Σ42, Σ43, Σ44, Σ45, Σ46, Σ47, Σ48, Σ49, Σ50}
ΠίνακαςΠλάτη: {2.5, 1.5, 2.5, 2.5, 2.5}
ΠίνακαςΚορυφή = (-2.82, 0.3)
ΔιαλογήΧ1: x(ΠίνακαςΚορυφή) + Element[ΠίνακαςΠλάτη, 1]
ΔιαλογήΧ2: ΔιαλογήΧ1 + Element[ΠίνακαςΠλάτη, 2]
κ = 7
ΠίνακαςΥψη = Join({{0.9}, Sequence[0.5, ι, 1, κ], {0.5}})
ΔιαλογήΥι = Sequence(y(ΠίνακαςΚορυφή) - Sum[ΠίνακαςΥψη, ι + 1], ι, 0, κ)
B9 = NaN
B8 = NaN
B7 = NaN
B6 = NaN
B5 = NaN
B4 = NaN
B3 = NaN
B2 = NaN
τ = ΚατανομήΧρόνου(Ω_Ω, Ω_Λ, 0.5, 0.3, {20, 25, 40, 20, 25, 40, 50}, 7)
ΛογιστικόΣυχνότητεςΑπαντήσεις: {B2, B3, B4, B5, B6, B7, B8, B9}
ΣημείαΜέσα = Sequence(ΔιαλογήΧ1 < x(Element[Σημεία, ι]) ∧ x(Element[Σημεία, ι]) < ΔιαλογήΧ2 ∧ Element[ΔιαλογήΥι, Element[τ, ι]] > y(Element[Σημεία, ι]) ∧ y(Element[Σημεία, ι]) > Element[ΔιαλογήΥι, Element[τ, ι] + 1], ι, 1, 50)
ν = Length(τ)
δ_ι = Sequence(Sum[Sequence[Element[ΣημείαΜέσα, ι] ∧ Element[τ, ι] ≟ χ, ι, 1, ν]], χ, 1, κ)
ΔιαλογήΟΚ: Sum[δ_ι] ≟ ν
ν_ι = Sequence(Sum[Sequence[Element[τ, j] ≟ i, j, 1, ν]], i, 1, κ)
ΛογιστικόΣυχνότητεςΟΚ: Sum[Join[{Sequence[Element[ΛογιστικόΣυχνότητεςΑπαντήσεις, ι] ≠ Element[ν_ι, ι], ι, 1, κ], {Element[ΛογιστικόΣυχνότητεςΑπαντήσεις, κ + 1] ≠ ν}}]] ≟ 0
φ_ι = Sequence((100 * Element[ν_ι, ι] / ν), ι, 1, κ)
α_ι = Sequence((360 * Element[ν_ι, ι] / ν), ι, 1, κ)
C2 = NaN
C3 = NaN
C4 = NaN
C5 = NaN
C6 = NaN
C7 = NaN
C8 = NaN
C9 = NaN
ΛογιστικόΣχετικέςΑπαντήσεις: {C2, C3, C4, C5, C6, C7, C8, C9}
ΛογιστικόΣχετικέςΟΚ: Sum[Join[{Sequence[Element[ΛογιστικόΣχετικέςΑπαντήσεις, ι] ≠ Element[φ_ι, ι], ι, 1, κ], {Element[ΛογιστικόΣχετικέςΑπαντήσεις, κ + 1] ≠ 100}}]] ≟ 0
D2 = NaN
D3 = NaN
D4 = NaN
D5 = NaN
D6 = NaN
D7 = NaN
D8 = NaN
D9 = NaN
ΛογιστικόΓωνίεςΑπαντήσεις: {D2, D3, D4, D5, D6, D7, D8, D9}
ΛογιστικόΓωνίεςΟΚ: Sum[Join[{Sequence[Element[ΛογιστικόΓωνίεςΑπαντήσεις, ι] ≠ Element[α_ι, ι], ι, 1, κ], {Element[ΛογιστικόΓωνίεςΑπαντήσεις, κ + 1] ≠ 360}}]] ≟ 0
Βήμα = If(ΛογιστικόΣυχνότητεςΟΚ ∧ ΛογιστικόΣχετικέςΟΚ ∧ ΛογιστικόΓωνίεςΟΚ, 5, If[ΛογιστικόΣυχνότητεςΟΚ ∧ ΛογιστικόΣχετικέςΟΚ, 4, If[ΛογιστικόΣυχνότητεςΟΚ, 3, If[ΔιαλογήΟΚ, 2, If[ΟΚ, 1, 0]]]])
ΠίνακαςΑποτελέσματα: ΛογιστικόΣυχνότητεςΟΚ
Ωλ2: (Ωλ^(2) - (0.1 * Ωλ)) / 0.9
Ωλ2': 1 - Ωλ2
ΩΔ_ω = Segment((0, 0), (((Ωλ2' * 3.3) * cos((((0.25 - (Ω_Ω + Ω_Λ / 60) / 12) * 2) * 3.141592653589793))), ((Ωλ2' * 3.3) * sin((((0.25 - (Ω_Ω + Ω_Λ / 60) / 12) * 2) * 3.141592653589793)))))
Ωθ1: (((Ωλ2' * 6.2) * cos(31° - (Ωλ2 * 360°))), ((Ωλ2' * 6.2) * sin(31° - (Ωλ2 * 360°))))
Ωθ2: (((Ωλ2' * 5.8) * cos(25° - (Ωλ2 * 560°))), ((Ωλ2' * 5.8) * sin(25° - (Ωλ2 * 560°))))
Ωλτ = If(τσκΟΚ ∧ Ωλ < 1, 1, 0)
ΠίνακαςΔεκαδικά: {7, 7, 7, 7, 7}
ΠίνακαςΠλάτοςΨηφίου = 0.155
ΚΣ = Vector((-0.08, -0.12))
Κ01 = Text(Element[τ, 1], Translate[Σ01, ΚΣ])
Κ02 = Text(Element[τ, 2], Translate[Σ02, ΚΣ])
Κ03 = Text(Element[τ, 3], Translate[Σ03, ΚΣ])
Κ04 = Text(Element[τ, 4], Translate[Σ04, ΚΣ])
Κ05 = Text(Element[τ, 5], Translate[Σ05, ΚΣ])
Κ06 = Text(Element[τ, 6], Translate[Σ06, ΚΣ])
Κ07 = Text(Element[τ, 7], Translate[Σ07, ΚΣ])
Κ08 = Text(Element[τ, 8], Translate[Σ08, ΚΣ])
Κ09 = Text(Element[τ, 9], Translate[Σ09, ΚΣ])
Κ10 = Text(Element[τ, 10], Translate[Σ10, ΚΣ])
Κ11 = Text(Element[τ, 11], Translate[Σ11, ΚΣ])
Κ12 = Text(Element[τ, 12], Translate[Σ12, ΚΣ])
Κ13 = Text(Element[τ, 13], Translate[Σ13, ΚΣ])
Κ14 = Text(Element[τ, 14], Translate[Σ14, ΚΣ])
Κ15 = Text(Element[τ, 15], Translate[Σ15, ΚΣ])
Κ16 = Text(Element[τ, 16], Translate[Σ16, ΚΣ])
Κ17 = Text(Element[τ, 17], Translate[Σ17, ΚΣ])
Κ18 = Text(Element[τ, 18], Translate[Σ18, ΚΣ])
Κ19 = Text(Element[τ, 19], Translate[Σ19, ΚΣ])
Κ20 = Text(Element[τ, 20], Translate[Σ20, ΚΣ])
Κ21 = Text(Element[τ, 21], Translate[Σ21, ΚΣ])
Κ22 = Text(Element[τ, 22], Translate[Σ22, ΚΣ])
Κ23 = Text(Element[τ, 23], Translate[Σ23, ΚΣ])
Κ24 = Text(Element[τ, 24], Translate[Σ24, ΚΣ])
Κ25 = Text(Element[τ, 25], Translate[Σ25, ΚΣ])
Κ26 = Text(Element[τ, 26], Translate[Σ26, ΚΣ])
Κ27 = Text(Element[τ, 27], Translate[Σ27, ΚΣ])
Κ28 = Text(Element[τ, 28], Translate[Σ28, ΚΣ])
Κ29 = Text(Element[τ, 29], Translate[Σ29, ΚΣ])
Κ30 = Text(Element[τ, 30], Translate[Σ30, ΚΣ])
Κ31 = Text(Element[τ, 31], Translate[Σ31, ΚΣ])
Κ32 = Text(Element[τ, 32], Translate[Σ32, ΚΣ])
Κ33 = Text(Element[τ, 33], Translate[Σ33, ΚΣ])
Κ34 = Text(Element[τ, 34], Translate[Σ34, ΚΣ])
Κ35 = Text(Element[τ, 35], Translate[Σ35, ΚΣ])
Κ36 = Text(Element[τ, 36], Translate[Σ36, ΚΣ])
Κ37 = Text(Element[τ, 37], Translate[Σ37, ΚΣ])
Κ38 = Text(Element[τ, 38], Translate[Σ38, ΚΣ])
Κ39 = Text(Element[τ, 39], Translate[Σ39, ΚΣ])
Κ40 = Text(Element[τ, 40], Translate[Σ40, ΚΣ])
Κ41 = Text(Element[τ, 41], Translate[Σ41, ΚΣ])
Κ42 = Text(Element[τ, 42], Translate[Σ42, ΚΣ])
Κ43 = Text(Element[τ, 43], Translate[Σ43, ΚΣ])
Κ44 = Text(Element[τ, 44], Translate[Σ44, ΚΣ])
Κ45 = Text(Element[τ, 45], Translate[Σ45, ΚΣ])
Κ46 = Text(Element[τ, 46], Translate[Σ46, ΚΣ])
Κ47 = Text(Element[τ, 47], Translate[Σ47, ΚΣ])
Κ48 = Text(Element[τ, 48], Translate[Σ48, ΚΣ])
Κ49 = Text(Element[τ, 49], Translate[Σ49, ΚΣ])
Κ50 = Text(Element[τ, 50], Translate[Σ50, ΚΣ])
A2 = 1
A3 = 2
A4 = 3
A5 = 4
A6 = 5
A7 = 6
A8 = 7
Ω_c = Circle((0, 0), (4.5 * Ωλ2'))
Ωσ_λ = Sequence(If[Mod[i, 5] > 0, (((Ωλ2' * 4.2) * cos(3.141592653589793 / 2 - (i * 3.141592653589793 / 30))), ((Ωλ2' * 4.2) * sin(3.141592653589793 / 2 - (i * 3.141592653589793 / 30))))], i, 0, 59)
Ωσ_ω = Sequence((((Ωλ2' * 4.2) * cos(3.141592653589793 / 2 - (i * 3.141592653589793 / 6))), ((Ωλ2' * 4.2) * sin(3.141592653589793 / 2 - (i * 3.141592653589793 / 6)))), i, 0, 11)
ΧάρακαςΑ = (4.4, 1.34)
ΧάρακαςΒ = (8.4, 1.34)
ΧάρακαςΦόντο, ΧάρακαςΔιαγράμμιση1, ΧάρακαςΔιαγράμμιση2, ΧάρακαςΔιαγράμμιση3, ΧάρακαςΑρίθμηση = Χάρακας(ΧάρακαςΑ, ΧάρακαςΒ)
ΜοιρογνωμόνιοΟ = (6.4, 1.72)
ΜοιρογνωμόνιοΑ = (8.4, 1.72)
ΜοιρογνωμόνιοΦόντο, ΜοιρογνωμόνιοΔιαγράμμιση1, ΜοιρογνωμόνιοΔιαγράμμιση2, ΜοιρογνωμόνιοΔιαγράμμιση3, ΜοιρογνωμόνιοΑρίθμηση = Μοιρογνωμόνιο(ΜοιρογνωμόνιοΟ, ΜοιρογνωμόνιοΑ)
ΠίνακαςΑριθμοί: {Join[{{0}, Sequence[ι, ι, 1, κ], {0}}], {0, 0, 0, 0, 0, 0, 0, 0, 0}, Join[{{0}, ν_ι, {ν}}], Join[{{0}, φ_ι, {100}}], Join[{{0}, α_ι, {360}}]}
ΠίνακαςΚείμενα: {Join[{{κεφαλίδα1}, Sequence["", ι, 1, κ], {""}}], Join[{{κεφαλίδα2}, Sequence["", ι, 1, κ], {"  Σύνολο"}}], Join[{{κεφαλίδα3}, Sequence["", ι, 1, κ], {""}}], Join[{{κεφαλίδα4}, Sequence["", ι, 1, κ], {""}}], Join[{{κεφαλίδα5}, Sequence["", ι, 1, κ], {""}}]}
ΠίνακαςΕίναιΑριθμοί: {Join[{{false}, Sequence[true, ι, 1, κ], {false}}], Join[{{false}, Sequence[false, ι, 1, κ], {false}}], Join[{{false}, Sequence[true, ι, 1, κ + 1]}], Join[{{false}, Sequence[true, ι, 1, κ + 1]}], Join[{{false}, Sequence[true, ι, 1, κ + 1]}]}
ΠίνακαςΕντονα: {Join[{{true}, Sequence[false, ι, 1, κ], {false}}], Join[{{true}, Sequence[false, ι, 1, κ], {true}}], Join[{{true}, Sequence[false, ι, 1, κ], {true}}], Join[{{true}, Sequence[false, ι, 1, κ], {true}}], Join[{{true}, Sequence[false, ι, 1, κ], {true}}]}
ΠίνακαςΟρατέςΓραμμές = Join({Sequence[true, ι, 1, κ + 1], {Βήμα ≥ 3}})
ΠίνακαςΚενόΠάνω = 0.35
ΠίνακαςΚενόΑριστερά = 0.05
ΠίνακαςΟρατέςΣτήλες: {true, true, Βήμα ≥ 3, Βήμα ≥ 4, Βήμα ≥ 5}
ΠίνακαςΕτικέτεςΕντονες, ΠίνακαςΕτικέτεςΑτονες, ΠίνακαςΠλέγμα, ΠίνακαςΦόντο = Πίνακας(ΠίνακαςΚορυφή, ΠίνακαςΚείμενα, ΠίνακαςΑριθμοί, ΠίνακαςΕίναιΑριθμοί, ΠίνακαςΕντονα, ΠίνακαςΕντονα, ΠίνακαςΠλάτη, ΠίνακαςΥψη, ΠίνακαςΟρατέςΓραμμές, ΠίνακαςΟρατέςΣτήλες, ΠίνακαςΚενόΑριστερά, ΠίνακαςΚενόΠάνω, ΠίνακαςΔεκαδικά, ΠίνακαςΠλάτοςΨηφίου)
τσκΓεωμετρικάΕργαλεία = false
ΣημείαΟρατά = Sequence(((2 * ν) * Ωλ2) ≥ ν + ι ∧ (¬Element[ΣημείαΜέσα, ι]) ∧ ι ≤ ν ∧ Βήμα ≤ 1, ι, 1, 50)
ΩΔ_λ = Segment((0, 0), (((Ωλ2' * 3.9) * cos((((0.25 - Ω_Λ / 60) * 2) * 3.141592653589793))), ((Ωλ2' * 3.9) * sin((((0.25 - Ω_Λ / 60) * 2) * 3.141592653589793)))))
ΠίνακαςΣφήνες = Sequence(If[Element[δ_ι, ι] > 0, ΣφήνεςΑρίθμησης[(ΔιαλογήΧ1, Element[ΔιαλογήΥι, ι + 1] + 0.05), Min[0.12, 1.3 / Max[ν_ι]], Element[ΠίνακαςΥψη, 2] - 0.1, 0.1, Element[δ_ι, ι]]], ι, 1, κ)
picW = 1
pica: (((-Ωλ2') * picW), ((-Ωλ2') * picW))
picb: ((Ωλ2' * picW), ((-Ωλ2') * picW))
picd: (((-Ωλ2') * picW), (Ωλ2' * picW))
εικ_1: {εικ1, εικ2, εικ3, εικ4, εικ5, εικ6, εικ7}
ΣημείαΥ1 = Min(Sequence[y(Element[Σημεία, ι]), ι, 1, 50])
ΣημείαΥ2 = Max(Sequence[y(Element[Σημεία, ι]), ι, 1, 50])
ΣημείαΑρχής = Sequence((x(Element[Σημεία, ι]), ((2 * ΣημείαΥ2) * (y(Element[Σημεία, ι]) - ΣημείαΥ1) / (ΣημείαΥ2 - ΣημείαΥ1)) - ΣημείαΥ2), ι, 1, 50)
τσκΧώρος = false
τσκΕικόνες = false
Ωμ = Sequence({Circle[(((Ωλ2' * 2.5) * cos(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3))), ((Ωλ2' * 2.5) * sin(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3)))), (Ωλ2' * 1.2)], Sequence[(((Ωλ2' * 2.5) * cos(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3))) + ((Ωλ2' * 1.1) * cos(3.141592653589793 / 2 - (j * 3.141592653589793 / 6))), ((Ωλ2' * 2.5) * sin(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3))) + ((Ωλ2' * 1.1) * sin(3.141592653589793 / 2 - (j * 3.141592653589793 / 6)))), j, 0, 11], Segment[(((Ωλ2' * 2.5) * cos(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3))), ((Ωλ2' * 2.5) * sin(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3)))), Translate[(((Ωλ2' * 2.5) * cos(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3))), ((Ωλ2' * 2.5) * sin(3.141592653589793 / 2 - ((2 * i) * 3.141592653589793 / 3)))), Vector[(Ωλ2' * Vector[(cos(3.141592653589793 / 2 + (2^(i + 1) * Angle[(0, 1), (0, 0), ΩΧ_Λ])), sin(3.141592653589793 / 2 + (2^(i + 1) * Angle[(0, 1), (0, 0), ΩΧ_Λ])))])]]]}, i, 0, 2)
ΠίνακαςΜικρός = TableText({Join[{{"Ώρες"}, Sequence[ι, ι, 1, κ], {"Σύν."}}], Join[{{"Συχν."}, ν_ι, {ν}}], Join[{{"Σχ.Σ.%"}, φ_ι, {100}}], Join[{{"Γωνίες"}, α_ι, {360}}]}, "vc")
Εικόνες = Sequence(Translate[Element[εικ_1, Element[τ, ι]], Vector[Dilate[Element[Σημεία, ι], Ωλ2, Element[ΣημείαΑρχής, ι]]]], ι, 1, ν)
Α = (12.72, -5.956)
Β = (15.52, -5.956)

Tool: Πίνακας
Αρχή, πίνακες: κείμενα, αριθμοί, είναι-αριθμός, έντονα κελιά - ετικέτες, λίστες: πλάτη, ύψη, ορατές γραμμές - στήλες, αριθμοί: κενό αριστερά - πάνω, λίστα: δεκαδικά, αριθμός: πλάτος ψηφίου.
Input: A, Κείμενα, Αριθμοί, ΕίναιΑριθμός, ΕντοναΚελιά, ΕντονεςΕτικέτες, Πλάτη, Υψη, ΟρατέςΓραμμές, ΟρατέςΣτήλες, ΚενόΑριστερά, ΚενόΠάνω, Δεκαδικά, ΠλάτοςΨηφίου
Output: ΕτικέτεςΕντονες, ΕτικέτεςΑτονες, Πλέγμα, Φόντο

ΟρατέςΓραμμές: {true, true, true, true, true, true, true, true, false}
Υψη: {0.9, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5}
Γραμμές = Length(Υψη)
ΟρατάΥψη = Sequence(If[Element[ΟρατέςΓραμμές, γ], Element[Υψη, γ], 0], γ, 1, Γραμμές)
ΟρατέςΣτήλες: {true, true, false, false, false}
Πλάτη: {2.5, 1.5, 2.5, 2.5, 2.5}
Στήλες = Length(Πλάτη)
Κείμενα: {{"Ώρες τηλεθέασης
  την εβδομάδα", "", "", "", "", "", "", "", ""}, {"
 Διαλογή", "", "", "", "", "", "", "", "  Σύνολο"}, {"Αριθμός μαθητών
  (συχνότητες)", "", "", "", "", "", "", "", ""}, {"       Σχετικές
  Συχνότητες (%)", "", "", "", "", "", "", "", ""}, {" Γωνίες κυκλικού
   διαγράμματος", "", "", "", "", "", "", "", ""}}
ΟρατάΠλάτη = Sequence(If[Element[ΟρατέςΣτήλες, σ], Element[Πλάτη, σ], 0], σ, 1, Στήλες)
Χ = Sequence(Sum[ΟρατάΠλάτη, ι], ι, 0, Στήλες)
Ψ = Sequence((-Sum[ΟρατάΥψη, ι]), ι, 0, Γραμμές)
Πλάτος = Sum(ΟρατάΠλάτη)
Υψος: (-Sum[ΟρατάΥψη])
Πλέγμα: {Sequence[Segment[(x(A) + Element[Χ, σ], y(A)), (x(A) + Element[Χ, σ], y(A) + Υψος)], σ, 1, Στήλες + 1], Sequence[Segment[(x(A), y(A) + Element[Ψ, γ]), (x(A) + Πλάτος, y(A) + Element[Ψ, γ])], γ, 1, Γραμμές + 1]}
ΕντοναΚελιά: {{true, false, false, false, false, false, false, false, false}, {true, false, false, false, false, false, false, false, true}, {true, false, false, false, false, false, false, false, true}, {true, false, false, false, false, false, false, false, true}, {true, false, false, false, false, false, false, false, true}}
ΕίναιΑριθμός: {{false, true, true, true, true, true, true, true, false}, {false, false, false, false, false, false, false, false, false}, {false, true, true, true, true, true, true, true, true}, {false, true, true, true, true, true, true, true, true}, {false, true, true, true, true, true, true, true, true}}
Φόντο: {Sequence[Sequence[Polygon[(x(A) + Element[Χ, σ], y(A) + Element[Ψ, γ]), (x(A) + Element[Χ, σ + 1], y(A) + Element[Ψ, γ]), (x(A) + Element[Χ, σ + 1], y(A) + Element[Ψ, γ + 1]), (x(A) + Element[Χ, σ], y(A) + Element[Ψ, γ + 1])], γ, 1, Γραμμές], σ, 1, Στήλες], Sequence[Sequence[If[Element[Element[ΕντοναΚελιά, σ], γ], Polygon[(x(A) + Element[Χ, σ], y(A) + Element[Ψ, γ]), (x(A) + Element[Χ, σ + 1], y(A) + Element[Ψ, γ]), (x(A) + Element[Χ, σ + 1], y(A) + Element[Ψ, γ + 1]), (x(A) + Element[Χ, σ], y(A) + Element[Ψ, γ + 1])], Polygon[{(0, 0)}]], γ, 1, Γραμμές], σ, 1, Στήλες]}
Αριθμοί: {{0, 1, 2, 3, 4, 5, 6, 7, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 10, 6, 3, 2, 3, 6, 10, 40}, {0, 25, 15, 7.5, 5, 7.5, 15, 25, 100}, {0, 90, 54, 27, 18, 27, 54, 90, 360}}
ΕντονεςΕτικέτες: {{true, false, false, false, false, false, false, false, false}, {true, false, false, false, false, false, false, false, true}, {true, false, false, false, false, false, false, false, true}, {true, false, false, false, false, false, false, false, true}, {true, false, false, false, false, false, false, false, true}}
Δεκαδικά: {7, 7, 7, 7, 7}
ΕτικέτεςΑτονες: {Sequence[Sequence[If[Element[ΟρατέςΓραμμές, γ] ∧ Element[ΟρατέςΣτήλες, σ] ∧ Element[Element[ΕίναιΑριθμός, σ], γ] ∧ (¬Element[Element[ΕντονεςΕτικέτες, σ], γ]), Text[Element[Element[Αριθμοί, σ], γ], Translate[A, Vector[Vector[(Element[Χ, σ + 1] - ΚενόΑριστερά, Element[Ψ, γ] - ΚενόΠάνω)] - ((If[Element[Element[Αριθμοί, σ], γ] ≟ 0, 0, floor(lg(abs(Element[Element[Αριθμοί, σ], γ])))] + Element[Δεκαδικά, σ] + 1 + If[Element[Element[Αριθμοί, σ], γ] < 0, 1, 0]) * Vector[(ΠλάτοςΨηφίου, 0)])]]]], γ, 1, Γραμμές], σ, 1, Στήλες], Sequence[Sequence[If[Element[ΟρατέςΓραμμές, γ] ∧ Element[ΟρατέςΣτήλες, σ] ∧ (¬Element[Element[ΕίναιΑριθμός, σ], γ]) ∧ (¬Element[Element[ΕντονεςΕτικέτες, σ], γ]), Text[Element[Element[Κείμενα, σ], γ], Translate[A, Vector[(Element[Χ, σ] + ΚενόΑριστερά, Element[Ψ, γ] - ΚενόΠάνω)]]]], γ, 1, Γραμμές], σ, 1, Στήλες]}
ΕτικέτεςΕντονες: {Sequence[Sequence[If[Element[ΟρατέςΓραμμές, γ] ∧ Element[ΟρατέςΣτήλες, σ] ∧ Element[Element[ΕίναιΑριθμός, σ], γ] ∧ Element[Element[ΕντονεςΕτικέτες, σ], γ], Text[Element[Element[Αριθμοί, σ], γ], Translate[A, Vector[Vector[(Element[Χ, σ + 1] - ΚενόΑριστερά, Element[Ψ, γ] - ΚενόΠάνω)] - ((If[Element[Element[Αριθμοί, σ], γ] ≟ 0, 0, floor(lg(abs(Element[Element[Αριθμοί, σ], γ])))] + Element[Δεκαδικά, σ] + 1 + If[Element[Element[Αριθμοί, σ], γ] < 0, 1, 0]) * Vector[(ΠλάτοςΨηφίου, 0)])]]]], γ, 1, Γραμμές], σ, 1, Στήλες], Sequence[Sequence[If[Element[ΟρατέςΓραμμές, γ] ∧ Element[ΟρατέςΣτήλες, σ] ∧ (¬Element[Element[ΕίναιΑριθμός, σ], γ]) ∧ Element[Element[ΕντονεςΕτικέτες, σ], γ], Text[Element[Element[Κείμενα, σ], γ], Translate[A, Vector[(Element[Χ, σ] + ΚενόΑριστερά, Element[Ψ, γ] - ΚενόΠάνω)]]]], γ, 1, Γραμμές], σ, 1, Στήλες]}

Tool: Σφήνες Αρίθμησης (command ΣφήνεςΑρίθμησης)
Ορίστε την κάτω αριστερή γωνία, το οριζόντιο βήμα, το ύψος, την προπορεία του επάνω οριζόντιου βήματος (για πλάγια όψη) και τον αριθμό προς απεικόνιση.
Input: A, dx, h, side, n
Output: Pins

D = If(n > 0, Sequence[(x(A) + (i * dx), y(A)), i, 1, n], {(0, 0)})
U = If(n > 0, Sequence[(x(A) + ((i - If[Mod[i, 5] ≟ 0, 5, 0]) * dx) + side, y(A) + h), i, 1, n], {(0, 0)})
Pins = If(n > 0, Sequence[Segment[Element[D, i], Element[U, i]], i, 1, n])

Tool: Μοιρογνωμόνιο
Ορίστε δύο σημεία (κέντρο και άκρο)
Input: A, B
Output: M, G1, G2, G3, T

B' = Mirror(B, A)
M = CircleSector(A, B, B')
T = Sequence(Text[μ + "°", Rotate[B, μ°, A]], μ, 0, 180, 10)
G1 = Sequence(Segment[Rotate[B, μ°, A], Rotate[Dilate[A, 0.2, B], μ°, A]], μ, 0, 180, 10)
G2 = Sequence(Segment[Rotate[B, μ°, A], Rotate[Dilate[A, 0.15, B], μ°, A]], μ, 5, 180, 10)
G3 = Sequence(Segment[Rotate[B, μ°, A], Rotate[Dilate[A, 0.1, B], μ°, A]], μ, 0, 180, 1)

Tool: Χάρακας
Ορίστε δύο σημεία (άκρα)
Input: A, B
Output: R, RG1, RG2, RG3, RT

i: Vector[A, B] / Distance[A, B]
j: ((-y(i)), x(i))
R, a, b, c, d = Polygon(Translate[A, Vector[((-j)) / 2]], Translate[A, Vector[(0 * j)]], Translate[B, Vector[(0 * j)]], Translate[B, Vector[((-j)) / 2]])
RL = Distance(A, B)
RT = Sequence(Text[λ, Translate[A, Vector[(λ * i)]]], λ, 0, RL)
RG1 = Sequence(Segment[Translate[A, Vector[(λ * i)]], Translate[A, Vector[(-0.3 * j) + (λ * i)]]], λ, 0, RL)
RG2 = Sequence(Segment[Translate[A, Vector[(λ * i)]], Translate[A, Vector[(-0.2 * j) + (λ * i)]]], λ, 0.5, RL)
RG3 = Sequence(Segment[Translate[A, Vector[(λ * i)]], Translate[A, Vector[(-0.1 * j) + (λ * i)]]], λ, 0, RL, 0.1)

Tool: Κατανομή Χρόνου (command ΚατανομήΧρόνου)
Ώρες, Λεπτά, Ποσοστό ωρών, λεπτών, λίστα πληθών, βάση εκθετικής
Input: Ω, Λ, Π_Ω, Π_Λ, ΛίσταΝ, Βάση
Output: Τ

ΛίσταΝ: {20, 25, 40, 20, 25, 40, 50}
Σ: (60 * Ω) + Λ
Ν = Element(ΛίσταΝ, Mod[Σ, Length[ΛίσταΝ]] + 1)
Ν_ω: floor((Π_Ω * Ν))
Ν_λ: floor((Π_Λ * Ν))
φ(x) = If[-1 < x ∧ x < 1, Βάση^(-1 / (1 - x^(2))), 0]
φ1(x) = φ(x) / Integral[φ, -1, 1]
φ3(x) = φ1(x + 2) + φ1(x) + φ1(x - 2)
φ_Ω(x) = ((Ν_ω * 2 / 7) * φ3((x - (Ω * 7 / 12)) / (7 / 2)))
φ_Λ(x) = ((Ν_λ * 2 / 7) * φ3((x - (Λ * 7 / 60)) / (7 / 2)))
ν_Ω = Sequence(round(Integral[φ_Ω, ι, ι + 1]), ι, 0, 6)
ν_Λ = Sequence(round(Integral[φ_Λ, ι, ι + 1]), ι, 0, 6)
Τ_Ω = Join(Sequence[Sequence[τ, ι, 1, Element[ν_Ω, τ]], τ, 1, 7])
Τ_Λ = Join(Sequence[Sequence[τ, ι, 1, Element[ν_Λ, τ]], τ, 1, 7])
Ν_Ω = Length(Τ_Ω)
Ν_Λ = Length(Τ_Λ)
Ν_Υ: Ν - Ν_Ω - Ν_Λ
Τ_Υ = Sequence(Mod[Σ + ι, 7] + 1, ι, 1, Ν_Υ)
Τ = Join({Τ_Υ, Τ_Ω, Τ_Λ})

Tool: Κυκλικός Τομέας 1 (command ΚυκλικόςΤομέας1)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t1

t1 = CircleSector(A, B, C)

Tool: Κυκλικός Τομέας 2 (command ΚυκλικόςΤομέας2)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t2

t2 = CircleSector(A, B, C)

Tool: Κυκλικός Τομέας 3 (command ΚυκλικόςΤομέας3)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t3

t3 = CircleSector(A, B, C)

Tool: Κυκλικός Τομέας 4 (command ΚυκλικόςΤομέας4)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t4

t4 = CircleSector(A, B, C)

Tool: Κυκλικός Τομέας 5 (command ΚυκλικόςΤομέας5)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t5

t5 = CircleSector(A, B, C)

Tool: Κυκλικός Τομέας 6 (command ΚυκλικόςΤομέας6)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t6

t6 = CircleSector(A, B, C)

Tool: Κυκλικός Τομέας 7 (command ΚυκλικόςΤομέας7)
Ορίστε το κέντρο και τα άκρα του τόξου
Input: A, B, C
Output: t7

t7 = CircleSector(A, B, C)

Tool: Κύκλος από Κέντρο και Σημείο (command ΚύκλοςΑπόΚέντροΚαιΣημείο)
Ορίστε το κέντρο και ένα σημείο του κύκλου
Input: A, B
Output: d

d = Circle(A, B)

Tool: Κύκλος από Κέντρο και Ακτίνα (command ΚύκλοςΑπόΚέντροΚαιΑκτίνα)
Ορίστε το κέντρο και την ακτίνα του κύκλου
Input: A, r
Output: f

f = Circle(A, r)

Tool: Κατακόρυφη Ράβδος 1 (command ΚατακόρυφηΡάβδος1)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ1

ρκ1, a, b, c, d = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Κατακόρυφη Ράβδος 2 (command ΚατακόρυφηΡάβδος2)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ2

ρκ2, e, f, g, h = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Κατακόρυφη Ράβδος 3 (command ΚατακόρυφηΡάβδος3)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ3

ρκ3, i, j, k, l = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Κατακόρυφη Ράβδος 4 (command ΚατακόρυφηΡάβδος4)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ4

ρκ4, g_1, h_1, i_1, j_1 = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Κατακόρυφη Ράβδος 5 (command ΚατακόρυφηΡάβδος5)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ6

ρκ6, p_1, q_1, r_1, s_1 = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Κατακόρυφη Ράβδος 6 (command ΚατακόρυφηΡάβδος6)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ5

ρκ5, k_1, l_1, m_1, n_1 = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Κατακόρυφη Ράβδος 7 (command ΚατακόρυφηΡάβδος7)
Ορίστε το μέσο της κάτω πλευράς, το πλάτος και το ύψος της ράβδου
Input: Α, πλ, υ
Output: ρκ7

ρκ7, t_1, a_2, b_2, c_2 = Polygon((x(Α) - πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α)), (x(Α) + πλ / 2, y(Α) + υ), (x(Α) - πλ / 2, y(Α) + υ))

Tool: Οριζόντια Ράβδος 1 (command ΟριζόντιαΡάβδος1)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο1

ρο1, m, n, p, q = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Οριζόντια Ράβδος 2 (command ΟριζόντιαΡάβδος2)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο2

ρο2, r, t, a_1, b_1 = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Οριζόντια Ράβδος 3 (command ΟριζόντιαΡάβδος3)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο3

ρο3, c_1, d_1, e_1, f_1 = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Οριζόντια Ράβδος 4 (command ΟριζόντιαΡάβδος4)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο4

ρο4, d_2, e_2, f_2, g_2 = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Οριζόντια Ράβδος 5 (command ΟριζόντιαΡάβδος5)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο6

ρο6, l_2, m_2, n_2, p_2 = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Οριζόντια Ράβδος 6 (command ΟριζόντιαΡάβδος6)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο5

ρο5, h_2, i_2, j_2, k_2 = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Οριζόντια Ράβδος 7 (command ΟριζόντιαΡάβδος7)
Ορίστε το μέσο της αριστερής πλευράς, το πάχος και το μήκος της ράβδου
Input: Α, πλ, υ
Output: ρο7

ρο7, q_2, r_2, s_2, t_2 = Polygon((x(Α), y(Α) - πλ / 2), (x(Α), y(Α) + πλ / 2), (x(Α) + υ, y(Α) + πλ / 2), (x(Α) + υ, y(Α) - πλ / 2))

Tool: Τμήμα 1 (command Τμήμα1)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ1

τ1 = Segment(A, B)

Tool: Τμήμα 2 (command Τμήμα2)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ2

τ2 = Segment(A, B)

Tool: Τμήμα 3 (command Τμήμα3)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ3

τ3 = Segment(A, B)

Tool: Τμήμα 4 (command Τμήμα4)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ4

τ4 = Segment(A, B)

Tool: Τμήμα 5 (command Τμήμα5)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ5

τ5 = Segment(A, B)

Tool: Τμήμα 6 (command Τμήμα6)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ6

τ6 = Segment(A, B)

Tool: Τμήμα 7 (command Τμήμα7)
Ορίστε τα δύο άκρα
Input: A, B
Output: τ7

τ7 = Segment(A, B)

Tool: Ημιάξονες
Ορίστε την αρχή των ημιαξόνων και τα μήκη τους (οριζόντιος-κατακόρυφος)
Input: Α, μχ, μυ
Output: s

s: {Segment[Α, Translate[Α, Vector[(μχ, 0)]]], Segment[Α, Translate[Α, Vector[(0, μυ)]]]}

Tool: Διαγράμμιση Οριζόντιου (command ΔιαγράμμισηΟριζόντιου)
Ορίστε την αρχή των αξόνων, πλήθος, αποστάσεις & ύψη διαγραμμίσεων, πλήθος υποδιαιρέσεων.
Input: Α, νχ, δχ, μυ, νχ2
Output: gx, px, px'

px = Sequence(Segment[Translate[Α, Vector[((ι * δχ), 0)]], Translate[Α, Vector[((ι * δχ), μυ)]]], ι, 1, νχ)
gx = Sequence(Translate[Α, Vector[(ι * Vector[(δχ, 0)])]], ι, 1, νχ)
px' = Sequence(Segment[Translate[Α, Vector[((ι * δχ / νχ2), 0)]], Translate[Α, Vector[((ι * δχ / νχ2), μυ)]]], ι, 1, (νχ * νχ2))

Tool: Διαγράμμιση-Αρίθμηση Οριζόντιου (command ΔιαγράμμισηΑρίθμησηΟριζόντιου)
Ορίστε την αρχή των αξόνων, πλήθος, αποστάσεις & ύψη διαγραμμίσεων, πλήθος υποδιαιρέσεων, αρχή & βήμα αρίθμησης.
Input: Α, νχ, δχ, μυ, νχ2, κχα, κχβ
Output: gx, px, px', κχ_0

px = Sequence(Segment[Translate[Α, Vector[((ι * δχ), 0)]], Translate[Α, Vector[((ι * δχ), μυ)]]], ι, 1, νχ)
gx = Sequence(Translate[Α, Vector[(ι * Vector[(δχ, 0)])]], ι, 1, νχ)
ΔεκαδικάΧα = Sum(Sequence[(10^(ι) * κχα) ≠ round((10^(ι) * κχα)), ι, 0, 2])
ΔεκαδικάΧβ = Sum(Sequence[(10^(ι) * κχβ) ≠ round((10^(ι) * κχβ)), ι, 0, 2])
ΤάξηΧα: If[κχα ≟ 0, 0, floor(lg(abs(κχα)))] + 1
κχω_0: κχα + (νχ * κχβ)
ΤάξηΧω_0: If[κχω_0 ≟ 0, 0, floor(lg(abs(κχω_0)))] + 1
ΨηφίαΧ_0: Max[ΤάξηΧα, ΤάξηΧω_0] + Max[ΔεκαδικάΧα, ΔεκαδικάΧβ]
κχ_0 = Sequence(Text[κχα + (ι * κχβ), Translate[Α, Vector[((ι * δχ) - (0.16 * (ΨηφίαΧ_0 / 2 - 0.5)), (-0.21 * 2))]]], ι, 0, νχ)
px' = Sequence(Segment[Translate[Α, Vector[((ι * δχ / νχ2), 0)]], Translate[Α, Vector[((ι * δχ / νχ2), μυ)]]], ι, 1, (νχ * νχ2))

Tool: Διαγρ.-Αρίθμ. Οριζ. (χωρίς αρχή) (command ΔιαγράμμισηΑρίθμησηΟριζόντιου1)
Ορίστε την αρχή των αξόνων, πλήθος, αποστάσεις & ύψη διαγραμμίσεων, πλήθος υποδιαιρέσεων, πρώτο & βήμα αρίθμησης.
Input: Α, νχ, δχ, μυ, νχ2, κχα, κχβ
Output: px, px', gx, κχ_1

px = Sequence(Segment[Translate[Α, Vector[((ι * δχ), 0)]], Translate[Α, Vector[((ι * δχ), μυ)]]], ι, 1, νχ)
gx = Sequence(Translate[Α, Vector[(ι * Vector[(δχ, 0)])]], ι, 1, νχ)
ΔεκαδικάΧα = Sum(Sequence[(10^(ι) * κχα) ≠ round((10^(ι) * κχα)), ι, 0, 2])
ΔεκαδικάΧβ = Sum(Sequence[(10^(ι) * κχβ) ≠ round((10^(ι) * κχβ)), ι, 0, 2])
ΤάξηΧα: If[κχα ≟ 0, 0, floor(lg(abs(κχα)))] + 1
κχω_1: κχα + ((νχ - 1) * κχβ)
ΤάξηΧω_1: If[κχω_1 ≟ 0, 0, floor(lg(abs(κχω_1)))] + 1
ΨηφίαΧ_1: Max[ΤάξηΧα, ΤάξηΧω_1] + Max[ΔεκαδικάΧα, ΔεκαδικάΧβ]
κχ_1 = Sequence(Text[κχα + ((ι - 1) * κχβ), Translate[Α, Vector[((ι * δχ) - (0.16 * (ΨηφίαΧ_1 / 2 - 0.5)), (-0.21 * 2))]]], ι, 1, νχ)
px' = Sequence(Segment[Translate[Α, Vector[((ι * δχ / νχ2), 0)]], Translate[Α, Vector[((ι * δχ / νχ2), μυ)]]], ι, 1, (νχ * νχ2))

Tool: Διαγράμμιση Κατακόρυφου (command ΔιαγράμμισηΚατακόρυφου)
Ορίστε την αρχή των αξόνων, πλήθος, αποστάσεις & μήκη διαγραμμίσεων, πλήθος υποδιαιρέσεων.
Input: Α, νυ, δυ, μχ, νυ2
Output: gy, py, py'

py = Sequence(Segment[Translate[Α, Vector[(ι * Vector[(0, δυ)])]], Translate[Α, Vector[(μχ, (ι * δυ))]]], ι, 1, νυ)
gy = Sequence(Translate[Α, Vector[(ι * Vector[(0, δυ)])]], ι, 1, νυ)
py' = Sequence(Segment[Translate[Α, Vector[(ι * Vector[(0, δυ / νυ2)])]], Translate[Α, Vector[(μχ, (ι * δυ / νυ2))]]], ι, 1, (νυ * νυ2))

Tool: Διαγράμμιση-Αρίθμηση Κατακόρυφου (command ΔιαγράμμισηΑρίθμησηΚατακόρυφου)
Ορίστε την αρχή των αξόνων, πλήθος, αποστάσεις & μήκη διαγραμμίσεων, πλήθος υποδιαιρέσεων, αρχή & βήμα αρίθμησης.
Input: Α, νυ, δυ, μχ, νυ2, κυα, κυβ
Output: gy, py, py', κυ_0

py = Sequence(Segment[Translate[Α, Vector[(ι * Vector[(0, δυ)])]], Translate[Α, Vector[(μχ, (ι * δυ))]]], ι, 1, νυ)
gy = Sequence(Translate[Α, Vector[(ι * Vector[(0, δυ)])]], ι, 1, νυ)
ΔεκαδικάΥβ = Sum(Sequence[(10^(ι) * κυβ) ≠ round((10^(ι) * κυβ)), ι, 0, 2])
ΔεκαδικάΥα = Sum(Sequence[(10^(ι) * κυα) ≠ round((10^(ι) * κυα)), ι, 0, 2])
ΔεκαδικάΥ = Max(ΔεκαδικάΥα, ΔεκαδικάΥβ)
κυ_0 = Sequence(Text[κυα + (ι * κυβ), Translate[Α, Vector[((-0.16 * (If[κυα + (ι * κυβ) ≟ 0, 0, floor(lg(abs(κυα + (ι * κυβ))))] + 1 + ΔεκαδικάΥ + 1)), (ι * δυ) - 0.21 / 2)]]], ι, 0, νυ)
py' = Sequence(Segment[Translate[Α, Vector[(ι * Vector[(0, δυ / νυ2)])]], Translate[Α, Vector[(μχ, (ι * δυ / νυ2))]]], ι, 1, (νυ * νυ2))

Tool: Διαγρ.-Αρίθμ. Κατακ. (χωρίς αρχή) (command ΔιαγράμμισηΑρίθμησηΚατακόρυφου1)
Ορίστε την αρχή των αξόνων, πλήθος, αποστάσεις & μήκη διαγραμμίσεων, πλήθος υποδιαιρέσεων, πρώτο & βήμα αρίθμησης.
Input: Α, νυ, δυ, μχ, νυ2, κυα, κυβ
Output: gy, py, py', κυ_1

py = Sequence(Segment[Translate[Α, Vector[(ι * Vector[(0, δυ)])]], Translate[Α, Vector[(μχ, (ι * δυ))]]], ι, 1, νυ)
gy = Sequence(Translate[Α, Vector[(ι * Vector[(0, δυ)])]], ι, 1, νυ)
ΔεκαδικάΥβ = Sum(Sequence[(10^(ι) * κυβ) ≠ round((10^(ι) * κυβ)), ι, 0, 2])
ΔεκαδικάΥα = Sum(Sequence[(10^(ι) * κυα) ≠ round((10^(ι) * κυα)), ι, 0, 2])
ΔεκαδικάΥ = Max(ΔεκαδικάΥα, ΔεκαδικάΥβ)
κυ_1 = Sequence(Text[κυα + ((ι - 1) * κυβ), Translate[Α, Vector[((-0.16 * (If[κυα + ((ι - 1) * κυβ) ≟ 0, 0, floor(lg(abs(κυα + ((ι - 1) * κυβ))))] + 1 + ΔεκαδικάΥ + 1)), (ι * δυ) - 0.21 / 2)]]], ι, 1, νυ)
py' = Sequence(Segment[Translate[Α, Vector[(ι * Vector[(0, δυ / νυ2)])]], Translate[Α, Vector[(μχ, (ι * δυ / νυ2))]]], ι, 1, (νυ * νυ2))