find zeros and values, middle_exp, release v0.1.3

.github/workflows/CI.yml

@@ -11,7 +11,7 @@ jobs:
     strategy:
       matrix:
         version:
-          - '1.9.4'
+          - '1.11.1'
         os:
           - ubuntu-latest
           - macOS-latest

Project.toml

@@ -1,7 +1,7 @@
 name = "AstroSimBase"
 uuid = "c6a34d98-f626-4d8d-b450-a3f124eaada6"
 authors = ["islent <[email protected]>"]
-version = "0.1.2"
+version = "0.1.3"
 
 [deps]
 Distributed = "8ba89e20-285c-5b6f-9357-94700520ee1b"

src/AstroSimBase.jl

@@ -15,6 +15,9 @@ export randin
 export mkpathIfNotExist
 export need_to_interrupt, interrupt
 
+export findfirstzero, findzero, findfirstvalue, findvalue
+export middle_exp
+
 # Traits
 abstract type LoggingMode end
 struct NormalMode <: LoggingMode end
@@ -85,6 +88,11 @@ function emptyfunction(args...) end
 """
 function emptyfunction(args...) end
 
+"""
+function mkpathIfNotExist(dir)
+
+    If the `dir` does not exist, create the path.
+"""
 function mkpathIfNotExist(dir)
     if !isdir(dir)
         mkpath(dir)
@@ -128,6 +136,53 @@ Generate uniform random number in `[a,b]`. It avoids error from `rand(a:b)` wher
 randin(T, a, b) = T(rand(T) * (b-a) + a)
 randin(a, b) = rand() * (b-a) + a
 
+
+"""
+function findfirstzero(a::AbstractVector)
+
+    find first zero point of discrete value array
+"""
+function findfirstzero(a::AbstractVector)
+	findfirst(!iszero, diff(sign.(a)))
+end
+
+"""
+function findzero(a::AbstractVector)
+    
+    find all zero points (indices of left-hand-side and right-hand-side boundaries) of discrete value array
+"""
+function findzero(a::AbstractVector)
+    findall(!iszero, diff(sign.(a)))
+end
+
+"""
+function findfirstvalue(a::AbstractVector, v)
+
+    find zero point of discrete value array
+"""
+function findfirstvalue(a::AbstractVector, v)
+    findfirstzero(a .- v)
+end
+
+"""
+function findvalue(a::AbstractVector, v)
+
+    find all value points (indices of left-hand-side and right-hand-side boundaries) of discrete value array
+"""
+function findvalue(a::AbstractVector, v)
+    findzero(a .- v)
+end
+
+
+"""
+function middle_exp(a::AbstractVector)
+
+    Find 1/e value ralative to maximum and minimum
+"""
+function middle_exp(a::AbstractVector)
+    (maximum(a) - minimum(a))/exp(1) - minimum(a)
+end
+
 include("precompile.jl")
 
 end # module AstroSimBase

test/runtests.jl

@@ -49,4 +49,25 @@ end
 
     r = randin(2,3)
     @test 2<=r<=3
+
+    @test middle_exp([0,1,exp(1),1,0]) == 1
+
+    ## find functions
+    @test findfirstzero([-1, 0, 1]) == 1
+
+    @test all(
+        findzero([-1, 0, 1, 0, -1]) .== [1, 2, 3, 4]
+    )
+    @test all(
+        findzero([-2, -1, 0, 1, 2]) .== [2, 3]
+    )
+
+    @test findfirstvalue([1,2,3], 2) == 1
+
+    @test all(
+        findvalue([1,2,3,2,1], 2) .== [1, 2, 3, 4]
+    )
+    @test all(
+        findvalue([1,2,3,4,5], 3) .== [2, 3]
+    )
 end