Suma

Resta

Mutliplica

Divide

n = 500
s = false
ancho: x(Corner[3] - Corner[4])
alto: y(Corner[4] - Corner[1])
inc = Min(ancho / 1200, alto / 1200)
Pos1sup: Corner[4] + ((35 * inc), ((-88) * inc))
Pos1inf: Corner[4] + ((35 * inc), ((-376) * inc))
seg1 = Segment(Pos1inf, Pos1sup)
Pos = Point(seg1)
valor: 2 - (4 * (y(Pos) - y(Pos1inf)) / (y(Pos1sup) - y(Pos1inf)))
esc: round((10 * 2^(valor))) / 10
c = Segment((((-2)) / esc, (-0.6)), (2 / esc, (-0.6)))
B = Point(c)
b': round(((10 * x(B)) * esc)) / 10
c0 = Segment((((-10)) / esc, 0), (10 / esc, 0))
A = Point(c0)
a: round((10 * x(A))) / 10
r = false
m = false
d = false
Pos1: Corner[4] + ((18 * inc), ((-434) * inc))
Pos2: Corner[4] + ((58 * inc), ((-434) * inc))
Pos3: Pos + (((-16) * inc), ((-14) * inc))
Pos4: Pos + ((20 * inc), ((-14) * inc))
seg2 = Segment(Corner[4] + ((6 * inc), ((-232) * inc)), Corner[4] + ((66 * inc), ((-232) * inc)))
w = If(esc > 1, 1, If[esc > 0.1, 10, 100])
x1 = Sequence(Text[(floor((w * esc)) * s / w), ((s * floor((w * esc)) / ((w * esc))) - 0.05, (-0.32))], s, 1, floor((2 * x(Corner[2]))))
x1' = Sequence(Text[((-floor((w * esc))) * s / w), (((-s) * floor((w * esc)) / ((w * esc))) - 0.15, (-0.32))], s, 1, floor((-2 * x(Corner[1]))))
x2' = Sequence(Segment[(((-s) * floor((w * esc)) / ((w * esc))), 0), (((-s) * floor((w * esc)) / ((w * esc))), (-0.1))], s, 1, floor((-2 * x(Corner[1]))))
b: round((10 * x(B))) / 10
s1 = Sequence((a + (k * b), 0), k, 1, n)
m1 = Sequence(((a * b'^(k)), 0), k, 1, n)
r1 = Sequence((a - (k * b), 0), k, 1, n)
d1 = Sequence((a / b'^(k), 0), k, 1, n)
S = Element(s1, 1)
R = Element(r1, 1)
M = Element(m1, 1)
D = Element(d1, 1)
e = Segment(B, B + (0, 0.8))
s2 = Sequence(Semicircle[Element[s1, k], Element[s1, k + 1]], k, 1, n - 1)
r2 = Sequence(Semicircle[Element[r1, k + 1], Element[r1, k]], k, 1, n - 1)
m2 = Sequence(Semicircle[Element[m1, k], Element[m1, k + 1]], k, 1, n - 1)
d2 = Sequence(Semicircle[Element[d1, k + 1], Element[d1, k]], k, 1, n - 1)
s3 = Semicircle(A, Element[s1, 1])
r3 = Semicircle(Element[r1, 1], A)
m3 = Semicircle(A, Element[m1, 1])
d3 = Semicircle(Element[d1, 1], A)
x2 = Sequence(Segment[((s * floor((w * esc)) / ((w * esc))), 0), ((s * floor((w * esc)) / ((w * esc))), (-0.1))], s, 0, floor((2 * x(Corner[2]))))
x0: {Text[0, (-0.06, -0.33)]}
a': round(((10 * x(A)) * esc)) / 10
texto4: "Número inicial: " + a' + "
Posición operador: " + b'