Buscar por:

Traçar e imprimir curvas de gráficos de equações

Código

{Esta dica deve ser tornar especialmente útil para quem quer traçar e/ou imprimir gráficos de equações no Delphi. Neste exemplo, será traçado o gráfico de uma equação do 2º grau: y = x^2+2x-3, no intervalo 0<x<10. Com base neste exemplo, outros gráficos, e de outros tipos, poderão ser traçados de forma semelhante}

// 1) Crie uma nova aplicação

// 2) Insira um componente TChart, da aba Adicional

// 3) Dê um duplo clique sobre o mesmo. Clique em Add.

// 4) Aparacerão vários tipos de gráficos. Escolha a opção Line, e desmarque a caixa 3D, caso a mesma esteja marcada. Se você deixar a caixa marcada, não tem problema, só que o gráfico vai sair em 3D. Clique em OK

// 5)  Se você quiser adicionar outro gráfico, basta repetir o processo

// 6) Se você quiser, clique em Title, para mudar o nome da série

// 7) Quando terminar, clique em Close

// 8) Insira um botão no seu form, e digite o seguinte código no seu evento OnClick:

var

x, y: array[1..10] of real;

i: integer

begin

Chart1.Series[0].Clear

x[1] := 0

for i:= 2 to 10 do

   x[i] := x[i-1]+1;

for i:=1 to 10 do

   begin

      y[i] := x[i]*x[i] + 2*x[i] -3;

      Chart1.Series[0].AddXY(x[i],y[i],'',clBlue);

  end;         

{Obs.: o terceiro argumento, no caso '', é uma string que aparecerá ao lado de cada valor. Como não queremos que apareça nada, apenas a linha, o argumento foi definido como ''}

{Obs.: o quarto argumento é a cor da linha, no caso, azul} 

//Para imprimir o gráfico:

Chart1.Print;

{Com base neste exemplo, basta ir explorando as opções que aparecem ao dar o duplo clique no Chart, para ir aprimorando mais o uso deste componente.

Espero ter ajudado,

Carlos Alberto}