17 lines
192 B
Plaintext
17 lines
192 B
Plaintext
|
|
|
|
###
|
|
### slope0
|
|
###
|
|
|
|
## Chapter 7 section 1
|
|
|
|
sub slope {
|
|
my $f = shift;
|
|
my $e = 0.00000095367431640625;
|
|
return sub {
|
|
my $x = shift;
|
|
($f->($x+$e) - $f->($x-$e)) / (2*$e);
|
|
};
|
|
}
|