aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/dhmatrix.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/dhmatrix.spad.pamphlet')
-rw-r--r--src/algebra/dhmatrix.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/dhmatrix.spad.pamphlet b/src/algebra/dhmatrix.spad.pamphlet
index 5c075992..c6a968a3 100644
--- a/src/algebra/dhmatrix.spad.pamphlet
+++ b/src/algebra/dhmatrix.spad.pamphlet
@@ -1675,7 +1675,7 @@ DenavitHartenbergMatrix(R): Exports == Implementation where
-- [ax,ay,az,-(px*ax+py*ay+pz*az)],_
-- [ 0, 0, 0, 1]])
- d * p ==
+ d:% * p: Point(R) ==
v := p pretend Vector R
v := concat(v, 1$R)
v := d * v