Agujeros negros y diagramas de Penrose, explicados por Gastón Giribet

En este vídeo, el Dr. Gastón Giribet, profesor de la Universidad de Buenos Aires, nos explica los fundamentos de los diagramas de Penrose y cómo podemos usarlos para resolver la aparente paradoja del tiempo infinito para cruzar el horizonte. Este vídeo complementa la discusión en el episodio 349 del podcast Coffee Break: Señal y Ruido.

[#1 mononoque]

Muy recomendable el podcast para cientófilos Coffee Break. Ahora mismo lo estoy viendo en el directo de YouTube.

[#2 suzudo]

Para el WolFram Mathematica (diagramas de Penrose sobre la geometria de kruskal):

Manipulate[

theta0 = ArcTan[t0 + x0] - ArcTan[t0 - x0];
tau0 = ArcTan[t0 + x0] + ArcTan[t0 - x0];
pt1 = {1/2*(theta0 - tau0 + [Pi]), [Pi] -
1/2*(theta0 - tau0 + [Pi])};
pt2 = {1/2*(theta0 - tau0 + [Pi]) - [Pi], -1/
2*(-tau0 + theta0 + [Pi])};
pt3 = {1/2*(+theta0 + tau0 + [Pi]), 1/2*(theta0 + tau0 - [Pi])};
pt4 = {1/2*(theta0 + tau0 - [Pi]),
1/2*(theta0 + tau0 - [Pi]) + [Pi]};

Show[
l,
k,…   

[#3 suzudo]

#2 Me han dado permiso para publicar esto aquí pero se entiende mal tal como me lo han pasado. Bueno (por si sirve de alguna cosa algún punto):

Tenemos dos «cosas» con dos sucesos p y q cada una, p (la cosa del suceso p ) tiene su línea de tiempo su línea temporal y en un momento de esa línea denotado con r se lanza un rayo de luz que da a q (a la cosa del suceso q cuando le ocurre dicho suceso q y rebota en este y vuelve a llegar a p en el momento s. Si denominamos q’ el momento de la línea…   

[#4 suzudo]

#2 " " no un emoticono

Defiendo el Maxima con wxMaxima y GnuTexmacs que son libres etc pero realmente escribir eso para el Maxima es un poco coñazo y el W Mathematica es más sencillo. Por ejemplo 50 dígitos de Pi:
wxMaxima
fpprec:50;numer:true$bfloat(%pi);

Mathematica
N[Pi,50]