%v €

%v €

Horas

Horas

€ por hora

Coste mensual (€)

Operadora de telefonía móvil Mancuentro. Tarifas

%v cts.

Céntimos por minuto de llamada                                                                     las primeras 3 horas y el resto a 

Consumo mínimo mensual

Cuota mensual fija

%v cts.

g = 0 (slider from 0 to 50, step 1)
f = 0 (slider from 0 to 50, step 1)
A = (-3, -5)
B = (7, -5)
abscisas: {Sequence[Text[s, A + (s - 0.05, (-0.32))], s, 1, 6], Sequence[Text[s, B + (s - 0.05, (-0.32))], s, 1, 6]}
y1 = Sequence(Text[(5 * s), ((-0.32), s - 0.05)], s, 1, 6)
y1a = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, 6)
y1b = Sequence(Text[(5 * s), A + ((-0.2) - (0.1 * Element[y1a, s]), s - 0.08)], s, 1, 6)
y2 = Sequence(Text[(20 * s), ((-0.32), s - 0.05)], s, 1, 6)
y2a = Sequence(Length[TextToUnicode[Element[y2, s]]], s, 1, 6)
y2b = Sequence(Text[(20 * s), B + ((-0.2) - (0.1 * Element[y2a, s]), s - 0.08)], s, 1, 6)
e = 11 (slider from 0 to 50, step 1)
h = 11 (slider from 0 to 50, step 1)
C: A + (3, (3 * e / 25))
i = Segment(A + (0, (3 * e / 25)), C)
D: A + (3, (3 * h / 25))
j = Segment(D, A + (7, (3 * h / 25)))
D': A + (3, (3 * h / 25))
k = Segment(B + (0, g / 20), B + (3, g / 20 + ((3 * 60) * e / 2000)))
l = Segment(B + (3, g / 20 + ((3 * 60) * e / 2000)), B + (7, g / 20 + ((3 * 60) * e / 2000) + ((4 * 60) * h / 2000)))
m = Line(B + (0, g / 20 + f / 20), B + (1, g / 20 + f / 20))
F = Intersect(k, m)
n = Segment(B + (0, g / 20 + f / 20), F)
p = Segment(F, B + (3, g / 20 + ((3 * 60) * e / 2000)))
I = Intersect(m, l)
q = Segment(B + (0, g / 20 + f / 20), I)
r = Segment(B + (0, g / 20 + f / 20), B + (7, g / 20 + f / 20))
K = Point(Segment[B, B + (7, 0)])
t = OrthogonalLine(K, xAxis)
L = Intersect(t, l)
M = Intersect(t, p)
N = Intersect(t, n)
O = Intersect(t, q)
a1 = Segment(K, O)
b1 = Segment(K, L)
P = Intersect(t, r)
c1 = Segment(K, P)
Q = Intersect(t, r)
d1 = Segment(K, M)
e1 = OrthogonalLine(A + (x(K - B), 0), xAxis)
S = Intersect(e1, j)
T = Intersect(e1, i)
cuadriculas: {Sequence[Segment[A + (0, k), A + (7, k)], k, 1, 6], Sequence[Segment[A + (k, 0), A + (k, 6)], k, 1, 7], Sequence[Segment[B + (k, 0), B + (k, 6)], k, 1, 7], Sequence[Segment[B + (0, k), B + (7, k)], k, 1, 6]}
ejes: {Segment[A, A + (0, 6.5)], Segment[A, A + (7.5, 0)], Segment[B, B + (0, 6.5)], Segment[B, B + (7.5, 0)]}
s = Segment(I, B + (7, g / 20 + ((3 * 60) * e / 2000) + ((4 * 60) * h / 2000)))
f1 = Segment(T, A + (x(K - B), 0))
g1 = Segment(A + (x(K - B), 0), S)