L=: %:@:(+/)@:*:"1 |
Длина вектора (См. с рангом в словаре, или
в Разделе 20 Введения) |
LR=:L"1 |
Длина векторов, представленных строками в таблице |
disp=: ] - 1&|. |
Смещение от строки к строке |
LS=: LR@disp |
Длины сторон фигуры |
sp=: -:@(+/)@LS |
Полу-периметр (попробуйте sp tri) |
H=: %:@(*/)@(sp,sp-LS) |
Формула Герона для площади |
det=: -/ . * |
Определитель (См. словарь "По Минорам") |
SA=: det@(,.&0.5) |
Площадь со знаком. Попробуйте SA@|. |
sa=:det@(],.%@!@<:@#) |
Обобщенный обьем со знаком; попробуйте для тетраэдра |
tet=:?4 3$9 |
и для треугольника tri . |