School/phy-4660
1
0
Fork 0
mirror of https://asciireactor.com/otho/phy-4660.git synced 2024-11-24 06:25:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

turned in lab 5

Browse Source
This commit is contained in:
caes 2017-04-18 05:46:05 -04:00
parent 6eb3009ba9
commit 4e4a71ed99
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
xrd/plots.R
View File

@ -4,7 +4,7 @@ grease_count = read.table("grease.tab")
plastic_count = read.table("plastic.tab") plastic_count = read.table("plastic.tab")
wood_count = read.table("wood.tab") wood_count = read.table("wood.tab")
plot(x=x,y=plastic_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree~")"),xlim=c(12,55)) plot(x=x,y=plastic_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree),xlim=c(12,55))
abline(v=42.5) abline(v=42.5)
axis(3,at=42.5) axis(3,at=42.5)
abline(v=30.5) abline(v=30.5)
@ -17,7 +17,7 @@ dev.print(pdf,"../report/plastic_peaks.pdf",width=3,height=3)
plot(x=x,y=grease_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree~")")) plot(x=x,y=grease_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree))
abline(v=12) abline(v=12)
axis(3,at=12) axis(3,at=12)
abline(v=22) abline(v=22)
@ -25,7 +25,7 @@ axis(3,at=22)
dev.print(pdf,"../report/grease_peaks.pdf",width=3,height=3) dev.print(pdf,"../report/grease_peaks.pdf",width=3,height=3)
plot(x=x,y=wood_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree~")"),xlim=c(15,55)) plot(x=x,y=wood_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree),xlim=c(15,55))
abline(v=16) abline(v=16)
axis(3,at=16) axis(3,at=16)
abline(v=22.5) abline(v=22.5)