Commit 69746716 authored by Pablo Cremades's avatar Pablo Cremades

Subo Readme y gráfico actualizado

parent fd85635a
#140px....500mV --- 1
#180px....1uA --- 402
V I
1 384
5 386
10 390
......
setwd("/home/pablo/Documents/WheeStat6-Mza/Quercetina")
library(ggplot2)
#Factores para escalar los datos.
OrigV = 122
OrigI = 402
ResV = 500/140
ResI = 1/180
datos_comercial = read.csv("Datos_Comercial.csv")
datos_comercial$V <- datos_comercial$V*1000
datos_wheestat = read.csv("./DatosWheeStat_raw.txt", sep=" ", header = FALSE, comment.char = "#")
V_raw = datos_wheestat$V1
I_raw = datos_wheestat$V2
datos_comercial$V <- datos_comercial$V*1000 #Pasamos de V a mV
V_wheestat = (V_raw - OrigV)*ResV
I_wheestat = (OrigI - I_raw)*ResI
datos_wheestat = read.csv("./DatosWheeStat_raw.txt", sep=" ", header = TRUE, comment.char = "#")
#Escalamos los datos
datos_wheestat$V <- (datos_wheestat$V - OrigV)*ResV
datos_wheestat$I <- (OrigI - datos_wheestat$I)*ResI
plotIvsV <- ggplot( plot=TRUE) + geom_point(aes(V_wheestat, I_wheestat), colour='blue', size=3, show.legend = TRUE) +
xlab("V [mV]") +
ylab("I [uA]") +
geom_line(aes(V_wheestat,I_wheestat))
#Graficamos
plotIvsV <- ggplot() + geom_point(data=datos_wheestat, aes(x=datos_wheestat$V, datos_wheestat$I), colour='blue', size=3) +
geom_line() +
scale_x_continuous(breaks = seq(from = min(datos_comercial$V)-5, to = max(datos_comercial$V), by = 100)) +
xlab("V [mV]") +
ylab("I [uA]")
plotIvsV <- plotIvsV + geom_point(aes(datos_comercial$V, datos_comercial$I)) +
guides(colour = "colorbar", size = "legend", shape = "legend")
\ No newline at end of file
plotIvsV <- plotIvsV + geom_point(data = datos_comercial, aes(x=datos_comercial$V, y=datos_comercial$I), colour='black', size=3) +
scale_color_manual("Quercetina", values = c("WheeStat"="blue", "Comercial"="black"))
\ No newline at end of file
# Experimento de validación WheeStat
Se utilizó el potenciostato para medir una solución de quercetina. La técnica utilizada fue voltametría de pulsos diferencial. Los resultados se compararon con los
arrojados por un potenciostato comercial xxxx.
## Matiriales
- 2 electrodos de grafito (working y counter).
- Parafina
- 1 electrodo de plata (reference).
- solución de Quercetina 10ppm preparada en buffer de fosfato 10mM, pH 2.5.
## Preparación
Para los electrodos de grafito se procedió a sumergir las barras de grafito durante unos segundos en parafina fundida. El proceso se repitió 3 veces.
Luego se eliminión la parafina del extremo de los electrodos y se pulió de manera mecánica.
Para el electrodo de referencia se se fijó a un extremo del tubo de vidrio provisto por el kit una esfera de porcelana porosa. Luego se mantuvo sumergido en una solución de KCl<sub>sat</sub> durante una semana. El cable de plata se lo recubrió con AgCl mediante electrolisis. Se soldó el cable de plata y se lo introdujo en el interior del tubo de vidrio el cual se llenó con una solución 3 M KCl.
## Resultados
![Quercetina](https://gitlab.com/nanocastro/WheeStat6-Mza/raw/master/Quercetina/Img/Plot.png)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment