835080_es-ES

liliconcom

Convertir todas las columnas de radianes a grados

Necesito un bucle JSL que busque los encabezados de columna de una tabla de datos, y si el encabezado de columna tiene "(rad)", me gustaría multiplicar todos los valores de esa columna por 180/pi y luego cambiar "(rad)" a "(deg)" en el encabezado de columna.

He probado todo lo que se me ocurrió, incluido chatGPT, pero hasta ahora no he tenido suerte.

Automatización y scriptingCombinación y limpieza de datosRe: Convertir todas las columnas de radianes a grados

1. Obtenga todas las columnas usando << Obtener nombres de columnas
2. Establecer la tabla para que no se actualice usando << iniciar actualización de datos
3. Recorrerlos en bucle utilizando For Each
4. Comprueba si su nombre tiene (rad) usando Contiene / Comienza con / Termina con
5. Utilice For Each Row para recorrerla y cambiar los valores a grados.
   1. Esperaría que hubiera un mejor método para esto, pero no estoy seguro de que realmente lo haya, a menos que desee crear nuevas columnas y eliminar las antiguas, ya que no deberíamos usar << establecer cada valor, lo que hace que sea extremadamente fácil de hacer y leer.
   2. Aplicar la fórmula en su lugar (agregada en JMP18) podría funcionar, pero es difícil entender cómo usarla.
   3. Usar valores de matriz es una buena opción, pero For Each Row siempre funcionará, siempre es una buena idea aprenderlo.
6. Utilice sustituir y << Establecer nombre para cambiar el nombre de la columna
7. Deje que la tabla se actualice nuevamente usando << fin de actualización de datos

Names Default To Here(1);

dt = New Table("Untitled",
	Add Rows(2),
	Compress File When Saved(1),
	New Column("Column 1", Numeric, "Continuous", Format("Best", 12), Set Values([., .])),
	New Column("a (rad)", Numeric, "Continuous", Format("Best", 12), Set Values([1, .]))
);

colnames = dt << Get Column Names(Continuos, "String");

dt << Begin Data Update();
For Each({colname}, colnames,
	If(Contains(colname, "(rad)"),
		For Each Row(dt, Column(dt, colname)[] = Column(dt, colname)[] * 180 / Pi());
		Column(dt, colname) << Set Name(Substitute(colname, "(rad)", "(deg)"));
	)
);
dt << End Data Update();

Write();

Re: Convertir todas las columnas de radianes a grados

¡Siempre impresionante, gracias!

Algunas preguntas adicionales:

1. ¿Por qué "colname" está entre llaves como primer argumento del bucle for each?
2. Estaba intentando hacer algo como "dt:colname[rowIdx] = dt:colname[rowIdx] * 180/Pi()" -- ¿cómo interpretaría JMP esta línea y por qué está mal?
3. ¿Qué hace el "[]" al final de "Column(dt,colname)[]"? ¿Hay alguna sección en la documentación que trate este tema?

¡Gracias de nuevo!

Re: Convertir todas las columnas de radianes a grados

1. Es la sintaxis de For Each. Funciones condicionales y lógicas.
2. Most likely JMP won't be able to interpret anything from that as it doesn't find colname column from your data table as colname just stores the value. I think you could use As Column instead of Column()[] and it might work

   As Column(dt, colname) = As Column(dt, colname) * 180 / Pi()

3. [] es lo mismo que [Row()] y se utiliza para acceder a la fila actual cuando se utiliza Column(). Iterar sobre filas en una tabla