Hola,
¿Sabe alguien por qué se la llama curva Grim Reaper?
image = ExampleData[{"TestImage", "House2"}];
car = ImageTrim[image, {{22.`, 70.`}, {452.`, 230.`}}];
f[t_] := -Log[Cos[t]];
Animate[Plot[f[t], {t, -Pi/2, Pi/2},
PlotStyle -> {Magenta, Thickness[0.015]}, AspectRatio -> Automatic,
PlotRange -> {{-3.5, 3.5}, {-1, 10}}, ImageSize -> Medium,
Epilog -> Inset[car, {x, f[x]}, Automatic, 2]], {x, -Pi/2, Pi/2},
AnimationRate -> .2]Pensé que era porque si la recorres en monopatín es una 'curva imposible', y el riesgo es evidente. Pero luego una chica dijo que podía ser porque si la recorres en coche es una curva muy peligrosa. Y esto me ha convencido de que recibe ese nombre porque el que coja esa curva sin saber su forma tiene todas las papeletas de hacerle una visita al 'Grim Reaper'.
