(*<pre>*)
(*
          Section 1: Header

This is a Mathematica notebook file. This file is created
 for Steven O. Kimbrough
on 25th August 93. The model msrt is evaluated in the scenario msrt(1).
The report can be obtained by running Mathmatica with this file.

*)

(*
          Section 2   Table of Contents

     Section 1: Header
     Section 2: Table of Contents
     Section 3: Model Descriptions
     Section 4: Variable Descriptions
     Section 5: Variable Declarations
     Section 6: Model Declarations
     Section 7: Model Evaluations
     Section 8: Post-Evaluation Analyses
     Section 9: End of Input
*)

(*          Section 3: Model Descriptions          *)

msrt::usage = " msrt: a model for computing mean system
response time . Mean system response time is the average time
to fill a demand , both those filled immediately and those
backordered and filled later with a delayed issue . "



(*           Section 4: Variable Descriptions           *)

bt::usage = " bt is defined as a local variable for the
globle variable atfbd . Average time to fill a backordered
demand (i.e., a demand not filled immediately ) . "

k::usage = " k is defined as a local variable for the globle
variable atfdi . Average time to fill a demand immediately (
usually assumed to be zero ) . "

ndfi::usage = " ndfi is defined as a local variable for the
globle variable immedFilledDemand . Number of demands filled
immediately . "

msrt::usage = " msrt is defined as a local variable for the
globle variable meanSysResTime . Mean System Response Time. "

sa::usage = " sa is defined as a local variable for the
globle variable supplyAvailability . Supply availability is
the percent of customer demands that are filled immediately
from on-hand stocks . "

tnd::usage = " tnd is defined as a local variable for the
globle variable totalNumOfDemands . Total number of demands ,
both those filled immediately and those backordered . "


(*         Section 5: Variable Declarations         *)

(*
This is a scenario for model msrt.
Scenario source: 
Hua Hua
*)


ndfi := 90

tnd := 100

k := 0

bt := 15


(*         Section 6: Model Declarations         *)

(*
msrt: a model for computing mean system response time . Mean
system response time is the average time to fill a demand ,
both those filled immediately and those backordered and
filled later with a delayed issue .
Model source: 
Report on Improved Inventory Models for the United States
Coast Guard Requirements Determination Process , Logistics
Management Institute , May 28, 1993  in Chapter 2 , page 4-5.
*)


sa := ndfi/tnd

msrt := k*sa+bt*(1-sa)

(*         Section 7: Model Evaluations         *)

Print["Model Output:"]


Print["According to the msrt, 
sa is ",sa, " in scenario msrt(1) ."]

Print["According to the msrt, 
msrt is ",msrt, " in scenario msrt(1) ."]

(*         Section 8: Post-Evaluation Analyses         *)


x0 := msrt

Plot[x0, {sa,0.5,1.0}]

x1 := msrt

Plot[x1, {bt,5,15}]


(*         Section 9: End of Input         *)

(*</pre>*)