Il s’agit ici d’adapter pour la NUMWORKS le programme écrit initialement en BASIC dans la revue MICR’ORIC de 1983 pour l’ordinateur Oric.

Observez le temps d’exécution sur votre calculatrice par rapport à celui annoncé dans la revue…

Exemple de graphique (avec une version légèrement améliorée) pour
f(z) = 70*cos(z*z/100)*exp(-z*z/1000) :

f(z) = 20*sqrt(exp(-sin(z/3))) :

f(z) = 110*cos(z/30)*sqrt(exp(-sin(z/3))) :

Le chapeau :


Ce que vous pouvez modifier dans le script :
- la valeur de m initialement mise à 30 comme dans la revue peut être augmentée.
- au lieu de r=y1 vous pouvez aussi mettre r=60 (et -60 plus loin) pour que la base du graphique ne soit plus un disque mais un carré (mais le visuel est alors moins fun !)
- Le .7 de la ligne 31 permet d’avoir une vue plus ou moins plongeante (testez avec 0.1 et 1 par exemple)
- L’astuce pour ne pas voir les parties cachées de la surface est, pour un x donné, de n’afficher le pixel que si la valeur du y est supérieur au max des valeurs précédentes (par exemple si les valeurs de y sont 3, 5, 9, 6, 15, 11, 13, 18 et 2, les valeurs réellement affichées seront 3,5,9,15 (car le 6 est <9), 18 (car 11 et 13<15) et 18.