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

Part A and B: Computation of binding energy

Browse Source
This commit is contained in:
Noah L. Schrick 2023-01-19 17:59:39 -06:00
parent cd7f096333
commit 5cfc3e6ab0
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Schrick-Noah_Project-1.R
View File

@ -7,8 +7,24 @@
setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
## Part A: compute binding energy ## Part A: compute binding energy
computeBindingEnergy <- function(A, Z){
if (A %% 2 == 1) {
spin <- 0
}else if (A %% 2 == 0 && Z %% 2 == 0){
spin <- 12
}
else {
spin <- -12
}
B <- (15.67*A) - (17.23*(A^(2/3))) - ((0.75)*((Z^2)/(A^(1/3)))) - ((93.2)*(((A-(2*Z))^2)/A)) + (spin/(A^(1/2)))
return(B)
}
## Part B: compute Z=28 and A=58 ## Part B: compute Z=28 and A=58
computeBindingEnergy(58,28)
(15.67*58) - (17.23*(58^(2/3))) - ((0.75)*((28^2)/(58^(1/3)))) - ((93.2)*(((58-(2*28))^2)/58)) + (12/(58^(1/2)))
## Part C: table with two columns: nucleons and binding energy per nucleon ## Part C: table with two columns: nucleons and binding energy per nucleon