mirror of
https://asciireactor.com/otho/as-500.git
synced 2025-10-31 18:18:04 +00:00
238 lines
7.5 KiB
R
238 lines
7.5 KiB
R
data = read.table("h+.tab")
|
|
plot(data)
|
|
data = read.table("h+.tab")
|
|
plot(data[,1])
|
|
plot(data)
|
|
data
|
|
data = read.table("h+.tab")
|
|
plot(data[,1])
|
|
plot(data[,1],data[,9])
|
|
plot(data[,1],data[,9],type="b")
|
|
plot(data[,1],data[,9],type="b",log="x")
|
|
plot(data[,1],data[,9],type="b",log="xy")
|
|
plot(data[,1],data[,9],type="b")
|
|
plot(data[,1],data[,9],type="b",log="x")
|
|
plot(data[,1],data[,9]/data[,3],type="b",log="x")
|
|
.125/2
|
|
data = read.table("h+.tab")
|
|
data = read.table("h+.tab")
|
|
plot(data[,1],data[,11],type="b",log="x")
|
|
plot(data[,1],data[,13],type="b",log="x")
|
|
line(data[,1],data[,13],type="b")
|
|
line(data[,1],data[,13])
|
|
?line
|
|
?lines
|
|
lines(data[,1],data[,13],type="b")
|
|
lines(data[,1],data[,11],type="b")
|
|
pdf("saha.pdf")
|
|
plot(data[,1],data[,13],type="b",log="x")
|
|
lines(data[,1],data[,11],type="b")
|
|
dev.off()
|
|
plot(data[,1],data[,13],type="b",log="x")
|
|
lines(data[,1],data[,11],type="b",pch="□")
|
|
plot(data[,1],data[,13],type="b",log="x")
|
|
lines(data[,1],data[,11],type="b",pch="x")
|
|
lines(data[,1],data[,11],type="l",pch="x")
|
|
plot(data[,1],data[,13],type="l",log="x")
|
|
lines(data[,1],data[,11],type="l",pch="x")
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift")
|
|
?plot
|
|
tick
|
|
ticks
|
|
label
|
|
lab
|
|
par
|
|
?par
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,10,100,1000,10000))
|
|
?xaxp
|
|
plot
|
|
?plot
|
|
?par
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(5,5,20))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(7,5,20))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(7,5,5))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(7,5,3))
|
|
?par
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,10000,5))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,1000,5))
|
|
?par
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(0,5,1))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(0,5,1:1))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(-1,5,1))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1))
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),type="b")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1))
|
|
lines(data[,1],data[,11],type="l",pch="x")
|
|
lines(data[,1],data[,11],type="b",pch="x")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1).pch="-")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="b",pch="|")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="b",pch="=")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="b",pch="x")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="b",pch=".")
|
|
lines(data[,1],data[,11],type="b",pch="█")
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="b",pch="◎")
|
|
?lines
|
|
lines(data[,1],data[,11],type="b",lty = 1)
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="b",lty = 1)
|
|
lines(data[,1],data[,11],type="l",lty = 1)
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="l",lty = 1)
|
|
lines(data[,1],data[,11],type="l",lty = 2)
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
|
|
lines(data[,1],data[,11],type="l",lty = 2)
|
|
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],type="b",lty=2)
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],type="l",lty=2)
|
|
?legend
|
|
legend( x="left",
|
|
legend=c("Red line, blue points","Green line, purple points"),
|
|
col=c("red","green"), lwd=1, lty=c(1,2), pch=c(15,17), merge=FALSE )
|
|
> plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],type="l",lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ"
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ"
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/n[tot] (n.u.)"
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/n[tot] (n.u.)"
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift",
|
|
ylab="n/nₜₒₜ [n.u.]",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
plot(data[,1],data[,13],
|
|
type="l",
|
|
log="x",
|
|
xlab="Redshift [n.u.]",
|
|
ylab="n/nₜₒₜ [n.u.]",
|
|
xaxp=c(1,5,1),lty=3)
|
|
lines(data[,1],data[,11],
|
|
type="l",
|
|
lty=2)
|
|
legend( x="left",
|
|
legend=c("H⁺/H","H⁰/H"),
|
|
col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
|
|
quit()
|