Blame view

Giac_maj/giac-1.4.9/examples/tortue/dragon.cxx 436 Bytes
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
  dragong(l):={
  si (l<10) alors
  avance(l);
  sinon
  dragong(l/2);
  tourne_gauche(90);
  dragond(l/2);
  fsi;
  };
  dragond(l):={
  si (l<10) alors
  avance(l);
  sinon
  dragong(l/2);
  tourne_droite(90);
  dragond(l/2);
  fsi;
  };
  dragon2(l,s):={
  si (l<10) alors
  avance(l);
  sinon
  dragon2(l/2,1);
  tourne_gauche(90*s);
  dragon2(l/2,-1);
  fsi;
  };
  dragon3(l,s,n):={
  si (n==0) alors
  avance(l);
  sinon
  dragon3(l/2,1,n-1);
  tourne_gauche(90*s);
  dragon3(l/2,-1,n-1);
  fsi;
  };