View of /trunk/NationalProblemLibrary/UVA-Stat/setStat212-Homework05/stat212-HW05-01.pg

    1 ## DESCRIPTION
    2 ## Statistics: Random variables
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('statistics', 'random variables')
    6 ## CMMK tagged this problem.
    7 
    8 ## DBchapter('Random Variables')
    9 ## DBsection()
   10 ## Date('6/24/2005')
   11 ## Author('Cristina Murray-Krezan')
   12 ## Institution('UVA')
   13 ## TitleText1('Statistics for Management and Economics')
   14 ## EditionText1('6')
   15 ## AuthorText1('Keller, Warrack')
   16 ## Section1()
   17 ## Problem1()
   18 
   19 
   20 DOCUMENT();        # This should be the first executable line in the problem.
   21 
   22 loadMacros(
   23 "PG.pl",
   24 "PGbasicmacros.pl",
   25 "PGchoicemacros.pl",
   26 "PGanswermacros.pl",
   27 "PGnumericalmacros.pl",
   28 "PGstatisticsmacros.pl",
   29 "PGauxiliaryFunctions.pl"
   30 );
   31 
   32 TEXT(beginproblem());
   33 $showPartialCorrectAnswers = 1;
   34 ## install_problem_grader(~~&std_problem_grader);
   35 
   36 $a7 = -1;
   37 
   38 while ($a7 < 0) {
   39 $a0 = random(.004,.005,.0001);
   40 $a1 = random(.024,.025,.0001);
   41 $a2 = random(.309,.310,.0001);
   42 $a3 = random(.339,.340,.0001);
   43 $a4 = random(.219,.220,.0001);
   44 $a5 = random(.079,.080,.0001);
   45 $a6 = random(.018,.019,.0001);
   46 $a7 = 0.0001*floor(10000*(1-($a0+$a1+$a2+$a3+$a4+$a5+$a6))+.5);
   47 }
   48 
   49 BEGIN_TEXT
   50 $PAR Using historical records, the personnel manager of a plant
   51 has determined the probability of \(X\), the number of employees
   52 absent per day.  It is
   53 $PAR
   54 $BCENTER
   55 \{begintable(9)\}
   56 \{row("X", "0", "1", "2", "3", "4", "5", "6", "7")\}
   57 \{row("P(X)", $a0, $a1, $a2, $a3, $a4, $a5, $a6, $a7)\}
   58 \{endtable()\}
   59 $ECENTER
   60 
   61 $PAR
   62 Find the following probabilities.
   63 $PAR
   64 A. \(P(2 \leq X \leq 5)\)
   65 $PAR
   66 Probability = \{ans_rule(15)\}
   67 $PAR
   68 B. \(P(X > 5)\)
   69 $PAR
   70 Probability = \{ans_rule(15)\}
   71 $PAR
   72 C.\(P(X < 4)\)
   73 $PAR
   74 Probability = \{ans_rule(15)\}
   75 
   76 $PAR
   77 
   78 END_TEXT
   79 
   80 ANS(num_cmp($a2+$a3+$a4+$a5));
   81 ANS(num_cmp($a6+$a7));
   82 ANS(num_cmp($a0+$a1+$a2+$a3));
   83 
   84 
   85 ENDDOCUMENT();       # This should be the last executable line in the problem.