Deux heures de voyage au coeur d’un Mandelbrot

Sujet: Deux heures de voyage au coeur d’un Mandelbrot Mer 3 Jan 2024 - 1:19

Code:: rem ============================================================================
rem Deux heures de voyage au coeur d’un Mandelbrot
rem ============================================================================

dim html$
label fin
on_close 0,fin
html$ = "C:\temp\code.htm" : ' modifier éventuellement le chemin

CreerHTML()
execute_wait html$

end
rem ============================================================================
fin:
   FILE_DELETE html$ : ' Supprimer le fichier HTML
  ' terminate
return
rem ============================================================================
' Créer le fichier HTML
SUB CreerHTML()
   DIM_LOCAL q$
   q$ = chr$(34) : ' caractère guillemet
   FILE_OPEN_WRITE 10,html$
   FILE_WRITELN 10,"<html>"
   file_writeln 10,"<iframe width=" + q$+"1000"+q$+ "height="+q$+"600"+q$
   file_writeln 10,"src="+q$+"https://www.youtube.com/embed/fFyC68CIEio"+q$
   file_writeln 10,"title="+q$+"A Trip to Infinity - Mandelbrot Fractal Zoom (Depth 1.2e1077) (4k 60fps)"
   file_writeln 10,"frameborder="+q$+"0"+q$+"allow="+q$+"accelerometer; autoplay;"
   file_writeln 10,"clipboard-write; encrypted-media; gyroscope; picture-in-"
   file_writeln 10,"picture; web-share"+q$+ "allowfullscreen></iframe>"
   FILE_WRITELN 10,"</html>"
   FILE_CLOSE 10
END_SUB
rem ============================================================================

Bon visionnage!

Au diable l'avarice et soyons généreux : ajoutons trente minutes pour un voyage de deux heures trente.

Code:: rem ============================================================================
rem Deux heures et trente minutes de voyage au coeur d’un Mandelbrot
rem ============================================================================

dim html$
label fin
on_close 0,fin
html$ = "C:\temp\code.htm" : ' modifier éventuellement le chemin

CreerHTML()
execute_wait html$

end
rem ============================================================================
fin:
   FILE_DELETE html$ : ' Supprimer le fichier HTML
  ' terminate
return
rem ============================================================================
' Créer le fichier HTML
SUB CreerHTML()
   DIM_LOCAL q$
   q$ = chr$(34) : ' caractère guillemet
   FILE_OPEN_WRITE 10,html$
   FILE_WRITELN 10,"<html>"
   file_writeln 10,"<iframe width=" + q$+"1000"+q$+ "height="+q$+"600"+q$
   file_writeln 10,"src="+q$+"https://www.youtube.com/embed/LhOSM6uCWxk?list=RDLhOSM6uCWxk"+q$
   file_writeln 10,"title="+q$+"The Hardest Trip - Mandelbrot Fractal Zoom"+q$
   file_writeln 10,"frameborder="+q$+"0"+q$+"allow="+q$+"accelerometer; autoplay;"
   file_writeln 10,"clipboard-write; encrypted-media; gyroscope; picture-in-"
   file_writeln 10,"picture; web-share"+q$+ "allowfullscreen></iframe>"
   FILE_WRITELN 10,"</html>"
   FILE_CLOSE 10
END_SUB
rem ============================================================================

Merci papydall Smile

Origine de la video :

https://www.maths.town/videos/a-trip-to-infinity-video/

Avec quelques explications et une galerie d'images.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Très beau voyage !
On croirait voyager à l'intérieur d'un microscope.
Très joli !
Bravo !
cheers