| library(tikzDevice) |
| |
| # === Heli === |
| table <- read.table('dades/Heli.txt', sep="\t", dec=',', header=FALSE, col.names=c("Lambda", "Impulses")) |
| |
| pdf('output/heli.pdf', width = 6, height = 5) |
| plot(table$Lambda, table$Impulses, type="l", xlab="Longitud d'ona (nm)", col="#6B67A2", ylab="Comptes", ylim=c(0, 4000)) |
| dev.off() |
| |
| tikz('output/heli.tex', width = 6, height = 5) |
| plot(table$Lambda, table$Impulses, type="l", xlab="Longitud d'ona (nm)", col="#6B67A2", ylab="Comptes", ylim=c(0, 4000)) |
| dev.off() |
| |
| # === Sodi doble pic === |
| table <- read.table('dades/Sodi_doblepic.txt', sep="\t", dec=',', header=FALSE, col.names=c("Lambda", "Impulses")) |
| |
| pdf('output/sodi_doblepic.pdf', width = 6, height = 5) |
| plot(table$Lambda, table$Impulses, type="l", xlab="Longitud d'ona (nm)", col="#6B67A2", ylab="Comptes", ylim=c(0, 4000)) |
| dev.off() |
| |
| tikz('output/sodi_doblepic.tex', width = 6, height = 5) |
| plot(table$Lambda, table$Impulses, type="l", xlab="Longitud d'ona (nm)", col="#6B67A2", ylab="Comptes", ylim=c(0, 4000)) |
| dev.off() |
| |
| # === Sodi saturat === |
| table <- read.table('dades/Sodi_saturat.txt', sep="\t", dec=',', header=FALSE, col.names=c("Lambda", "Impulses")) |
| |
| pdf('output/sodi_saturat.pdf', width = 6, height = 5) |
| plot(table$Lambda, table$Impulses, type="l", xlab="Longitud d'ona (nm)", col="#6B67A2", ylab="Comptes", ylim=c(0, 4000)) |
| dev.off() |
| |
| tikz('output/sodi_saturat.tex', width = 6, height = 5) |
| plot(table$Lambda, table$Impulses, type="l", xlab="Longitud d'ona (nm)", col="#6B67A2", ylab="Comptes", ylim=c(0, 4000)) |
| dev.off() |