View of /trunk/NationalProblemLibrary/Rochester/setStatistics2Measures/ur_stt_2_8.pg

    1 ## DESCRIPTION
    2 ##   Means and z Scores
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('Measure', 'Mean', 'z Score')
    6 ## Tagged by nhamblet
    7 
    8 ## DBsubject('Statistics')
    9 ## DBchapter('What is Statistics?')
   10 ## DBsection('Characterizing a Set of Measurements: Numerical Methods')
   11 ## Date('')
   12 ## Author('')
   13 ## Institution('Rochester')
   14 ## TitleText1('')
   15 ## EditionText1('')
   16 ## AuthorText1('')
   17 ## Section1('')
   18 ## Problem1('')
   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 "PGgraphmacros.pl"
   28 );
   29 
   30 TEXT(beginproblem());
   31 $showPartialCorrectAnswers = 1;
   32 
   33 @Name = (Mary, Ted, Mike, Nick, Pam, Sam, Kate, John, Greg, Joe);
   34 $tag = random(0,9,1);
   35 $score = 100 + 3* ($tag + 1);
   36 
   37 $diff = $score - 100;
   38 $zscore = $diff / 15;
   39 
   40 BEGIN_TEXT
   41 $BR
   42 
   43 IQ scores have a mean of 100 and a standard deviation of 15. $Name[$tag] has an IQ of $score.
   44 $BR
   45 What is the difference between $Name[$tag]'s IQ and the mean?
   46 \{ ans_rule(5) \}
   47 $BR
   48 Convert $Name[$tag]'s IQ score to a z score:
   49 \{ ans_rule(5) \}
   50 
   51 END_TEXT
   52 
   53 ANS(num_cmp($diff));
   54 ANS(num_cmp($zscore));
   55 
   56 ENDDOCUMENT();       # This should be the last executable line in the problem.