Les joies de la fonction BIN_AND()

Sujet: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 2:39

Salut tout le monde.

Qui a expérimenté la fonction BIN_AND() en graphique ?
A ma connaissance, pas grand monde !

Un simple test sur BIN_AND permet d’obtenir des formidables figures graphiques !
C’est beau en couleur, mais le noir et blanc a aussi son charme.

Activez/désactivez l’appel à la SUB Couleur() de la ligne 23 et jugez vous-mêmes.
Essayez les différentes fonctions (a = bin_and(…)) des lignes 9 à 20.

Code:: ' ******************************************************************************
' Les_joies_du_bin_and.bas par Papydall
' ******************************************************************************
dim a,x,y,x0,y0,ym,pi
full_space 0 : x0 = width(0)*.5 : y0 = height(0)-40 : pi = acos(-1): ym = y0/2
color 0,200,100,50 : display :2d_fill_color 255,255,255 : 2d_circle x0,y0/2+5,ym
for y = 1 to ym
   for x = 1 to y
   a = bin_and(x,y-x)
   ' a = bin_and(x,y+x)
   ' a = bin_and(y,y-x)
   ' a = bin_and(y/pi,y+x/sqr(2))
   ' a = bin_and(x,sqr(x*x+y*y))
   ' a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
   ' a = bin_and(x*pi,y*pi)
   ' a = bin_and(bin_and(x*x,x*x),sqr(y*x+y*x))
   ' a = bin_and(bin_and(bin_and(x,x*y*pi),y),x)
   ' a = bin_and(x*x/y+pi,y*y/x+pi)
   ' a = bin_and(pi*x-y,pi*y)
   ' a = bin_and(exp(1)*x,exp(1)*y)

   if a <> 0
   ' couleur()
   2d_point x0+x,y+5 : 2d_point x0-x,y+5
   2d_point x0+x,y0-y+5 : 2d_point x0-x,y0-y+5
   end_if
   next x
next y
caption 0,"TERMINE"
end
' ******************************************************************
SUB Couleur()
   if a > 10 then 2d_pen_color 255,0,0
   if a > 20 then 2d_pen_color 0,255,0
   if a > 30 then 2d_pen_color 0,0,255
   if a > 40 then 2d_pen_color 255,255,0
   if a > 50 then 2d_pen_color 0,255,255
   if a > 60 then 2d_pen_color 127,0,0
   if a > 70 then 2d_pen_color 0,127,0
   if a > 80 then 2d_pen_color 0,0,127
   if a > 100 then 2d_pen_color rnd(255),rnd(255),rnd(255)
END_SUB
' *******************************************************************

Bon divertissement !

Sujet: re Lun 2 Sep 2013 - 5:43

C' est vrai que ca fait des trucs chouettes ( pas hibou Laughing

)...

Sujet: Re: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 7:40

Très joli

Sujet: Re: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 11:36

Très chouette,

j'ai ajouter une option pour arrêter avant la fin (çà permet de faire plein d'essai) et aussi une figure supplémentaire.

Code:: ' ******************************************************************************
' Les_joies_du_bin_and.bas par Papydall
' ******************************************************************************
dim a,x,y,z,x0,y0,ym,pi:label fin
full_space 0 : x0 = width(0)*.5 : y0 = height(0)-40 : pi = acos(-1): ym = y0/2
color 0,200,100,50 : display :2d_fill_color 255,255,255 : 2d_circle x0,y0/2+5,ym
for y = 1 to ym
  if inkey$=""
  caption 0,"N'importe quelle touche pour arrêter"
   for x = 1 to y
' a = bin_and(x,y-x)
' a = bin_and(x,y+x)
' a = bin_and(y,y-x)
' a = bin_and(y/pi,y+x/sqr(2))
' a = bin_and(x,sqr(x*x+y*y))
' a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
' a = bin_and(x*pi,y*pi)
' a = bin_and(bin_and(x*x,x*x),sqr(y*x+y*x))
' a = bin_and(bin_and(bin_and(x,x*y*pi),y),x)
' a = bin_and(x*x/y+pi,y*y/x+pi)
' a = bin_and(pi*x-y,pi*y)
' a = bin_and(exp(1)*x,exp(1)*y)
' a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
   a = bin_and(x,sqr(x*x+y*y)+9749.5)

   if a <> 0
' couleur()
   2d_point x0+x,y+5 : 2d_point x0-x,y+5
   2d_point x0+x,y0-y+5 : 2d_point x0-x,y0-y+5
   end_if
   next x
  next y
  caption 0,"TERMINE"
else
  caption 0,"TERMINE"
end_if
end
' ******************************************************************
SUB Couleur()
   if a > 10 then 2d_pen_color 255,0,0
   if a > 20 then 2d_pen_color 0,255,0
   if a > 30 then 2d_pen_color 0,0,255
   if a > 40 then 2d_pen_color 255,255,0
   if a > 50 then 2d_pen_color 0,255,255
   if a > 60 then 2d_pen_color 127,0,0
   if a > 70 then 2d_pen_color 0,127,0
   if a > 80 then 2d_pen_color 0,0,127
   if a > 100 then 2d_pen_color rnd(255),rnd(255),rnd(255)
END_SUB
' *******************************************************************
fin:
terminate

A+

Sujet: Re: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 12:13

Merci Jean Claude pour l’option que tu as ajouter. Ha Ha Ha !!! Les joies de la fonction BIN_AND() 3d-moqueur-rire-3

Je t'ai eu !
A la prochaine!

Sujet: Re: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 12:54

La fonction BIN_AND(V1,V2) retourne la valeur du « ET » logique binaire entre les 2 variables V1 et V2.
Si on veut faire le « ET » logique binaire non pas sur seulement 2 variables mais sur 3 ou 4 ou plus de variables, on procède comme ceci :

Code:: dim r

r = bin_and(191,205) : print r : ' r = 191 and 205
r = bin_and(bin_and(191,205),251) : print r : ' r = 191 and 205 and 251
r = bin_and(bin_and(bin_and(191,205),251),1234) : print r : ' r = 191 and 205 and 251 and 1234

Sujet: Re: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 16:27

Je suis vert de rage, il m'a encore eu.....

Les joies de la fonction BIN_AND() Grosse10

Sujet: Re: Les joies de la fonction BIN_AND() Lun 2 Sep 2013 - 16:46

Rassure-toi, ça ne sera pas la dernière !

Sujet: re Lun 2 Sep 2013 - 18:16

Méfie toi Papydall...je crois que jean Claude n' a pas eu son 4 heure... Laughing

» Les joies de la Récursivité