Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix to enable covind/contind to handle negative expressions.

  • Loading branch information...
commit c5ad2dad53bca7657aabc5cc419a7cc933f8bd78 1 parent a57714a
vttoth authored
Showing with 2 additions and 0 deletions.
  1. +2 −0  share/tensor/ex_calc.mac
View
2  share/tensor/ex_calc.mac
@@ -91,6 +91,7 @@ contind(t):=if mapatom(t) then []
indices(t),
contind(part(t,1))
)
+ else if op(t)="-" then contind(part(t,1))
else if op(t)="/" then append(contind(part(t,1)),covind(part(t,2)))
else if op(t)="*" then
block
@@ -108,6 +109,7 @@ covind(t):=if mapatom(t) then []
indices(t),
covind(part(t,1))
)
+ else if op(t)="-" then covind(part(t,1))
else if op(t)="/" then append(covind(part(t,1)),contind(part(t,2)))
else if op(t)="*" then
block
Please sign in to comment.
Something went wrong with that request. Please try again.