papydall
Nombre de messages : 7009
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: L'ensemble de Julia Mer 7 Mar 2012 - 4:13 | |
| Salut les Panoramiciens! Voici quelque lignes de code pour tracer l'ensemble de Julia. Le programme est ,certes,lent mais le resultat est beau! - Code:
-
' ****************************************************
' * *
' * Ensemble de Julia par Papydall *
' * *
' ****************************************************
dim titre$
width 0,640 : height 0,480
titre$ = "l'ensemble de JULIA"
caption 0,"Papydall vous présente " + titre$
dim x0,y0,nx,ny,x,y,n,xn,yn,modul,dx,dy
2d_pen_color 255,0,0 : 2d_fill_color 255,255,0 : 2d_rectangle 100,100,550,400
print " VEUILLEZ PATIENTER ... <ESC> pour arrêter ";
x0=.3 : y0=-.5
FOR Nx = 210 TO 450
FOR Ny = 100 TO 400
x = (Nx - 320)/100 : y = (240 - Ny)/100
FOR n = 1 TO 25
xn = x * x - y * y + x0 : yn = 2 * x * y + y0
dx = xn - x: dy = yn - y : Modul = xn * xn + yn * yn : x = xn: y = yn
IF Modul > 4 THEN n = 25
NEXT n
if modul < 4 : 2d_point nx,ny : end_if
if scancode = 27 : print "programme arrête!" : end : end_if
NEXT Ny
next nx
print " TERMINE "
end
| |
|
Jicehel
Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: L'ensemble de Julia Mer 7 Mar 2012 - 8:17 | |
| Sympa, du coup j'ai rajouté un peu de couleur pour que ce soit encore plus joli  (J'ai fais une version solft, on peut toujours varier plus la couleur si on veut) - Code:
-
' ****************************************************
' * *
' * Ensemble de Julia par Papydall *
' * *
' ****************************************************
label fin
dim x0,y0,nx,ny,x,y,n,xn,yn,modul,dx,dy
dim L,H, S : L=640 : H=480 : S=90
dim titre$ : titre$ = "l'ensemble de JULIA"
width 0,L : height 0,H : caption 0,"Papydall vous présente " + titre$
dim xd,yd, xa,ya : xd= S: yd=S : xa = L-S : ya=H-S
2d_pen_color 255,0,0 : 2d_fill_color 255,255,0 : 2d_rectangle xd,yd,xa,ya
print " VEUILLEZ PATIENTER ... <ESC> pour arrêter ";
x0=.3 : y0=-.5
FOR Nx = xd+S TO xa-S
FOR Ny = yd TO ya
x = (Nx - L/2)/S : y = (H/2 - Ny)/S
FOR n = 1 TO 25
2D_pen_color 150 + (450 - Nx) / 3, Ny/2, n*10
xn = x * x - y * y + x0 : yn = 2 * x * y + y0
dx = xn - x: dy = yn - y : Modul = xn * xn + yn * yn : x = xn: y = yn
IF Modul > 4 THEN n = 25
NEXT n
if modul < 4 : 2d_point nx,ny : end_if
if scancode = 27 then print "programme arrête!" : goto fin
NEXT Ny
next nx
print " TERMINE "
fin:
end | |
|
Calendrier