A.C.E.M.U.

Herramientas de usuario

Herramientas del sitio

Traza:
acemu:ensayos:jornadas:2013_04_13

Diferencias

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

Enlace a la vista de comparación

Ambos lados, revisión anterior Revisión previa
Próxima revisión 		Revisión previa
acemu:ensayos:jornadas:2013_04_13 [2013/04/14 19:31]
kenneth 		acemu:ensayos:jornadas:2013_04_13 [2013/04/25 09:40] (actual)
tabare.perez [Prueba de Motor LAB001 - EMA - 13/04/2013]
Línea 1: Línea 1:
 +[[acemu:ensayos:jornadas|Retorno a página anterior]]
 +
 +----
 +
 ====== Prueba de Motor LAB001 - EMA - 13/04/2013 ====== ====== 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") curva01<-read.csv("2013_04_13_curva_lab001_prueba_01.csv")
 head(curva01) head(curva01)
 +impulso01<-sum((curva01$ch1+0.50781)*20.1*9.8)/60
 curva02<-read.csv("2013_04_13_curva_lab001_prueba_02.csv") 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) # 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 # 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") 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) 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 # copiamos a device x11 y salvamos a disco la copia generada como archivo PNG
 dev.copy(device=x11) 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: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]]
  
acemu/ensayos/jornadas/2013_04_13.1365993109.txt.gz · Última modificación: 2013/04/14 19:31 por kenneth

Herramientas de la página

Excepto donde se indique lo contrario, el contenido de este wiki esta bajo la siguiente licencia: CC Attribution-Share Alike 4.0 International
CC Attribution-Share Alike 4.0 International Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki