Βάση αρίθμησης

Κουμπί μεταφοράς Υποδιαστολής

Ο αριθμός που εμφανίζεται στη 1η θέση από δεξιά

Ο αριθμός που εμφανίζεται στη 2η θέση από δεξιά

Ο αριθμός που εμφανίζεται στη 3η θέση από δεξιά

Ο αριθμός που εμφανίζεται στη 4η θέση από δεξιά

Ο αριθμός που εμφανίζεται στη 5η θέση από δεξιά

Ο αριθμός που εμφανίζεται στη 7η θέση από δεξιά

Ο αριθμός που εμφανίζεται στη 6η θέση από δεξιά

Λίστα των αριθμών που εμφανίζονται

Χρόνος για την αρχικοποίηση

Αλλαγή Εικόνας για όλα

Χρόνος για τo πλήθος

Χρόνος για την υποδιαστολή

Χρόνος για την εισαγωγή

Χρόνος για τα πούλια

Χρόνος για τις οδηγίες

Χρόνος για το 5ο συν

Χρόνος για το 2ο συν

Χρόνος για το 3ο συν

Χρόνος για το 1ο συν

Χρόνος για το 6ο συν

Χρόνος για το 7ο συν

Χρόνος για το 4ο συν

Σημείο που ρυθμίζει το ύψος των πλην

Ευθεία των πλην

Σημείο που ρυθμίζει το ύψος των συν

Ευθεία των συν

Σημείο για το πλην του 5ου

Σημείο για το πλην του 4ου

Σημείο για το πλην του 3ου

Σημείο για το πλην του 2ου

Σημείο για το πλην του 1ου

Σημείο για το πλην του 6ου

Σημείο για το πλην του 7ου

Σημείο για το συν του 5ου

Σημείο για το συν του 4ου

Σημείο για το συν του 3ου

Σημείο για το συν του 2ου

Σημείο για το συν του 1ου

Σημείο για το συν του 6ου

Σημείο για το συν του7ου

Σημείο που ρυθμίζει το ύψος των πάνω κουμπιών

Η ευθεία των κουμπιών

Σημείο Αρχικοποίησης

Σημείο κουμπιού πλήθους

Σημείο κουμπιού υποδιαστολής

Σημείο κουμπιού Εισαγωγής

Σημείο κουμπιού πούλιων

Σημείο κουμπιού οδηγιών

Πλήθος ράβδων πούλιων που φαίνονται

Αρχικοποίηση

Πλήθος

Υποδιαστολή

Πούλια

Οδηγίες

Αριθμός θέσης υποδιαστολής

,

,

,

,

,

,

Ρυθμιστής Υψους Τελειων

Ρυθμιστής Τμημάτων Κάτω

Ρυθμιστής Τμημάτων Πάνω

Τμήμα Τελείας 6

Εισαγωγή Δέκατο

Εισαγωγή Εκατοστό

Εισαγωγή Χιλιοστό

Εισαγωγή Δεκάκις Χιλιοστό

Εισαγωγή Εκαντοτάκις Χιλιοστό

Εισαγωγή Εκατομμυριοστό

Εισαγωγή Μονάδες

Μετρητής για την αρχή της ΛίσταΕισαγωγής

δραστηριότητα

Απόκρυψη εκφώνησης

Αρχικοποίηση

Εδώ μπορείτε να γράψετε τη δική σας εκφώνηση

Εμφάνιση υπόλοιπου αριθμού πούλιων

Λίστα Τίτλων Αξίας Θέσης Πάνω

Λίστα Τίτλων Αξίας Θέσης Κάτω

Αριθμός που αναπαριστάνεται

Σημείο Ρύθμισης Υψους Ράβδων

Ευθεία ύψους Ράβδων

Διάνυσμα που καθορίζει το πλάτος των ράβδων

Βάση Αρ.

Μέγιστος Αριθμός πούλιων

Πούλια που μένουν για να χρησιμοποιηθούν

Boolean για την εμφάνιση η απόκρυψη της εισαγωγής αριθμού

Boolean για την εμφάνιση η απόκρυψη του κουμπιού που ρυθμίζει το πλήθος των ράβδων

Boolean για την εμφάνιση η απόκρυψη του κουμπιού που ρυθμίζει τη θέση της υποδιαστολής

Boolean για την εμφάνιση η απόκρυψη του κουμπιού που ρυθμίζει τη βάση αρίθμησης

Εμφάνιση-Απόκτυψη Οδηγιών

Εμφάνιση-Απόκρυψη της ανάλυσης αριθμού

Αριθμός Τέλους αριθμογραμμής

Αριθμός Αρχής Αριθμογραμμής

Συντελεστής για τον Αριθμό πάνω στην αριθμογραμμή

Αριθμός Αναζητούμενος πάνω στην αριθμογραμμή

Συντελεστής για τον Αναζητούμενο Αριθμό πάνω στην αριθμογραμμή

Ο αριθμός που θα αναπαρασταθεί στην αριθμογραμμή

ΟΚ

εισ1 = 0
β = 10 (slider from 2 to 20, step 1)
μ1 = 0
μ2 = 0
μ3 = 0
μ4 = 0
μ5 = 0
μ7 = 0
μ6 = 0
Λ1: {μ1, μ2, μ3, μ4, μ5, μ6, μ7}
κείμΜ1: "" + μ1 + ""
κείμΜ2: "" + μ2 + ""
κείμΜ3: "" + μ3 + ""
κείμΜ4: "" + μ4 + ""
κείμΜ5: "" + μ5 + ""
κείμΜ6: "" + μ6 + ""
κείμΜ7: "" + μ7 + ""
λ_α = 1 (slider from 0 to 1, step 0.01)
ΑλλαγήΕικ: true
λ_π: 0
λ_υ: 0
λ_ε: 0
λ_πο: 0
λ_ο: 0
λ_σ5: 0
λ_σ2: 0
λ_σ3: 0
λ_σ1: 0
λ_σ6: 0
λ_σ7: 0
λ_σ4: 0
λ_π1: 0
λ_π2: 0
λ_π3: 0
λ_π4: 0
λ_π5: 0
λ_π6: 0
λ_π7: 0
ΣημΡυθΠλην = Point(yAxis)
ΕυθΠλην = OrthogonalLine(ΣημΡυθΠλην, yAxis)
ΣημΡυθΣυν = Point(yAxis)
ΕυθΣυν = OrthogonalLine(ΣημΡυθΣυν, yAxis)
ΣημΠλην5 = Point(ΕυθΠλην)
ΣημΠλην4 = Point(ΕυθΠλην)
ΣημΠλην3 = Point(ΕυθΠλην)
ΣημΠλην2 = Point(ΕυθΠλην)
ΣημΠλην1 = Point(ΕυθΠλην)
ΣημΠλην6 = Point(ΕυθΠλην)
ΣημΠλην7 = Point(ΕυθΠλην)
ΣημΣυν5 = Point(ΕυθΣυν)
ΣημΣυν4 = Point(ΕυθΣυν)
ΣημΣυν3 = Point(ΕυθΣυν)
ΣημΣυν2 = Point(ΕυθΣυν)
ΣημΣυν1 = Point(ΕυθΣυν)
ΣημΣυν6 = Point(ΕυθΣυν)
ΣημΣυν7 = Point(ΕυθΣυν)
ΣημΚουμπιάΠάνω = Point(yAxis)
ΕυθΚουμπ = OrthogonalLine(ΣημΚουμπιάΠάνω, yAxis)
ΣημΑρχ = Point(ΕυθΚουμπ)
ΣημΠλη = Point(ΕυθΚουμπ)
ΣημΥπο = Point(ΕυθΚουμπ)
ΣημΕισ = Point(ΕυθΚουμπ)
ΣημΠούλ = Point(ΕυθΚουμπ)
ΣημΟδη = Point(ΕυθΚουμπ)
πλ = 1
υπ = 0
ΡυθΥψΤελ = Point(yAxis)
f = OrthogonalLine(ΡυθΥψΤελ, yAxis)
Τελεία_1 = Point(f)
Τελεία_2 = Point(f)
Τελεία_3 = Point(f)
Τελεία_4 = Point(f)
Τελεία_5 = Point(f)
Τελεία_6 = Point(f)
g = OrthogonalLine(Τελεία_6, f)
h = OrthogonalLine(Τελεία_5, f)
i = OrthogonalLine(Τελεία_4, f)
j = OrthogonalLine(Τελεία_3, f)
k = OrthogonalLine(Τελεία_2, f)
l = OrthogonalLine(Τελεία_1, f)
ΡυθΤμηΚατ = Point(l)
ΡυθΤμηΠαν = Point(l)
m = OrthogonalLine(ΡυθΤμηΚατ, l)
n = OrthogonalLine(ΡυθΤμηΠαν, l)
Γ = Intersect(k, n)
Δ = Intersect(k, m)
Ε = Intersect(j, m)
Ζ = Intersect(j, n)
Η = Intersect(i, n)
Θ = Intersect(i, m)
Ι = Intersect(h, m)
Κ = Intersect(g, m)
Λ = Intersect(h, n)
Μ = Intersect(g, n)
ΤμηΤελ_1 = Segment(ΡυθΤμηΚατ, ΡυθΤμηΠαν)
ΤμηΤελ_2 = Segment(Γ, Δ)
ΤμηΤελ_3 = Segment(Ζ, Ε)
ΤμηΤελ_4 = Segment(Η, Θ)
ΤμηΤελ_5 = Segment(Λ, Ι)
ΤμηΤελ_6 = Segment(Μ, Κ)
Β = Intersect(l, n)
Α = Intersect(m, l)
Ν = Intersect(k, m)
Ξ = Intersect(n, k)
Ο = Intersect(i, n)
Π = Intersect(i, m)
Ρ = Intersect(h, m)
Σ = Intersect(h, n)
Τ = Intersect(g, n)
Υ = Intersect(g, m)
ΤμηΥπο_6 = Segment(Υ, Τ)
ΤμηΥπο_5 = Segment(Ρ, Σ)
ΤμηΥπο_4 = Segment(Ο, Π)
Φ = Intersect(j, m)
ΤμηΥπο_3 = Segment(Φ, Ζ)
ΤμηΥπο_2 = Segment(Ξ, Ν)
ε_1: floor(Mod[(β * εισ1), β])
ΤμηΥπο_1 = Segment(Α, Β)
ΕισΑριθμού = Textfield(εισ1)
ε_2: floor(Mod[((β * β) * εισ1), β])
ε_3: floor(Mod[(((β * β) * β) * εισ1), β])
ε_4: floor(Mod[((((β * β) * β) * β) * εισ1), β])
ε_5: floor(Mod[(((((β * β) * β) * β) * β) * εισ1), β])
ε_6: floor(Mod[((((((β * β) * β) * β) * β) * β) * εισ1), β])
ε1: floor(Mod[εισ1, β])
ε2: floor(Mod[εισ1 / β, β])
ε3: floor(Mod[εισ1 / β^(2), β])
ε4: floor(Mod[εισ1 / β^(3), β])
ε5: floor(Mod[εισ1 / β^(4), β])
ε6: floor(Mod[εισ1 / β^(5), β])
ε7: floor(Mod[εισ1 / β^(6), β])
ΛίσταΕισαγωγής: {ε_6, ε_5, ε_4, ε_3, ε_2, ε_1, ε1, ε2, ε3, ε4, ε5, ε6, ε7}
μ = 7
δρ = true
αρχ: true
ΑθρΠουλ: μ1 + μ2 + μ3 + μ4 + μ5 + μ6 + μ7
ΕμφΥπΠουλ: false
λ_δ: 0
ΛίσταΤίτλωνΑξίαςΘέσης10: {"εκατομμυριοστά", "εκατοντάκις", "δεκάκις", "χιλιοστά", "εκατοστά", "δέκατα", "μονάδες", "δεκάδες", "εκατοντάδες", "χιλιάδες", "δεκάδες", "εκατοντάδες", "εκατομμύρια"}
ΛίσταΤίτλωνΑξίαςΘέσης10_2: {"", "χιλιοστά", "χιλιοστά", "", "", "", "", "", "", "", "χιλιάδων", "χιλιάδων", ""}
ΚείμΚάτωΜ_1: "" + (Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ]) + ""
ΚείμΚάτωΜ_2: "" + (LaTeX[Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ + 1]]) + ""
ΚείμΚάτωΜ_3: "" + (Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ + 2]) + ""
ΚείμΚάτωΜ_4: "" + (Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ + 3]) + ""
ΚείμΚάτωΜ_5: "" + (LaTeX[Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ + 4]]) + ""
ΚείμΚάτωΜ_6: "" + (Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ + 5]) + ""
ΚείμΚάτωΜ_7: "" + (Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ + 6]) + ""
ΛιΟνΜον: {"ένα", "δύο", "τρία", "τέσσερα", "πέντε", "έξι", "επτά", "οχτώ", "εννέα"}
ΛιΟνΔεκ: {"δέκα", "είκοσι", "τριάντα", "σαράντα", "πενήντα", "εξήντα", "εβδομήντα", "ογδόντα", "εννενήντα"}
ΛιΟνΕκ: {"εκατό(ν)", "διακόσια", "τριακόσια", "τετρακόσια", "πεντακόσια", "εξακόσια", "εφτακόσια", "οχτακόσια", "εννιακόσια"}
α: (μ1 * β^(μ - 7)) + (μ2 * β^(μ - 6)) + (μ3 * β^(μ - 5)) + (μ4 * β^(μ - 4)) + (μ5 * β^(μ - 3)) + (μ6 * β^(μ - 2)) + (μ7 * β^(μ - 1))
ΣυμΡυθΡαβ = Point(yAxis)
ΕυθΥψουςΡαβδ = OrthogonalLine(ΣυμΡυθΡαβ, yAxis)
ΣημΡαβ6 = Point(ΕυθΥψουςΡαβδ)
ΣημΡαβ7 = Point(ΕυθΥψουςΡαβδ)
ΣημΡαβ4 = Point(ΕυθΥψουςΡαβδ)
ΣημΡαβ3 = Point(ΕυθΥψουςΡαβδ)
ΣημΡαβ1 = Point(ΕυθΥψουςΡαβδ)
ΣημΡαβ5 = Point(ΕυθΥψουςΡαβδ)
ΣημΡαβ2 = Point(ΕυθΥψουςΡαβδ)
ΥψΡαβ = 0.45 (slider from 0 to 2, step 0.01)
δ_υ: (0, ΥψΡαβ)
ΣημΡαβ1Π = Translate(ΣημΡαβ1, Vector[(β * δ_υ)])
ΣημΡαβ2Π = Translate(ΣημΡαβ2, Vector[(β * δ_υ)])
ΣημΡαβ3Π = Translate(ΣημΡαβ3, Vector[(β * δ_υ)])
ΣημΡαβ4Π = Translate(ΣημΡαβ4, Vector[(β * δ_υ)])
ΣημΡαβ5Π = Translate(ΣημΡαβ5, Vector[(β * δ_υ)])
ΣημΡαβ6Π = Translate(ΣημΡαβ6, Vector[(β * δ_υ)])
ΔιανΜεταΡαβδΔεξιά = Vector((0.3, 0))
ΣημΡαβ7Π = Translate(ΣημΡαβ7, Vector[(β * δ_υ)])
ΣημΡαβ1Δ = Translate(ΣημΡαβ1, ΔιανΜεταΡαβδΔεξιά)
ΣημΡαβ2Δ = Translate(ΣημΡαβ2, ΔιανΜεταΡαβδΔεξιά)
ΣημΡαβ3Δ = Translate(ΣημΡαβ3, ΔιανΜεταΡαβδΔεξιά)
ΣημΡαβ4Δ = Translate(ΣημΡαβ4, ΔιανΜεταΡαβδΔεξιά)
ΣημΡαβ5Δ = Translate(ΣημΡαβ5, ΔιανΜεταΡαβδΔεξιά)
ΣημΡαβ6Δ = Translate(ΣημΡαβ6, ΔιανΜεταΡαβδΔεξιά)
ΣημΡαβ7Δ = Translate(ΣημΡαβ7, ΔιανΜεταΡαβδΔεξιά)
ΣημΒάση = Point(ΕυθΚουμπ)
λ_β: 0
ΣυστημαΑριθμησης: "" + (If[β ≟ 2, Text["Δυαδικό"], β ≟ 3, Text["Τριαδικό"], β ≟ 4, Text["Τετραδικό"], β ≟ 5, Text["Πενταδικό"], β ≟ 6, Text["Εξαδικό"], β ≟ 7, Text["Επταδικό"], β ≟ 8, Text["Οχταδικό"], β ≟ 9, Text["Εννιαδικό"], β ≟ 10, Text["Δεκαδικό"]]) + " σύστημα αρίθμησης"
μαπ: (πλ * (β - 1))
ΥπΠου: μαπ - ΑθρΠουλ
κείμΠούλια: "" + (LaTeX[ΥπΠου]) + ""
ΔενΜπορΝαΠροΠουλ = If(ΥπΠου ≟ 0, Text["Δεν μπορείς να προσθέσεις άλλα πούλια"])
ΛιΟνΕκΧιλ: {"εκατό(ν)", "διακόσιες", "τριακόσιες", "τετρακόσιες", "πεντακόσιες", "εξακόσιες", "εφτακόσιες", "οχτακόσιες", "εννιακόσιες"}
ΛιΟνΜονΧιλ: {"μία", "δύο", "τρεις", "τέσσερις", "πέντε", "έξι", "επτά", "οχτώ", "εννέα"}
εισ: false
πλη: false
υπο: false
βασ: false
Οδ = false
ΛίσταΤίτλωνΑξίαςΘέσης2: {"1/64 ", "1/32", "1/16", "1/8", "1/4", "1/2", "μονάδες", "2-αδες", "4-αδες", "8-αδες", "16-αδες", "32-αδες", "64-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης3: {"1/729", "1/243", "1/81", "1/27", "1/9", "1/3", "μονάδες", "3-αδες", "9-αδες", "27-αδες", "81-αδες", "243-αδες", "729-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης4: {"1/4096", "1/1024", "1/256", "1/64", "1/16", "1/4", "μονάδες", "4-αδες", "16-αδες", "64-αδες", "256-αδες", "1024-αδες", "4096-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης5: {"1/15625", "1/3125", "1/625", "1/125", "1/25", "1/5", "μονάδες", "5-αδες", "25-αδες", "125-αδες", "625-αδες", "3125-αδες", "15625-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης6: {"1/46656", "1/7776", "1/1296", "1/216", "1/36", "1/6", "μονάδες", "6-αδες", "36-αδες", "216-αδες", "1296-αδες", "7776-αδες", "46656-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης7: {"1/117649", "1/16807", "1/2401", "1/343", "1/49", "1/7", "μονάδες", "7-αδες", "49-αδες", "343-αδες", "2401-αδες", "16807-αδες", "117649-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης8: {"1/262144", "1/32768", "1/4096", "1/512", "1/64", "1/8", "μονάδες", "8-αδες", "64-αδες", "512-αδες", "4096-αδες", "32768-αδες", "262144-αδες"}
ΛίσταΤίτλωνΑξίαςΘέσης9: {"1/531441", "1/59049", "1/6561", "1/729", "1/81", "1/9", "μονάδες", "9-αδες", "81-αδες", "729-αδες", "6561-αδες", "59049-αδες", "531441-αδες"}
ΑνΑρι: false
ΑρΤελ: β^(πλ - υπ)
ΑρΑρχ: 0
ΑρΣυνΑρι: (α - ΑρΑρχ) / (ΑρΤελ - ΑρΑρχ)
ΛίσταΠούλια = Sequence(Sequence[Translate[Πούλι2, Vector[(11 - (2.06 * t), (0.5 * s) - 2.05)]], s, 1, Element[Λ1, t]], t, 1, 10)
ΚείμΠάνωΜ_2: "" + (LaTeX[If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ + 1], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ + 1], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ + 1], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ + 1], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ + 1], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ + 1], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ + 1], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ + 1], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 1]]]) + ""
ΚείμΠάνωΜ_3: "" + (If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ + 2], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ + 2], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ + 2], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ + 2], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ + 2], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ + 2], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ + 2], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ + 2], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 2]]) + ""
ΚείμΠάνωΜ_4: "" + (If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ + 3], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ + 3], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ + 3], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ + 3], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ + 3], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ + 3], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ + 3], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ + 3], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 3]]) + ""
ΚείμΠάνωΜ_5: "" + (LaTeX[If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ + 4], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ + 4], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ + 4], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ + 4], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ + 4], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ + 4], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ + 4], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ + 4], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 4]]]) + ""
ΚείμΠάνωΜ_6: "" + (If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ + 5], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ + 5], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ + 5], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ + 5], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ + 5], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ + 5], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ + 5], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ + 5], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 5]]) + ""
ΚείμΠάνωΜ_7: "" + (If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ + 6], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ + 6], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ + 6], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ + 6], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ + 6], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ + 6], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ + 6], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ + 6], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 6]]) + ""
ΚείμΠάνωΜ_1: "" + (LaTeX[If[β ≟ 2, Element[ΛίσταΤίτλωνΑξίαςΘέσης2, μ], β ≟ 3, Element[ΛίσταΤίτλωνΑξίαςΘέσης3, μ], β ≟ 4, Element[ΛίσταΤίτλωνΑξίαςΘέσης4, μ], β ≟ 5, Element[ΛίσταΤίτλωνΑξίαςΘέσης5, μ], β ≟ 6, Element[ΛίσταΤίτλωνΑξίαςΘέσης6, μ], β ≟ 7, Element[ΛίσταΤίτλωνΑξίαςΘέσης7, μ], β ≟ 8, Element[ΛίσταΤίτλωνΑξίαςΘέσης8, μ], β ≟ 9, Element[ΛίσταΤίτλωνΑξίαςΘέσης9, μ], β ≟ 10, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ]]]) + "    "
ΑρΑνα: 70
ΑρΣυνΑνΑρ: (ΑρΑνα - ΑρΑρχ) / (ΑρΤελ - ΑρΑρχ)
ΑρΑριθ: α
ΕλΑπ: true
ΛιΟνΔεκ1Χ: {"έντεκα", "δώδεκα", "δεκατρείς", "δεκατέσσερις", "δεκαπέντε", "δεκαέξι", "δεκαεπτά", "δεκαοχτώ", "δεκαεννέα"}
ΛιΟνΔεκ1Μ: {"έντεκα", "δώδεκα", "δεκατρία", "δεκατέσσερα", "δεκαπέντε", "δεκαέξι", "δεκαεπτά", "δεκαοχτώ", "δεκαεννέα"}
ΚειμΑρΓιαΜ_4: "Αριθμός=" + α + " " + (If[μ7 > 1, Element[ΛιΟνΜον, μ7], Text[""]]) + " " + (If[μ7 > 1, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 6], If[μ7 ≟ 1, Text["χίλια"], Text[""]]]) + " " + (If[μ6 > 0, Element[ΛιΟνΕκ, μ6], Text[""]]) + " " + (If[μ5 > 1, Element[ΛιΟνΔεκ, μ5], If[μ5 ≟ 1 ∧ μ4 > 0, Element[ΛιΟνΔεκ1Μ, μ4], If[μ5 ≟ 1 ∧ μ4 ≟ 0, Element[ΛιΟνΔεκ, μ5], Text[""]]]]) + " " + (If[μ4 ≟ 0 ∧ μ5 ≟ 0 ∧ μ6 ≟ 0 ∧ μ7 ≟ 0, Text["Μηδέν"], If[μ5 ≠ 1 ∧ μ4 > 0, Element[ΛιΟνΜον, μ4], Text[""]]]) + " " + (If[μ3 > 0 ∨ μ2 > 0 ∨ μ1 > 0, Text["και "], Text[""]]) + " " + (If[μ3 > 0, Element[ΛιΟνΕκ, μ3], Text[""]]) + " " + (If[μ2 > 1, Element[ΛιΟνΔεκ, μ2], If[μ2 ≟ 1 ∧ μ1 > 0, Element[ΛιΟνΔεκ1Μ, μ1], If[μ2 ≟ 1 ∧ μ1 ≟ 0, Element[ΛιΟνΔεκ, μ2], Text[""]]]]) + " " + (If[μ2 ≠ 1 ∧ μ1 > 0, Element[ΛιΟνΜον, μ1], Text[""]]) + " " + (If[μ3 ≟ 0 ∧ μ2 ≟ 0 ∧ μ1 ≟ 1, Text["χιλιοστό"], If[μ1 > 0 ∨ μ2 > 0 ∨ μ3 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ], Text[""]]]) + ""
ΚειμΑρΓιαΜ_3: "Αριθμός=" + α + " " + (If[μ7 > 0, Element[ΛιΟνΕκ, μ7], Text[""]]) + " " + (If[μ6 > 1, Element[ΛιΟνΔεκ, μ6], If[μ6 ≟ 1 ∧ μ5 > 0, Element[ΛιΟνΔεκ1Μ, μ5], If[μ6 ≟ 1 ∧ μ5 ≟ 0, Element[ΛιΟνΔεκ, μ6], Text[""]]]]) + " " + (If[μ5 ≟ 0 ∧ μ6 ≟ 0 ∧ μ7 ≟ 0, Text["Μηδέν"], If[μ6 ≠ 1 ∧ μ5 > 0, Element[ΛιΟνΜον, μ5], Text[""]]]) + " " + (If[μ4 > 0 ∨ μ3 > 0 ∨ μ2 > 0 ∨ μ1 > 0, Text["και "], Text[""]]) + " " + (If[μ4 > 1, Element[ΛιΟνΜον, μ4], Text[""]]) + " " + (If[μ4 > 1, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 7], If[μ4 ≟ 1, Text["χίλια"], Text[""]]]) + " " + (If[μ3 > 0, Element[ΛιΟνΕκ, μ3], Text[""]]) + " " + (If[μ2 > 1, Element[ΛιΟνΔεκ, μ2], If[μ2 ≟ 1 ∧ μ1 > 0, Element[ΛιΟνΔεκ1Μ, μ1], If[μ2 ≟ 1 ∧ μ1 ≟ 0, Element[ΛιΟνΔεκ, μ2], Text[""]]]]) + " " + (If[μ2 ≠ 1 ∧ μ1 > 0, Element[ΛιΟνΜον, μ1], Text[""]]) + " " + (If[μ1 > 0 ∨ μ2 > 0 ∨ μ3 > 0 ∨ μ4 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ], Text[""]]) + " " + (If[μ4 ≟ 0 ∧ μ3 ≟ 0 ∧ μ2 ≟ 0 ∧ μ1 ≟ 1, Text["χιλιοστό"], If[μ1 > 0 ∨ μ2 > 0 ∨ μ3 > 0 ∨ μ4 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ], Text[""]]]) + ""
ΚειμΑρΓιαΜ_6: "Αριθμός=" + (LaTeX[α]) + "  " + (LaTeX[Element[ΛιΟνΕκΧιλ, μ7]]) + " " + (LaTeX[If[μ6 > 1, Element[ΛιΟνΔεκ, μ6], If[μ6 ≟ 1 ∧ μ5 > 0, Element[ΛιΟνΔεκ1Χ, μ5], If[μ6 ≟ 1 ∧ μ5 ≟ 0, Element[ΛιΟνΔεκ, μ6]]]]]) + " " + (LaTeX[If[μ7 ≟ 0 ∧ μ6 ≟ 0 ∧ μ5 ≟ 1, Text[""], If[μ6 ≠ 1 ∧ μ5 > 0, Element[ΛιΟνΜονΧιλ, μ5]]]]) + " " + (LaTeX[If[μ7 ≟ 0 ∧ μ6 ≟ 0 ∧ μ5 ≟ 1, Text["χίλια"], If[μ7 + μ6 + μ5 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 4]]]]) + " " + (LaTeX[Element[ΛιΟνΕκ, μ4]]) + " " + (LaTeX[If[μ3 > 1, Element[ΛιΟνΔεκ, μ3], If[μ3 ≟ 1 ∧ μ2 > 0, Element[ΛιΟνΔεκ1Μ, μ2], If[μ3 ≟ 1 ∧ μ2 ≟ 0, Element[ΛιΟνΔεκ, μ3]]]]]) + " " + (LaTeX[If[μ1 ≟ 0 ∧ μ2 ≟ 0 ∧ μ3 ≟ 0 ∧ μ4 ≟ 0 ∧ μ5 ≟ 0 ∧ μ6 ≟ 0 ∧ μ7 ≟ 0, Text["Μηδέν"], If[μ3 ≠ 1 ∧ μ2 > 0, Element[ΛιΟνΜον, μ2], Text[""]]]]) + " " + (LaTeX[If[μ1 > 0, (Text["και "] * Element[ΛιΟνΜον, μ1])]]) + " " + (LaTeX[If[μ1 > 1, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ], If[μ1 ≟ 1, Text["δέκατο"]]]]) + ""
ΚειμΑρΓιαΜ_7: "Αριθμός=" + α + " " + (LaTeX[Element[ΛιΟνΜον, μ7]]) + " " + (LaTeX[If[μ7 > 1, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 6], If[μ7 ≟ 1, Text["εκατομμύριο"]]]]) + " " + (LaTeX[Element[ΛιΟνΕκΧιλ, μ6]]) + " " + (LaTeX[If[μ5 > 1, Element[ΛιΟνΔεκ, μ5], If[μ5 ≟ 1 ∧ μ4 > 0, Element[ΛιΟνΔεκ1Χ, μ4], If[μ5 ≟ 1 ∧ μ4 ≟ 0, Element[ΛιΟνΔεκ, μ5]]]]]) + " " + (LaTeX[If[μ6 ≟ 0 ∧ μ5 ≟ 0 ∧ μ4 ≟ 1, Text[""], If[μ5 ≠ 1 ∧ μ4 > 0, Element[ΛιΟνΜονΧιλ, μ4]]]]) + " " + (LaTeX[If[μ6 ≟ 0 ∧ μ5 ≟ 0 ∧ μ4 ≟ 1, Text["χίλια"], If[μ6 + μ5 + μ4 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 3]]]]) + " " + (LaTeX[Element[ΛιΟνΕκ, μ3]]) + " " + (LaTeX[If[μ2 > 1, Element[ΛιΟνΔεκ, μ2], If[μ2 ≟ 1 ∧ μ1 > 0, Element[ΛιΟνΔεκ1Μ, μ1], If[μ2 ≟ 1 ∧ μ1 ≟ 0, Element[ΛιΟνΔεκ, μ2]]]]]) + " " + (If[μ1 ≟ 0 ∧ μ2 ≟ 0 ∧ μ3 ≟ 0 ∧ μ4 ≟ 0 ∧ μ5 ≟ 0 ∧ μ6 ≟ 0 ∧ μ7 ≟ 0, Text["Μηδέν"], If[μ2 ≠ 1 ∧ μ1 > 0, Element[ΛιΟνΜον, μ1], Text[""]]]) + ""
ΚειμΑρΓιαΜ_5: "Αριθμός=" + α + " " + (LaTeX[If[μ7 > 1, Element[ΛιΟνΔεκ, μ7], If[μ7 ≟ 1 ∧ μ6 > 0, Element[ΛιΟνΔεκ1Χ, μ6], If[μ7 ≟ 1 ∧ μ6 ≟ 0, Element[ΛιΟνΔεκ, μ7]]]]]) + " " + (LaTeX[If[μ7 ≟ 0 ∧ μ6 ≟ 1, Text[""], If[μ7 ≠ 1 ∧ μ6 > 0, Element[ΛιΟνΜονΧιλ, μ6]]]]) + " " + (LaTeX[If[μ7 ≟ 0 ∧ μ6 ≟ 1, Text["χίλια"], If[μ7 + μ6 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 5], Text[""]]]]) + " " + (LaTeX[If[μ5 > 0, Element[ΛιΟνΕκ, μ5], Text[""]]]) + " " + (LaTeX[If[μ4 > 1, Element[ΛιΟνΔεκ, μ4], If[μ4 ≟ 1 ∧ μ3 > 0, Element[ΛιΟνΔεκ1Μ, μ3], If[μ4 ≟ 1 ∧ μ3 ≟ 0, Element[ΛιΟνΔεκ, μ4]]]]]) + " " + (LaTeX[If[μ3 ≟ 0 ∧ μ4 ≟ 0 ∧ μ5 ≟ 0 ∧ μ6 ≟ 0 ∧ μ7 ≟ 0, Text["Μηδέν"], If[μ4 ≠ 1 ∧ μ3 > 0, Element[ΛιΟνΜον, μ3], Text[""]]]]) + " " + (LaTeX[If[μ2 > 0 ∨ μ1 > 0, Text["και "], Text[""]]]) + " " + (LaTeX[If[μ2 > 1, Element[ΛιΟνΔεκ, μ2], If[μ2 ≟ 1 ∧ μ1 > 0, Element[ΛιΟνΔεκ1Μ, μ1], If[μ2 ≟ 1 ∧ μ1 ≟ 0, Element[ΛιΟνΔεκ, μ2]]]]]) + " " + (LaTeX[If[μ2 ≠ 1 ∧ μ1 > 0, Element[ΛιΟνΜον, μ1], Text[""]]]) + " " + (LaTeX[If[μ2 ≟ 0 ∧ μ1 ≟ 1, Text["εκατοστό"], If[μ1 > 0 ∨ μ2 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ], Text[""]]]]) + ""
ΚειμΑρΓιαΜ_2: "Αριθμός=" + α + " " + (If[μ7 > 1, Element[ΛιΟνΔεκ, μ7], If[μ7 ≟ 1 ∧ μ6 > 0, Element[ΛιΟνΔεκ1Μ, μ6], If[μ7 ≟ 1 ∧ μ6 ≟ 0, Element[ΛιΟνΔεκ, μ7], Text[""]]]]) + " " + (If[μ6 ≟ 0 ∧ μ7 ≟ 0, Text["Μηδέν"], If[μ7 ≠ 1 ∧ μ6 > 0, Element[ΛιΟνΜον, μ6], Text[""]]]) + " " + (If[μ5 > 0 ∨ μ4 > 0 ∨ μ3 > 0 ∨ μ2 > 0 ∨ μ1 > 0, Text["και "], Text[""]]) + " " + (If[μ5 > 1, Element[ΛιΟνΔεκ, μ5], If[μ5 ≟ 1 ∧ μ4 > 0, Element[ΛιΟνΔεκ1Χ, μ4], If[μ5 ≟ 1 ∧ μ4 ≟ 0, Element[ΛιΟνΔεκ, μ5], Text[""]]]]) + " " + (If[μ5 ≟ 0 ∧ μ4 ≟ 1, Text[""], If[μ5 ≠ 1 ∧ μ4 > 0, Element[ΛιΟνΜονΧιλ, μ4], Text[""]]]) + " " + (If[μ5 ≟ 0 ∧ μ4 ≟ 1, Text["χίλια"], If[μ5 + μ4 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 8], Text[""]]]) + " " + (If[μ3 > 0, Element[ΛιΟνΕκ, μ3], Text[""]]) + " " + (If[μ2 > 1, Element[ΛιΟνΔεκ, μ2], If[μ2 ≟ 1 ∧ μ1 > 0, Element[ΛιΟνΔεκ1Μ, μ1], If[μ2 ≟ 1 ∧ μ1 ≟ 0, Element[ΛιΟνΔεκ, μ2], Text[""]]]]) + " " + (If[μ2 ≠ 1 ∧ μ1 > 0, Element[ΛιΟνΜον, μ1], Text[""]]) + " " + (If[μ1 > 0 ∨ μ2 > 0 ∨ μ3 > 0 ∨ μ4 > 0 ∨ μ5 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ], Text[""]]) + " " + (If[μ5 ≟ 0 ∧ μ4 ≟ 0 ∧ μ3 ≟ 0 ∧ μ2 ≟ 0 ∧ μ1 ≟ 1, Text["χιλιοστό"], If[μ1 > 0 ∨ μ2 > 0 ∨ μ3 > 0 ∨ μ4 > 0 ∨ μ5 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10_2, μ], Text[""]]]) + ""
ΚειμΑρΓιαΜ_1: "Αριθμός=" + α + " " + (If[μ7 > 0, Element[ΛιΟνΜον, μ7], Text["Μηδέν"]]) + " " + (If[μ6 > 0 ∨ μ5 > 0 ∨ μ4 > 0 ∨ μ3 > 0 ∨ μ2 > 0 ∨ μ1 > 0, Text["και "], Text[""]]) + " " + (If[μ6 > 0, Element[ΛιΟνΕκΧιλ, μ6], Text[""]]) + " " + (If[μ5 > 1, Element[ΛιΟνΔεκ, μ5], If[μ5 ≟ 1 ∧ μ4 > 0, Element[ΛιΟνΔεκ1Χ, μ4], If[μ5 ≟ 1 ∧ μ4 ≟ 0, Element[ΛιΟνΔεκ, μ5], Text[""]]]]) + " " + (If[μ5 ≟ 0 ∧ μ4 ≟ 1, Text[""], If[μ5 ≠ 1 ∧ μ4 > 0, Element[ΛιΟνΜονΧιλ, μ4], Text[""]]]) + " " + (If[μ6 ≟ 0 ∧ μ5 ≟ 0 ∧ μ4 ≟ 1, Text["χίλια"], If[μ6 + μ5 + μ4 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ + 9], Text[""]]]) + " " + (If[μ3 > 0, Element[ΛιΟνΕκ, μ3], Text[""]]) + " " + (If[μ2 > 1, Element[ΛιΟνΔεκ, μ2], If[μ2 ≟ 1 ∧ μ1 > 0, Element[ΛιΟνΔεκ1Μ, μ1], If[μ2 ≟ 1 ∧ μ1 ≟ 0, Element[ΛιΟνΔεκ, μ2], Text[""]]]]) + " " + (If[μ2 ≠ 1 ∧ μ1 > 0, Element[ΛιΟνΜον, μ1], Text[""]]) + " " + (If[μ6 ≟ 0 ∧ μ5 ≟ 0 ∧ μ4 ≟ 0 ∧ μ3 ≟ 0 ∧ μ2 ≟ 0 ∧ μ1 ≟ 1, Text["εκατομμυριοστό"], If[μ1 > 0 ∨ μ2 > 0 ∨ μ3 > 0 ∨ μ4 > 0 ∨ μ5 > 0 ∨ μ6 > 0, Element[ΛίσταΤίτλωνΑξίαςΘέσης10, μ], Text[""]]]) + ""
ΑνάπτυγμαΑριθμού: "Ανάπτυγμα αριθμού στο δεκαδικό σ.α.: " + (LaTeX[If[μ7 > 0, Text[μ7], Text[""]]]) + "" + (LaTeX[If[μ7 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ7 ≟ 0, Text[""], Text[round(β^(μ - 1), 4)]]]) + "" + (LaTeX[If[μ7 ≠ 0 ∧ (μ6 ≠ 0 ∨ μ5 ≠ 0 ∨ μ4 ≠ 0 ∨ μ3 ≠ 0 ∨ μ2 ≠ 0 ∨ μ1 ≠ 0), Text["+"], Text[""]]]) + "" + (LaTeX[If[μ6 ≟ 0, Text[""], Text[μ6]]]) + " " + (LaTeX[If[μ6 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ6 ≟ 0, Text[""], Text[round(β^(μ - 2), 4)]]]) + "" + (LaTeX[If[μ6 ≠ 0 ∧ (μ5 ≠ 0 ∨ μ4 ≠ 0 ∨ μ3 ≠ 0 ∨ μ2 ≠ 0 ∨ μ1 ≠ 0), Text["+"], Text[""]]]) + "" + (LaTeX[If[μ5 ≟ 0, Text[""], Text[μ5]]]) + "" + (LaTeX[If[μ5 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ5 ≟ 0, Text[""], Text[round(β^(μ - 3), 4)]]]) + "" + (LaTeX[If[μ5 ≠ 0 ∧ (μ4 ≠ 0 ∨ μ3 ≠ 0 ∨ μ2 ≠ 0 ∨ μ1 ≠ 0), Text["+"], Text[""]]]) + "" + (LaTeX[If[μ4 ≟ 0, Text[""], Text[μ4]]]) + "" + (LaTeX[If[μ4 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ4 ≟ 0, Text[""], Text[round(β^(μ - 4), 4)]]]) + "" + (LaTeX[If[μ4 ≠ 0 ∧ (μ3 ≠ 0 ∨ μ2 ≠ 0 ∨ μ1 ≠ 0), Text["+"], Text[""]]]) + "" + (LaTeX[If[μ3 ≟ 0, Text[""], Text[μ3]]]) + "" + (LaTeX[If[μ3 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ3 ≟ 0, Text[""], Text[round(β^(μ - 5), 4)]]]) + "" + (LaTeX[If[μ3 ≠ 0 ∧ (μ2 ≠ 0 ∨ μ1 ≠ 0), Text["+"], Text[""]]]) + "" + (LaTeX[If[μ2 ≟ 0, Text[""], Text[μ2]]]) + "" + (LaTeX[If[μ2 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ2 ≟ 0, Text[""], Text[round(β^(μ - 6), 5)]]]) + "" + (LaTeX[If[μ2 ≠ 0 ∧ μ1 ≠ 0, Text["+"], Text[""]]]) + "" + (LaTeX[If[μ1 ≟ 0, Text[""], Text[μ1]]]) + "" + (LaTeX[If[μ1 ≟ 0, Text[""], Text["Χ"]]]) + "" + (LaTeX[If[μ1 ≟ 0, Text[""], Text[round(β^(μ - 7), 6)]]]) + "" + (LaTeX[If[α ≟ 0, Text[""], Text["="]]]) + "" + (LaTeX[If[α ≟ 0, Text[""], Text[α]]]) + ""
Αριθμ: true
ΑρΑριθμοι: true
ν: 10