Annotation of loncom/homework/templates/SimpleMathResponseR.problem, revision 1.1

1.1     ! www         1: <problem>
        !             2: <script type="loncapa/perl">
        !             3: $mean=&random(4,9,0.1);
        !             4: @args=$mean;
        !             5: $answer="$mean,$mean,$mean would be a simple example";
        !             6: </script>
        !             7: 
        !             8: <startouttext />
        !             9: Provide a list of 3 numbers (separated by commas) that has a mean value of $mean.
        !            10: <endouttext />
        !            11: 
        !            12: <mathresponse answerdisplay="$answer" cas="R" args="@args">
        !            13: 
        !            14: <answer>x<-c(RESPONSE[1],RESPONSE[2],RESPONSE[3]);
        !            15: abs(mean(x)-LONCAPALIST[1])<0.001
        !            16: </answer>
        !            17: 
        !            18: <textline readonly="no" size="50" />
        !            19: </mathresponse>
        !            20: </problem>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>