summaryrefslogtreecommitdiff
path: root/lang/dynamo/1.8.7/src/dyn.workfluc
blob: 8016449ec2805aa61594b7f19160d170552d0127 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
NOTE 
NOTE *******************************************************************
NOTE              MODEL OF WORKLOAD FLUCTUATIONS
NOTE *******************************************************************
NOTE              JOHN HENIZE                                  5.11.81 
NOTE *******************************************************************
NOTE 
L    MM.K=MM.J+(DT)*(-MTR.J)              MANPOWER IN MARKETING
N    MM=4  MEN
L    MP.K=MP.J+(DT)*(MTR.J)               MANPOWER IN PRODUCTION
N    MP=6  MEN
NOTE
L    JIP.K=JIP.J+(DT)*(JS.J-JC.J)         JOBS_IN_PROCESS
N    JIP=6 JOBS
A    JM.K=MM.K/MEJ                       JOBS MARKETED
C    MEJ=2  MAN_MONTHS/JOB               MARKETING EFFORT PER JOB
L    JS.K=JS.J+(DT/SD)*(JM.J-JS.J)        JOBS SOLD
N    JS=JM
C    SD=2 MONTH                          SALES DELAY
A    JC.K=MP.K/AJS                       JOBS COMPLETED
C    AJS=8 MAN_MONTH/JOB
NOTE
A    MTR.K=(BA.K+PMA.K)*MTC.K            MANPOWER TRANSFER RATE
A    BA.K=MMJ*(JIP.K-DJIP)               BACKLOG ADJUSTMENT
C    DJIP=6 JOBS                         DESIRED JOBS IN PROCESS
C    MMJ=.15 MEN PER MONTH PER JOB       MEN REALLOCATED PER MONTH PER
NOTE
A    MTC.K=CLIP(MMC.K,PMC.K,BA.K,0)      MANPOWER TRANSFER CONSTRAINT
A    MMC.K=MMR.K                         MARKETING MANPOWER CONSTRAINT
A    MMR.K=MM.K/(MM.K+MP.K)              MARKETING MANPOWER RATIO
A    PMC.K=PMR.K*PMR.K                   PRODUCTION MANPOWER CONSTRAINT
A    PMR.K=MP.K/(MM.K+MP.K)              PRODUCTION MANPOWER RATIO
NOTE
A    PMA.K=SWITCH(0,PMA1.K,SW)           PRODUCTION MANPOWER ADJUSTMENT
C    SW=0
A    PMA1.K=(DMP.K-MP.K)/MAT
A    DMP.K=JS.K*AJS                      DESIRED MANPOWER IN PRODUCTION
C    MAT=10 MONTHS                       MANPOWER ADJUSTMENT TIME
NOTE
C    DT=.2
C    LENGTH=120
C    PLTPER=6
PLOT MM=M,MP=P(0,10)/JIP=J(0,20)