12 respuestas en este tema

[c0lo]

Bueno me estoy haciendo un problema con una lectura de datos, ya q estoy haciendo un programita que lee un archivo el cual contiene unos datos como lo siguiente:

delphi

<--- OUTPUT MCA-USB Mode PHA FILE --->
 # channels :  1024
    0            0.0
    1            0.0
    2            0.0
    3            0.0
..........

De los cuales los datos de la izquierda que son en este caso desde 0->1024 numeros en si que sean almacenados en un arreglo, luego los otros datos que serian 0.0 .... que sean almacenados en otro arreglo... Para luego hacer un tratamiento de datos.

Pero me estoy volviendo loco en esto nose si alguien puede darme una guia o ayudadita please...

Gracias

[c0lo]

A se me olvidada luego de hacer esto, quiero hacer que dichos datos que digamos el caso sean X, Y sean garficados pero solo en puntos no quiero usar nada mas que apis simples sin usar otras cositas como el TChart q e estado leyendo lo cual no deseo.

[egostar]

O sea, quieres graficar sin componente de gráficas. ¿?

Salud OS

[seoane]

Perdona, pero no me quedo claro lo que necesitas.

• ¿Quieres saber como leer un archivo de texto?
• ¿Quieres saber como descomponer cada linea en campos?
• ¿Quieres saber como almacenar esos campos en un array?
• ¿Quieres saber como graficar esos arrays en un TImage?
• ¿... en un Canvas?
• ¿... en la impresora?

PD: Que formato tiene ese fichero ¿son campos de longitud fija¿ ¿separados por tabuladores? ¿?

[c0lo]

Se como leer un archivo al menos se algo no?, bueno lo que no se es como descomponer cada linea por campo, el archivo que me entregan esta separado por tabulacion imagino es este:
http://www.sendspace.com/file/tlmjiz

Se puede abrir como un simple txt al extension es la q la pusieron asi.

como paso dichos campos a un array, ya que la idea que tengo es luego graficar dichos datos y mostrarlos en Canvas o en Timage imagino? no soy exquisito ya que estoy aprendiendo un poco de esto.

[egostar]

Bueno, leerlo es sencillo

delphi

AssignFile(arch,'Time-4976-1-51pm.mca');
Reset(Arch)
while not eof(Arch) do
begin
  readln(Arch,Linea);
  if linea[2]  in [' ','0'..'9'] then
  begin
    Campo1 := strtoint(copy(Linea,1,5));
    Campo2 := strtofloat(copy(Linea,11,10));
    //Haces lo que quieras con los campos
  end;
end;
CloseFile(Arch);

Salud OS

[c0lo]

Gracias egostar ahora si ya entiendo como partir de un txt y leerlo, bueno hice una pequeño cambio segun mi criterio.

delphi

  cont := 0;
  AssignFile(arch,OpenDialog1.FileName);
  Reset(Arch);
  while not eof(Arch) do
  begin
    readln(Arch,Linea);
    if not (linea[2] in ['<','>','-','#']) then
    begin
      Channel[cont] := strtoint(copy(Linea,1,5));
      CPS[cont] := strtofloat(copy(Linea,10,20));
      cont :=  cont + 1;
    end;
  end;
  CloseFile(Arch);

Ahora a graficar y hacer el tratamiento, es decir, decir que me dibuje de una region dada a otra region dada... uffff

[egostar]

Caramba!!!, ahora que lo veo, hice la comparación al revés , ya lo corrijo

Salud OS

[c0lo]

No te preocupes eso ya no es el problema el problema ahora es graficar los puntos y poder tratarlos ..

[cadetill]

Buenas,

Y dónde quieres graficarlos? Qué tipo de trato quieres darles? Sin más pistas es complicado

Nos leemos

[c0lo]

Bueno quiero graficarlo en una TImage o bueno eso seria lo mas logico no? es decir, q dentro de mi ventana este la imagen ...
Ahora la primera garfica seria los datos X, Y y luego de mostrar dicha grafica empezar a hacer los tratamientos...

1) Quiero hacer un suavizado .... mmm alguien  sabra algun metodo de suavizado de curvas?
2) quiero hallar el area bajo la curva..

bueno eso son cosas que ya teniendo lo que me ayudo egostar se hace mas facil creo no?

Asha me olvide que teniendo la grafica yo diciendo q me haga un zoom o algo ais?

[egostar]

Bueno quiero graficarlo en una TImage o bueno eso seria lo mas logico no? es decir, q dentro de mi ventana este la imagen ...
Ahora la primera garfica seria los datos X, Y y luego de mostrar dicha grafica empezar a hacer los tratamientos...

1) Quiero hacer un suavizado .... mmm alguien  sabra algun metodo de suavizado de curvas?
2) quiero hallar el area bajo la curva..

bueno eso son cosas que ya teniendo lo que me ayudo egostar se hace mas facil creo no?

Asha me olvide que teniendo la grafica yo diciendo q me haga un zoom o algo ais?

Vaya, es que todo lo que quieres ya lo hace el TChart

Salud OS

[c0lo]

Es que tengo que usar unos algoritmos distintos y yo quiero implementar eso, es decir, lo que en si necesito es un ejemplo que me grafique una funcion ya que una funciones Y=f(x), entonces ahi tengo en 2D los puntos (X,Y) y luego un ejemplo de como se realiza un suavizado cualquiera q sea...

Luego un ejemplito de como a partir de mi grafica mostrada obtener una ventana es decir, decir que quiero que memuestre entre tal valores mmm pensandolo bieni parece facil no? jejeej
bueno lo probare yo.. y el TCHART no me gusta