mirror of
https://asciireactor.com/otho/as-500.git
synced 2024-11-26 01:05:06 +00:00
47 lines
2.4 KiB
R
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()
|