fixed fraction for hollow shell

Ameyanagi · Aug 21, 2023 · 280306f · 280306f
1 parent 6eefe56
commit 280306f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/decomnano/decomnano_fix_bulk_fraction_hollow_shell.wl b/decomnano/decomnano_fix_bulk_fraction_hollow_shell.wl
@@ -13,7 +13,7 @@ nh = Compile[{{D, _Real}, {Dh, _Real}, {d, _Real}},
   Module[{}, 
    24*(L[D, d]*(5*L[D, d]^2 + 3*L[D, d] + 1) - (5*L[Dh, d]^3 + 
          12*L[Dh, d]^2 + 10*L[Dh, d] + 3))/(10*L[D, d]^3 + 
-       15*L[D, d]^2 + 11*L[D, d] - 10*L[Dh, d]^3 + 15*L[Dh, d]^2 + 
+       15*L[D, d]^2 + 11*L[D, d] - 10*L[Dh, d]^3 - 15*L[Dh, d]^2 + 
        11*L[Dh, d])]]
 
 Natomh = 

diff --git a/decomnano/decomnano_hollow_shell.wl b/decomnano/decomnano_hollow_shell.wl
@@ -13,7 +13,7 @@ nh = Compile[{{D, _Real}, {Dh, _Real}, {d, _Real}},
   Module[{}, 
    24*(L[D, d]*(5*L[D, d]^2 + 3*L[D, d] + 1) - (5*L[Dh, d]^3 + 
          12*L[Dh, d]^2 + 10*L[Dh, d] + 3))/(10*L[D, d]^3 + 
-       15*L[D, d]^2 + 11*L[D, d] - 10*L[Dh, d]^3 + 15*L[Dh, d]^2 + 
+       15*L[D, d]^2 + 11*L[D, d] - 10*L[Dh, d]^3 - 15*L[Dh, d]^2 + 
        11*L[Dh, d])]]
 
 Natomh =