|
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, |
![[BACK]](/icons/back.gif){kind=icon}
Return to functionplotresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework