Fracción

Numerador

Denominador

Fracción =

Fracción

Porcentaje

+

-

Muestra Ayuda

Oculta Ayuda

Porcentaje

  Numerador                 Porcentaje
                               =    
Denominador                     100

Muestra Cálculos

Oculta Cálculos

Frac.

%

Correcto: la fracción y el
porcentaje son iguales 
o están muy próximos

+

-

+

-

Porcentaje

El porcentaje se obtiene como el cociente

Escribe el valor entero más cercano en la
casilla Porcentaje de la ventana izquierda

La fracción se puede conseguir con
la fracción irreducible de la derecha

ra = 2 (slider from 0 to 5, step 0.1)
A = (-1, 3)
c = Circle(A, ra)
E = Point(c)
C = (-3, 6)
D = (10, 6)
e = Line(C, D)
f = Line(E, e)
B = Point(f)
d = Circle(B, ra)
F = Intersect(d, f, 2)
p = 20 (slider from 0 to 100, step 1)
de: p / 100
fp = 0 (slider from 0 to 1, step 1)
b = 8 (slider from 1 to 100, step 1)
a = 3 (slider from 0 to b - 1, step 1)
t = 10.7 (slider from 5 to 15, step 0.1)
s = 1.2 (slider from 1 to 2, step 0.1)
G = (-2.999999999999999, -1)
l2 = Sequence(Rotate[F, ((2 * π) * i / 10), B], i, 0, 10)
ab_1: (a * b)
ba: a / b
g: (ab_1 * a / b)
texto4: "Decimal = " + ba + ""
bap: (ba * 100)
E' = Rotate(E, ((ba * 2) * π), A)
F' = Rotate(F, ((de * 2) * π), B)
l1 = Sequence(Rotate[E, ((2 * π) * i / b), A], i, 0, b)
h = CircleArc(A, E, E')
E'_1 = Mirror(E, A)
H = (-3, -3)
lnq = Sequence(Text[i], i, 0, 100, 10)
ln1 = Sequence(i, i, 0, a)
ln1d = Sequence(i, i, 0, b)
lnp = Sequence(Text[i], i, 0, b)
l11 = Sequence(Segment[A, Element[l1, i]], i, 1, b)
p1, i, j, k, p_1 = Polygon(G, G + (t, 0), G + (t, s), G + (0, s))
l22 = Sequence(Segment[B, Element[l2, i]], i, 1, 10)
p2, l, m, n, q = Polygon(H, H + (t, 0), H + (t, s), H + (0, s))
m11 = Sequence(Segment[G + ((t * i / b), 0), G + ((t * i / b), s)], i, 1, b)
m21 = Sequence(Segment[H + ((t * i / 10), 0), H + ((t * i / 10), s)], i, 1, 10)
p3, g_1, r, a_1, b_1 = Polygon(G, G + ((t * ba), 0), G + ((t * ba), s), G + (0, s))
p4, c_1, d_1, e_1, h_1 = Polygon(H, H + ((t * de), 0), H + ((t * de), s), H + (0, s))
m10 = Sequence(G + ((t * i / b), 0), i, 0, b)
m20 = Sequence(H + ((t * i / 10), 0), i, 0, 10)
m12 = Sequence(Text[Element[lnp, k], Element[m10, k] - (0.1, 0.5)], k, 1, b + 1)
m22 = Sequence(Text[Element[lnq, k], Element[m20, k] - (0.1, 0.5)], k, 1, 11)
n20 = Sequence(Rotate[F + (0.25, 0), ((2 * π) * i / 10), B], i, 0, 10)
lista1: n20 + Sequence[Rotate[F + (0.5, 0), ((2 * π) * i / b), B], i, 0, b]
n10 = Sequence(Rotate[E + (0.25, 0), ((2 * π) * i / b), A], i, 0, b)
n12 = Sequence(Text[Element[lnp, k], Element[n10, k] - (0.1, 0.1)], k, 2, b + 1)
n22 = Sequence(Text[Element[lnq, k], Element[n20, k] - (0.1, 0.1)], k, 2, 11)
CajaDeEntrada1 = Textfield(a)
CajaDeEntrada2 = Textfield(b)
I = (-1.3732541442297592, 2.2314019638897675)
J: I + (1.2, 0)
f_1 = Segment(I, J)
F'_1 = Mirror(F, B)
CajaDeEntrada3 = Textfield(p)
texto5: "Porcentaje = " + p + ""
o = 0 (slider from 0 to 1, step 1)
u = 0 (slider from 0 to 1, step 1)
K = (-2.133469538591495, 3.9207695069158457)
L: K + (0.8, 0)
v_1 = Vector(K, L)
K': K - (0, 0.3)
L': L - (0, 0.3)
w = Vector(L', K')
M = (-2.5172727272727315, 1.466181818181817)
v = 0 (slider from 0 to 1, step 1)
h9 = CircleSector(A, E, E')
i9 = CircleSector(B, F, F')
texto16: "La fracción se puede conseguir obteniendo
la fracción irreducible de la derecha: " + p + " / 100"
texto17: "La fracción se puede conseguir obteniendo
la fracción irreducible de la derecha: " + p + " / 100"
texto19: "La fracción se puede conseguir obteniendo
la fracción irreducible de la derecha: " + p + " / 100"
texto3: "Fracción = " + a + " / " + b + ""
N = (-3, -0.7)
O = (0.24, -0.72)
P = (3.92, -0.72)
Q = (5.3, -0.74)
texto21: "" + a + " · 100

    " + b + ""
R = (3.98, -2.54)
r1: r + 1
N1: N + (2.2, 0)
O1: O + (1.8, 0)
P1: P + (0.8, 0)
Q1: Q + (2.2, 0)
R1: R + (1.2, 0)
i_1 = Segment(N, N1)
j_1 = Segment(O, O1)
k_1 = Segment(P, P1)
l_1 = Segment(Q, Q1)
m_1 = Segment(R, R1)
S = (2.96, -0.74)
T = (4.44, -0.7)
S1: S + (0.8, 0)
T1: T + (1, 0)
texto12: " a                " + p + "
          =  
  b              100"
n_1 = Segment(S, S1)
q_1 = Segment(T, T1)
texto22: " " + p + "

100"
texto9: "  " + (LaTeX[a]) + "               Porcentaje
           =  
  " + (LaTeX[b]) + "                      100"
n13 = Sequence(Text[Element[lnp, k], Element[n10, k] - (0.1, 0.1)], k, 3, b + 1, 2)
n14 = Sequence(Text[Element[lnp, k], Element[n10, k] - (0.1, 0.1)], k, 6, b + 1, 5)
m13 = Sequence(Text[Element[lnp, k], Element[m10, k] - (0.1, 0.5)], k, 3, b + 1, 2)
m14 = Sequence(Text[Element[lnp, k], Element[m10, k] - (0.1, 0.5)], k, 6, b + 1, 5)