17.9. Questions and Tasks
389
POPULATION ENHANCEMENT
FINANCIAL FLOW
ACCUM_INTEREST_PAY(t) = ACCUM_INTEREST_PAY(t-dt) +
(ANNUAL_INTEREST_COST) * dt
INIT ACCUM_INTEREST_PAY = 0
INFLOWS:
ANNUAL_INTEREST_COST = if DEBT >0 then
DEBT*INTEREST_RATE else 0
ACCUM_OP_COSTS(t) = ACCUM_OP_COSTS(t-dt) +
(ANNUAL_OP_COSTS) * dt
INIT ACCUM_OP_COSTS = 0
INFLOWS:
ANNUAL_OP_COSTS = FISH RAISED*COST PER FISH
ACCUM_PROFITS(t) = ACCUM_PROFITS(t-dt) + (PROFITS) * dt
INIT ACCUM_PROFITS = 0
INFLOWS:
PROFITS = if NET PROFITS >0 then NET_PROFITSANNUAL_PAYMENT else 0
ACCUM_REVENUE(t) = ACCUM_REVENUE(t-dt) +
(ANNUAL_REVENUE) * dt
INIT ACCUM_REVENUE = 0
INFLOWS:
ANNUAL_REVENUE
ACCUM_TAXES(t)
dt
INIT ACCUM_TAXES
PRICE*SUM_CATCH_WT
ACCUM_TAXES(t-dt) + (HATCHERY_TAXES) *
= 0
INFLOWS :
HATCHERY_TAXES = IF (ANNUAL_REVENUE*TAX_RATE) > 1E+007
THEN 1000000 ELSE (ANNUAL_REVENUE*TAX_RATE)
DEBT(t) = DEBT(t-dt) + (NEW_DEBT_LOSSES-ANNUAL_PAYMENT)
* dt
INIT DEBT = INITIAL_LOAN_AMOUNT