version 1.22, 2005/07/12 16:05:59
|
version 1.23, 2005/07/13 17:42:53
|
Line 3256 sub write_webct4_questions {
|
Line 3256 sub write_webct4_questions {
|
|; |
|; |
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; |
|
$formula =~ s/sqrt/\&sqrt/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.'; |
Line 3269 sub write_webct4_questions {
|
Line 3274 sub write_webct4_questions {
|
} |
} |
$increment .= '1'; |
$increment .= '1'; |
} |
} |
$formula =~ s/{($var)}/\$$1/g; |
$formula =~ s/{($var)}/(\$$1)/g; |
$formula =~ s/ln\(?([^\)])\)?/ &log($1) /g; |
|
$formula =~ s/sqrt/\&sqrt/g; |
|
$scriptblock .= qq| |
$scriptblock .= qq| |
\$$var=&random($$settings{$id}{$numid}{vars}{$var}{min},$$settings{$id}{$numid}{vars}{$var}{max},$increment); |
\$$var=&random($$settings{$id}{$numid}{vars}{$var}{min},$$settings{$id}{$numid}{vars}{$var}{max},$increment); |
|; |
|; |