version 1.23, 2005/07/13 17:42:53
|
version 1.24, 2005/07/13 19:56:37
|
Line 3251 sub write_webct4_questions {
|
Line 3251 sub write_webct4_questions {
|
} |
} |
} |
} |
} elsif ($$settings{$id}{class} eq 'numerical') { |
} elsif ($$settings{$id}{class} eq 'numerical') { |
|
my %mathfns = ( |
|
'abs' => 'abs', |
|
'acos' => 'acos', |
|
'asin' => 'asin', |
|
'atan' => 'atan', |
|
'ceil' => 'ceil', |
|
'cos' => 'cos', |
|
'exp' => 'exp', |
|
'fact' => 'factorial', |
|
'floor' => 'floor', |
|
'int' => 'int', |
|
'ln' => 'log', |
|
'log' => 'log', |
|
'max' => 'max', |
|
'min' => 'min', |
|
'round' => 'roundto', |
|
'sin' => 'sin', |
|
'sqrt' => 'sqrt', |
|
'tan' => 'tan', |
|
); |
|
|
my $scriptblock = qq| |
my $scriptblock = qq| |
<script type="loncapa/perl"> |
<script type="loncapa/perl"> |
|; |
|; |
foreach my $numid (@{$$settings{$id}{numids}}) { |
foreach my $numid (@{$$settings{$id}{numids}}) { |
my $formula = $$settings{$id}{$numid}{formula}; |
my $formula = $$settings{$id}{$numid}{formula}; |
$formula =~ s/ln/\&log/g; |
my $pattern = join('|',(sort (keys (%mathfns)))); |
$formula =~ s/sqrt/\&sqrt/g; |
$formula =~ s/($pattern)/\&$mathfns{$1}/g; |
$formula =~ s/sin/\&sin/g; |
|
$formula =~ s/cos/\&cos/g; |
|
$formula =~ s/exp/\&exp/g; |
|
foreach my $var (keys %{$$settings{$id}{$numid}{vars}}) { |
foreach my $var (keys %{$$settings{$id}{$numid}{vars}}) { |
my $decnum = $$settings{$id}{$numid}{vars}{$var}{dec}; |
my $decnum = $$settings{$id}{$numid}{vars}{$var}{dec}; |
my $increment = '0.'; |
my $increment = '0.'; |