as-500/hw15/.Rhistory

47 lines
2.4 KiB
R

curve()
curve(
?curve
curve(0.00308105*exp(-4241.3*x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)")
curve(0.00308105*exp(-4241.3*x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",ylim=c(0,0.004))
curve(0.00308105*exp(-4241.3*x)*x,xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",ylim=c(0,0.004))
curve(0.00308105*exp(-4241.3*x)*x,xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",ylim=c(0,0.0004))
curve(0.00308105*exp(-4241.3*x)*x,xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",ylim=c(0,0.000004))
curve(0.00308105*exp(-4241.3*x)*x,xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",ylim=c(0,0.0000000004))
q
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000))
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)"))
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)"))
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)")
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="x")
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
pdf("lineratio.pdf")
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
dev.off()
ln(0.0048/0.00308105)/-4241.3
log(0.0048/0.00308105)/-4241.3
log10(0.0048/0.00308105)/-4241.3
?log
log(0.0048/0.00308105)/-4241.3
quit()
pdf("lineratio.pdf")
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
pdf("lineratio.pdf")
dev.off()
curve(0.00308105*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
dev.off()
pdf("lineratio.pdf")
curve(0.0040569*exp(-4241.3/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
dev.off()
exit()
exit
quit()
curve(36.070*exp(-32976/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
pdf("lineratio.pdf")
curve(36.070*exp(-32976/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="Line Ratio (n.u.)",log="y")
dev.off()
curve(36.070*exp(-32976/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="I[4262A]/I[5007A] (n.u.)",log="y")
pdf("lineratio.pdf")
curve(36.070*exp(-32976/x),xlim=c(5000,50000),xlab="Temperature (K)",ylab="I[4262A]/I[5007A] (n.u.)",log="y")
dev.off()
quit()