mirror of
https://asciireactor.com/otho/as-500.git
synced 2024-11-22 18:35:05 +00:00
22 lines
327 B
R
22 lines
327 B
R
|
data = read.table("cooling.data")
|
||
|
|
png("plot.png")
|
||
|
|
|
||
|
|
hnu = 4.138e-10;
|
||
|
|
A = 2.20e-6;
|
||
|
|
alpha = 7.10e5;
|
||
|
|
hnu_T = 1.4E4;
|
||
|
|
EinK = 29168;
|
||
|
|
|
||
|
|
plot(data,
|
||
|
|
log="xy",
|
||
|
|
xlim=c(1e3,1e5),
|
||
|
|
ylim=c(1e-18,1e-17),
|
||
|
|
type="l",
|
||
|
|
xlab="Temperature [K]",
|
||
|
|
ylab=" [Cooling Rate ergs cm⁻³ s⁻¹]"
|
||
|
|
)
|
||
|
|
|
||
|
|
abline(v=hnu_T)
|
||
|
|
|
||
|
|
dev.off()
|
||
|
|
hnu_T
|