| '.$alphabet[$ind].': '. + $bubble_display->[$ind].' | '; + } + $result.='
'.&HTML::Entities::encode($Apache::lonhomework::history{$key},
+ '"<>&').'';
+ }
+}
+
+sub check_for_answer_errors {
+ my ($parstack,$safeeval) = @_;
+ &add_in_tag_answer($parstack,$safeeval);
+ my %counts;
+ foreach my $name (keys(%answer)) {
+ push(@{$counts{scalar(@{$answer{$name}{'answers'}})}},$name);
+ }
+ if (scalar(keys(%counts)) > 1) {
+ my $counts = join(' ',map {
+ my $count = $_;
+ &mt("Answers [_1] had [_2] components.",
+ ''.join(', ',@{$counts{$count}}).'',
+ $count);
+ } (sort(keys(%counts))));
+ &Apache::lonxml::error(&mt("All answers must have the same number of components. Varying numbers of answers were seen. ").$counts);
+ }
+ use Data::Dumper;
+ &Apache::lonxml::debug("count dump is ".&Dumper(\%counts));
+ my $expected_number_of_inputs = (keys(%counts))[0];
+ if ( $expected_number_of_inputs != scalar(@Apache::inputtags::inputlist)) {
+ &Apache::lonxml::error(&mt("Expected [_1] input fields, but there were only [_2] seen.",
+ $expected_number_of_inputs,
+ scalar(@Apache::inputtags::inputlist)));
+ }
+}
+
+sub get_table_sizes {
+ my ($number_of_bubbles,$rbubble_values)=@_;
+ my $scale=2; #mm for one digit
+ my $cell_width=0;
+ foreach my $member (@$rbubble_values) {
+ my $cell_width_real=0;
+ if ($member=~/(\+|-)?(\d*)\.?(\d*)\s*\$?\\times\s*10\^{(\+|-)?(\d+)}\$?/) {
+ $cell_width_real=(length($2)+length($3)+length($5)+7)*$scale;
+ } elsif ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) {
+ $cell_width_real=(length($1)+length($2)+length($5)+9)*$scale;
+ } elsif ($member=~/(\d*)\.(\d*)/) {
+ $cell_width_real=(length($1)+length($2)+3)*$scale;
} else {
- &Apache::lonxml::debug("no format answer :$answer:");
- $result.="$answer,";
+ $cell_width_real=(length($member)+1)*$scale*0.9;
+ }
+ if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;}
+ }
+ $cell_width+=8;
+ my $textwidth;
+ if ($env{'form.textwidth'} ne '') {
+ $env{'form.textwidth'}=~/(\d*)\.?(\d*)/;
+ $textwidth=$1.'.'.$2;
+ } else {
+ $env{'form.textwidth'}=~/(\d+)\.?(\d*)/;
+ $textwidth=$1.'.'.$2;
+ }
+ my $bubbles_per_line=int($textwidth/$cell_width);
+ if ($bubbles_per_line > $number_of_bubbles) {
+ $bubbles_per_line=$number_of_bubbles;
+ }elsif (($bubbles_per_line > $number_of_bubbles/2) && ($number_of_bubbles % 2==0)) {$bubbles_per_line=$number_of_bubbles/2;}
+ my $number_of_tables = int($number_of_bubbles/$bubbles_per_line);
+ my @table_range = ();
+ for (my $i=0;$i<$number_of_tables;$i++) {push @table_range,$bubbles_per_line;}
+ if ($number_of_bubbles % $bubbles_per_line) {
+ $number_of_tables++;
+ push @table_range,($number_of_bubbles % $bubbles_per_line);
+ }
+ $cell_width-=8;
+ $cell_width=$cell_width*3/4;
+ return ($cell_width,$number_of_tables,@table_range);
+}
+
+sub format_number {
+ my ($number,$format,$target,$safeeval)=@_;
+ my $ans;
+ if ($format eq '') {
+ #What is the number? (integer,decimal,floating point)
+ if ($number=~/^(\d*\.?\d*)(E|e)[+\-]?(\d*)$/) {
+ $format = '3e';
+ } elsif ($number=~/^(\d*)\.(\d*)$/) {
+ $format = '4f';
+ } elsif ($number=~/^(\d*)$/) {
+ $format = 'd';
+ }
+ }
+ if (!$Apache::lonxml::default_homework_loaded) {
+ &Apache::lonxml::default_homework_load($safeeval);
+ }
+ $ans=&Apache::run::run("&prettyprint(q\0$number\0,q\0$format\0,q\0$target\0)",$safeeval);
+ return $ans;
+}
+
+sub make_numerical_bubbles {
+ my ($part,$id,$target,$parstack,$safeeval) =@_;
+
+ my $number_of_bubbles =
+ &Apache::response::get_response_param($part.'_'.$id,'numbubbles',8);
+
+ my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
+ my $name = (exists($answer{$tag_internal_answer_name})
+ ? $tag_internal_answer_name
+ : (sort(keys(%answer)))[0]);
+
+ if ( scalar(@{$answer{$name}{'answers'}}) > 1) {
+ &Apache::lonxml::error("Only answers with 1 component are supported in exam mode");
+ }
+ if (scalar(@{$answer{$name}{'answers'}[0]}) > 1) {
+ &Apache::lonxml::error("Vector answers are unsupported in exam mode.");
+ }
+
+ my $answer = $answer{$name}{'answers'}[0][0];
+ my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,
+ $safeeval);
+ if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }
+
+ my @bubble_values=();
+ my @alphabet=('A'..'Z');
+
+ &Apache::lonxml::debug("answer is $answer incorrect is @incorrect");
+ my @oldseed=&Math::Random::random_get_seed();
+ if (@incorrect) {
+ &Apache::lonxml::debug("inside ".(scalar(@incorrect)+1 gt $number_of_bubbles));
+ if (defined($incorrect[0]) &&
+ scalar(@incorrect)+1 >= $number_of_bubbles) {
+ &Apache::lonxml::debug("inside ".(scalar(@incorrect)+1).":$number_of_bubbles");
+ &Apache::response::setrandomnumber();
+ my @rand_inc=&Math::Random::random_permutation(@incorrect);
+ @bubble_values=@rand_inc[0..($number_of_bubbles-2)];
+ @bubble_values=sort {$a <=> $b} (@bubble_values,$answer);
+ &Apache::lonxml::debug("Answer was :$answer: returning :".$#bubble_values.": which are :".join(':',@bubble_values));
+ &Math::Random::random_set_seed(@oldseed);
+
+ my $correct;
+ for(my $i=0; $i<=$#bubble_values;$i++) {
+ if ($bubble_values[$i] eq $answer) {
+ $correct = $alphabet[$i];
+ last;
+ }
+ }
+
+ if (defined($format) && $format ne '') {
+ my @bubble_display;
+ foreach my $value (@bubble_values) {
+ push(@bubble_display,
+ &format_number($value,$format,$target,$safeeval));
+ }
+ return (\@bubble_values,\@bubble_display,$correct);
+ } else {
+ return (\@bubble_values,\@bubble_values,$correct);
+ }
+ }
+ if (defined($incorrect[0]) &&
+ scalar(@incorrect)+1 < $number_of_bubbles) {
+ &Apache::lonxml::warning("Not enough incorrect answers were specified in the incorrect array, ignoring the specified incorrect answers and instead generating them (".join(',',@incorrect).").");
+ }
+ }
+ my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors
+ my @powers = (1..$number_of_bubbles);
+ &Apache::response::setrandomnumber();
+ my $ind=&Math::Random::random_uniform_integer(1,0,$#powers);
+ my $power = $powers[$ind];
+ $ind=&Math::Random::random_uniform_integer(1,0,$#factors);
+ my $factor = $factors[$ind];
+ my @bubble_display;
+ for ($ind=0;$ind<$number_of_bubbles;$ind++) {
+ $bubble_values[$ind] = $answer*($factor**($power-$powers[$#powers-$ind]));
+ $bubble_display[$ind] = &format_number($bubble_values[$ind],
+ $format,$target,$safeeval);
+
+ }
+ my $correct = $alphabet[$number_of_bubbles-$power];
+ &Math::Random::random_set_seed(@oldseed);
+ return (\@bubble_values,\@bubble_display,$correct);
+}
+
+sub get_tolrange {
+ my ($ans,$tol)=@_;
+ my ($high,$low);
+ if ($tol =~ /%$/) {
+ chop($tol);
+ my $change=$ans*($tol/100.0);
+ $high=$ans+$change;
+ $low=$ans-$change;
+ } else {
+ $high=$ans+$tol;
+ $low=$ans-$tol;
+ }
+ return ($high,$low);
+}
+
+sub get_sigrange {
+ my ($sig)=@_;
+ #&Apache::lonxml::debug("Got a sig of :$sig:");
+ my $courseid=$env{'request.course.id'};
+ if (lc($env{"course.$courseid.disablesigfigs"}) eq 'yes') {
+ return (15,0);
+ }
+ my $sig_lbound;
+ my $sig_ubound;
+ if ($sig eq '') {
+ $sig_lbound = 0; #SIG_LB_DEFAULT
+ $sig_ubound =15; #SIG_UB_DEFAULT
+ } else {
+ ($sig_lbound,$sig_ubound) = split(/,/,$sig);
+ if (!defined($sig_lbound)) {
+ $sig_lbound = 0; #SIG_LB_DEFAULT
+ $sig_ubound =15; #SIG_UB_DEFAULT
}
- }
- chop $result;
- $result.=" $unit.The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.
More information about this error may be available in the server error log.