|
|
last edited 10 years ago by Bill Page |
1 | ||
Editor: Bill Page
Time: 2014/08/10 17:33:42 GMT+0 |
||
Note: |
changed: - \begin{axiom} msqrt:=operator('msqrt) conj1:Ruleset(Integer,Complex Integer,Expression Complex Integer) := ruleset([ _ rule sqrt(-1)*:a==msqrt(-1)*a, _ rule -sqrt(-1)*:a==-msqrt(-1)*a _ ]$List RewriteRule(Integer,Complex Integer,Expression Complex Integer) ) conj2:RewriteRule(Integer,Complex Integer,Expression(Complex Integer)):= rule msqrt(-1)==-sqrt(-1) conj(z)==conj2 conj1 z conj(a+%i*b) \end{axiom}
(1) -> msqrt:=operator('msqrt)
(1) |
conj1:Ruleset(Integer,Complex Integer, Expression Complex Integer) := ruleset([ _ rule sqrt(-1)*:a==msqrt(-1)*a, _ rule -sqrt(-1)*:a==-msqrt(-1)*a _ ]$List RewriteRule(Integer, Complex Integer, Expression Complex Integer) )
(2) |
conj2:RewriteRule(Integer,Complex Integer, Expression(Complex Integer)):= rule msqrt(-1)==-sqrt(-1)
(3) |
conj(z)==conj2 conj1 z
conj(a+%i*b)
Compiling function conj with type Polynomial(Complex(Integer)) -> Expression(Complex(Integer))
(4) |