![]() ![]() | ![]() |
Help on sampling points for formularesponse
1: # The LearningOnline Network with CAPA 2: # caparesponse definition 3: # 4: # $Id: caparesponse.pm,v 1.78 2003/02/27 20:31:34 www Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: package Apache::caparesponse; 30: use strict; 31: use capa; 32: 33: BEGIN { 34: &Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse','stringresponse','formularesponse')); 35: } 36: 37: sub start_caparesponse { 38: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 39: my $id = &Apache::response::start_response($parstack,$safeeval); 40: return ''; 41: } 42: 43: sub end_caparesponse { 44: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 45: my $result = ''; 46: if ( $target eq 'grade' ) { 47: if ( defined $ENV{'form.submitted'}) { 48: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']); 49: my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']}; 50: if ( $response =~ /[^\s]/) { 51: my $id = $Apache::inputtags::response['-1']; 52: my $previous= &Apache::response::check_for_previous($response,$id,$response); 53: if ( $previous ) { 54: $result = 'PREVIOUSLY_USED'; 55: } else { 56: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response; 57: &Apache::lonxml::debug("submitted a $response<br>\n"); 58: &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>"); 59: my $expression="&caparesponse_check('".$response."','". 60: $$parstack[$#$parstack]. 61: ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'. 62: ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'. 63: "');"; 64: $result = &Apache::run::run($expression,$safeeval); 65: my ($ad) = split /:/ , $result; 66: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}=$ad; 67: &Apache::lonxml::debug("$expression"); 68: &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n"); 69: } 70: } 71: } 72: } elsif ($target eq 'web') { 73: #$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n"; 74: } 75: #Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n"); 76: &Apache::response::end_response; 77: return ''; 78: } 79: 80: sub start_numericalresponse { 81: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 82: my $id = &Apache::response::start_response($parstack,$safeeval); 83: my $result; 84: if ($target eq 'edit') { 85: $result.=&Apache::edit::tag_start($target,$token); 86: $result.=&Apache::edit::text_arg('Answer:','answer',$token); 87: if ($token->[1] eq 'numericalresponse') { 88: $result.=&Apache::edit::text_arg('Unit:','unit',$token,5). 89: &Apache::loncommon::help_open_topic('Physical_Units'); 90: $result.=&Apache::edit::text_arg('Format:','format',$token,4). 91: &Apache::loncommon::help_open_topic('Numerical_Response_Format'); 92: } elsif ($token->[1] eq 'stringresponse') { 93: $result.=&Apache::edit::select_arg('Type:','type', 94: [['cs','Case Sensitive'],['ci','Case Insensitive'], 95: ['mc','Case Insensitive, Any Order']],$token); 96: } elsif ($token->[1] eq 'formularesponse') { 97: $result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40). 98: &Apache::loncommon::help_open_topic('Formula_Response_Sampling'); 99: } 100: $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 101: } elsif ($target eq 'modified') { 102: my $constructtag; 103: if ($token->[1] eq 'numericalresponse') { 104: $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, 105: 'answer','unit','format'); 106: } elsif ($token->[1] eq 'stringresponse') { 107: $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, 108: 'answer','type'); 109: } elsif ($token->[1] eq 'formularesponse') { 110: $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, 111: 'answer','samples'); 112: } 113: if ($constructtag) { 114: $result = &Apache::edit::rebuild_tag($token); 115: $result.=&Apache::edit::handle_insert(); 116: } 117: } elsif ($target eq 'meta') { 118: $result=&Apache::response::meta_package_write('numericalresponse'); 119: } elsif ($target eq 'answer' || $target eq 'grade') { 120: &Apache::response::reset_params(); 121: } 122: return $result; 123: } 124: 125: sub end_numericalresponse { 126: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 127: my $result = ''; 128: if (!$Apache::lonxml::default_homework_loaded) { 129: &Apache::lonxml::default_homework_load($safeeval); 130: } 131: if ( $target eq 'grade' ) { 132: if ( defined $ENV{'form.submitted'}) { 133: &Apache::response::setup_params($$tagstack[-1]); 134: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']); 135: my $partid = $Apache::inputtags::part; 136: my $id = $Apache::inputtags::response['-1']; 137: my $response = $ENV{'form.HWVAL'.$id}; 138: if ( $response =~ /[^\s]/) { 139: my %previous = &Apache::response::check_for_previous($response,$partid,$id); 140: $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; 141: &Apache::lonxml::debug("submitted a $response<br>\n"); 142: &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>"); 143: $response =~ s/\\/\\\\/g; 144: $response =~ s/\'/\\\'/g; 145: &Apache::lonxml::debug("current $response"); 146: my $expression="&caparesponse_check_list('".$response."','". 147: $$parstack[$#$parstack]; 148: foreach my $key (keys(%Apache::inputtags::params)) { 149: $expression.= ';my $'. #' 150: $key.'="'.$Apache::inputtags::params{$key}.'"'; 151: } 152: if ($$tagstack[-1] eq 'formularesponse') { 153: $expression.=';my $type="fml";'; 154: } elsif ($$tagstack[-1] eq 'numericalresponse') { 155: $expression.=';my $type="float";'; 156: } 157: $expression.="');"; 158: $result = &Apache::run::run($expression,$safeeval); 159: my ($awards) = split /:/ , $result; 160: my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); 161: &Apache::response::handle_previous(\%previous,$ad); 162: $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; 163: &Apache::lonxml::debug("$expression"); 164: &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n"); 165: $result=''; 166: } 167: } 168: } elsif ($target eq 'web' || $target eq 'tex') { 169: my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"}; 170: my $status = $Apache::inputtags::status['-1']; 171: if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) { 172: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack, 173: $safeeval); 174: my (@formats)=&Apache::lonxml::get_param_var('format',$parstack, 175: $safeeval); 176: my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval); 177: 178: if ($target eq 'web') { 179: $result="<br />The correct answer is "; 180: } elsif ($target eq 'tex') { 181: #$result='\vskip 0 mm The correct answer is \\texttt{'; 182: } 183: for (my $i=0; $i <= $#answers; $i++) { 184: my $answer=$answers[$i]; 185: my $format; 186: if ($#formats > 0) { 187: $format=$formats[$i]; 188: } else { 189: $format=$formats[0]; 190: } 191: my $formatted; 192: if ((defined($format)) && ($format ne '')) { 193: &Apache::lonxml::debug("formatting with :$format: answer :$answer:"); 194: $formatted=sprintf('%.'.$format,$answer).','; 195: } else { 196: &Apache::lonxml::debug("no format answer :$answer:"); 197: $formatted="$answer,"; 198: } 199: 200: if ($target eq 'tex') { 201: $formatted=''; 202: #$formatted=&Apache::lonxml::latex_special_symbols($formatted); 203: } 204: $result.=$formatted; 205: } 206: chop $result; 207: if ($target eq 'web') { 208: $result.=" $unit.<br />"; 209: } elsif ($target eq 'tex') { 210: #$result.=&Apache::lonxml::latex_special_symbols($unit); 211: #$result.="}. \\vskip 0 mm "; 212: } 213: } 214: if ($Apache::lonhomework::type eq 'exam') { 215: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); 216: my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); 217: my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval); 218: my $number_of_bubbles = 8; #default values for number of bubbles 219: my @bubbles_values = (); 220: my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors 221: my @powers = (1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0); #default values for powers 222: my $factors_number = 5; #default values for number of factors 223: my $powers_number = 8; #default values for number of powers 224: my $symb; 225: if ($ENV{'form.symb'}=~/___\d+___/) {$symb=$ENV{'form.symb'};} else {$symb=$ENV{'request.symb'};} 226: my $randomseed = srand(&Apache::lonnet::rndseed($symb,$ENV{'request.course.id'}, 227: $ENV{'user.domain'},$ENV{'user.name'})); 228: my $ind=1+int(rand()*($factors_number-1)); 229: my $factor = $factors[$ind]; 230: $ind=1+int(rand()*($powers_number-1)); 231: my $power = $powers[$ind]; 232: for ($ind=0;$ind<$number_of_bubbles;$ind++) { 233: $bubbles_values[$ind] = $answers[0]*$factor**($power-$powers[$powers_number-$ind-1]); 234: } 235: my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P', 236: 'Q','R','S','T','U','V','W','X','Y','Z'); 237: if ($target eq 'web') { 238: if ($$tagstack[-1] eq 'numericalresponse') { 239: my $id=$Apache::inputtags::response[-1]; 240: $result.= '<table border="1"><tr>'; 241: for ($ind=0;$ind<$number_of_bubbles;$ind++) { 242: my $ans; 243: if ($formats[0] ne '') { 244: $ans = sprintf('%.'.$formats[0],$bubbles_values[$ind]); 245: } else { 246: my $badans = $bubbles_values[$ind]; 247: my $format = ''; 248: #What is the number? (integer,decimal,floating point) 249: if ($badans=~/^(\d*\.?\d*)(E|e)(\d*)$/) { 250: $format = 'e'.$2; 251: } elsif ($badans=~/^(\d*)\.(\d*)$/) { 252: $format = '4f'; 253: } elsif ($badans=~/^(\d*)$/) { 254: $format = 'd'; 255: } 256: $ans = sprintf('%.'.$format,$bubbles_values[$ind]); 257: } 258: $result.='<td><input type="radio" name="HWVAL'.$id.'" value="'.$ans.'"><b>'.$alphabet[$ind].'</b>: '.$ans.'</td>'; 259: } 260: $result.='</tr></table>'; 261: } elsif ($$tagstack[-1] eq 'formularesponse') { 262: $result.= '<br /><br /><font color="red"> Formula have to be entered here! </font><br /><br />'; 263: } 264: } elsif ($target eq 'tex') { 265: if ($$tagstack[-1] eq 'numericalresponse') { 266: my $max_val = 0; 267: if ($formats[0]=~m/^(\d+)E([^\d]*)(\d*)$/) { 268: $max_val=$1+$2+4; 269: } else { 270: $max_val=4; 271: } 272: $max_val = int(0.9*$ENV{'form.textwidth'}/(($max_val+6)*2)); 273: my $celllength = 0.9*$ENV{'form.textwidth'}/$max_val-10; 274: my @table_range = (); 275: my $number_of_tables = int($number_of_bubbles/$max_val); 276: for (my $i=0;$i<$number_of_tables;$i++) {push @table_range,$max_val;} 277: if ($number_of_bubbles % $max_val != 0) { 278: $number_of_tables++; 279: push @table_range,($number_of_bubbles % $max_val); 280: } 281: my $j=0; 282: my $cou=0; 283: $result.='\vskip -1 mm \noindent \begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]'; 284: for (my $i=0;$i<$number_of_tables;$i++) { 285: $result.='\vskip -1 mm \noindent \begin{tabular}{'; 286: for ($ind=0;$ind<$table_range[$j];$ind++) { 287: $result.='lp{'.$celllength.' mm}'; 288: } 289: $result.='}'; 290: for ($ind=$cou;$ind<$cou+$table_range[$j];$ind++) { 291: my $ans; 292: if ($formats[0] ne '') { 293: $ans = sprintf('%.'.$formats[0],$bubbles_values[$ind]); 294: if ($ans =~ m/([0-9\.\-\+]+)E([0-9\-\+]+)/ ) { 295: my $number = $1; 296: my $power = $2; 297: $power=~s/^\+//; 298: $power=~s/^(-?)0+(\d+)//; 299: $ans=$number.'$\times 10^{'.$1.$2.'}$'; #'stupidemacs 300: } 301: } else { 302: my $badans = $bubbles_values[$ind]; 303: my $format = ''; 304: #What is the number? (integer,decimal,floating point) 305: if ($badans=~/^(\d*\.?\d*)(E|e)(\d*)$/) { 306: $format = 'e'.$2; 307: } elsif ($badans=~/^(\d*)\.(\d*)$/) { 308: $format = '4f'; 309: } elsif ($badans=~/^(\d*)$/) { 310: $format = 'd'; 311: } 312: $ans = sprintf('%.'.$format,$bubbles_values[$ind]); 313: if ($ans =~ m/([0-9\.\-\+]+)E([0-9\-\+]+)/ ) { 314: my $number = $1; 315: my $power = $2; 316: $power=~s/^\+//; 317: $power=~s/^(-?)0+(\d+)//; 318: $ans=$number.'$\times 10^{'.$1.$2.'}$'; #'stupidemacs 319: } 320: } 321: $result.='\hskip -3 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -2 mm & {\small '.$ans.'} '; 322: if ($ind != $cou+$table_range[$j]-1) {$result.=' & ';} 323: } 324: $cou += $table_range[$j]; 325: $j++; 326: $result.='\\\\\end{tabular}\vskip 0 mm '; 327: } 328: $result.='\end{enumerate}'; 329: &Apache::lonxml::increment_counter(); 330: } else { 331: $result.='\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}'; 332: $result.= '\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Live blank on scoring form}\vskip 0 mm \end{enumerate}'; 333: &Apache::lonxml::increment_counter(); 334: } 335: } 336: } 337: } elsif ($target eq 'edit') { 338: $result.='</td></tr>'.&Apache::edit::end_table; 339: } elsif ($target eq 'answer' || $target eq 'analyze') { 340: 341: my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; 342: if ($target eq 'analyze') { 343: push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); 344: $Apache::lonhomework::analyze{"$part_id.type"} = $$tagstack[-1]; 345: } 346: &Apache::response::setup_params($$tagstack[-1]); 347: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); 348: my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); 349: my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval); 350: my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval); 351: 352: if ($target eq 'answer') { 353: $result.=&Apache::response::answer_header($$tagstack[-1]); 354: } 355: for(my $i=0;$i<=$#answers;$i++) { 356: my $ans=$answers[$i]; 357: my $fmt; 358: if (@formats) { 359: if ($#formats) { 360: $fmt=$formats[$i]; 361: } else { 362: $fmt=$formats[0]; 363: } 364: } 365: my ($high,$low); 366: if ($Apache::inputtags::params{'tol'}) { 367: ($high,$low)=&get_tolrange($ans,$Apache::inputtags::params{'tol'}); 368: } 369: my ($sighigh,$siglow); 370: if ($Apache::inputtags::params{'sig'}) { 371: ($sighigh,$siglow)=&get_sigrange($Apache::inputtags::params{'sig'}); 372: } 373: if ($fmt) { 374: $ans = sprintf('%.'.$fmt,$ans); 375: if ($high) { 376: $high = sprintf('%.'.$fmt,$high); $low = sprintf('%.'.$fmt,$low); 377: } 378: } 379: if ($target eq 'answer') { 380: if ($high) { $ans.=' ['.$low.','.$high.']'; } 381: if ($sighigh) { $ans.= " Sig <i>$siglow - $sighigh</i>"; } 382: $result.=&Apache::response::answer_part($$tagstack[-1],$ans); 383: } elsif ($target eq 'analyze') { 384: push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} }, 385: $ans); 386: if ($high) { 387: push (@{ $Apache::lonhomework::analyze{"$part_id.ans_high"} }, $high); 388: push (@{ $Apache::lonhomework::analyze{"$part_id.ans_low"} }, $low); 389: } 390: } 391: } 392: if ($unit) { 393: if ($target eq 'answer') { 394: $result.=&Apache::response::answer_part($$tagstack[-1], 395: "Unit: <b>$unit</b>"); 396: } elsif ($target eq 'analyze') { 397: push (@{ $Apache::lonhomework::analyze{"$part_id.unit"} }, 398: $unit); 399: } 400: } 401: if ($type || $token->[1] eq 'stringresponse') { 402: my $string='Case Insensitive'; 403: if ($type eq 'mc') { 404: $string='Multiple Choice'; 405: } elsif ($type eq 'cs') { 406: $string='Case Sensitive'; 407: } elsif ($type eq 'ci') { 408: $string='Case Insensitive'; 409: } elsif ($type eq 'fml') { 410: $string='Formula'; 411: } 412: if ($target eq 'answer') { 413: $result.=&Apache::response::answer_part($$tagstack[-1], 414: '<b>'.$string.'</b>'); 415: } elsif ($target eq 'analyze') { 416: push (@{ $Apache::lonhomework::analyze{"$part_id.type"} }, 417: $type); 418: } 419: } 420: if ($$tagstack[-1] eq 'formularesponse' && $target eq 'answer') { 421: my $samples=&Apache::lonxml::get_param('samples',$parstack,$safeeval); 422: $result.=&Apache::response::answer_part($$tagstack[-1],$samples); 423: } 424: if ($target eq 'answer') { 425: $result.=&Apache::response::answer_footer($$tagstack[-1]); 426: } 427: } 428: &Apache::response::end_response; 429: return $result; 430: } 431: 432: sub get_tolrange { 433: my ($ans,$tol)=@_; 434: my ($high,$low); 435: if ($tol =~ /%$/) { 436: chop($tol); 437: my $change=$ans*($tol/100.0); 438: $high=$ans+$change; 439: $low=$ans-$change; 440: } else { 441: $high=$ans+$tol; 442: $low=$ans-$tol; 443: } 444: return ($high,$low); 445: } 446: 447: sub get_sigrange { 448: my ($sig)=@_; 449: &Apache::lonxml::debug("Got a sig of :$sig:"); 450: my $sig_lbound; 451: my $sig_ubound; 452: if ($sig eq '') { 453: $sig_lbound = 0; #SIG_LB_DEFAULT 454: $sig_ubound =15; #SIG_UB_DEFAULT 455: } else { 456: ($sig_lbound,$sig_ubound) = split(/,/,$sig); 457: if (!$sig_lbound) { 458: $sig_lbound = 0; #SIG_LB_DEFAULT 459: $sig_ubound =15; #SIG_UB_DEFAULT 460: } 461: if (!$sig_ubound) { $sig_ubound=$sig_lbound; } 462: } 463: return ($sig_ubound,$sig_lbound); 464: } 465: 466: sub start_stringresponse { 467: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 468: my $result; 469: if ($target eq 'meta') { 470: $result=&Apache::response::meta_package_write('stringresponse'); 471: } else { 472: $result.=&start_numericalresponse(@_); 473: } 474: return $result; 475: } 476: 477: sub end_stringresponse { 478: return end_numericalresponse(@_); 479: } 480: 481: sub start_formularesponse { 482: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 483: my $result; 484: if ($target eq 'meta') { 485: $result=&Apache::response::meta_package_write('formularesponse'); 486: } else { 487: $result.=&start_numericalresponse(@_); 488: } 489: return $result; 490: } 491: 492: sub end_formularesponse { 493: return end_numericalresponse(@_); 494: } 495: 496: 1; 497: __END__ 498: