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

This is a Mathematica notebook file. This file is created for Steven O. Kimbrough
on Thursday, 17 March 1994.

The main model is bbp (version 1).



The scenario is bbp(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          *)

(*
 Model: bbp (version 1).
bbp: the Basic Barrier Patrol model ... returns the probability that a
 target vessel , attempting to cross a patrol barrier is detected by a
 partolling vessel , i.e., detected given that there is a available 
and on patrol .

Model version 1 is created by Hua Hua
 on February 11, 1994

Model source: 
Clark Pritchett

Model is maintained by:
Hua Hua OPIM Department University of Pennsylvania PA 19104-6366 
(215)-898-5715
*)

bbp::usage = " bbp: the Basic Barrier Patrol model ... returns the 
probability that a target vessel , attempting to cross a patrol 
barrier is detected by a partolling vessel , i.e., detected given that
 there is a available and on patrol . "




(*           Section 4: Variable Descriptions           *)

bbpF::usage = " bbpF is defined as a local variable for the global 
variable bbpF . bbpF : the basic Barrier Patrol Function. "

l::usage = " l is defined as a local variable for the global variable 
length . length , in the Basic Barrier Patrol model , is the length of
 the patrol barrier measured in nautical miles . "

r::usage = " r is defined as a local variable for the global variable 
radius . radius , in the Basic Barrier Patrol model , is the radius of
 detection of a patroling Coast Guard vessel . r is measured in 
nautical miles . "

v::usage = " v is defined as a local variable for the global variable 
speedOfCGPV . speedOfCGPV , in the Basic Barrier Patrol model , is the
 speed a patroling Coast Guard vessel . r is measured in knots or 
nautical miles per hour . "

u::usage = " u is defined as a local variable for the global variable 
speedOfTargetV . speedOfTargetV , in the Basic Barrier Patrol model , 
is the speed a target vessel . it is measured in knots or nautical 
miles per hour . "


(*         Section 5: Variable Declarations         *)

(*
This is a scenario for model bbp
Scenario source: 
Steven O. Kimbrough
*)


r=20
v=18
u=25.6
l=200

(*         Section 6: Model Declarations         *)

bbpF[r_,v_,u_,l_] := 2 * r * (1 + v / u) / l

(*         Section 7: Model Evaluations         *)

Print["Model Output:"]


Print["According to the model(s) and the scenario,
   the variable bbpF[r,v,u,l] is equal to  ", bbpF[r,v,u,l]]

(*         Section 8: Post-Evaluation Analyses         *)


x1 := bbpF[r,v,u,l]

Plot[x1, {l,100,300}]

x2 := bbpF[r,v,u,l]

Plot[x2, {u,15,30}]

x3 := bbpF[r,v,u,l]

Plot[x3, {v,15,25}]

x4 := bbpF[r,v,u,l]

Plot[x4, {r,10,50}]


(*         Section 9: End of Input         *)

(*</pre>*)