noah/CS-7863-Sci-Stat-Proj-1
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

compute max binding energy function

Browse Source
This commit is contained in:
Noah L. Schrick 2023-01-19 21:07:08 -06:00
parent e1389f16f6
commit ec4e21488c
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Schrick-Noah_Project-1.R
View File

@ -40,5 +40,18 @@ print(carbon_df, row.names=FALSE)
print(carbon_df[which.max(carbon_df$"B/A"),], row.names=FALSE) print(carbon_df[which.max(carbon_df$"B/A"),], row.names=FALSE)
## Part D: find the value of A that gives the maximum binding energy ## Part D: find the value of A that gives the maximum binding energy
computeMaxBind <- function(Z, precision=NA){
if (is.na(precision)){precision <- 4}
maxBind <- -Inf
A.maxBind <- -Inf
for (i in seq(Z, 3*Z)){
bindE <- computeBindingEnergy(i, Z)/i
if (bindE > maxBind){
maxBind <- bindE
A.maxBind <- i
}
}
return(c(paste("Energy: ", round(maxBind, precision), "MeV"), paste("Nucleons: ", A.maxBind)))
}
## Part E: for each Z use the A that maximizes E/A ## Part E: for each Z use the A that maximizes E/A