|
18 | 18 | ## --- Add systematic uncertainty when given an already-generated age or age-depth distribution |
19 | 19 |
|
20 | 20 | function add_systematic_uncert_UPb(agedistmyr::Vector{<:AbstractFloat}) |
21 | | - λ238 = val(λ238U) # Jaffey decay constant, 1/Myr |
22 | | - λ238_ = val(λ238U) .+ err(λ238U).*randn(size(agedistmyr))# Jaffey decay with uncertainty 1/Myr |
| 21 | + λ238 = value(λ238U) # Jaffey decay constant, 1/Myr |
| 22 | + λ238_ = value(λ238U) .+ stdev(λ238U).*randn(size(agedistmyr))# Jaffey decay with uncertainty 1/Myr |
23 | 23 | σtracer = 1 .+ (0.03/2/100) .* randn(size(agedistmyr)) # Earthtime tracer uncertainty |
24 | 24 | r = exp.(agedistmyr .* λ238) .- 1 |
25 | 25 | return log.(r .* σtracer .+ 1) ./ λ238_ |
26 | 26 | end |
27 | 27 | function add_systematic_uncert_UPb(agedistmyr::Matrix{<:AbstractFloat}) |
28 | | - λ238 = val(λ238U) # Jaffey decay constant, 1/Myr |
29 | | - λ238_ = val(λ238U) .+ err(λ238U).*randn(1, size(agedistmyr,2)) # Jaffey decay with uncertainty 1/Myr |
| 28 | + λ238 = value(λ238U) # Jaffey decay constant, 1/Myr |
| 29 | + λ238_ = value(λ238U) .+ stdev(λ238U).*randn(1, size(agedistmyr,2)) # Jaffey decay with uncertainty 1/Myr |
30 | 30 | σtracer = 1 .+ (0.03/2/100) .* randn(1, size(agedistmyr,2)) # Earthtime tracer uncertainty |
31 | 31 | r = exp.(agedistmyr .* λ238) .- 1 |
32 | 32 | return log.(r .* σtracer .+ 1) ./ λ238_ |
|
138 | 138 | # Th230ₐ/U238ₐ = 1-exp(-Age*λ230Th) |
139 | 139 | # Th230/U238 = (1-exp(-Age*λ230Th)) * λ238U/λ230Th |
140 | 140 |
|
141 | | - λ238 = val(λ238U) |
142 | | - λ238_ = val(λ238U) .+ err(λ238U).*randn(size(agedistmyr)) |
| 141 | + λ238 = value(λ238U) |
| 142 | + λ238_ = value(λ238U) .+ stdev(λ238U).*randn(size(agedistmyr)) |
143 | 143 |
|
144 | | - λ230 = val(λ230Th) |
145 | | - λ230_ = val(λ230Th) .+ err(λ230Th).*randn(size(agedistmyr)) |
| 144 | + λ230 = value(λ230Th) |
| 145 | + λ230_ = value(λ230Th) .+ stdev(λ230Th).*randn(size(agedistmyr)) |
146 | 146 |
|
147 | 147 | # Convert age distribution to ratio distribution |
148 | 148 | # (i.e., distribution of slope of two-point isochron) |
|
157 | 157 | # Th230ₐ/U238ₐ = 1-exp(-Age*λ230Th) |
158 | 158 | # Th230/U238 = (1-exp(-Age*λ230Th)) * λ238U/λ230Th |
159 | 159 |
|
160 | | - λ238 = val(λ238U) |
161 | | - λ238_ = val(λ238U) .+ err(λ238U).*randn(1, size(agedistmyr,2)) |
| 160 | + λ238 = value(λ238U) |
| 161 | + λ238_ = value(λ238U) .+ stdev(λ238U).*randn(1, size(agedistmyr,2)) |
162 | 162 |
|
163 | | - λ230 = val(λ230Th) |
164 | | - λ230_ = val(λ230Th) .+ err(λ230Th).*randn(1, size(agedistmyr,2)) |
| 163 | + λ230 = value(λ230Th) |
| 164 | + λ230_ = value(λ230Th) .+ stdev(λ230Th).*randn(1, size(agedistmyr,2)) |
165 | 165 |
|
166 | 166 | # Convert age distribution to ratio distribution |
167 | 167 | # (i.e., distribution of slope of two-point isochron) |
|
0 commit comments