View of /trunk/NationalProblemLibrary/TCNJ/TCNJ_Determinants/problem3.pg

    1 ##DESCRIPTION
    2 ##KEYWORDS('matrix', 'determinant')
    3 ##
    4 ##ENDDESCRIPTION
    5 
    6 DOCUMENT();        # This should be the first executable line in the problem.
    7 
    8 loadMacros(
    9 "PG.pl",
   10 "PGbasicmacros.pl",
   11 "PGchoicemacros.pl",
   12 "PGanswermacros.pl",
   13 "PGgraphmacros.pl",
   14 "PGmatrixmacros.pl",
   15 "PGnumericalmacros.pl",
   16 "PGauxiliaryFunctions.pl"
   17 );
   18 
   19 TEXT(beginproblem());
   20 $showPartialCorrectAnswers = 1;
   21 
   22 BEGIN_TEXT
   23 
   24 \{ mbox([ 'If \(A=\)', display_matrix([[k, 0, 0], [0, 1, 0], [0, 0, 1]]) ]) \}
   25 $BR
   26 \{ mbox( 'then \(\det\,(A)= \ \)', ans_rule(20) ) \}
   27 
   28 END_TEXT
   29 
   30 ANS(str_cmp("k"));
   31 
   32 ENDDOCUMENT();       # This should be the last executable line in the problem.