diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-02-05 01:31:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-02-05 01:31:06 +0000 |
| commit | dd0a7e082512b1d16c314996870e01bf2e1e305d (patch) | |
| tree | 2564ccdc53b6e72a1c3dc862e641788cd2a8bb59 /src/algebra/integrat.spad.pamphlet | |
| parent | bd82f853e448fd53da90b72db061bb996de35f17 (diff) | |
| download | open-axiom-dd0a7e082512b1d16c314996870e01bf2e1e305d.tar.gz | |
Fix AW/440
* algebra/integrat.spad.pamphlet
(integrate$FunctionSpaceComplexIntegration): Use complexIntegrate
for complex expressions.
* testsuite/aw-440.input: New.
Diffstat (limited to 'src/algebra/integrat.spad.pamphlet')
| -rw-r--r-- | src/algebra/integrat.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/integrat.spad.pamphlet b/src/algebra/integrat.spad.pamphlet index ab2eb2be..97eb0d2e 100644 --- a/src/algebra/integrat.spad.pamphlet +++ b/src/algebra/integrat.spad.pamphlet @@ -195,7 +195,7 @@ FunctionSpaceIntegration(R, F): Exports == Implementation where not empty? rest rest l integrate(f, x) == - not real? f => complexIntegrate(f, x) + R has complex or not real? f => complexIntegrate(f, x) f := distribute(f, x::F) tf := [k for k in tower f | member?(x, variables(k::F)@List(SE))]$List(K) ltf := select(is?(operator #1, "tan"::SE), tf) |