Diferencias

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

--- acemu:ensayos:jornadas:2013_04_13 [2013/04/14 06:23] – [Apéndice] 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 5: / Línea 9: @@
 Ausentes: el resto del mundo...
-Se hicieron dos ensayos de disparo de motor. Previamente se calibró la balanza para obtener un valor de 20.1 kg/volt
+Se hicieron dos ensayos de disparo de motor. Previamente se calibró la balanza para obtener un valor de 20.1 kg/volt (196.98 N/volt)
 **Motor:** LAB001
@@ 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")
-# si tenemos en cuenta que la curva de empuje corresponde a 20.1 kg/volt
+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
 # en kg vs tiempo
-plot(curva02$time-1.783,20.1*curva02$ch1+0.50781*20.1,main="Curva Empuje LAB01 - 13/04/2013 - Ensayos 1 y 2",xlab="tiempo(s)",ylab="Empuje (Kg)",col=4,lwd=3,type="l")
+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,20.1*curva01$ch1+0.50781*20.1,lwd=3,col=2)
+lines(curva01$time-2.89,(curva01$ch1+0.50781)*20.1*9.8,lwd=3,col=2)
-text(1.1,45,"Ensayo 1:  202g KNDX",col=2)
+text(0.8,480,"Ensayo 1: 202g KNDX",col=2,adj=c(0,0))
-text(1.1,40,"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 75: / Línea 84: @@
 # Calibración de la balanza
 # Ingreso de datos tomados: voltaje y peso
-volt=c(-0.547,-.449,-.352,-.254,-.156,.039,.293)
+volt=c(-0.547,-0.449,-0.352,-0.254,-0.156,0.039,0.293)
 weight=c(0,1980,3895,5910,7893,9871,11843,16843)
 # convertimos gramos en kilos
@@ 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]]