Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿como graficar una función ingresada por el usuario? (https://www.clubdelphi.com/foros/showthread.php?t=38607)

Robert01 20-12-2006 16:27:25

¿como graficar una función ingresada por el usuario?
 
Quiero graficar una función que selecciono desde un combobox, no hay problemas cuando ya está dicha función en items del combo

Código Delphi [-]
case ComboBox1.ItemIndex of
     0 : // función nn , y = nn(x)
           begin
                 X_Min:=(ScrollBar1.Position);
                 X_Max:=(ScrollBar2.Position);

                 Y_Min:= ScrollBar3.Position;
                 Y_Max:= ScrollBar4.Position;

                 IntervaloX := ScrollBar5.Position/10000;

                 Chart1.BottomAxis.Minimum     := X_Min;
                 Chart1.BottomAxis.Maximum     := X_Max;
                 Chart1.LeftAxis.Minimum       := Y_Min;
                 Chart1.LeftAxis.Maximum       := Y_Max;

                 Series1.Clear;
                 Chart1.Title.Text.Text := 'nn(x)';

                 x := Chart1.BottomAxis.Minimum;
                 repeat
                       begin
                             // esta es la función
                             y := nn (x);

                             if (y <= Chart1.LeftAxis.Maximum) and
                                (y >= Chart1.LeftAxis.Minimum) then
                             begin
                                   // dibuja la función
                                   Series1.AddXY (x,y,'',clRed);
                             end;
                             x := x + IntervaloX;
                       end;
                 until x >= Chart1.BottomAxis.Maximum;
           end;

La duda que tengo es como hacer cuando yo ingreso una función, sería algo así como una función ingresada por el usuario.


La franja horaria es GMT +2. Ahora son las 10:34:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi