adorian / PFE_28

Blame view

Giac_maj/giac-1.4.9/examples/tortue/koch.cxx 329 Bytes
Edit Raw Normal View History
6663b6c9   adorian   projet complet av... 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
  koch1(l):={
  si (l<10) alors
  avance(l);
  sinon
  koch1(l/3);tourne_gauche(60);
  koch1(l/3);tourne_droite(120);
  koch1(l/3);tourne_gauche(60);
  koch1(l/3);
  fsi;
  };
  koch2(l,n):={
  si (n==0) alors
  avance(l);
  sinon
  koch2(l/3,n-1);tourne_gauche(60);
  koch2(l/3,n-1);tourne_droite(120);
  koch2(l/3,n-1);tourne_gauche(60);
  koch2(l/3,n-1);
  fsi;
  };