Como graficar funciones

[marcoszorrilla]

Ya veo que todo ha sido un error empezando por que el mensaje se puso en el foro que no correspondía y como "errare humanum est". Ego te absolvo.

Salutem.

[sanxpue]

Gracias por tu perdonnnn ¡¡¡ jejejeje, pero bueno creo que este hilo nada mas se uso para responder mi confusion no crees por que ni el interesado(a) ah dicho.."weno me van a ayudar o que"

[DarkFilter]

Un componente bastante bueno para graficar funciones es el RChart de <a href="http://www.lohninger.com/sdlindex.html">SDL Component Suite</a>, es muy fácil de usar. El problema, que si lo quieres completo lo debes comprar...sin embargo lo puedes descargar y te queda 100% operativo (obviamente no incluye el código fuente) con el "detalle" que cada vez que pasas el mouse por el componente aparece un hint que te dice que no está registrado.

[dchaparro]

Bueno, como no tenia nada que hacer, programe un pequeño procedimiento que grafica una funcion cuadratica.
Simplemente se crea un form, se ponen 5 edits, un TImage y un boton. Nombrar los Edits de la siguiente manera:
Edita,Editb,Editc,EditEscalax,EditEscalay y a la imagen le puse nombre: Hoja

En el OnClick del boton pegar el siguiente codigo:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,escx,escy,x,fx: Real;
	origenx,origeny,i: integer;
begin
a:= StrToFloat(Edita.Text);//convierto los edits en numeros
b:= StrToFloat(Editb.Text);
c:= StrToFloat(Editc.Text);
escx:= StrToFloat(EditEscalax.Text);
escy:= StrToFloat(EditEscalay.Text);
with Hoja.Canvas do //Hoja es una TImage en este caso
begin
origenx:= Trunc(Hoja.Width/2); //establezco el origen (0,0) en la mitad de la hoja
origeny:= Trunc(Hoja.Height/2);
MoveTo(origenx,0); //dibujo los ejes
LineTo(origenx,Hoja.Height);
MoveTo(0,origeny);
LineTo(Hoja.Width,origeny);
for i:= 0 to Hoja.Width do	 //genero el grafico en todo el ancho de TImage
	 begin
	 x:= -escx + 2*escx*i/Hoja.Width; // simplemente observar los valores extremos de i
	 fx:= a*x*x + b*x + c;	// fx es el valor de la ecuacion en el punto x, esta claro
	 if i = 0 then //La primera vez solo muevo
		MoveTo(0,Trunc(origeny - fx*origeny/escy))
		else
		LineTo(i,Trunc(origeny - fx*origeny/escy));
	 end;
end;
end;

Esta funcion, grafica en la imagen una ecuacion cuadratica ax2+bx+c, donde a, b y c son los valores cargados en Edita,Editb y Editc.
En EditEscalax y EditEscalay pondremos los rangos que queremos visualizar, para los ejes x e y respectivamente.
Como se ve, no es muy dificil, ya que el programa ocupa tan solo una pantalla y claro que es mejorable a gusto del consumidor

Bueno, espero que sirva para algo.

PD: ingresando cero en "Edita", tendremos una ecuacion lineal

PD2: podemos cambiar la linea: fx:= a*x*x + b*x + c;
por la funcion que deseemos, por ej fx:= sin(x); funciona a la perfección.

[erickpch]

Bueno si quieres un componente "simpatico" para tus necesidades vasta y sobra el XYGraph buscalo en Torry, es sencillo permite hacer zoom, introducir en el mismo gráfico rótulos, marcas, graficar n funciones a la vez y puedes exportar tu gráfico a dxf, es free mientras sea para uso académico. El codigo esta disponible y puedes modificarlo si necesitas, por ejemplo el original no tiene un método de impresión pero yo le agregue uno, en fin te lo recomiendo..