Η τυποποιημένη μορφή του αριθμού

Αριθμός:

είναι η

Παρουσίαση

Εύρεση ν με δρομέα

Εύρεση α,ν

α

ν

·10

Νέος αριθμός

Έλεγχος

Εύρεση αρχικού αριθμού

Αριθμός:

Ορίστε την τιμή του ν από το δρομέα ώστε να προκύπτει η τυποποιημένη μορφή και ελέγξτε την
απάντησή σας με το αντίστοιχο κουμπί. Μπορείτε και πάλι να αλλάζετε τον αριθμό.

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

Ορίστε την τιμή του αριθμού που αντιστοιχεί στην τυποποιημένη μορφή. Ο έλεγχος εμφανίζεται 
αυτόματα. Μπορείτε και πάλι να αλλάζετε τον αριθμό (μόνο από το κουμπί).

Παρακάτω παρουσιάζεται ένας αριθμός στην αρχική του και την τυποποιημένη του μορφή.
Μπορείτε να τον αλλάξετε από το πλαίσιο ή το κουμπί 'Νέος αριθμός' (παράγεται τυχαίος).

v:

Έλεγχος:

?

Τυποποιημένη

      μορφή

       αριθμού

ν_3: NaN
α_0: 17130000000000000
α_+: abs(α_0)
Κα_0 = Text(α_+)
μα_0 = Length(Κα_0)
υα_0 = Sum(Sequence[If[Take[Κα_0, ι, ι] ≟ ".", ι, 0], ι, 1, μα_0])
τ = Min(RemoveUndefined[Sequence[If[Take[Κα_0, ι, ι] ≠ "0" ∧ Take[Κα_0, ι, ι] ≠ ".", ι], ι, 1, μα_0]])
ν_1 = If(υα_0 ≟ 0, μα_0 - 1, If[τ ≟ 1, υα_0 - 2, υα_0 - τ])
Λειτουργία: 1
ν_2 = 0 (slider from 0 to 20, step 1)
α_3: NaN
α_2: α_0 / 10^(ν_2)
ν = Element({ν_1, ν_2, ν_3, ν_1}, Λειτουργία)
α_1: α_0 / 10^(ν_1)
α = Element({α_1, α_2, α_3, α_1}, Λειτουργία)
Εισα_0 = Textfield(α_0)
Λειτουργίες: {"Παρουσίαση", "Εύρεση ν με δρομέα", "Εύρεση α,ν"}
Εισα_3 = Textfield(α_3)
Εισν_3 = Textfield(ν_3)
ΟΚ_2: ν_2 ≟ ν_1
ΟΚ_3: α_3 ≟ α_1 ∧ ν_3 ≟ ν_1
κείμενοΟΚ_2 = If(ΟΚ_2, "Σωστό", "Λάθος")
κείμενοΟΚ_3 = If(ΟΚ_3, "Σωστό", "Λάθος")
ΕμφΟΚ_2: false
ΕμφΟΚ_3: Defined[α_3] ∧ Defined[ν_3]
α_4: NaN
Εισα_4 = Textfield(α_4)
ΟΚ_4: α_4 ≟ α_0
κείμενοΟΚ_4 = If(ΟΚ_4, "Σωστό", "Λάθος")
ΕμφΟΚ_4 = Defined(α_4)
κείμενο2 = ΠινακοποίησηΑριθμού1Τ(α_0)
Κα = If(Defined[α], Text[α], "?")
μα = Length(Κα)
υα = Sum(Sequence[If[Take[Κα, ι, ι] ≟ ".", ι, 0], ι, 1, μα])
Κ'α = If(υα ≟ 0, Κα, Take[Κα, 1, υα - 1] + "," + (Take[Κα, υα + 1, μα]))
κείμενο4: " " + (LaTeX[Κ'α]) + " · " + (LaTeX[10]) + "$^{" + (LaTeX[ν]) + "} $"
design = false
κείμενο6 = ΠινακοποίησηΑριθμού1Τ(α_4)
Α = (13.787901234567899, -4.291061728395057)
Β = (15.654567901234563, -4.291061728395057)

Tool: Κειμενοποίηση Αριθμού (command ΚειμενοποίησηΑριθμού)
Input: α
Output: Κ'

Κ = If(Defined[α], Text[α], "?")
μ = Length(Κ)
Λ = Sequence(Take[Κ, ι, ι], ι, 1, μ)
υ = Sum(Sequence[If[Element[Λ, ι] ≟ ".", ι, 0], ι, 1, μ])
Κ' = If(υ ≟ 0, Κ + "", Take[Κ, 1, υ - 1] + "," + (Take[Κ, υ + 1, μ]))

Tool: Πινακοποίηση Αριθμού (command ΠινακοποίησηΑριθμού)
Επιστρέφει τα ψηφία του αριθμού σε πίνακα χωρίς υποδιαστολή
Input: α
Output: Π0

Κ = If(Defined[α], Text[α], "?")
μ = Length(Κ)
Λ = Sequence(Take[Κ, ι, ι], ι, 1, μ)
υ = Sum(Sequence[If[Element[Λ, ι] ≟ ".", ι, 0], ι, 1, μ])
Λ0 = RemoveUndefined(Sequence[If[ι ≠ υ, Element[Λ, ι]], ι, 1, μ])
Π0 = TableText({Λ0})

Tool: Πινακοποίηση Αριθμού 1 (command ΠινακοποίησηΑριθμού1)
Επιστρέφει τα ψηφία του αριθμού σε πίνακα με την υποδιαστολή προσκολλημένη στο ψηφίο των μονάδων
Input: α
Output: Π1

Κ = If(Defined[α], Text[α], "?")
μ = Length(Κ)
Λ = Sequence(Take[Κ, ι, ι], ι, 1, μ)
υ = Sum(Sequence[If[Element[Λ, ι] ≟ ".", ι, 0], ι, 1, μ])
Λ1 = RemoveUndefined(Sequence[If[ι ≠ υ, Element[Λ, ι] + (If[ι ≟ υ - 1, ",", ""])], ι, 1, μ])
Π1 = TableText({Λ1})

Tool: Πινακοποίηση Αριθμού 1Τ (command ΠινακοποίησηΑριθμού1Τ)
Επιστρέφει τα ψηφία του αριθμού σε πίνακα με την υποδιαστολή και τις τελείες διαχωρισμού χιλιάδων προσκολλημένες στα ψηφία
Input: α
Output: Π1τ

Κ = If(Defined[α], Text[α], "?")
μ = Length(Κ)
Λ = Sequence(Take[Κ, ι, ι], ι, 1, μ)
υ = Sum(Sequence[If[Element[Λ, ι] ≟ ".", ι, 0], ι, 1, μ])
Λ0 = RemoveUndefined(Sequence[If[ι ≠ υ, Element[Λ, ι]], ι, 1, μ])
μ0 = Length(Λ0)
Λ1τ = Sequence(Element[Λ0, ι] + (If[ι < υ ∧ Mod[υ - 1 - ι, 3] ≟ 0 ∨ υ ≟ 0 ∧ ι < μ ∧ Mod[μ - ι, 3] ≟ 0, If[υ - 1 - ι ≟ 0, ",", "."], ""]), ι, 1, μ0)
Π1τ = TableText({Λ1τ})

Tool: Πινακοποίηση Αριθμού 2 (command ΠινακοποίησηΑριθμού2)
Επιστρέφει τα ψηφία του αριθμού σε πίνακα με την υποδιαστολή ως ξεχωριστό στοιχείο του πίνακα
Input: α
Output: Π2

Κ = If(Defined[α], Text[α], "?")
μ = Length(Κ)
Λ = Sequence(Take[Κ, ι, ι], ι, 1, μ)
υ = Sum(Sequence[If[Element[Λ, ι] ≟ ".", ι, 0], ι, 1, μ])
Λ2 = Sequence(If[ι ≠ υ, Element[Λ, ι], ","], ι, 1, μ)
Π2 = TableText({Λ2})