fixed fraction for hollow shell

Ameyanagi · Aug 21, 2023 · 8620c65 · 8620c65
1 parent 280306f
commit 8620c65
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/decomnano/decomnano_fix_bulk_fraction_hollow_shell.wl b/decomnano/decomnano_fix_bulk_fraction_hollow_shell.wl
@@ -13,8 +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 + 
-       11*L[Dh, d])]]
+       15*L[D, d]^2 + 11*L[D, d] - 10*L[Dh, d]^3 - 15*L[Dh, d]^2 - 11*L[Dh, d])]]
 
 Natomh = 
  Compile[{{D, _Real}, {Dh, _Real}, {d, _Real}}, 

diff --git a/decomnano/decomnano_hollow_shell.wl b/decomnano/decomnano_hollow_shell.wl
@@ -13,8 +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 + 
-       11*L[Dh, d])]]
+       15*L[D, d]^2 + 11*L[D, d] - 10*L[Dh, d]^3 - 15*L[Dh, d]^2 - 11*L[Dh, d])]]
 
 Natomh = 
  Compile[{{D, _Real}, {Dh, _Real}, {d, _Real}},