ESCALA

Semilogarítmica

Logarítmica

Zoom

Lineal

Comprobar

Perfecto

Mostrar puntos

A

B

C

D

Richter

Grado Richter

kg TNT

z = 0 (slider from 0 to 3, step 1)
esquina1a: Corner[4] + (3.32, (-10.32))
A = (-1.72, 3.22)
B = (-1.72, 1.02)
basezoom = Segment(A, B)
Pzoom = Point(basezoom)
valor: 2 - (4 * Distance[B, Pzoom] / Distance[A, B])
esquina2a: esquina1a + (16, 0)
esquina4a: esquina1a + (0, 10)
alto: y(esquina4a) - y(esquina1a)
esc = If(z ≟ 0, 1, round((1000 * 10^(valor))) / 1000)
Porigen: ((x(esquina1a) + x(esquina2a)) / 2, (y(esquina1a) + y(esquina4a)) / 2)
w = If(esc > 1, 1, If[esc > 0.1, 10, 100])
ndivy1: floor(alto / 2 / (floor((w * esc)) / ((w * esc))))
esquina3a: esquina1a + (16, 10)
ancho: x(esquina3a) - x(esquina1a)
inc = Min(ancho / 625, alto / 625)
esquina14: (esquina1a + esquina4a) / 2
esquina12: (esquina1a + esquina2a) / 2
y1 = Sequence(Text[(floor((w * esc)) * s / w), (x(Porigen) - 0.45, y(Porigen) + (s * floor((w * esc)) / ((w * esc))) - 0.05)], s, 1, ndivy1)
y1a = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, ndivy1)
x0: {Text[0, (x(Porigen) + 0.08, y(Porigen) - 0.3)]}
ndivx1: floor(ancho / 2 / (floor((w * esc)) / ((w * esc))))
y1' = Sequence(Text[((-floor((w * esc))) * s / w), (x(Porigen) - 0.32, y(Porigen) - (s * floor((w * esc)) / ((w * esc))) - 0.05)], s, 1, ndivy1)
y1a' = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, ndivy1)
rayasver1zoom = Sequence(Segment[(x(Porigen) + (k * floor((w * esc)) / ((w * esc))), y(esquina1a)), (x(Porigen) + (k * floor((w * esc)) / ((w * esc))), y(esquina4a))], k, 1, ndivx1)
rayashor1zoom = Sequence(Segment[(x(esquina1a), y(Porigen) + (k * floor((w * esc)) / ((w * esc)))), (x(esquina2a), y(Porigen) + (k * floor((w * esc)) / ((w * esc))))], k, 0, ndivy1)
rayasver2zoom = Sequence(Segment[(x(Porigen) - (k * floor((w * esc)) / ((w * esc))), y(esquina1a)), (x(Porigen) - (k * floor((w * esc)) / ((w * esc))), y(esquina4a))], k, 1, ndivx1)
rayashor2zoom = Sequence(Segment[(x(esquina1a), y(Porigen) - (k * floor((w * esc)) / ((w * esc)))), (x(esquina2a), y(Porigen) - (k * floor((w * esc)) / ((w * esc))))], k, 0, ndivy1)
x1' = Sequence(Text[((-floor((w * esc))) * s / w), (x(Porigen) - (s * floor((w * esc)) / ((w * esc))) - 0.15, y(Porigen) - 0.32)], s, 1, ndivx1)
x1 = Sequence(Text[(floor((w * esc)) * s / w), (x(Porigen) + (s * floor((w * esc)) / ((w * esc))) - 0.05, y(Porigen) - 0.32)], s, 1, ndivx1)
y2 = Sequence(Segment[(x(Porigen), y(Porigen) + (s * floor((w * esc)) / ((w * esc)))), (x(Porigen) - 0.1, y(Porigen) + (s * floor((w * esc)) / ((w * esc))))], s, 1, ndivy1)
y2' = Sequence(Segment[(x(Porigen), y(Porigen) - (s * floor((w * esc)) / ((w * esc)))), (x(Porigen) - 0.1, y(Porigen) - (s * floor((w * esc)) / ((w * esc))))], s, 1, ndivy1)
x2 = Sequence(Segment[(x(Porigen) + (s * floor((w * esc)) / ((w * esc))), y(Porigen)), (x(Porigen) + (s * floor((w * esc)) / ((w * esc))), y(Porigen) - 0.1)], s, 1, ndivx1)
x2' = Sequence(Segment[(x(Porigen) - (s * floor((w * esc)) / ((w * esc))), y(Porigen)), (x(Porigen) - (s * floor((w * esc)) / ((w * esc))), y(Porigen) - 0.1)], s, 1, ndivx1)
polígono1, a, b, c, d = Polygon(esquina1a, esquina2a, esquina3a, esquina4a)
P11: Porigen + (-1 / esc, 3 / esc)
f1(x) = If[x > x(esquina1a) ∧ x < x(esquina2a) ∧ z < 2, 1, 0]
f2(x) = If[x > y(esquina1a) ∧ x < y(esquina3a) ∧ z < 2, 1, 0]
P12: Porigen + (2 / esc, 1 / esc)
P13: Porigen + (((-3)) / esc, -1 / esc)
P21 = If(z < 2, Porigen + (400 / esc, 200 / esc), esquina1a + (1, 1) + (lg(400), lg(200)))
P22 = If(z < 2, Porigen + (100 / esc, 300 / esc), esquina1a + (1, 1) + (lg(100), lg(300)))
P23 = If(z < 2, Porigen + (700 / esc, 100 / esc), esquina1a + (1, 1) + (lg(700), lg(100)))
P01: Porigen + (0.02 / esc, 0)
P02: Porigen + (0.01 / esc, ((-0.03)) / esc)
P03: Porigen + (((-0.04)) / esc, ((-0.02)) / esc)
ndivx0: floor(ancho / 2)
ndivy0: floor(alto / 2)
rayashor1 = Sequence(Segment[(x(esquina1a), y(Porigen) + k), (x(esquina2a), y(Porigen) + k)], k, 0, ndivy0)
rayashor2 = Sequence(Segment[(x(esquina1a), y(Porigen) - k), (x(esquina2a), y(Porigen) - k)], k, 0, ndivy0)
rayasver1 = Sequence(Segment[(x(Porigen) + k, y(esquina1a)), (x(Porigen) + k, y(esquina4a))], k, 1, ndivx0)
rayasver2 = Sequence(Segment[(x(Porigen) - k, y(esquina1a)), (x(Porigen) - k, y(esquina4a))], k, 1, ndivx0)
x10 = Sequence(Text[s, (x(Porigen) + s - 0.05, y(Porigen) - 0.32)], s, 1, ndivx0)
x10' = Sequence(Text[(-s), (x(Porigen) - s - 0.15, y(Porigen) - 0.32)], s, 1, ndivx0)
x20 = Sequence(Segment[(x(Porigen) + s, y(Porigen)), (x(Porigen) + s, y(Porigen) - 0.1)], s, 1, ndivx0)
x20' = Sequence(Segment[(x(Porigen) - s, y(Porigen)), (x(Porigen) - s, y(Porigen) - 0.1)], s, 1, ndivx0)
y20 = Sequence(Segment[(x(Porigen), y(Porigen) + s), (x(Porigen) - 0.1, y(Porigen) + s)], s, 1, ndivy0)
y20' = Sequence(Segment[(x(Porigen), y(Porigen) - s), (x(Porigen) - 0.1, y(Porigen) - s)], s, 1, ndivy0)
logXbase = 10
logXmax: x(esquina2a)
logXmin: x(esquina1a)
logYbase = 10
logYmax: y(esquina4a)
logYmin: y(esquina1a)
a12 = Corner(1)
ejeY = If(z < 2, Segment[(esquina3a + esquina4a) / 2, (esquina1a + esquina2a) / 2], Segment[esquina1a + (1, 0), esquina4a + (1, 0)])
ejeX = If(z < 2, Segment[(x(esquina1a), y(Porigen)), (x(esquina2a), y(Porigen))], Segment[esquina1a + (0, 1), esquina2a + (0, 1)])
x20log = Sequence(Segment[(x(esquina1a) + 1 + s, y(esquina1a) + 1), (x(esquina1a) + 1 + s, y(esquina1a) + 1 - 0.1)], s, 1, x(esquina2a))
y20log = Sequence(Segment[(x(esquina1a) + 1, y(esquina1a) + 1 + s), (x(esquina1a) + 1 - 0.1, y(esquina1a) + 1 + s)], s, 1, y(esquina4a) - y(esquina1a) - 1)
y10log2 = Sequence(Text[10, (x(esquina1a) + 1 - 0.55, y(esquina1a) + 1 + s - 0.15)], s, 1, y(esquina3a) - y(esquina1a) - 2)
y10log1 = Sequence(Text[s, (x(esquina1a) + 1 - 0.3, y(esquina1a) + 1.05 + s)], s, 1, y(esquina3a) - y(esquina1a) - 2)
y1b = Sequence(Text[(floor((w * esc)) * s / w), (x(Porigen) - 0.25 - (0.1 * Element[y1a, s]), y(Porigen) + (s * floor((w * esc)) / ((w * esc))) - 0.08)], s, 1, ndivy1)
y10b = Sequence(Text[s, (x(Porigen) - 0.35, y(Porigen) + s - 0.08)], s, 1, ndivy0)
y10b' = Sequence(Text[(-s), (x(Porigen) - 0.42, y(Porigen) - s - 0.08)], s, 1, ndivy0)
y1b' = Sequence(Text[((-floor((w * esc))) * s / w), (x(Porigen) - 0.33 - (0.1 * Element[y1a, s]), y(Porigen) - (s * floor((w * esc)) / ((w * esc))) - 0.08)], s, 1, ndivy1)
x10log2 = Sequence(Text[s, (x(esquina1a) + 1 + s, y(esquina1a) + 1 - 0.32)], s, 1, x(esquina2a) - 1)
x10log1 = Sequence(Text["10", (x(esquina1a) + 1 + s - 0.3, y(esquina1a) + 1 - 0.52)], s, 1, x(esquina3a) - 1)
P1 = (0.24, -4.54)
P2 = (1.58, -4.5600000000000005)
P3 = (2.7600000000000002, -4.58)
P4 = (3.94, -4.5)
P5 = (5.12, -4.5200000000000005)
P6 = (6.28, -4.54)
P7 = (7.62, -4.54)
P8 = (8.92, -4.5200000000000005)
x10semilog = Sequence(Text[s, (x(esquina1a) + 1 + s + If[s < 10, -0.05, -0.15], y(esquina1a) + 1 - 0.32)], s, 1, x(esquina2a) - 1)
P1' = (1.5, -3.04096)
P2' = (2, -2.22185)
P3' = (2.5, -1.5376)
P4' = (3.5, -0.34199)
P5' = (4, 0.77815)
P6' = (5, 2.29885)
P7' = (6.1, 3.47712)
P8' = (7, 5.29885)
e1 = If(Distance[P1, P1'] < 0.1, 1, 0)
e2 = If(Distance[P2, P2'] < 0.1, 1, 0)
e3 = If(Distance[P3, P3'] < 0.1, 1, 0)
e4 = If(Distance[P4, P4'] < 0.1, 1, 0)
e5 = If(Distance[P5, P5'] < 0.1, 1, 0)
e6 = If(Distance[P6, P6'] < 0.1, 1, 0)
e7 = If(Distance[P7, P7'] < 0.1, 1, 0)
e8 = If(Distance[P8, P8'] < 0.1, 1, 0)
comprobar = false
et: e1 + e2 + e3 + e4 + e5 + e6 + e7 + e8
texto7: "Hay " + (8 - et) + " incorrectos"
mostrar = false
logY = Sequence(Sequence[Segment[(x(esquina1a) + 1, y(Porigen) + t + ln(s) / ln(logYbase)), (x(esquina2a), y(Porigen) + t + ln(s) / ln(logYbase))], s, 1, logYbase - 1], t, (-ndivy0) + 1, ndivy0 - 1)
logX = Sequence(Sequence[Segment[(x(Porigen) + t + ln(s) / ln(logXbase), y(esquina1a) + 1), (x(Porigen) + t + ln(s) / ln(logXbase), y(esquina4a))], s, 1, logXbase - 1], t, (-ndivx0) + 1, ndivx0 - 1)
rayasversemilog = Sequence(Segment[(x(Porigen) + k, y(esquina1a) + 1), (x(Porigen) + k, y(esquina4a))], k, (-ndivx0), ndivx0)
P31 = (2, 1.48)
P32 = (6, -1.3)
P33 = (3, -2.7)
P34 = (14, 0)
richter = false