Geometric algebra: Difference between revisions
Content added Content deleted
(J: bugfix) |
|||
| Line 360: | Line 360: | ||
yj=. ,4$.y |
yj=. ,4$.y |
||
if. 0= xj *&# yj do. vzero return. end. |
if. 0= xj *&# yj do. vzero return. end. |
||
b=. (-##:>./0,xj,yj)&{.@ |
b=. (-##:>./0,xj,yj)&{."1@#: |
||
xb=. b xj |
xb=. b xj |
||
yb=. b yj |
yb=. b yj |
||
rj=. #. |
rj=. ,#.xb~:"1/yb |
||
s=. _1^ ~:/ yb * 0,}: ~:/\ xb |
s=. ,_1^ ~:/"1 yb *"1/ 0,.}:"1 ~:/\"1 xb |
||
vzero (~.rj)}~ rj +//. s*(xj{x)*yj{y |
vzero (~.rj)}~ rj +//. s*,(xj{x)*/yj{y |
||
) |
) |
||