Perl - Calcular raiz cuadrada media array e imprimirla en .csv

 
Vista:
sin imagen de perfil

Calcular raiz cuadrada media array e imprimirla en .csv

Publicado por Ignacio (1 intervención) el 06/04/2017 17:48:01
Hola buenas,

he intentado calcular la raíz cuadrada media de un array e imprimirla en un fichero .csv
esta raíz sería la de la suma de los elementos al cuadrado de un array tal como este (x1,x2,x3,x4) divididos entre el num de elementos del aarray

se define como: raizcuadrada((x1^2+x2^2+x3^2+x4^2)/num elementos array)
Después lo tengo que imprimir en un fichero .csv
Quiero saber, si el siguiente código sería correcto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#calculus rms
 
	!$ my sum
	!$ my rms
	!for ($i=1;$i <= $numFA; $i++) {
		!$quadratic=($array[$i-1])^2
		!$sum=++$quadratic
	!  }
	!$rms=sqrt(sum/@array) #array length
 
# lo dibujamos en documento
!	open($out, '>', 'plots/nombredocumento.csv') || die("Unable to open 'nombredocumento.csv': $!");
! {print "$rms\n";
!  }
!close($out);

Muchas gracias por vuestra atrencion. Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Joaquin
Val: 56
Oro
Ha mantenido su posición en Perl (en relación al último mes)
Gráfica de Perl

Calcular raiz cuadrada media array e imprimirla en .csv

Publicado por Joaquin (31 intervenciones) el 21/11/2017 21:53:08
Bueno casi.

Las líneas que empiezan por '!' están mal, porque '!' no es correcto. Es un error de sintaxis.

Si quieres saber si un código Perl es correcto, ejecútalo con la opción -c:

perl -c programa.pl

Si no sale ningún mensaje de error, es que la sintaxis es correcta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar