Bonjour,

Outre le fait que mon calcul de spectre n'en n'est qu'à ses débuts et ça n'est pas du tout important pour le moment, je débute sur Maple un peu au feeling, je dois bien l'avouer...
Je ne comprends pas pourquoi ce que j'écris ne fonctionne pas
(la somme est bonne car testée par ailleurs...)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
> restart;
> spectre := proc (phas) 
local i, y, Trace, texte; phas := 6.28; 
for i to 5 do 
y := 2*(1-(sum(2*cos(2*p*phas)/(4*p^2-1), p = 1 .. 10)))/Pi; 
print('y*vaut'.y); 
Trace := plot*([[phas, y]], symbol = cross, style = point); 
texte := textplot*[1, 1.75, spectre]; with(plots); display*(Trace, texte); phas := phas-.628 end do end proc;
> phase := 6.28; spectre(phas);
voilà ce que Maple m'affiche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
                              6.28
  1  /             /    2               2             
  -- |2 (y vaut) . |1 - - cos(2 phas) - -- cos(4 phas)
  Pi \             \    3               15            
 
       2                2                2              
     - -- cos(6 phas) - -- cos(8 phas) - -- cos(10 phas)
       35               63               99             
 
        2                  2                  2              
     - --- cos(12 phas) - --- cos(14 phas) - --- cos(16 phas)
       143                195                255             
 
        2                  2              \\
     - --- cos(18 phas) - --- cos(20 phas)||
       323                399             //
  1  /             /    2               2             
  -- |2 (y vaut) . |1 - - cos(2 phas) - -- cos(4 phas)
  Pi \             \    3               15            
 
       2                2                2              
     - -- cos(6 phas) - -- cos(8 phas) - -- cos(10 phas)
       35               63               99             
 
        2                  2                  2              
     - --- cos(12 phas) - --- cos(14 phas) - --- cos(16 phas)
       143                195                255             
 
        2                  2              \\
     - --- cos(18 phas) - --- cos(20 phas)||
       323                399             //
  1  /             /    2               2             
  -- |2 (y vaut) . |1 - - cos(2 phas) - -- cos(4 phas)
  Pi \             \    3               15            
 
       2                2                2              
     - -- cos(6 phas) - -- cos(8 phas) - -- cos(10 phas)
       35               63               99             
 
        2                  2                  2              
     - --- cos(12 phas) - --- cos(14 phas) - --- cos(16 phas)
       143                195                255             
 
        2                  2              \\
     - --- cos(18 phas) - --- cos(20 phas)||
       323                399             //
  1  /             /    2               2             
  -- |2 (y vaut) . |1 - - cos(2 phas) - -- cos(4 phas)
  Pi \             \    3               15            
 
       2                2                2              
     - -- cos(6 phas) - -- cos(8 phas) - -- cos(10 phas)
       35               63               99             
 
        2                  2                  2              
     - --- cos(12 phas) - --- cos(14 phas) - --- cos(16 phas)
       143                195                255             
 
        2                  2              \\
     - --- cos(18 phas) - --- cos(20 phas)||
       323                399             //
  1  /             /    2               2             
  -- |2 (y vaut) . |1 - - cos(2 phas) - -- cos(4 phas)
  Pi \             \    3               15            
 
       2                2                2              
     - -- cos(6 phas) - -- cos(8 phas) - -- cos(10 phas)
       35               63               99             
 
        2                  2                  2              
     - --- cos(12 phas) - --- cos(14 phas) - --- cos(16 phas)
       143                195                255             
 
        2                  2              \\
     - --- cos(18 phas) - --- cos(20 phas)||
       323                399             //
                          phas - 0.628
Il persiste à m'afficher phas et non 6.28,
La "décrémentation" de phas ne semble pas être effectuée
Il ne trace rien.

Je me doute bien que c'est moi qui n'est rien compris mais j'insiste je débute...
Merci.