[Lazarus] Tracer une fonction [Résolu]

[anoxer]

Bonjour,

J'aurais voulu savoir si c'était possible de tracer ma fonction sur Lazarus et si oui comment. J'ai cherché dans la F.A.Q et sur divers sites et je ne vois que des résultats en Turbo Pascal et ça me paraît flou. Pour le moment j'ai juste placé mes TChart.


[edit] j'ai réussi à afficher quelque chose avec TAChart.

[tintinux]

Bonjour

C'est surtout ta question qui est floue...

Dis nous ce que tu veux faire, ce que tu as essayé, et ce qui n'a pas marché, et tu auras sans doute une réponse.

[mtournay]

Bonjour

Au vu de l'autre question posée par anoxer, je pense qu'il souhaite tracer une fonction mathématique sur le canvas.

@bientôt

(non je ne sais pas tracer de fonction math ....)

[Roland Chastain]

Pour un code léger et ne nécessitant aucun apprentissage préalable, on peut utiliser l'unité WinGraph :

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
30
 
program Fonction;
 
uses
  WinGraph, WinCrt;
 
var
  d, m: smallInt;
  x, y: integer;
 
begin
  SetWindowSize(400, 400);
  d := noPalette;
  m := mCustom;
  InitGraph(d, m, 'FreePascal 2.6 & WinGraph');
  SetBkColor(midnightBlue);
  ClearViewPort;
 
  for x := -190 to 189 do
  begin
    y := Round(30 * Sin(x/10));
    if (y >= -190) and (y <= 189) then
      PutPixel(200+x, 200-y, brightGreen);
  end;
 
  repeat
    Delay(50);
  until keyPressed or closeGraphRequest;
  CloseGraph;
end.

Il y a aussi l'unité Graph incluse dans FreePascal : ses possibilités sont plus limitées, mais elle permet de compiler tels quels les exemples écrits pour Turbo Pascal.

[anoxer]

Merci beaucoup pour vos réponses, j'ai affiché mon graphique grâce à cette commande :

Code :

chart1LineSeries1.AddXY(teta,coef_R[j]);

teta étant mon paramètre en abscisse et coef_R en ordonnée.