home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / SCOMMON.PAK / DISTRIBU.M next >
Encoding:
Text File  |  1992-07-29  |  1.2 KB  |  61 lines
  1.  
  2.  
  3. (*:Version: Mathematica 2.0 *)
  4.  
  5. (*:Name: Statistics`Common`DistributionFunctionals` *)
  6.  
  7. (*:Title: Functions of Statistical Distributions *)
  8.  
  9. (*:Author:
  10.   David Withoff (Wolfram Research), March, 1991
  11. *)
  12.  
  13. (*:Legal:
  14.   Copyright (c) 1991, Wolfram Research, Inc.
  15. *)
  16.  
  17. (*:Reference: Usage messages only. *)
  18.  
  19. (*:Summary:
  20.   Defines functions and introduces symbols in a common context for use
  21.   in statistical probability distribution packages.
  22. *)
  23.  
  24. (*:Keywords: distribution, functional *)
  25.  
  26. (*:Requirements: no special system requirements. *)
  27.  
  28. (*:Warning: none. *)
  29.  
  30. (*:Sources:
  31.   Norman L. Johnson and Samuel Kotz, 1970.
  32. *)
  33.  
  34. BeginPackage["Statistics`Common`DistributionsCommon`"]
  35.  
  36. (* create symbols without usage messages in a common context. *)
  37.  
  38. Domain
  39. PDF
  40. CDF
  41. CharacteristicFunction
  42.  
  43. (* add usage messages for new symbols. *)
  44.  
  45. QuantileQ::usage =
  46. "QuantileQ[q] returns True if q is a valid quantile specification
  47. (a number between 0 and 1)."
  48.  
  49. Begin["`Private`"]
  50.  
  51. QuantileQ[q_] := If[0 <= q <= 1, True,
  52.         Message[Quantile::outofrange, q]; False]
  53.  
  54. Quantile::outofrange =
  55. "Quantile specification `1` is expected to be between 0 and 1."
  56.  
  57. End[]
  58.  
  59. EndPackage[]
  60.  
  61.