Sube hasta Mach 1

|v| = %v m/s

Sube hasta Mach 1.5

Despega

Efecto Doppler

Sonido 
más grave

Sonido
más agudo

plano tangente común
(barrera del sonido)

Ondas sonoras
(esferas concéntricas 
de cambios de presión)

\rotatebox{-41}{onda  \; de  \; choque\;  (estampido  \; sónico)}\

Conos condensación

t0: {0, 0, 0}
t1: {141,17,34}
t: ((t1(3) < t0(3)) * 3600) + ((t1(3) - t0(3)) * 60) + t1(2) - t0(2) + (t1(1) - t0(1)) / 1000
tt = 96
dt = 0.045
anima = 0.471 (slider from 0 to 1, step 0.001)
vs: 343
v = (0, 0)
M = (0, 150)
mach1 = false
v0 = 0 (slider from 0 to 515, step 1)
st: (343 * (t - floor(t)))
mach2 = false
ondas = Sequence(Circle[M - ((r + st) / vs * v), r + st], r, -300, 2000 - st, 50)
desp = false
A: M + (-2300, 800)
B: A + (3000, 0)
u = Vector(A, B)
w = Vector(B, A)
ec1: x = x(M) + 15
C: Corner[1] - (0, 2000)
D: C + Corner[2] - Corner[1]
conden = false
P1: M - (1800, 240)
P2: P1 + (2650, 0)
ω = If(80 < v0 ≤ 110, (v0 / 5 - 16)°, 110 < v0 ≤ 140, (28 - v0 / 5)°, 0)
Q1 = If(80 < v0 < 140, Rotate[P1, ω, (P1 + P2) / 2], P1)
Q2 = If(80 < v0 < 140, Rotate[P2, ω, (P1 + P2) / 2], P2)
texto1: "" + ((v0 * 3.6)) + " km/h"