83653_es-ES

liliconcom

Gráfico fantasma

Está bien, me he confundido con esto, pero no encontré una conclusión lógica, espero que alguien pueda explicar al menos por qué estoy obteniendo lo que estoy obteniendo, incluso si no resuelve mis necesidades.

dt = Open ();

col_list = dt << get column names(string);

remove from(col_list, 1); // Remove time[sec] from list
cols_to_plot = {};
offset_list  = {};
offset_cols  = {};
// Define the graph builder commands in an expression for use by the OK button
graph_expr = expr(
 for (i = 1, i <= nitems(cols_to_plot), i++,
  new_name = cols_to_plot[i] || "-Chemical Cal";
  insertinto(offset_cols, new_name);
  dt << new column(new_name, Numeric, "Continuous", Format( "Best", 12 ),
   Formula( as column(dt, cols_to_plot[i]) * offset_list[i] ) );
   
 );
// Now for the graph - build a text string and then execute it
 gb_text = "\[gb = graph builder(
 show control panel(0),
 variables(
  X( :Name( "Time[sec]" ) ),]\";
 elements_txt = " ),
 Elements( Line( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt ||
 "Legend( 7 ) ), 
 Points( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt || 
 "Legend(8)))";
 gb_text = gb_text || elements_txt || "); ";
 Eval( Parse( gb_text ) );
 
);


 

nw = new window("Graph Chemicals",
 panel box("Select channels to graph",
  lineup box(ncol(2), 
   text box("Column"), text box("Chemical Cal"),
   cb1 = checkbox("Ch1"), ch1_neb = number edit box(),
   cb2 = checkbox("Ch2"), ch2_neb = number edit box(),
   cb3 = checkbox("Ch3"), ch3_neb = number edit box(),
   cb4 = checkbox("Ch4"), ch4_neb = number edit box(),
   cb5 = checkbox("Ch5"), ch5_neb = number edit box(),
   cb6 = checkbox("Ch6"), ch6_neb = number edit box(),
   cb7 = checkbox("Ch7"), ch7_neb = number edit box(),
   cb8 = checkbox("Ch8"), ch8_neb = number edit box(),
   cb9 = checkbox("Ch9"), ch9_neb = number edit box(),
  ),
 ),
 panelbox("Actions",
  hlistbox(
   okb  = button box("OK",
    if (cb1 << get(1), 
     insertinto(cols_to_plot, col_list[8]);
     offset_value = ch1_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb2 << get(1), 
     insertinto(cols_to_plot, col_list[9]);
     offset_value = ch2_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb3 << get(1), 
     insertinto(cols_to_plot, col_list[10]);
     offset_value = ch3_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb4 << get(1), 
     insertinto(cols_to_plot, col_list[11]);
     offset_value = ch4_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb5 << get(1), 
     insertinto(cols_to_plot, col_list[12]);
     offset_value = ch5_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb6 << get(1), 
     insertinto(cols_to_plot, col_list[13]);
     offset_value = ch6_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb7 << get(1), 
     insertinto(cols_to_plot, col_list[14]);
     offset_value = ch7_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb8 << get(1), 
     insertinto(cols_to_plot, col_list[15]);
     offset_value = ch8_neb << get;
     insertinto(offset_list, offset_value);
    );
    graph_expr;
    nw << close window;
   ),
   canb = button box("Cancel", nw << close window;
   ),
  )
 ),
);

// Pre-check checkboxes if column exists
for (i = 1, i <= nitems(col_list), i++,
 if (col_list[i] == "Ch1", cb1 << set(1, 1),
  col_list[i] == "Ch2", cb2 << set(1, 1),
  col_list[i] == "Ch3", cb3 << set(1, 1),
  col_list[i] == "Ch4", cb4 << set(1, 1),
  col_list[i] == "Ch5", cb5 << set(1, 1),
  col_list[i] == "Ch6", cb6 << set(1, 1),
  col_list[i] == "Ch7", cb7 << set(1, 1),
  col_list[i] == "Ch8", cb8 << set(1, 1),
  col_list[i] == "Ch9", cb9 << set(1, 1),
 );
);

El script es este, el propósito es crear un único gráfico que muestre tanto la línea como los puntos que puedan utilizar el número de columnas que seleccione en la ventana (modificado por el factor de calibración química). Este script hace eso, y sin embargo, por cualquier motivo, también lo hago. Obtención de un gráfico liso erróneo, con puntos, para los que no puedo encontrar una explicación. Solo puedo asumir que se debe a la duplicación de la secuencia de comandos variable, pero no sé cómo eliminar o adaptar eso y obtener los resultados que deseo.

 

 

Así es como se ve el gráfico no deseado, y esto es lo que muestra la secuencia de comandos que se debe graficar después de ejecutar la secuencia de comandos

No puedo encontrar en ninguna parte del script que explique cómo se genera ese script suave, pero ahí está. Intenté agregar una tercera línea para obtener un gráfico uniforme para ver si eliminaría o sobrescribiría el gráfico no deseado sin éxito, e intenté escribir en las definiciones de la siguiente leyenda también sin éxito, ya que no está en el script el El guión no lo reconocerá.

De todos modos, espero que alguien tenga una idea, ¡gracias de antemano por su ayuda!

Re: Ghost Graph

dt = Open ();

col_list = dt << get column names(string);

remove from(col_list, 1); // Remove time[sec] from list
cols_to_plot = {};
offset_list  = {};
offset_cols  = {};
// Define the graph builder commands in an expression for use by the OK button
graph_expr = expr(
 for (i = 1, i <= nitems(cols_to_plot), i++,
  new_name = cols_to_plot[i] || "-Chemical Cal";
  insertinto(offset_cols, new_name);
  dt << new column(new_name, Numeric, "Continuous", Format( "Best", 12 ),
   Formula( as column(dt, cols_to_plot[i]) * offset_list[i] ) );
   
 );
// Now for the graph - build a text string and then execute it
 gb_text = "\[gb = graph builder(
 show control panel(0),
 variables(
  X( :Name( "Time[sec]" ) ),]\";
 elements_txt = " ),
 Elements( Line( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt ||
 "Legend( 7 ) ), 
 Points( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  
  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

 elements_txt = elements_txt || 
 "Legend(8)))";
 
 gb_text = gb_text || elements_txt || "); ";
 Eval( Parse( gb_text ) );
 
);


 

nw = new window("Graph Chemicals",
 panel box("Select channels to graph",
  lineup box(ncol(2), 
   text box("Column"), text box("Chemical Cal"),
   cb1 = checkbox("Ch1"), ch1_neb = number edit box(),
   cb2 = checkbox("Ch2"), ch2_neb = number edit box(),
   cb3 = checkbox("Ch3"), ch3_neb = number edit box(),
   cb4 = checkbox("Ch4"), ch4_neb = number edit box(),
   cb5 = checkbox("Ch5"), ch5_neb = number edit box(),
   cb6 = checkbox("Ch6"), ch6_neb = number edit box(),
   cb7 = checkbox("Ch7"), ch7_neb = number edit box(),
   cb8 = checkbox("Ch8"), ch8_neb = number edit box(),
   cb9 = checkbox("Ch9"), ch9_neb = number edit box(),
  ),
 ),
 panelbox("Actions",
  hlistbox(
   okb  = button box("OK",
    if (cb1 << get(1), 
     insertinto(cols_to_plot, col_list[8]);
     offset_value = ch1_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb2 << get(1), 
     insertinto(cols_to_plot, col_list[9]);
     offset_value = ch2_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb3 << get(1), 
     insertinto(cols_to_plot, col_list[10]);
     offset_value = ch3_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb4 << get(1), 
     insertinto(cols_to_plot, col_list[11]);
     offset_value = ch4_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb5 << get(1), 
     insertinto(cols_to_plot, col_list[12]);
     offset_value = ch5_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb6 << get(1), 
     insertinto(cols_to_plot, col_list[13]);
     offset_value = ch6_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb7 << get(1), 
     insertinto(cols_to_plot, col_list[14]);
     offset_value = ch7_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb8 << get(1), 
     insertinto(cols_to_plot, col_list[15]);
     offset_value = ch8_neb << get;
     insertinto(offset_list, offset_value);
    );
    graph_expr;
    nw << close window;
   ),
   canb = button box("Cancel", nw << close window;
   ),
  )
 ),
);

// Pre-check checkboxes if column exists
for (i = 1, i <= nitems(col_list), i++,
 if (col_list[i] == "Ch1", cb1 << set(1, 1),
  col_list[i] == "Ch2", cb2 << set(1, 1),
  col_list[i] == "Ch3", cb3 << set(1, 1),
  col_list[i] == "Ch4", cb4 << set(1, 1),
  col_list[i] == "Ch5", cb5 << set(1, 1),
  col_list[i] == "Ch6", cb6 << set(1, 1),
  col_list[i] == "Ch7", cb7 << set(1, 1),
  col_list[i] == "Ch8", cb8 << set(1, 1),
  col_list[i] == "Ch9", cb9 << set(1, 1),
 );
);

Es un milagro, pero funciona, sabía que tenía algo que ver con la redundancia, pero no pude averiguar cómo eliminar un segmento sin romperlo, ¡finalmente lo descubrí! Ahora si solo puedo hacerlo para ajustar el tamaño del punto para que sea solo una línea XD

 

Re: Ghost Graph

Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :Name( "Time[sec]" ) ),
  Y( :Name( "CH2-Chemical Cal" ) ),
  Y( :Name( "CH5-Chemical Cal" ), Position( 1 ) ),
  Y( :Name( "CH6-Chemical Cal" ), Position( 1 ) ),
  Y( :Name( "CH5-Chemical Cal" ), Position( 1 ) ),
  Y( :Name( "CH6-Chemical Cal" ), Position( 1 ) )
 ),
 Elements(
  Line( X, Y( 1 ), Y( 2 ), Y( 3 ), Legend( 7 ) ),
  Points( X, Y( 1 ), Y( 2 ), Y( 3 ), Legend( 8 ) )
 ),
 SendToReport( Dispatch( {}, "Graph Builder", FrameBox, {Marker Size( 0 )} ) )
);

 

Es interesante que después de eliminar el gráfico erróneo, el primer canal (que se está duplicando) solo tiene una variable Y mientras que los otros dos lo siguen, pero no crean el gráfico erróneo. El propósito del gráfico es poder crear sin embargo muchas líneas que necesito con la capacidad de seleccionar el segmento de pico del gráfico para que sea más fácil identificar el valor máximo, mientras que tengo el aspecto de la línea, ya que es la forma más fácil de ver el apariencia. Dado que la línea no le permite seleccionar un punto en la línea, se requieren puntos para esa funcionalidad, pero visualmente no tiene éxito.

 

Disculpe la demora, las vacaciones de Acción de Gracias fueron largas, espero que las suyas hayan sido agradables ^. ^

Re: Ghost Graph

Damion,

Actualice la publicación con el código del generador de gráficos para el gráfico que desea. Ya que ha creado la columna, hágalo con apuntar y haga clic (la GUI).

 

Desde su correo electrónico me da la impresión de que quiere algo como esto

Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :Name( "Time[sec]" ) ),
  Y( :Name( "CH2" ) ),
  Y( :Name( "CH2-Chemical Cal" ), Position(1) )
 ),
 Elements(
  Position( 1, 1 ),
  Line( X, Y(1), Y(2) Legend( 7 ) ),
  Points( X, Y(1), Y(2) Legend( 8 ) ) //maybe remove Y(2) from points?
 ),
);

Esto superpondría las dos curvas. Solo estoy adivinando ??

Re: Ghost Graph

Sospecho que eso es parte del problema, pero si ejecuto la misma secuencia de comandos exactamente con un solo gráfico (ya sea que los puntos o la línea no importen) no crea el gráfico adicional.

dt = Open ();

col_list = dt << get column names(string);

remove from(col_list, 1); // Remove time[sec] from list
cols_to_plot = {};
offset_list  = {};
offset_cols  = {};
// Define the graph builder commands in an expression for use by the OK button
graph_expr = expr(
 for (i = 1, i <= nitems(cols_to_plot), i++,
  new_name = cols_to_plot[i] || "-Chemical Cal";
  insertinto(offset_cols, new_name);
  dt << new column(new_name, Numeric, "Continuous", Format( "Best", 12 ),
   Formula( as column(dt, cols_to_plot[i]) * offset_list[i] ) );
   
 );
// Now for the graph - build a text string and then execute it
 gb_text = "\[gb = graph builder(
 show control panel(0),
 variables(
  X( :Name( "Time[sec]" ) ),]\";
 elements_txt = " ),
 Elements( Line( X, ";
 
 For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );

// add in the marker and transparency code
 elements_txt = elements_txt ||
 "Legend( 7 ) ), Points( X, Y, Legend(8))),
SendToReport(
  Dispatch(
   {},
   \!"400\!",
   ScaleBox,
   {Legend Model(
    8,
    Properties( 0, {Marker Size( 0 ), Transparency( 0 )}, Item ID( \!""
  || offset_cols[1] || "\!", 1 ) )
   )}
  )
 )";
 gb_text = gb_text || elements_txt || "); ";
 Eval( Parse( gb_text ) );
 
);


 

nw = new window("Graph Chemicals",
 panel box("Select channels to graph",
  lineup box(ncol(2), 
   text box("Column"), text box("Chemical Cal"),
   cb1 = checkbox("Ch1"), ch1_neb = number edit box(),
   cb2 = checkbox("Ch2"), ch2_neb = number edit box(),
   cb3 = checkbox("Ch3"), ch3_neb = number edit box(),
   cb4 = checkbox("Ch4"), ch4_neb = number edit box(),
   cb5 = checkbox("Ch5"), ch5_neb = number edit box(),
   cb6 = checkbox("Ch6"), ch6_neb = number edit box(),
   cb7 = checkbox("Ch7"), ch7_neb = number edit box(),
   cb8 = checkbox("Ch8"), ch8_neb = number edit box(),
   cb9 = checkbox("Ch9"), ch9_neb = number edit box(),
  ),
 ),
 panelbox("Actions",
  hlistbox(
   okb  = button box("OK",
    if (cb1 << get(1), 
     insertinto(cols_to_plot, col_list[8]);
     offset_value = ch1_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb2 << get(1), 
     insertinto(cols_to_plot, col_list[9]);
     offset_value = ch2_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb3 << get(1), 
     insertinto(cols_to_plot, col_list[10]);
     offset_value = ch3_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb4 << get(1), 
     insertinto(cols_to_plot, col_list[11]);
     offset_value = ch4_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb5 << get(1), 
     insertinto(cols_to_plot, col_list[12]);
     offset_value = ch5_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb6 << get(1), 
     insertinto(cols_to_plot, col_list[13]);
     offset_value = ch6_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb7 << get(1), 
     insertinto(cols_to_plot, col_list[14]);
     offset_value = ch7_neb << get;
     insertinto(offset_list, offset_value);
    );
    if (cb8 << get(1), 
     insertinto(cols_to_plot, col_list[15]);
     offset_value = ch8_neb << get;
     insertinto(offset_list, offset_value);
    );
    graph_expr;
    nw << close window;
   ),
   canb = button box("Cancel", nw << close window;
   ),
  )
 ),
);

// Pre-check checkboxes if column exists
for (i = 1, i <= nitems(col_list), i++,
 if (col_list[i] == "Ch1", cb1 << set(1, 1),
  col_list[i] == "Ch2", cb2 << set(1, 1),
  col_list[i] == "Ch3", cb3 << set(1, 1),
  col_list[i] == "Ch4", cb4 << set(1, 1),
  col_list[i] == "Ch5", cb5 << set(1, 1),
  col_list[i] == "Ch6", cb6 << set(1, 1),
  col_list[i] == "Ch7", cb7 << set(1, 1),
  col_list[i] == "Ch8", cb8 << set(1, 1),
  col_list[i] == "Ch9", cb9 << set(1, 1),
 );
);

y realmente no debería estar generando una Y extra, es un si, si no, así que solo se debe generar una de esas, pero creo que es porque dupliqué el if en el segundo gráfico y está creando este fantasma, que Creo que es compatible cuando miras el script generado de esa compilación

 

Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :Name( "Time[sec]" ) ),
  Y( :Name( "CH2-Chemical Cal" ) ),
  Y( :Name( "CH2-Chemical Cal" ) )
 ),
 Elements(
  Position( 1, 1 ),
  Line( X, Y, Legend( 7 ) ),
  Points( X, Y, Legend( 8 ) )
 ),
 Elements(
  Position( 1, 2 ),
  Points( X, Y, Legend( 9 ) ),
  Smoother( X, Y, Legend( 10 ) )
 )
);

porque agrega no solo el gráfico más suave y el segundo, sino también un segundo gráfico de puntos con el más suave

 

 

Intenté quitar el

|| Eval Insert ( "Y (^ i ^)," )

después de los elementos en el script y básicamente lo convirtió en una línea vertical (y aún así produjo el gráfico de puntos y suavizado, mágicamente)

Re: Ghost Graph

Parece que tiene un código duplicado (¿una copia adicional pegada?) Para los nombres que no es necesario.  Necesitas los dos elementos, pero el nombre Y una vez.  El nombre duplicado está dibujando Y (1) nuevamente y el valor predeterminado es el elemento más suave

 

A continuación es de BigClass. La siguiente JSL es el código duplicado de su script.

Graph Builder(
 Size( 528, 454 ),
 Show Control Panel( 0 ),
 Variables( X( :weight ), Y( :height ) ),
 Elements( Points( X, Y, Legend( 3 ) ), Line( X, Y, Legend( 5 ) ) )
)

 

For( i = 1, i <= N Items( cols_to_plot ), i++,
  If( i == 1, 
  // then
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ) ), ]\" )
  , 
  // else
   gb_text = gb_text || Eval Insert( "\!N\[  Y( :Name( "^offset_cols[i]^" ), Position( 1 ) ),]\" )
  );

  elements_txt = elements_txt || Eval Insert( "Y ( ^i^ ), " );
 );