grizzly Спасибо. Проверил с Мэйплом
Код:
seq(seq(VectorCalculus:-Norm(a-b), a = [`<,>`(0, 0, 0), `<,>`(1, 1, 0), `<,>`(0, 1, 0.25e-1), `<,>`(1, 0, 0.25e-1), `<,>`(0.25e-1, 0.25e-1, 1), `<,>`(.25, 1, 1), `<,>`(1, .25, 1)]), b = [`<,>`(0, 0, 0), `<,>`(1, 1, 0), `<,>`(0, 1, 0.25e-1), `<,>`(1, 0, 0.25e-1), `<,>`(0.25e-1, 0.25e-1, 1), `<,>`(.25, 1, 1), `<,>`(1, .25, 1)]);
(1/2)
0, 2 , 1.000312451, 1.000312451, 1.000624805, 1.436140662,
(1/2)
1.436140662, 2 , 0, 1.000312451, 1.000312451, 1.703305610,
1.250000000, 1.250000000, 1.000312451, 1.000312451, 0.,
1.414213562, 1.379084841, 1.006541107, 1.585283886,
1.000312451, 1.000312451, 1.414213562, 0., 1.379084841,
1.585283886, 1.006541107, 1.000624805, 1.703305610,
1.379084841, 1.379084841, 0., 1.000624805, 1.000624805,
1.436140662, 1.250000000, 1.006541107, 1.585283886,
1.000624805, 0., 1.060660172, 1.436140662, 1.250000000,
1.585283886, 1.006541107, 1.000624805, 1.060660172, 0.
plots:-pointplot3d([`<,>`(0, 0, 0), `<,>`(1, 1, 0), `<,>`(0, 1, 0.25e-1), `<,>`(1, 0, 0.25e-1), `<,>`(0.25e-1, 0.25e-1, 1), `<,>`(.25, 1, 1), `<,>`(1, .25, 1)], symbol = solidsphere, symbolsize = 20);