Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
18e50b48
Commit
18e50b48
authored
Jan 24, 2009
by
Jay Belanger
Browse files
(calcFunc-apart): Improve test for rational functions.
parent
eec86b01
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
22 additions
and
15 deletions
+22
-15
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/calc/calc-poly.el
lisp/calc/calc-poly.el
+17
-15
No files found.
lisp/ChangeLog
View file @
18e50b48
2009-01-24 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-poly.el (calcFunc-apart): Improve test for
rational functions.
2009-01-23 Chong Yidong <cyd@stupidchicken.com>
* mail/rmailsum.el (rmail-summary-by-labels): Correctly handle
...
...
lisp/calc/calc-poly.el
View file @
18e50b48
...
...
@@ -961,22 +961,24 @@
((
eq
(
car
expr
)
'-
)
(
math-sub
(
calcFunc-apart
(
nth
1
expr
)
var
)
(
calcFunc-apart
(
nth
2
expr
)
var
)))
(
(
not
(
math-ratpoly-p
expr
var
))
(
math-reject-arg
expr
"Expected a rational function"
))
((
and
var
(
not
(
math-ratpoly-p
expr
var
))
)
(
math-reject-arg
expr
"Expected a rational function"
))
(
t
(
let*
((
calc-prefer-frac
t
)
(
rat
(
math-to-ratpoly
expr
))
(
num
(
car
rat
))
(
den
(
cdr
rat
))
(
qr
(
math-poly-div
num
den
))
(
q
(
car
qr
))
(
r
(
cdr
qr
)))
(
or
var
(
setq
var
(
math-polynomial-base
den
)))
(
math-add
q
(
or
(
and
var
(
math-expr-contains
den
var
)
(
math-partial-fractions
r
den
var
))
(
math-div
r
den
)))))))
(
let*
((
calc-prefer-frac
t
)
(
rat
(
math-to-ratpoly
expr
))
(
num
(
car
rat
))
(
den
(
cdr
rat
)))
(
or
var
(
setq
var
(
math-polynomial-base
den
)))
(
if
(
not
(
math-ratpoly-p
expr
var
))
(
math-reject-arg
expr
"Expected a rational function"
)
(
let*
((
qr
(
math-poly-div
num
den
))
(
q
(
car
qr
))
(
r
(
cdr
qr
)))
(
math-add
q
(
or
(
and
var
(
math-expr-contains
den
var
)
(
math-partial-fractions
r
den
var
))
(
math-div
r
den
)))))))))
(
defun
math-padded-polynomial
(
expr
var
deg
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment