| … | |
… | |
| 24 | # sub Compute { |
24 | # sub Compute { |
| 25 | # my $formula = Formula(shift); |
25 | # my $formula = Formula(shift); |
| 26 | # return $formula->eval(@_); |
26 | # return $formula->eval(@_); |
| 27 | # } |
27 | # } |
| 28 | |
28 | |
|
|
29 | # |
|
|
30 | # Make a point or list a closed interval |
|
|
31 | # |
|
|
32 | sub Closed { |
|
|
33 | my $x = shift; |
|
|
34 | if (Value::isValue($x)) {$x->{open} = '['; $x->{close} = ']'} |
|
|
35 | return $x; |
|
|
36 | } |
|
|
37 | |
| 29 | ########################################################################### |
38 | ########################################################################### |
| 30 | # |
39 | # |
| 31 | # Make it possible to use 1+3*i in perl rather than 1+3*$i or 1+3*i() |
40 | # Make it possible to use 1+3*i in perl rather than 1+3*$i or 1+3*i() |
| 32 | # |
41 | # |
| 33 | #sub i () {Value::Complex->i}; # defined in Parser.pl |
42 | #sub i () {Value::Complex->i}; # defined in Parser.pl |
Parent Directory
| 
Revision Log
| 
Patch