tFix typo, add preliminary triangular packing algorithm - Granular.jl - Julia package for granular dynamics simulation
(HTM) git clone git://src.adamsgaard.dk/Granular.jl
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
(DIR) commit 3ee49c06e6c37bcf35948de5933eea1e7726e928
(DIR) parent 83d0e165020a49624788e18d8384be60f2e24136
(HTM) Author: Anders Damsgaard <andersd@riseup.net>
Date: Mon, 19 Feb 2018 11:39:16 -0500
Fix typo, add preliminary triangular packing algorithm
Diffstat:
M src/interaction.jl | 2 +-
M src/packing.jl | 69 ++++++++++++++++++++++++-------
2 files changed, 55 insertions(+), 16 deletions(-)
---
(DIR) diff --git a/src/interaction.jl b/src/interaction.jl
t@@ -238,7 +238,7 @@ function interactGrains!(simulation::Simulation, i::Int, j::Int, ic::Int)
end
# Limit compressive stress if the prefactor is set to a positive value
- elseif compressize_strength > 0. && abs(force_n) >= compressive_strength
+ elseif compressive_strength > 0. && abs(force_n) >= compressive_strength
# Determine the overlap distance where yeild stress is reached
δ_n_yield = -compressive_strength*A_ij/k_n
(DIR) diff --git a/src/packing.jl b/src/packing.jl
t@@ -3,7 +3,7 @@
export regularPacking!
"""
- regularPacking!(simulation, n, r_min, r_max[, padding_factor,
+ regularPacking!(simulation, n, r_min, r_max[, tiling, padding_factor,
size_distribution, size_distribution_parameter, seed])
Create a grid-based regular packing with grain numbers along each axis specified
t@@ -16,6 +16,9 @@ by the `n` vector.
`x` and `y` axes.
* `r_min::Real`: minimum desired grain radius.
* `r_max::Real`: maximum desired grain radius.
+* `tiling::String`: the packing method to use, valid values are `"square"`
+ (default) and `"triangular"` (see
+ [Wikipedia](https://en.wikipedia.org/wiki/Circle_packing#Uniform_packings)).
* `padding_factor::Real`: percentage-wise padding around each grain to allow for
random perturbations to grain position.
* `size_distribution::String`: grain-size distribution to sample. Valid values
t@@ -28,6 +31,7 @@ function regularPacking!(simulation::Simulation,
n::Vector{Int},
r_min::Real,
r_max::Real;
+ tiling::String="square",
padding_factor::Real=.1,
size_distribution::String="powerlaw",
size_distribution_parameter::Real=-1.8,
t@@ -36,27 +40,62 @@ function regularPacking!(simulation::Simulation,
r_rand = 0.
pos = zeros(2)
h = .5 # disc tickness
- dx = r_max * 2. * (1. + padding_factor) # cell size
- dx_padding = r_max * 2. * padding_factor
srand(seed)
- for iy in 1:n[2]
- for ix in 1:n[1]
+ if tiling == "square"
+ dx = r_max * 2. * (1. + padding_factor) # cell size
+ dx_padding = r_max * 2. * padding_factor
+ for iy in 1:n[2]
+ for ix in 1:n[1]
+
+ if size_distribution == "powerlaw"
+ r_rand = Granular.randpower(1,
+ size_distribution_parameter,
+ r_min, r_max)
+ elseif size_distribution == "uniform"
+ r_rand = rand()*(r_max - r_min) + r_min
+ end
- if size_distribution == "powerlaw"
- r_rand = Granular.randpower(1, size_distribution_parameter,
- r_min, r_max)
- elseif size_distribution == "uniform"
- r_rand = rand()*(r_max - r_min) + r_min
+ # Determine position from grid index and sample randomly from
+ # within padding
+ pos = [ix*dx - .5*dx, iy*dx - .5*dx] .+
+ rand(2) .* dx_padding .- .5*dx_padding
+
+ addGrainCylindrical!(simulation, pos, r_rand, h, verbose=false)
end
+ end
- # Determine position from grid index and sample randomly from within
- # padding
- pos = [ix*dx - .5*dx, iy*dx - .5*dx] .+
- rand(2) .* dx_padding .- .5*dx_padding
+ elseif tiling == "triangular"
+ dx = r_max * 2. * (1. + padding_factor) # cell size
+ dy = r_max * 2. * (1. + padding_factor) * cos(2π/3.0)
+ dx_padding = r_max * 2. * padding_factor
+ for iy in 1:n[2]
+ for ix in 1:n[1]
+
+ if size_distribution == "powerlaw"
+ r_rand = Granular.randpower(1,
+ size_distribution_parameter,
+ r_min, r_max)
+ elseif size_distribution == "uniform"
+ r_rand = rand()*(r_max - r_min) + r_min
+ end
- addGrainCylindrical!(simulation, pos, r_rand, h, verbose=false)
+ # Determine position from grid index and sample randomly from
+ # within padding
+ if iy%2 == 0
+ pos = [ix*dx - .5*dx, iy*dy - .5*dy] .+
+ rand(2) .* dx_padding .- .5*dx_padding
+ else
+ pos = [ix*dx, iy*dy - .5*dy] .+
+ rand(2) .* dx_padding .- .5*dx_padding
+ end
+
+ addGrainCylindrical!(simulation, pos, r_rand, h, verbose=false)
+ end
end
+
+ else
+ error("tiling method "$tiling" not understood")
end
end