version 1.65, 2011/10/13 01:54:12
|
version 1.68, 2011/10/19 13:21:51
|
Line 164 sub update_register {
|
Line 164 sub update_register {
|
sub set_point_coordinate { |
sub set_point_coordinate { |
my ($id,$variable,$x,$y,$fixed)=@_; |
my ($id,$variable,$x,$y,$fixed)=@_; |
my $mult=($fixed?'a*':''); |
my $mult=($fixed?'a*':''); |
|
# Get rid of wild exponents, make sure it's a number |
|
$x=1.*$x; |
|
$y=1.*$y; |
|
# GeoGebra does not understand "E" |
|
$x=~s/[e|E]/\*10\^/; |
|
$x=~s/\+//; |
|
$y=~s/[e|E]/\*10\^/; |
|
$y=~s/\+//; |
return (<<ENDSETVARIABLE); |
return (<<ENDSETVARIABLE); |
document.ggbApplet_$id.evalCommand("a=1"); |
document.ggbApplet_$id.evalCommand("a=1"); |
document.ggbApplet_$id.evalCommand("$variable=$mult($x,$y)"); |
document.ggbApplet_$id.evalCommand("$variable=$mult($x,$y)"); |
Line 973 sub compare_rel {
|
Line 981 sub compare_rel {
|
|
|
sub addlog { |
sub addlog { |
my ($text)=@_; |
my ($text)=@_; |
|
$text=~s/\'/\\\'/g; |
$Apache::functionplotresponse::ruleslog.=$text.'<br />'; |
$Apache::functionplotresponse::ruleslog.=$text.'<br />'; |
} |
} |
|
|
Line 981 sub actualval {
|
Line 990 sub actualval {
|
return $xmin+$i/400.*($xmax-$xmin); |
return $xmin+$i/400.*($xmax-$xmin); |
} |
} |
|
|
|
sub fpr_val { |
|
my ($arg)=@_; |
|
return &actualval($Apache::functionplotresponse::functionplotrulelabels{$arg}, |
|
$Apache::functionplotresponse::fpr_xmin, |
|
$Apache::functionplotresponse::fpr_xmax); |
|
} |
|
|
sub fpr_f { |
sub fpr_f { |
my ($arg)=@_; |
my ($arg)=@_; |
return $Apache::functionplotresponse::func[&array_index($Apache::functionplotresponse::fpr_xmin, |
return $Apache::functionplotresponse::func[&array_index($Apache::functionplotresponse::fpr_xmin, |