Projection stéréographique inverse de la spirale logarithmique

 C’est la réalisation d’Erik Mahieu avec Mathematica :

 https://demonstrations.wolfram.com/InverseStereographicProjectionOfTheLogarithmicSpiral/

qui m’a donné envie de réaliser quelque chose d’équivalent avec PSTricks. Bien sûr Mathematica possède des outils très puissants, ce qui n’enlève rien au talent d’ErikMahieu ainsi qu’aux très nombreux auteurs qui déposent leurs applications sur la plate-forme :

 https://demonstrations.wolfram. com/.

Deux commandes additionnelles à pst-solides3d ont été nécessaires : \listplotIIID[options], qui avait déjà été utilisée dans plusieurs exemples, comme :

http://pstricks.blogspot.com/2018/05/les-attracteurs-de-lorenz-rossler-et.html 

http://pstricks.blogspot.com/2012/10/swinging-atwoods-machine-animation-en-3d.html 

et \psInverseStereographicLogarithmicSpiral[options] qui est détaillée dans la documentation.

Les fichiers sont accessibles ici :

InverseStereographicLogarithmicSpiral.zip

ou sur Drive :

InverseStereographicLogarithmicSpiral.zip

Images extraites de la documentation :

 

 

En inversant les couleurs (avec The Gimp) l'image est plaisante :