Diferencias

Muestra las diferencias entre dos versiones de la página.

--- acemu:ensayos:jornadas:2013_04_13 [2013/04/14 19:31] – kenneth
+++ acemu:ensayos:jornadas:2013_04_13 [2013/04/25 09:40] (actual) – [Prueba de Motor LAB001 - EMA - 13/04/2013] tabare.perez
@@ Línea 1: / Línea 1: @@
+[[acemu:ensayos:jornadas|Retorno a página anterior]]
+----
 ====== Prueba de Motor LAB001 - EMA - 13/04/2013 ======
@@ Línea 55: / Línea 59: @@
 curva01<-read.csv("2013_04_13_curva_lab001_prueba_01.csv")
 head(curva01)
+impulso01<-sum((curva01$ch1+0.50781)*20.1*9.8)/60
 curva02<-read.csv("2013_04_13_curva_lab001_prueba_02.csv")
+head(curva02)
+impulso02<-sum((curva02$ch1+0.50781)*20.1*9.8)/60
 # si tenemos en cuenta que la curva de empuje corresponde a 20.1 kg/volt (196.98N)
 # y que arrancamos con la señal de -0.50781, podemos ya graficar directamente
@@ Línea 61: / Línea 68: @@
 plot(curva02$time-1.783,(curva02$ch1+0.50781)*20.1*9.8,main="Curva Empuje LAB01 - 13/04/2013 - Ensayos 1 y 2",xlab="tiempo(s)",ylab="Empuje (N)",col=4,lwd=3,type="l")
 lines(curva01$time-2.89,(curva01$ch1+0.50781)*20.1*9.8,lwd=3,col=2)
-text(1.1,450,"Ensayo 1:  202g KNDX",col=2)
+text(0.8,480,"Ensayo 1: 202g KNDX",col=2,adj=c(0,0))
-text(1.1,400,"Ensayo 2:  214g KNDX",col=4)
+text(0.8,450,paste("Impulso: ",as.character(format(impulso01,digits=3)),"Ns"),col=2,adj=c(0,0))
+text(0.8,400,"Ensayo 2: 214g KNDX",col=4,adj=c(0,0))
+text(0.8,370,paste("Impulso: ",as.character(format(impulso02,digits=3)),"Ns"),col=4,adj=c(0,0))
 # copiamos a device x11 y salvamos a disco la copia generada como archivo PNG
 dev.copy(device=x11)
@@ Línea 118: / Línea 127: @@
 {{ :acemu:ensayos:jornadas:2013_04_13:2013_04_13_calibracion_balanza.png?400 | Gráfico de Calibración de Balanza}}
+----
+[[acemu:ensayos:jornadas|Retorno a página anterior]]