integral/ridge
1
0
Fork 0
generated from erosita/uds
Code Issues Pull Requests Packages Projects Releases Wiki Activity

na Kubani

Browse Source
This commit is contained in:
Roman Krivonos
2024-07-23 09:42:16 +03:00
parent 99dc2aa8f6
commit 8ee76a8070
896 changed files with 258624 additions and 205715 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Spectra/figures/cutoffpl_lon+20.r
View File

@@ -10,7 +10,7 @@ keymo="model2"
up=1.0
xgrid <- c(30,50,70,100);
#xgrid <- c(30,50,70,100);
Emin=25.0
Emax=180.0
postscript('cutoffpl_lon+20.eps', horizontal = FALSE, onefile = FALSE, paper = "special",width = 9.0, height = 6.0)
@@ -23,7 +23,7 @@ par(mar=c(0.1, leftx, 1, 1))
par(cex.lab=1.6)
par(cex.axis=1.6)
xlim <- c(Emin,Emax)
ylim <- c(0.01,1)
ylim <- c(0.1,1.5)
cl="black"
a <- read.table('../cutoffpl_lon+20_eeuf.dat', col.names=c("x","dx","y","dy","total","cutoffpl","pow"))
@@ -62,14 +62,14 @@ segments(px-pdx,py,px+pdx,py,col=cl)
##
###################################################################################
lines(a$x,a$total,pch=1,bg=cl,col="black")
lines(a$x,a$cutoffpl,pch=1,bg=cl,col="blue")
lines(a$x,a$pow,pch=1,bg=cl,col="red")
lines(a$x,a$total,pch=1,bg=cl,col="black")
###################################################################################
par(mar=c(4.5, leftx, 0.1, 1))
ylim <- c(-3.5,3.5)
ylim <- c(-2.5,2.5)
cl="black"
a <- read.table("../cutoffpl_lon+20_delchi.dat", col.names=c("x","dx","y","dy"))