* Worker burnout model 
  Copyright 1985 by Jack B. Homer from
     System Dynamics Review 
     1985 p. 60
A  AW.K=AH.K*HWW.K      
    ACCOMPLISHMENTS PER WEEEK (TASKS/WEEK)
A  AH.K=TABLE(TAH,EL.K,0,1,.2)
    ACCOMPLISHMENTS PER HOUR  (TASKS/HOUR) 
T  TAH=0/.2/.4/.6/.8/1
    TABLE FOR ACCOMPLISHMENTS PER HOUR
L  HWW.K=HWW.J+(DT/TAHWW)*(IHWW.J-HWW.J)
N  HWW=HWWI
    HOURS WORKED PER WEEK (HOURS/WEEK) 
C  HWWI=40
    HOURS WORKED PER WEEK INITIAL (HOURS/WEEK) 
C  TAHWW=1
    TIME TO ADJUST HOURS PER WEEK (WEEKS)
A  IHWW.K=MIN(LHWW,HWW.K*EELHW.K*EPAHW.K)
    INDICATED HOURS WORKED PER WEEK (HOURS/WEEK)
C  LHWW=80 
    LIMIT ON HOURS WORKED PER WEEK (HOURS/WEEK) 
A  EELHW.K=TABLE(TEELHW,EL.K,0,1,.2)
    EFFECT OF ENERGY LEVEL ON HOURS WORKED (DIMENSIONLESS)
T  TEELHW=0/.4/.7/.9/1/1
    TABLE FOR EFFECT OF ENERGY LEVELS ON HOURS WORKED 
A  EPAHW.K=TABLE(TEPAHW,PAA.K,0,1.6,.2)
    EFFECT OF PERCEIVED ADEQUASCY OF HOURS WORKED (DIMENSIONLESS)
T  TEPAHW=2.3/1.9/1.6/1.35/1.15/1/.9/.8/.75
    TABLE FOR EFFECT OF PERCEIVED ADEQUACY OF HOURS WORKED 
A  PAA.K=PAW.K/XAW.K
    PERCEIVED ADEQUACY OF ACCOMPLISHMENT (DIMENSIONLESS)
L  PAW.K=PAW.J+(DT/TPAW)*(AW.J-PAW.J)
N  PAW=AW
    PERCEIVED ACCOMPLISHMENTS PER WEEK (TASKS/WEEK)
C  TPAW=1
    TIME TO PERCEIVE ACCOMPLISHMENTS PER WEEK (WEEKS)
L  XAW.K=XAW.J+DT*(XAW.J*FCXAW.J)
N  XAW=XAWI
    EXPECTED ACCOMPLISHMENTS PER WEEK (TASKS/WEEK) 
C  XAWI=40
    EXPECTED ACCOMPLISHMENTS PER WEEK INITIAL (TASKS/WEEK)
A  FCXAW.K=BFCX+FCXPA.K
    FRACTIONAL CHANGE IN EXPECTED ACCOMPLISHMENTS PER WEEK (1/WEEK)
C  BFCX=.1
    BASE FRACTIONAL CHANGE IN EXPECTED ACCOMPLISHMENTS (1/WEEK)
A  FCXPA.K=TABLE(TFCXPA,PAA.K,0,1.6,.2)
    FRACTIONAL CHANGE IN EXPECTATIONS FROM PERCEIVED ADEQUACY (1/WEEK)
T  TFCXPA=-.7/-.5/-.35/-.2/-.1/0/.1/.25/.4
    TABLE FOR FRACTIONAL CHANGE IN EXPECTATIONS FROM PERCEIVED ADEQUACY
L  EL.K=EL.J+DT*(ER.JK-ED.JK)
N  EL=ELI
    ENERGY LEVEL (UMPH)
C  ELI=1
    ENERGY LEVEL INITIAL (UMPH)
R  ER.KL=ERN*EHWER.K*EHEFR.K
    ENERGY RECOVERY (UMPH/WEEK)
C  ERN=.3
    ENERGY RECOVERY NORMAL (UMPH/WEEK)
A  EHWER.K=TABLE(TEHWER,HWW.K,0,120,20)
    EFFECT OF HOURS WORKED ON ENERGY RECOVERY (DIMENSIONLESS)
T  TEHWER=1.3/1.2/1/.7/.5/.35/.25
    TABLE FOR EFFECT OF HOURS WORKED ON ENERGY LEVEL
A  EHEFR.K=TABHL(TEHEFR,EL.K,.8,1,.05)
    EFFECT OF HIGH ENERGY ON FURTHER RECOVERY (DIMENSIONLESS)
T  TEHEFR=1/.9/.7/.4/0
    TABLE FOR EFFECT OF HIGH ENERGY ON FURTHER RECOVERY
R  ED.KL=EDN*EPAED.K*EHWED.K*ELEFD.K
    ENERGY DRAIN (UMPH/WEEK)
C  EDN=.06
    ENERGY DRAIN NORMAL (UMPHH/WEEK)
A  EPAED.K=TABLE(TEPAED,PAA.K,0,1.6,.2)
    EFFECT OF PERCIEVED ADEQUACY ON ENERGY DRAIN (DIMENSIONLESS)
T  TEPAED=5/4/3.1/2.3/1.6/1/.6/.4/.3
    TABLE FOR EFFECT OF PERCEIVED ADEQUACY ON ENRGY DRAIN
A  EHWED.K=TABLE(TEHWED,HWW.K,0,120,20)
    EFFECT OF HOURS WORKED ON ENERGY DRAIN (DIMENSIONLESS)
T  TEHWED=.3/.6/1/1.5/2/2.5/3
    TABLE FOR EFFECT OF HOURS WORKED ON ENERGY DRAIN
A  ELEFD.K=TABHL(TELEFD,EL.K,0,.2,.05)
    EFFECT OF LOW ENERGY ON FURTHER DEPLETION
T  TELEFD=0/.4/.7/.9/1
    TABLE FOR EFFECT OF LOW ENERGY ON FURTHER DEPLETION

*   SUMMARY MEASURES left out

A  AVAWD.K=AD.K/(TIME.K+1E-6)
     AVERAGE ACCOMPLISHMENTS PER WEEK TO DATE (TASKS/WEEK)
L  AD.K=AD.J+DT*AW.J
N  AD=1E-6*AW
    ACCOMPLISHMENTS TO DATE (TASKS)
A  AVHWWD.K=HWD.K/(TIME.K+1E-6)
    AVERAGE HOURS WORKED PER WEEK TO DATE (HOURS/WEEK)
L  HWD.K=HWD.J+DT*HWW.J
N  HWD=1E-6*HWW
    HOURS WORTKED TO DATE (HOURS)          
A  AVAHD.K=AD.K/HWD.K
    AVERAGE ACCOMPLISHMENTS PER HOUR TO DATE (TASKS/HOUR)
SPEC DT=.25/LENGTH=75/SAVPER=1.5