Как я могу нарисовать сетку решетки ГЦК?

У меня есть файл с координатами {x, y, z} решетки ГЦК.

In[0]: data = Import[
  "D:\\AtomsDiffusion\\AtomsDiffusion\\bin\\PositionsAtomsMathematica.\
txt", "CSV"]

Out[0]: {{0, 0, 0}, {0, 0.707, 0.707}, {0.707, 0, 0.707}, {0.707, 0.707, 
  0}, {0, 0, 1.414}, {0, 0.707, 2.121}, {0.707, 0, 2.121}, {0.707, 
  0.707, 1.414}, {0, 1.414, 0}, {0, 2.121, 0.707}, {0.707, 1.414, 
  0.707}, {0.707, 2.121, 0}, {0, 1.414, 1.414}, {0, 2.121, 
  2.121}, {0.707, 1.414, 2.121}, {0.707, 2.121, 1.414}, {1.414, 0, 
  0}, {1.414, 0.707, 0.707}, {2.121, 0, 0.707}, {2.121, 0.707, 
  0}, {1.414, 0, 1.414}, {1.414, 0.707, 2.121}, {2.121, 0, 
  2.121}, {2.121, 0.707, 1.414}, {1.414, 1.414, 0}, {1.414, 2.121, 
  0.707}, {2.121, 1.414, 0.707}, {2.121, 2.121, 0}, {1.414, 1.414, 
  1.414}, {1.414, 2.121, 2.121}, {2.121, 1.414, 2.121}, {2.121, 2.121,
   1.414}};

С помощью функции Graphics3D рисую координаты:

In[1]: Graphics3D[{Opacity[.6], Ball[#, 0.5] & /@ data}, Axes -> True]

Из:

Как я могу нарисовать линии сетки по вертикали, горизонтали и диагонали, чтобы быть как здесь? пример

Прочтите reference.wolfram.com/language/ref/Outer.html и посмотрите примеры приложений. Затем попробуйте Graphics3D[Outer[Line[{##}]&,data,data,1]] Это должно создать Line между каждой парой точек данных и вернуть их вам в виде списка.

— 21.03.2022 22:22

wolfram-mathematica

20.03.2022 18:37

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

После комментария Билла

lines = Catenate@Outer[List[##] &, data, data, 1];

dist = EuclideanDistance @@@ lines;

l2 = First /@ DeleteCases[MapThread[{#1, (#2 > 0 && #2 < 1.5)} &,
     {lines, dist}], {_, False}];

Show[Graphics3D[Line /@ l2, Boxed -> False],
 Graphics3D[{Ball[#, 0.2] & /@ data}, Axes -> True]]