Comment faire le graphe d'une fonction ?
Bonsoir à tous.
-On va tracer les graphes de trois fonctions: Sin(x), Cos(x) et SinCos(x).
-Ajouter un Chart1 à une fiche.
-Ensuite double cliquer sur Chart1 et ajouter 3 'Line Series'.
-Selectionner 'Chart1lineSeries1' et mettre son Name:SinSeries et son Seriescolor:clred.
-Selectionner 'Chart1lineSeries2' et mettre son Name:CosSeries et son Seriescolor:clblue.
-Selectionner 'Chart1lineSeries3' et mettre son Name:SinCosSeries et son Seriescolor:clgreen.
-Mettre leurs Active à False.
-Ajouter un bouton, qu'on appelle 'Active' à la fiche.
-Et implémenter le par le code suivant :
Code:
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
| procedure TForm2.ActiveClick(Sender: TObject);
const
N = 100;
MIN = -10;
MAX = 10;
var
i: Integer;
x: Double;
begin
SinSeries.Clear ;
CosSeries.clear;
SinCosSeries.clear;
for i:=0 to N-1 do
begin
x := MIN + (MAX - MIN) * i /(N - 1);
SinSeries.AddXY(x, sin(x));
CosSeries.AddXY(x, cos(x));
SinCosSeries.AddXY(x, sin(x)*cos(x));
end;
SinSeries.Active:=false ;
CosSeries.Active:=false ;
SinCosSeries.Active:=false ;
SinSeries.Active:=true ;
CosSeries.Active:=true ;
SinCosSeries.Active:=true ;
end; |
Merci à tous.:P
