"""
This module contains a number of functions used for calculating
silviculture credits and harvest costs.
"""
PACAL_BROKEN = True
#################################################################################################
# PaCal breaks when trying to import numpy.fft.fftpack (names have changed or some such... yuck).
# Note that this will breaks the folowing functions in this ws3.common
# _sylv_credit_f1
# _sylv_credit_f2
# _sylv_credit_f3
# _sylv_credit_f4
# _sylv_credit_f5
# _sylv_credit_f6
# _sylv_credit_f7
# sylv_cred_rv
# harv_cost_rv
# TO DO:
# Patch PaCal 1.6, maybe using pypatch (as part of the ws3 build process, in setup.py).
# The fix:
# Patch line 29 in pacal/utils.py from
# from numpy.fft.fftpack import fft, ifft
# to
# from numpy.fft import fft, ifft
#
if not PACAL_BROKEN:
import pacal
#################################################################################################
import math
def _sylv_cred_f1(P,
vr,
vp,
rv=False,
C1a=4.511,
C2a=-0.628,
C7d=-0.391,
C8d=1.939,
C15h=3.912,
C16h=-0.0094,
C17i=0.0698,
C18j=9.2529,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = (C1a*vr**C2a-exp(C7d*log(vp)+C8d)+C15h*exp(C16h*P)-C17i*P+C18j)*P*Kmult+Kplus
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
def _sylv_cred_f2(P,
vr,
vp,
rv=False,
C3b=-0.237,
C4b=2.592,
C7d=-0.237,
C8d=2.247,
C11f=4.3546,
C12f=0.34,
C13g=4.3543,
C14g=0.34,
C15h=3.912,
C16h=-0.0094,
C17i=0.0698,
C18j=7.1029,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = ((exp(C3b*log(vr)+C4b)-exp(C7d*log(vp)+C8d)+C11f/vr**C12f-C13g/vp**C14g
+C15h*exp(C16h*P)-C17i*P+C18j)*P*Kmult+Kplus)
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
def _sylv_cred_f3(P,
vr,
vp,
rv=False,
C3b=-0.237,
C4b=2.247,
C7d=-0.237,
C8d=2.247,
C15h=3.912,
C16h=-0.0094,
C17i=0.0698,
C18j=7.1029,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = (exp(C3b*log(vr)+C4b)-exp(C7d*log(vp)+C8d)+C15h*exp(C16h*P)-C17i*P+C18j)*P*Kmult+Kplus
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
def _sylv_cred_f4(P,
vr,
vp,
rv=False,
C3b=-0.237,
C4b=2.592,
C7d=-0.237,
C8d=2.247,
C11f=4.3546,
C12f=0.34,
C13g=4.3546,
C14g=0.34,
C15h=3.912,
C16h=-0.0069,
C17i=0.0517,
C18j=7.1029,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = ((exp(C3b*log(vr)+C4b)-exp(C7d*log(vp)+C8d)+C11f/vr**C12f-C13g/vp**C14g
+C15h*exp(C16h*P)-C17i*P+C18j)*P*Kmult+Kplus)
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
def _sylv_cred_f5(P,
vr,
vp,
rv=False,
C3b=-0.237,
C4b=2.519,
C7d=-0.237,
C8d=2.247,
C11f=4.3546,
C12f=0.34,
C13g=4.3546,
C14g=0.34,
C15h=3.912,
C16h=-0.0069,
C17i=0.0517,
C18j=7.1029,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = ((exp(C3b*log(vr)+C4b)-exp(C7d*log(vp)+C8d)+C11f/vr**C12f-C13g/vp**C14g
+C15h*exp(C16h*P)-C17i*P+C18j)*P*Kmult+Kplus)
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
def _sylv_cred_f6(P,
vr,
vp,
rv=False,
C3b=-0.237,
C4b=2.519,
C5c=-0.391,
C6c=2.017,
C7d=-0.237,
C8d=2.247,
C9e=-0.391,
C10e=1.939,
C11f=4.3546,
C12f=0.34,
C13g=4.3546,
C14g=0.34,
C15h=3.912,
C16h=-0.0069,
C17i=0.0517,
C18j=7.1029,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = (((exp(C3b*log(vr)+C4b)+exp(C5c*log(vr)+C6c)-exp(C7d*log(vp)+C8d)-exp(C9e*log(vp)+C10e))/2
+C11f/vr**C12f-C13g/vp**C14g+C15h*exp(C16h*P)-C17i*P+C18j*P)*Kmult+Kplus)
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
def _sylv_cred_f7(P,
vr,
vp,
rv=False,
C3b=-0.391,
C4b=2.2,
C7d=-0.391,
C8d=1.939,
C15h=3.912,
C16h=-0.0069,
C17i=0.0517,
C18j=7.1029,
Kmult=1.,
Kplus=0.):
exp = pacal.exp if rv else math.exp
log = pacal.log if rv else math.exp
sc = (exp(C3b*log(vr)+C4b)-exp(C7d*log(vp)+C8d)+C15h*exp(C16h*P)-C17i*P+C18j)*P*Kmult+Kplus
if rv:
return sc.mean() # expected value, given random variates
else:
return sc
[docs]
def sylv_cred(P, vr, vp, formula):
"""
This function returns sylviculture credit ($ per hectare).
:param float P: Volume harvested per hectare.
:param float vr: Mean piece size of harvested stems.
:param float vp: mean piece size of stand before harvesting.
:param formula: formula index (1 to 7).
"""
f = {1:_sylv_cred_f1,
2:_sylv_cred_f2,
3:_sylv_cred_f3,
4:_sylv_cred_f4,
5:_sylv_cred_f5,
6:_sylv_cred_f6,
7:_sylv_cred_f7}
return f[formula](P, vr, vp)
[docs]
def sylv_cred_rv(P_mu, P_sigma, tv_mu, tv_sigma, N_mu, N_sigma, psr,
treatment_type=None, cover_type=None, formula=None,
P_min=20., tv_min=50., N_min=200., ps_min=0.05,
E_fromintegral=False, e=0.01, n=1000):
"""
This function returns sylviculture credit ($ per hectare).
:param float P: Volume harvested per hectare.
:param float vr: Mean piece size of harvested stems.
:param float vp: mean piece size of stand before harvesting.
:param formula: formula index (1 to 7).
.. note:: Assumes that variables ``(P, vr, vp)`` are random variates (returns expected value of function, using PaCAL packages to model random variates, assuming normal distribution for all three variables).
Can use either PaCAL numerical integration (sssslow!), or custom numerical integration using Monte Carlo sampling (default).
"""
if treatment_type and cover_type:
formula = sylv_cred_formula(treatment_type, cover_type)
assert formula
# PaCAL overrides the | operator to implement conditional distributions
P = pacal.NormalDistr(P_mu, P_sigma) | pacal.Gt(P_min)
tv = pacal.NormalDistr(tv_mu, tv_sigma) | pacal.Gt(tv_min)
N = pacal.NormalDistr(N_mu, N_sigma) | pacal.Gt(N_min)
vp = (tv / N) | pacal.Gt(ps_min)
#vr = vp + (vp.mean() * (1 - psr))
# truncate again in case psr < 1 (shifts distn to the left)
vr = (vp + (vp.mean() * (psr - 1.))) | pacal.Gt(ps_min)
f = {1:_sylv_cred_f1,
2:_sylv_cred_f2,
3:_sylv_cred_f3,
4:_sylv_cred_f4,
5:_sylv_cred_f5,
6:_sylv_cred_f6,
7:_sylv_cred_f7}
#print ' formula', formula
if E_fromintegral:
# estimate expected value E(f(P, vr, vp)) using PaCAL numerical integration functions (sssssslow!)
E = f[formula](P, vr, vp, rv=True)
else:
# estimate expected value E(f(P, vr, vp)) using Monte Carlo simulation (until convergence to E_tol)
E = 0.
dE = np.inf
i = 1
while dE > e:
args = list(zip(P.rand(n), vr.rand(n), vp.rand(n)))
while len(args) > 0: # process random args in in n-length chunks
_E = E
E = ((i - 1) * E + f[formula](*args.pop())) / i
dE = abs((E - _E) / _E) if _E else np.inf
i += 1
return E
[docs]
def piece_size_ratio(treatment_type, cover_type, piece_size_ratios):
"""
Returns piece size ratio.
Assume Action.is_harvest in [0, 1, 2, 3]
Assume cover_type in ['r', 'm', 'f']
Return vr/vp ratio, where
- vr is mean piece size of harvested stems, and
- vp is mean piece size of stand before harvesting.
"""
if treatment_type in [1, 2, 3] and cover_type in ['r', 'm', 'f']:
if piece_size_ratios:
return piece_size_ratios[treatment_type][cover_type]
else:
return 1.
else:
return 0.
[docs]
def harv_cost(piece_size,
is_finalcut,
is_toleranthw,
partialcut_extracare=False,
A=1.97, B=0.405, C=0.169, D=0.164, E=0.202, F=13.6, G=8.83, K=0.,
rv=False):
"""
Returns harvest cost.
:param float piece_size: Piece size.
:param bool is_finalcut: Treatment type (final cut or not).
:param bool is_toleranthw: Stand type (tolerant hardwood or not).
:param bool partialcut_extracare: Partialcut "extra care" flag.
:param float A: Series of regression coefficients (A, B, C, D, E, F, G, K, all with defaults that are extracted from MERIS technical documentation; also see Sebastien Lacroix, BMMB).
:param bool rv: Types of variables (default Variables are deterministic).
"""
_ifc = float(is_finalcut)
_ith = float(is_toleranthw)
_pce = float(partialcut_extracare)
log = pacal.log if rv else math.log
exp = pacal.exp if rv else math.exp
_exp = A - (B * log(piece_size)) + (C * _pce) + (D * _ifc) - (E * (1 - _ith))
hc = exp(_exp) + ((F * _ith) + (G * (1 - _ith))) + K
if rv:
return hc.mean()
else:
return hc
[docs]
def harv_cost_rv(tv_mu, tv_sigma, N_mu, N_sigma, psr,
is_finalcut,
is_toleranthw,
partialcut_extracare=False,
tv_min=50., N_min=200., ps_min=0.05,
E_fromintegral=False, e=0.01, n=1000):
"""
Returns harvest cost.
:param bool is_finalcut: Treatment type (final cut or not).
:param bool is_toleranthw: Stand type (tolerant hardwood or not).
:param bool partialcut_extracare: Partialcut "extra care" flag.
:param float A: Series of regression coefficients (A, B, C, D, E, F, G, K, all with defaults that are extracted from MERIS technical documentation; also see Sebastien Lacroix, BMMB).
:param bool rv: Types of variables (default Variables random variates).
Can use either PaCAL numerical integration (sssslow!), or custom numerical integration using Monte Carlo sampling (default).
"""
# PaCAL overrides the | operator to implement conditional distributions
tv = pacal.NormalDistr(tv_mu, tv_sigma) | pacal.Gt(tv_min)
N = pacal.NormalDistr(N_mu, N_sigma) | pacal.Gt(N_min)
vp = (tv / N) | pacal.Gt(ps_min)
#vr = vp + (vp.mean() * (1 - psr))
# truncate again in case psr < 1 (shifts distn to the left)
vr = (vp + (vp.mean() * (psr - 1.))) | pacal.Gt(ps_min)
if E_fromintegral:
# estimate expected value E(f(vr)) using PaCAL numerical integration functions (sssssslow!)
E = harv_cost(vr, is_finalcut, is_toleranthw, rv=True)
else:
# estimate expected value E(f(vr)) using Monte Carlo simulation (until convergence to E_tol)
E = 0.
dE = np.inf
i = 1
while dE > e:
args = list(vr.rand(n))
while len(args) > 0: # process random args in in n-length chunks
_E = E
E = ((i - 1) * E + harv_cost(args.pop(), is_finalcut, is_toleranthw)) / i
dE = abs((E - _E) / _E) if _E else np.inf
i += 1
return E
[docs]
def harv_cost_wec(piece_size,
is_finalcut,
is_toleranthw,
sigma,
nsigmas=3,
**kwargs):
"""
Estimate harvest cost with error correction.
:param float piece_size: Mean piece size.
:param bool is_finalcut: True if harvest treatment is final cut, False otherwise.
:param bool is_toleranthw: True if tolerant hardwood cover type, False otherwise.
:param bool sigma: Standard deviation of piece size estimator.
:param int nsigmas: Number of standard deviations to model on either side of the mean (default 3).
:param float binw: Width of bins for weighted numerical integration, in multiples of sigma (default 1.0).
"""
# bin centerpoints
rv = norm(loc=piece_size, scale=sigma)
X = sorted([(piece_size + (sigma * (i - (1. * 0.5)) * sign))
for i in range(1, nsigmas+1) for sign in [-1, +1]])
return sum(harv_cost(x, is_finalcut, is_toleranthw, **kwargs) * sigma * rv.pdf(x) for x in X)