:MACRO: CLIP(x1,x2,y1,y2)
CLIP=IF THEN ELSE(x1>x2,y1,y2)
	~	y1
	~		|

:END OF MACRO:
********************************************************
	.Retail
********************************************************~
	|

UOR=INTEG(RRR-SSR,RRI*(DHR+DUR))
	~	units
	~	unfilled orders at retail
	|

IAR=INTEG(SRR-SSR,AIR*RRI)
	~	units
	~	inventory actual at retail
	|

STR=UOR/DFR
	~	units/week
	~	shipping rate to be tried at retail
	|

NIR=IAR/DT
	~	units/week
	~	negative inventory limit rate at retail
	|

SSR=CLIP(STR,NIR,NIR,STR)
	~	units/week
	~	shipments sent from retail
	|

DFR=(MNR/IAR)+DHR
	~	weeks
	~	delay in filling orders at retail
	|

MNR=DUR*IDR
	~	unit*weeks
	~		|

IDR=AIR*RSR
	~	units
	~	inventory desired at retail
	|

RSR=INTEG((1/DRR)*(RRR-RSR),RRR)
	~	units/week
	~	requisitions smoothed at retail
	|

PDR=RRR+(1/DIR)*(IDR-IAR+LDR-LAR+UOR-UNR)
	~	units/week
	~	purchasing rate decision at retail
	|

LDR=RSR*DCR+RSR*DMR+RSR*DFD+RSR*DTR
	~	units
	~	pipeline orders desired in transit to supply retail
	|

LAR=CPR+PMR+UOD+MTR
	~	units
	~	pipeline orders actually in transit to retail
	|

UNR=RSR*(DHR+DUR)
	~	units
	~	normal unfilled orders at retail
	|

CPR=INTEG(PDR-PSR,DCR*RRI)
	~	units
	~	clerical in-process orders at retail
	|

PSR=DELAY3(PDR,DCR)
	~	units/week
	~	purchase orders sent from retail
	|

PMR=INTEG(PSR-RRD,DMR*RRI)
	~	units
	~	purchase orders in mail from retail
	|

RRD=DELAY3(PSR,DMR)
	~	units/week
	~	requisitions received at distributor
	|

MTR=INTEG(SSD-SRR,DTR*RRI)
	~	units
	~	material in transit to retail
	|

SRR=DELAY3(SSD,DTR)
	~	units/week
	~	shipments received at retail
	|

********************************************************
	.Retail.Noise
********************************************************~
		Implements the noise input from Section 15.7.3, not found
		in Appendix B
	|

NSE=SAMPLE IF TRUE(
	Time-INTEGER(Time)<TIME STEP,NSN,NSN)
	~	units/week
	~	sampled noise input
	|

NSH=
	0
	~	units/week
	~	noise amplitude
	|

NSN=
	NSH*RANDOM NORMAL(-6,6,0,1,seed)
	~	units/week
	~	normally distributed noise
	|

seed=
	7459
	~	dmnl
	~	random number seed for noise
	|

********************************************************
	.Distributor
********************************************************~
	|

UOD=INTEG(RRD-SSD,RRI*(DHD+DUD))
	~	units
	~	unfilled orders at distributor
	|

IAD=INTEG(SRD-SSD,AID*RRI)
	~	units
	~	inventory actual at distributor
	|

STD=UOD/DFD
	~	units/week
	~	shipping rate to be tried at distributor
	|

NID=IAD/DT
	~	units/week
	~	negative inventory limit rate at distributor
	|

SSD=CLIP(STD,NID,NID,STD)
	~	units/week
	~	shipments sent from distributor
	|

DFD=(MOD/IAD)+DHD
	~	weeks
	~	delay in filling orders at distributor
	|

MOD=DUD*IDD
	~	unit*weeks
	~		|

IDD=AID*RSD
	~	units
	~	inventory desired at distributor
	|

RSD=INTEG((1/DRD)*(RRD-RSD),RRI)
	~	units/week
	~	requisitions smoothed at distributor
	|

PDD=RRD+(1/DID)*(IDD-IAD+LDD-LAD+UOD-UND)
	~	units/week
	~	purchasing rate decision at distributor
	|

LDD=RSD*DCD+RSD*DMD+RSD*DFF+RSD*DTD
	~	units
	~	pipeline orders desired in transit to supply distributor
	|

LAD=CPD+PMD+UOF+MTD
	~	units
	~	pipeline orders actually in transit to distributor
	|

UND=RSD*(DHD+DUD)
	~	units
	~	normal unfilled orders at distributor
	|

CPD=INTEG(PDD-PSD,DCD*RRI)
	~	units
	~	clerical in-process orders at distributor
	|

PSD=DELAY3(PDD,DCD)
	~	units/week
	~	purchase orders sent from distributor
	|

PMD=INTEG(PSD-RRF,DMD*RRI)
	~	units
	~	purchase orders in mail from distributor
	|

RRF=DELAY3(PSD,DMD)
	~	units/week
	~	requisitions received at factory
	|

MTD=INTEG(SSF-SRD,DTD*RRI)
	~	units
	~	material in transit to distributor
	|

SRD=DELAY3(SSF,DTD)
	~	units/week
	~	shipments received at distributor
	|

********************************************************
	.Factory
********************************************************~
	|

UOF=INTEG(RRF-SSF,RRI*(DHF+DUF))
	~	units
	~	unfilled orders at factory
	|

IAF=INTEG(SRF-SSF,AIF*RRI)
	~	units
	~	inventory actual at factory
	|

STF=UOF/DFF
	~	units/week
	~	shipping rate to be tried at factory
	|

NIF=IAF/DT
	~	units/week
	~	negative inventory limit rate at factory
	|

SSF=CLIP(STF,NIF,NIF,STF)
	~	units/week
	~	shipments sent from factory
	|

DFF=(MPF/IAF)+DHF
	~	weeks
	~	delay in filling orders at factory
	|

MPF=DUF*IDF
	~	weeks*unit
	~		|

IDF=AIF*RSF
	~	units
	~	inventory desired at factory
	|

RSF=INTEG((1/DRF)*(RRF-RSF),RRI)
	~	units/week
	~	requisitions smoothed at factory
	|

MWF=RRF+(1/DIF)*(IDF-IAF+LDF-LAF+UOF-UNF)
	~	units/week
	~	manufacturing rate wanted at factory
	|

MDF=CLIP(MWF,ALF,ALF,MWF)
	~	units/week
	~	manufacturing decision rate at factory
	|

LDF=RSF*(DCF+DPF)
	~	units
	~	pipeline orders desired in transit to supply factory
	|

LAF=CPF+OPF
	~	units
	~	pipeline orders actually in transit to factory
	|

UNF=RSF*(DHF+DUF)
	~	units
	~	normal unfilled orders at factory
	|

CPF=INTEG(MDF-MOF,DCF*RRI)
	~	units
	~	clerical in-process orders at factory
	|

MOF=DELAY3(MDF,DCF)
	~	units/week
	~	manufacturing orders into factory
	|

OPF=INTEG(MOF-SRF,DPF*RRI)
	~	units
	~	orers in production at factory
	|

SRF=DELAY3(MOF,DPF)
	~	units/week
	~	shipments received at factory
	|

********************************************************
	.Parameters
********************************************************~
	|

AID=6
	~	weeks
	~	desired inventory coverage at distributor
	|

AIF=4
	~	weeks
	~	desired inventory coverage at factory
	|

AIR=8
	~	weeks
	~	desired inventory coverage at retail
	|

ALF=1000*RRI
	~	units/week
	~	manufacturing capacity limit at factory
	|

DCD=2
	~	weeks
	~	delay in clerical order processing at distributor
	|

DCF=1
	~	weeks
	~	delay in clerical order processing at factory
	|

DCR=3
	~	weeks
	~	delay in clerical order processing at retail
	|

DHD=1
	~	week
	~	delay due to minimum handling time at distributor
	|

DHF=1
	~	week
	~	delay due to minimum handling time at factory
	|

DHR=1
	~	week
	~	delay due to minimum handling time at retail
	|

DID=4
	~	weeks
	~	delay in inventory (and pipeline) adjustment at distributor
	|

DIF=4
	~	weeks
	~	delay in inventory (and pipeline) adjustment at factory
	|

DIR=4
	~	weeks
	~	delay in inventory (and pipeline) adjustment at retail
	|

DMD=0.5
	~	week
	~	delay in order mailing from distributor
	|

DMR=0.5
	~	week
	~	delay in order mailing from retail
	|

DRD=8
	~	weeks
	~	delay in smoothing requisitions at distributor
	|

DRF=8
	~	weeks
	~	delay in smoothing requisitions at factory
	|

DRR=8
	~	weeks
	~	delay in smoothing requisitions at retail
	|

DPF=6
	~	weeks
	~	delay in production lead time at factory
	|

DTD=2
	~	weeks
	~	delay in transportation of goods to distributor
	|

DTR=1
	~	week
	~	delay in transportation of goods to retail
	|

DUD=0.6
	~	week
	~	delay in unfilled orders due to out-of-stock items with normal inventory \
		at distributor
	|

DUF=1
	~	week
	~	delay in unfilled orders due to out-of-stock items with normal inventory \
		at factory
	|

DUR=0.4
	~	week
	~	delay in unfilled orders due to out-of-stock items with normal inventory \
		at retail
	|

********************************************************
	.Test
********************************************************~
	|

RRR=RRI+RCR
	~	units/week
	~	requisitions received at retail
	|

RCR=
	STP+SNE
	{Note: the following term adds the noise in Section 15.7.3, which is not included in
	the model listing in Appendix B}
	+NSE
	~	units/week
	~	requisition change at retail
	|

STP=STEP(STH,STT)
	~	units/week
	~	step test input
	|

SNE=SIH*SIN(2*PI*Time/PER)
	~	units/week
	~	sinusoidal test input
	|

PER=52
	~	weeks
	~	period
	|

RRI=1000
	~	units/week
	~	retail requisitions, initial rate
	|

SIH=0
	~	units/week
	~	sinusoidal input amplitude
	|

STH=0
	~	units/week
	~		|

STT=4
	~	week
	~	step input time
	|

PI=3.14159
	~	dmnl
	~		|

********************************************************
	.Supplementary
********************************************************~
	|

TIS=IAR+IAD+IAF
	~	units
	~	total system inventory
	~	:SUPPLEMENTARY 
	|

********************************************************
	.Control
********************************************************~
		Simulation Control Paramaters
	|

DT= TIME STEP
	~	week
	~	delta time (same as time step)
	|

FINAL TIME  = 100
	~	week
	~	The final time for the simulation.
	|

INITIAL TIME  = 0
	~	week
	~	The initial time for the simulation.
	|

SAVEPER  = 
        TIME STEP
	~	week
	~	The frequency with which output is stored.
	|

TIME STEP  = 0.05
	~	week
	~	The time step for the simulation.
	|

\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Title
$0-0-0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1|96,96
12,1,0,360,120,110,11,0,4,0,18,-1,0,0,0,0-0-0,0-0-0,|12|B|0-0-255
Industrial Dynamics, Chapter 15
12,2,0,360,160,240,11,0,4,0,0,-1,0,0,0
Jay W. Forrester (1961) Industrial Dynamics. Portland, OR: Productivity Press
12,3,0,360,200,238,11,0,4,0,0,-1,0,0,0
Replicated in Vensim by Tom Fiddaman, Ventana Systems, tom@vensim.com
\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Retail, Fig. 15-14
$0-0-0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1|96,96
10,1,MTR,90,200,40,20,3,3,0,0,-1,0,0,0
10,2,SSD,90,98,26,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
1,3,2,1,0,0,0,0,0,0,0,-1--1--1,,1|(90,138)|
10,4,IAR,93,501,40,20,3,3,0,0,-1,0,0,0
10,5,SSR,150,590,16,11,0,3,0,0,-1,0,0,0
10,6,NIR,170,540,16,11,0,3,0,0,-1,0,0,0
1,7,6,5,1,0,0,0,0,0,0,-1--1--1,,1|(170,563)|
10,8,STR,290,550,16,11,0,3,0,0,-1,0,0,0
1,9,8,5,1,0,0,0,0,0,0,-1--1--1,,1|(235,573)|
10,10,DT,230,510,21,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,11,10,6,0,0,0,0,0,0,0,-1--1--1,,1|(203,522)|
1,12,4,6,1,0,0,0,0,0,0,-1--1--1,,1|(150,519)|
10,13,DFR,270,460,17,11,0,3,0,0,-1,0,0,0
1,14,13,8,1,0,0,0,0,0,0,-1--1--1,,1|(287,496)|
10,15,UOR,520,580,40,20,3,3,0,0,-1,0,0,0
1,16,15,8,1,0,0,0,0,0,0,-1--1--1,,1|(397,553)|
10,17,DHR,240,420,18,11,0,3,0,0,-1,0,0,0
1,18,17,13,0,0,0,0,0,0,0,-1--1--1,,1|(250,434)|
1,19,4,13,1,0,0,0,0,0,0,-1--1--1,,1|(186,466)|
10,20,MNR,350,460,20,11,0,3,0,0,-1,0,0,0
1,21,20,13,0,0,0,0,0,0,0,-1--1--1,,1|(315,460)|
10,22,DUR,300,420,18,11,0,3,0,0,-1,0,0,0
1,23,22,20,0,0,0,0,0,0,0,-1--1--1,,1|(318,435)|
10,24,IDR,420,460,15,11,0,3,0,0,-1,0,0,0
1,25,24,20,0,0,0,0,0,0,0,-1--1--1,,1|(394,460)|
10,26,AIR,420,510,15,11,0,3,0,0,-1,0,0,0
1,27,26,24,0,0,0,0,0,0,0,-1--1--1,,1|(420,492)|
10,28,RSR,570,430,40,20,3,3,0,0,-1,0,0,0
1,29,28,24,1,0,0,0,0,0,0,-1--1--1,,1|(486,456)|
10,30,DRR,540,380,18,11,0,3,0,0,-1,0,0,0
1,31,30,28,0,0,0,0,0,0,0,-1--1--1,,1|(548,394)|
1,32,78,28,1,0,0,0,0,0,0,-1--1--1,,1|(610,544)|
10,33,DTR,201,310,17,11,0,3,0,0,-1,0,0,0
1,34,33,98,0,0,0,0,0,0,0,-1--1--1,,1|(166,326)|
10,35,LAR,270,200,17,11,0,3,0,0,-1,0,0,0
10,36,CPR,431,258,40,20,3,3,0,0,-1,0,0,0
1,37,36,35,0,0,0,0,0,0,0,-1--1--1,,1|(345,228)|
1,38,1,35,0,0,0,0,0,0,0,-1--1--1,,1|(184,200)|
10,39,PMR,432,153,40,20,3,3,0,0,-1,0,0,0
1,40,39,35,0,0,0,0,0,0,0,-1--1--1,,1|(346,178)|
10,41,UOD,270,98,28,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
1,42,41,35,0,0,0,0,0,0,0,-1--1--1,,1|(270,142)|
10,43,DCR,510,218,18,11,0,3,0,0,-1,0,0,0
1,44,43,90,0,0,0,0,0,0,0,-1--1--1,,1|(486,214)|
10,45,DIR,341,320,15,11,0,3,0,0,-1,0,0,0
1,46,45,92,0,0,0,0,0,0,0,-1--1--1,,1|(367,327)|
1,47,4,92,1,0,0,0,0,0,0,-1--1--1,,1|(172,399)|
1,48,24,92,1,0,0,0,0,0,0,-1--1--1,,1|(399,403)|
1,49,35,92,0,0,0,0,0,0,0,-1--1--1,,1|(335,266)|
10,50,LDR,571,330,17,11,0,3,0,0,-1,0,0,0
10,51,UNR,290,370,19,11,0,3,0,0,-1,0,0,0
1,52,51,92,0,0,0,0,0,0,0,-1--1--1,,1|(344,356)|
1,53,15,92,1,0,0,0,0,0,0,-1--1--1,,1|(453,470)|
1,54,17,51,0,0,0,0,0,0,0,-1--1--1,,1|(260,399)|
1,55,22,51,0,0,0,0,0,0,0,-1--1--1,,1|(296,401)|
1,56,28,51,1,0,0,0,0,0,0,-1--1--1,,1|(418,417)|
1,57,43,50,0,0,0,0,0,0,0,-1--1--1,,1|(536,268)|
10,58,DFD,570,98,27,11,0,2,0,2,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
1,59,58,50,0,0,0,0,0,0,0,-1--1--1,,1|(570,207)|
10,60,DMR,530,178,20,11,0,3,0,0,-1,0,0,0
1,61,60,50,0,0,0,0,0,0,0,-1--1--1,,1|(548,248)|
1,62,33,50,1,0,0,0,0,0,0,-1--1--1,,1|(372,302)|
1,63,28,50,0,0,0,0,0,0,0,-1--1--1,,1|(570,382)|
12,64,48,90,700,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||0-0-255
11,65,48,91,571,8,6,1,3,0,0,1,0,0,0
1,66,65,64,4,0,0,22,0,0,0,-1--1--1,,1|(91,634)|
1,67,65,4,100,0,0,22,0,0,0,-1--1--1,,1|(91,543)|
12,68,48,380,640,8,8,0,3,0,0,-1,0,0,0
11,69,48,380,600,8,6,1,3,0,0,1,0,0,0
1,70,69,68,4,0,0,22,0,0,0,-1--1--1,,1|(380,619)|
1,71,69,15,100,0,0,22,0,0,0,-1--1--1,,1|(380,580)|
1,72,5,69,1,0,0,0,0,64,0,-1--1--1,,1|(255,600)|
1,73,5,65,1,0,0,0,0,64,0,-1--1--1,,1|(117,587)|
12,74,48,590,700,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||0-0-255
1,75,77,15,4,0,0,22,0,0,0,-1--1--1,,1|(590,580)|
1,76,77,74,100,0,0,22,0,0,0,-1--1--1,,1|(590,669)|
11,77,48,590,640,8,6,33,3,0,0,4,0,0,0
10,78,RRR,617,640,26,11,32,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||0-0-255
12,79,48,433,383,8,8,0,3,0,0,-1,0,0,0
1,80,91,36,4,0,0,22,0,0,0,-1--1--1,,1|(435,306)|
1,81,91,79,100,0,0,22,0,0,0,-1--1--1,,1|(435,360)|
1,82,89,39,4,0,0,22,0,0,0,-1--1--1,,1|(431,186)|
1,83,89,36,100,0,0,22,0,0,0,-1--1--1,,1|(431,225)|
12,84,48,430,48,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||255-0-0
1,85,87,84,4,0,0,22,0,0,0,-1--1--1,,1|(430,74)|
1,86,87,39,100,0,0,22,0,0,0,-1--1--1,,1|(430,119)|
11,87,48,430,98,8,6,33,3,0,0,4,0,0,0
10,88,RRD,458,98,27,11,32,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
11,89,828,431,205,8,6,33,3,0,0,4,0,0,0
10,90,PSR,451,205,16,11,32,3,0,0,-1,0,0,0
11,91,796,435,340,8,6,33,3,0,0,2,0,0,0
10,92,PDR,410,340,17,11,32,3,0,0,2,0,0,0
1,93,91,90,1,0,0,0,0,64,0,-1--1--1,,1|(482,267)|
1,94,50,91,1,0,0,0,0,64,0,-1--1--1,,1|(497,352)|
1,95,97,4,4,0,0,22,0,0,0,-1--1--1,,1|(95,418)|
1,96,97,1,100,0,0,22,0,0,0,-1--1--1,,1|(95,282)|
11,97,588,95,350,8,6,33,3,0,0,4,0,0,0
10,98,SRR,120,350,17,11,32,3,0,0,-1,0,0,0
1,99,2,97,1,0,0,0,0,64,0,-1--1--1,,1|(36,191)|
1,100,78,91,1,0,0,0,0,64,0,-1--1--1,,1|(537,468)|
\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Distributor, Fig. 15-15
$0-0-0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1|96,96
10,1,MTD,90,210,40,20,3,3,0,0,-1,0,0,0
10,2,SSF,90,108,25,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
1,3,2,1,0,0,0,0,0,0,0,-1--1--1,,1|(90,147)|
10,4,IAD,93,511,40,20,3,3,0,0,-1,0,0,0
10,5,SSD,150,600,17,11,0,3,0,0,-1,0,0,0
10,6,NID,170,550,16,11,0,3,0,0,-1,0,0,0
1,7,6,5,1,0,0,0,0,0,0,-1--1--1,,1|(170,573)|
10,8,STD,290,560,17,11,0,3,0,0,-1,0,0,0
1,9,8,5,1,0,0,0,0,0,0,-1--1--1,,1|(235,583)|
10,10,DT,230,520,21,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,11,10,6,0,0,0,0,0,0,0,-1--1--1,,1|(203,532)|
1,12,4,6,1,0,0,0,0,0,0,-1--1--1,,1|(150,529)|
10,13,DFD,270,470,18,11,0,3,0,0,-1,0,0,0
1,14,13,8,1,0,0,0,0,0,0,-1--1--1,,1|(287,506)|
10,15,UOD,520,590,40,20,3,3,0,0,-1,0,0,0
1,16,15,8,1,0,0,0,0,0,0,-1--1--1,,1|(397,563)|
10,17,DHD,240,430,19,11,0,3,0,0,-1,0,0,0
1,18,17,13,0,0,0,0,0,0,0,-1--1--1,,1|(250,444)|
1,19,4,13,1,0,0,0,0,0,0,-1--1--1,,1|(186,476)|
10,20,DUD,300,430,19,11,0,3,0,0,-1,0,0,0
10,21,IDD,420,470,16,11,0,3,0,0,-1,0,0,0
10,22,AID,420,520,16,11,0,3,0,0,-1,0,0,0
1,23,22,21,0,0,0,0,0,0,0,-1--1--1,,1|(420,502)|
10,24,RSD,570,440,40,20,3,3,0,0,-1,0,0,0
1,25,24,21,1,0,0,0,0,0,0,-1--1--1,,1|(486,466)|
10,26,DRD,540,390,18,11,0,3,0,0,-1,0,0,0
1,27,26,24,0,0,0,0,0,0,0,-1--1--1,,1|(548,404)|
1,28,74,24,1,0,0,0,0,0,0,-1--1--1,,1|(610,554)|
10,29,DTD,201,320,18,11,0,3,0,0,-1,0,0,0
1,30,29,94,0,0,0,0,0,0,0,-1--1--1,,1|(166,336)|
10,31,LAD,270,210,18,11,0,3,0,0,-1,0,0,0
10,32,CPD,431,268,40,20,3,3,0,0,-1,0,0,0
1,33,32,31,0,0,0,0,0,0,0,-1--1--1,,1|(346,237)|
1,34,1,31,0,0,0,0,0,0,0,-1--1--1,,1|(184,210)|
10,35,PMD,432,163,40,20,3,3,0,0,-1,0,0,0
1,36,35,31,0,0,0,0,0,0,0,-1--1--1,,1|(346,187)|
10,37,UOF,270,108,27,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
1,38,37,31,0,0,0,0,0,0,0,-1--1--1,,1|(270,152)|
10,39,DCD,510,228,19,11,0,3,0,0,-1,0,0,0
1,40,39,86,0,0,0,0,0,0,0,-1--1--1,,1|(486,222)|
10,41,DID,341,330,16,11,0,3,0,0,-1,0,0,0
1,42,41,88,0,0,0,0,0,0,0,-1--1--1,,1|(367,337)|
1,43,4,88,1,0,0,0,0,0,0,-1--1--1,,1|(172,409)|
1,44,21,88,1,0,0,0,0,0,0,-1--1--1,,1|(399,413)|
1,45,31,88,0,0,0,0,0,0,0,-1--1--1,,1|(335,275)|
10,46,LDD,571,340,18,11,0,3,0,0,-1,0,0,0
10,47,UND,290,380,19,11,0,3,0,0,-1,0,0,0
1,48,47,88,0,0,0,0,0,0,0,-1--1--1,,1|(343,366)|
1,49,15,88,1,0,0,0,0,0,0,-1--1--1,,1|(453,480)|
1,50,17,47,0,0,0,0,0,0,0,-1--1--1,,1|(260,409)|
1,51,20,47,0,0,0,0,0,0,0,-1--1--1,,1|(296,411)|
1,52,24,47,1,0,0,0,0,0,0,-1--1--1,,1|(418,427)|
1,53,39,46,0,0,0,0,0,0,0,-1--1--1,,1|(536,277)|
10,54,DFF,570,108,26,11,0,2,0,2,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
1,55,54,46,0,0,0,0,0,0,0,-1--1--1,,1|(570,217)|
10,56,DMD,530,188,20,11,0,3,0,0,-1,0,0,0
1,57,56,46,0,0,0,0,0,0,0,-1--1--1,,1|(548,257)|
1,58,29,46,1,0,0,0,0,0,0,-1--1--1,,1|(372,312)|
1,59,24,46,0,0,0,0,0,0,0,-1--1--1,,1|(570,392)|
12,60,48,90,710,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||0-0-255
11,61,48,91,581,8,6,1,3,0,0,1,0,0,0
1,62,61,60,4,0,0,22,0,0,0,-1--1--1,,1|(91,644)|
1,63,61,4,100,0,0,22,0,0,0,-1--1--1,,1|(91,553)|
12,64,48,380,650,8,8,0,3,0,0,-1,0,0,0
11,65,48,380,610,8,6,1,3,0,0,1,0,0,0
1,66,65,64,4,0,0,22,0,0,0,-1--1--1,,1|(380,629)|
1,67,65,15,100,0,0,22,0,0,0,-1--1--1,,1|(380,590)|
1,68,5,65,1,0,0,0,0,64,0,-1--1--1,,1|(255,610)|
1,69,5,61,1,0,0,0,0,64,0,-1--1--1,,1|(117,597)|
12,70,48,590,710,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||0-0-255
1,71,73,15,4,0,0,22,0,0,0,-1--1--1,,1|(590,590)|
1,72,73,70,100,0,0,22,0,0,0,-1--1--1,,1|(590,679)|
11,73,48,590,650,8,6,33,3,0,0,4,0,0,0
10,74,RRD,617,650,27,11,32,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||0-0-255
12,75,48,433,393,8,8,0,3,0,0,-1,0,0,0
1,76,87,32,4,0,0,22,0,0,0,-1--1--1,,1|(435,316)|
1,77,87,75,100,0,0,22,0,0,0,-1--1--1,,1|(435,370)|
1,78,85,35,4,0,0,22,0,0,0,-1--1--1,,1|(431,196)|
1,79,85,32,100,0,0,22,0,0,0,-1--1--1,,1|(431,234)|
12,80,48,430,58,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||255-0-0
1,81,83,80,4,0,0,22,0,0,0,-1--1--1,,1|(430,84)|
1,82,83,35,100,0,0,22,0,0,0,-1--1--1,,1|(430,128)|
11,83,48,430,108,8,6,33,3,0,0,4,0,0,0
10,84,RRF,458,108,26,11,32,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||255-0-0
11,85,1404,431,215,8,6,33,3,0,0,4,0,0,0
10,86,PSD,451,215,17,11,32,3,0,0,-1,0,0,0
11,87,1388,435,350,8,6,33,3,0,0,2,0,0,0
10,88,PDD,410,350,18,11,32,3,0,0,2,0,0,0
1,89,87,86,1,0,0,0,0,64,0,-1--1--1,,1|(482,277)|
1,90,46,87,1,0,0,0,0,64,0,-1--1--1,,1|(497,362)|
1,91,93,4,4,0,0,22,0,0,0,-1--1--1,,1|(95,428)|
1,92,93,1,100,0,0,22,0,0,0,-1--1--1,,1|(95,292)|
11,93,1180,95,360,8,6,33,3,0,0,4,0,0,0
10,94,SRD,120,360,17,11,32,3,0,0,-1,0,0,0
1,95,2,93,1,0,0,0,0,64,0,-1--1--1,,1|(36,201)|
1,96,74,87,1,0,0,0,0,64,0,-1--1--1,,1|(537,478)|
10,97,MOD,340,470,21,11,0,3,0,0,-1,0,0,0
1,98,97,13,0,0,0,0,0,0,0,-1--1--1,,1|(310,470)|
1,99,20,97,0,0,0,0,0,0,0,-1--1--1,,1|(315,445)|
1,100,21,97,0,0,0,0,0,0,0,-1--1--1,,1|(389,470)|
\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Factory, Fig. 15-16
$0-0-0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1|96,96
10,1,IAF,123,521,40,20,3,3,0,0,-1,0,0,0
10,2,SSF,180,610,16,11,0,3,0,0,-1,0,0,0
10,3,NIF,200,560,15,11,0,3,0,0,-1,0,0,0
1,4,3,2,1,0,0,0,0,0,0,-1--1--1,,1|(200,583)|
10,5,STF,320,570,16,11,0,3,0,0,-1,0,0,0
1,6,5,2,1,0,0,0,0,0,0,-1--1--1,,1|(265,593)|
10,7,DT,260,530,21,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,8,7,3,0,0,0,0,0,0,0,-1--1--1,,1|(233,542)|
1,9,1,3,1,0,0,0,0,0,0,-1--1--1,,1|(180,539)|
10,10,DFF,300,480,17,11,0,3,0,0,-1,0,0,0
1,11,10,5,1,0,0,0,0,0,0,-1--1--1,,1|(317,516)|
10,12,UOF,550,600,40,20,3,3,0,0,-1,0,0,0
1,13,12,5,1,0,0,0,0,0,0,-1--1--1,,1|(427,573)|
10,14,DHF,270,440,18,11,0,3,0,0,-1,0,0,0
1,15,14,10,0,0,0,0,0,0,0,-1--1--1,,1|(280,454)|
1,16,1,10,1,0,0,0,0,0,0,-1--1--1,,1|(216,486)|
10,17,DUF,330,440,18,11,0,3,0,0,-1,0,0,0
10,18,IDF,450,480,15,11,0,3,0,0,-1,0,0,0
10,19,AIF,450,530,15,11,0,3,0,0,-1,0,0,0
1,20,19,18,0,0,0,0,0,0,0,-1--1--1,,1|(450,512)|
10,21,RSF,600,450,40,20,3,3,0,0,-1,0,0,0
1,22,21,18,1,0,0,0,0,0,0,-1--1--1,,1|(516,476)|
10,23,DRF,550,390,17,11,0,3,0,0,-1,0,0,0
1,24,23,21,0,0,0,0,0,0,0,-1--1--1,,1|(566,410)|
1,25,52,21,1,0,0,0,0,0,0,-1--1--1,,1|(640,564)|
10,26,LAF,340,270,17,11,0,3,0,0,-1,0,0,0
10,27,CPF,460,230,40,20,3,3,0,0,-1,0,0,0
1,28,27,26,0,0,0,0,0,0,0,-1--1--1,,1|(395,251)|
10,29,DCF,490,100,18,11,0,3,0,0,-1,0,0,0
10,30,DIF,320,350,15,11,0,3,0,0,-1,0,0,0
10,31,LDF,600,150,17,11,0,3,0,0,-1,0,0,0
10,32,UNF,320,390,18,11,0,3,0,0,-1,0,0,0
1,33,14,32,0,0,0,0,0,0,0,-1--1--1,,1|(290,419)|
1,34,17,32,0,0,0,0,0,0,0,-1--1--1,,1|(326,421)|
1,35,21,32,1,0,0,0,0,0,0,-1--1--1,,1|(448,437)|
1,36,29,31,1,0,0,0,0,0,0,-1--1--1,,1|(530,109)|
1,37,21,31,0,0,0,0,0,0,0,-1--1--1,,1|(600,302)|
12,38,48,120,720,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||0-0-255
11,39,48,121,591,8,6,1,3,0,0,1,0,0,0
1,40,39,38,4,0,0,22,0,0,0,-1--1--1,,1|(121,654)|
1,41,39,1,100,0,0,22,0,0,0,-1--1--1,,1|(121,563)|
12,42,48,410,660,8,8,0,3,0,0,-1,0,0,0
11,43,48,410,620,8,6,1,3,0,0,1,0,0,0
1,44,43,42,4,0,0,22,0,0,0,-1--1--1,,1|(410,639)|
1,45,43,12,100,0,0,22,0,0,0,-1--1--1,,1|(410,600)|
1,46,2,43,1,0,0,0,0,64,0,-1--1--1,,1|(285,620)|
1,47,2,39,1,0,0,0,0,64,0,-1--1--1,,1|(147,607)|
12,48,48,620,720,8,8,0,3,0,2,-1,0,0,0,0-0-0,0-0-0,|12||0-0-255
1,49,51,12,4,0,0,22,0,0,0,-1--1--1,,1|(620,600)|
1,50,51,48,100,0,0,22,0,0,0,-1--1--1,,1|(620,689)|
11,51,48,620,660,8,6,33,3,0,0,4,0,0,0
10,52,RRF,647,660,26,11,32,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||0-0-255
1,53,54,1,4,0,0,22,0,0,0,-1--1--1,,1|(125,438)|
11,54,1404,125,370,8,6,33,3,0,0,4,0,0,0
10,55,SRF,150,370,16,11,32,3,0,0,-1,0,0,0
10,56,MPF,380,480,18,11,0,3,0,0,-1,0,0,0
1,57,56,10,0,0,0,0,0,0,0,-1--1--1,,1|(346,480)|
10,58,OPF,280,140,40,20,3,3,0,0,-1,0,0,0
1,59,58,26,0,0,0,0,0,0,0,-1--1--1,,1|(308,203)|
1,60,61,31,1,0,0,0,0,0,0,-1--1--1,,1|(447,50)|
10,61,DPF,180,40,17,11,0,3,0,0,-1,0,0,0
1,62,61,54,1,0,0,0,0,0,0,-1--1--1,,1|(37,206)|
1,63,29,76,1,0,0,0,0,0,0,-1--1--1,,1|(428,109)|
12,64,48,460,360,8,8,0,3,0,0,-1,0,0,0
1,65,67,27,4,0,0,22,0,0,0,-1--1--1,,1|(460,277)|
1,66,67,64,100,0,0,22,0,0,0,-1--1--1,,1|(460,334)|
11,67,48,460,310,8,6,33,3,0,0,4,0,0,0
10,68,MDF,487,310,19,11,32,3,0,0,-1,0,0,0
10,69,ALF,390,310,26,11,0,2,0,2,-1,0,0,0,0-0-0,0-0-0,|12||128-128-128
1,70,69,67,0,0,0,0,0,0,0,-1--1--1,,1|(427,310)|
10,71,MWF,400,390,21,11,0,3,0,0,-1,0,0,0
1,72,71,67,0,0,0,0,0,0,0,-1--1--1,,1|(427,353)|
1,73,54,58,36,0,0,22,0,64,0,-1--1--1,,3|(125,144)|(125,144)|(182,144)|
1,74,76,58,4,0,0,22,0,0,0,-1--1--1,,1|(352,140)|
1,75,76,27,100,0,0,22,0,0,0,-1--1--1,,1|(460,140)|
11,76,1628,390,140,6,8,34,3,0,0,1,0,0,0
10,77,MOF,390,159,20,11,32,3,0,0,-1,0,0,0
1,78,17,56,0,0,0,0,0,0,0,-1--1--1,,1|(348,455)|
1,79,18,56,0,0,0,0,0,0,0,-1--1--1,,1|(423,480)|
1,80,30,71,0,0,0,0,0,0,0,-1--1--1,,1|(350,364)|
1,81,1,71,1,0,0,0,0,0,0,-1--1--1,,1|(203,415)|
1,82,18,71,0,0,0,0,0,0,0,-1--1--1,,1|(428,441)|
1,83,26,71,1,0,0,0,0,0,0,-1--1--1,,1|(357,320)|
1,84,31,71,1,0,0,0,0,0,0,-1--1--1,,1|(544,323)|
1,85,52,71,1,0,0,0,0,0,0,-1--1--1,,1|(587,520)|
1,86,32,71,0,0,0,0,0,0,0,-1--1--1,,1|(351,390)|
1,87,12,71,1,0,0,0,0,0,0,-1--1--1,,1|(509,493)|
1,88,76,54,1,0,0,0,0,64,0,-1--1--1,,1|(162,94)|
1,89,68,76,1,0,0,0,0,64,0,-1--1--1,,1|(536,204)|
\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Test Inputs
$0-0-0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1|96,96
10,1,RRR,251,95,17,11,0,3,0,0,-1,0,0,0
10,2,RCR,311,155,18,11,0,3,0,0,-1,0,0,0
1,3,2,1,0,0,0,0,0,0,0,-1--1--1,,1|(285,129)|
10,4,RRI,213,157,15,11,0,3,0,0,-1,0,0,0
1,5,4,1,0,0,0,0,0,0,0,-1--1--1,,1|(227,131)|
10,6,SNE,310,220,17,11,0,3,0,0,-1,0,0,0
1,7,6,2,0,0,0,0,0,0,0,-1--1--1,,1|(310,194)|
10,8,STP,160,220,16,11,0,3,0,0,-1,0,0,0
1,9,8,2,0,0,0,0,0,0,0,-1--1--1,,1|(228,190)|
10,10,STH,157,276,17,11,0,3,0,0,-1,0,0,0
1,11,10,8,0,0,0,0,0,0,0,-1--1--1,,1|(157,254)|
10,12,STT,107,276,16,11,0,3,0,0,-1,0,0,0
1,13,12,8,0,0,0,0,0,0,0,-1--1--1,,1|(128,253)|
10,14,PER,347,276,16,11,0,3,0,0,-1,0,0,0
1,15,14,6,0,0,0,0,0,0,0,-1--1--1,,1|(332,253)|
10,16,PI,217,276,9,11,0,3,0,0,-1,0,0,0
1,17,16,6,0,0,0,0,0,0,0,-1--1--1,,1|(253,254)|
10,18,SIH,277,276,15,11,0,3,0,0,-1,0,0,0
1,19,18,6,0,0,0,0,0,0,0,-1--1--1,,1|(289,254)|
10,20,Time,417,276,26,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,21,20,6,1,0,0,0,0,0,0,-1--1--1,,1|(370,250)|
10,22,NSE,530,220,17,11,0,3,0,0,-1,0,0,0
1,23,22,2,0,0,0,0,0,0,0,-1--1--1,,1|(427,189)|
10,24,NSN,510,280,19,11,0,3,0,0,-1,0,0,0
1,25,24,22,0,0,0,0,0,0,0,-1--1--1,,1|(517,256)|
10,26,Time,580,280,26,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,27,26,22,0,0,0,0,0,0,0,-1--1--1,,1|(559,255)|
10,28,seed,480,340,16,11,0,3,0,0,-1,0,0,0
1,29,28,24,0,0,0,0,0,0,0,-1--1--1,,1|(491,316)|
10,30,TIME STEP,670,280,50,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,31,30,22,0,0,0,0,0,0,0,-1--1--1,,1|(602,250)|
10,32,NSH,540,340,18,11,0,3,0,0,-1,0,0,0
1,33,32,24,0,0,0,0,0,0,0,-1--1--1,,1|(528,316)|
///---\\\
:GRAPH INVENTORY
:TITLE Inventory
:X-DIV 4
:Y-DIV 4
:SCALE
:VAR IAD
:VAR IAF
:VAR IAR
:GRAPH BACKLOG
:TITLE Backlog
:X-DIV 4
:Y-DIV 4
:SCALE
:VAR UOD
:VAR UOF
:VAR UOR
:GRAPH ORDERS
:TITLE Orders
:SCALE
:VAR RRD
:VAR RRF
:VAR RRR
:VAR SRF
:VAR MOF
:L<%^E!@
9:noiseoff
22:$,Dollar,Dollars,$s
22:Day,Days
22:Hour,Hours
22:Month,Months
22:Person,People,Persons
22:Unit,Units
22:Week,Weeks
22:Year,Years
15:0,1,0,0,0,0
19:100,0
27:0,
5:IAF
24:0
25:0
26:0