mirror of
https://asciireactor.com/otho/phy-4660.git
synced 2024-11-22 17:15:07 +00:00
73 lines
1.8 KiB
R
73 lines
1.8 KiB
R
|
data1=read.table("0302171.tab",header=T)
|
||
|
|
plot(data1)
|
||
|
|
data2=read.table("0302172.tab",header=T)
|
||
|
|
lines(data2)
|
||
|
|
lines(data1)
|
||
|
|
plot()
|
||
|
|
lines(data1)
|
||
|
|
sdfklj
|
||
|
|
?plot
|
||
|
|
plot(data1,type='c')
|
||
|
|
?plot
|
||
|
|
plot(data1,type='l')
|
||
|
|
lines(data2)
|
||
|
|
lines(data2,col='red')
|
||
|
|
plot(data1,type='l',xlim=c(190,210))
|
||
|
|
lines(data2,col='red')
|
||
|
|
plot(data1,type='l',xlim=c(195,205))
|
||
|
|
lines(data2,col='red')
|
||
|
|
plot(data1,type='l',xlim=c(95,205))
|
||
|
|
lines(data2,col='red')
|
||
|
|
data2
|
||
|
|
ls()
|
||
|
|
test1=c(1)
|
||
|
|
ls()
|
||
|
|
rm(test1)
|
||
|
|
ls()
|
||
|
|
max_cu_ruth = 17200
|
||
|
|
lines
|
||
|
|
?lines
|
||
|
|
lines(c(0,1023),c(17200,17200),col="blue")
|
||
|
|
lines(c(0,1023),c(17400,17400),col="blue")
|
||
|
|
lines(c(0,1023),c(17600,17600),col="blue")
|
||
|
|
lines(c(0,1023),c(17500,17500),col="blue")
|
||
|
|
plot(data1,type='l',xlim=c(95,205))
|
||
|
|
lines(c(0,1023),c(17500,17500),col="blue")
|
||
|
|
plot(data1,type='l',xlim=c(95,205))
|
||
|
|
lines(c(0,1023),c(17600,17600),col="blue")
|
||
|
|
lines(data2,col='red')
|
||
|
|
lines(c(0,1023),c(20000,20000),col="green")
|
||
|
|
lines(c(0,1023),c(20000,20000),col="purple")
|
||
|
|
.2*20000
|
||
|
|
?lines
|
||
|
|
?plot
|
||
|
|
lines(c(0,1023),c(4000,4000),col="purple")
|
||
|
|
.2*17600
|
||
|
|
lines(c(0,1023),c(3520,3520),col="blue")
|
||
|
|
grid.locator
|
||
|
|
identify
|
||
|
|
identify(x,y)
|
||
|
|
identify(200,16000)
|
||
|
|
identify(length,coverage)
|
||
|
|
identify(channel,count)
|
||
|
|
identify("channel","count")
|
||
|
|
identify(channel,count)
|
||
|
|
identify(data1$channel,count)
|
||
|
|
identify(data1$channel,data1$count)
|
||
|
|
plot(data1,type='l',xlim=c(95,205))
|
||
|
|
lines(c(0,1023),c(17600,17600),col="blue")
|
||
|
|
lines(c(0,1023),c(3520,3520),col="blue")
|
||
|
|
plot(data1,type='l',xlim=c(95,205))
|
||
|
|
lines(c(0,1023),c(17600,17600),col="blue")
|
||
|
|
lines(data2,col='red')
|
||
|
|
lines(c(0,1023),c(20000,20000),col="purple")
|
||
|
|
dev.print(pdf,"../report/rutherford.pdf")
|
||
|
|
?dev.print
|
||
|
|
dev.print(pdf,"../report/rutherford.pdf"width=6,height=6)
|
||
|
|
dev.print(pdf,"../report/rutherford.pdf",width=6,height=6)
|
||
|
|
clear
|
||
|
|
clear()
|
||
|
|
dev.print(pdf,"../report/rutherford.pdf",width=4.5,height=6)
|
||
|
|
dev.print(pdf,"../report/rutherford.pdf",width=4.5,height=6)
|
||
|
|
quit()
|