ExplicitSequence1: Difference between revisions
Jump to navigation
Jump to search
(Created page with '<h2>Sequences with Explicit Formulas</h2> <p style="background-color:#eeeeee;border:black solid 1px;padding:3px;"> This PG code shows how to evaluate answers that are (possibly …') |
No edit summary |
||
| Line 68: | Line 68: | ||
$answer = Compute("(-1)^n / n!"); | $answer = Compute("(-1)^n / n!"); | ||
$answer->{test_points} = [[1],[2],[3],[4],[5],[6]]; | |||
@seq = ( | @seq = ( | ||
| Line 80: | Line 81: | ||
$sequence = join(", ", @seq); | $sequence = join(", ", @seq); | ||
</pre> | </pre> | ||
</td> | </td> | ||
| Line 86: | Line 86: | ||
<p> | <p> | ||
<b>Setup:</b> | <b>Setup:</b> | ||
We set the test points to be positive integers to avoid errors when evaluating the answer. We create an array of strings <code>@seq</code> and use Perl's join function to paste the entries in this array together into one long string with entries separated by commas. | |||
</p> | </p> | ||
</td> | </td> | ||
Revision as of 01:26, 2 December 2010
Sequences with Explicit Formulas
This PG code shows how to evaluate answers that are (possibly alternating) sequences with explicit formulas.
- Download file: File:Sequences2.txt (change the file extension from txt to pg when you save it)
- File location in NPL:
NationalProblemLibrary/FortLewis/Authoring/Templates/IntegralCalc/Sequences2.pg
| PG problem file | Explanation |
|---|---|
|
Problem tagging: |
|
DOCUMENT(); loadMacros( "PGstandard.pl", "MathObjects.pl", "AnswerFormatHelp.pl", ); TEXT(beginproblem()); |
Initialization: |
Context("Numeric");
Context()->variables->are(n=>"Real");
$answer = Compute("(-1)^n / n!");
$answer->{test_points} = [[1],[2],[3],[4],[5],[6]];
@seq = (
"a_0 = 1",
"a_1 = -1",
"a_2 = \frac{1}{2}",
"a_3 = -\frac{1}{6}",
"a_4 = \frac{1}{24}",
"a_5 = -\frac{1}{120}",
"\ldots"
);
$sequence = join(", ", @seq);
|
Setup:
We set the test points to be positive integers to avoid errors when evaluating the answer. We create an array of strings |
Context()->texStrings;
BEGIN_TEXT
Find a formula for \( n^{th} \) term of the sequence \( $sequence \).
$BR
$BR
\( a_n = \)
\{ ans_rule(20) \}
\{ AnswerFormatHelp("formulas") \}
END_TEXT
Context()->normalStrings;
|
Main Text: |
$showPartialCorrectAnswers = 1; ANS( $answer->cmp() ); |
Answer Evaluation: |
Context()->texStrings;
BEGIN_SOLUTION
${PAR}SOLUTION:${PAR}
Solution explanation goes here.
END_SOLUTION
Context()->normalStrings;
COMMENT('MathObject version.');
ENDDOCUMENT();
|
Solution: |