3D ATOM / SPHERE

Сетка точек: Сфера & 8 Плоскостей (ось Z, 45°)

Ось Z Главная ось (через неё проходят все 8 плоскостей)

Ось X Горизонтальная ось (сектор 0° XZ)

Ось Y Боковая ось (сектор 90° YZ)

ЛКМ Вращение ПКМ Панорамирование Колесо Масштаб Клик Выбор точки (Record)

Сфера: 2000 т.

Плоскости: 0 т.

Объем (Мениски): 0 т.

Всего: 0 т.

Структура Record в Паскале

Определение типа record с 9 параметрами для каждой точки (координаты, сферические углы, направляющие косинусы):

type
  // Группы точек: сфера и 8 плоскостей под 45 градусов через ось Z
  TPointGroup = (pgSphere, 
                 pgPlane1, pgPlane2, pgPlane3, pgPlane4,
                 pgPlane5, pgPlane6, pgPlane7, pgPlane8);

  // Запись точки с координатами, потенциалом, косинусами и телесным углом
  TPointRecord = record
    id: Integer;           // Уникальный номер точки
    groupType: TPointGroup;// Принадлежность (Сфера / Плоскость 1..8)
    isSurface: Boolean;    // True - поверхность (бледная), False - внутри
    potentialLevel: Integer;// Уровень потенциала (1..8)
    potentialVal: Real;    // Численный потенциал V(r)
    omega: Real;           // Суммарный телесный угол dOmega (стерадиан)
    x, y, z: Real;         // Декартовы координаты
    r: Real;               // Расстояние от центра sqrt(x²+y²+z²)
    theta, phi: Real;      // Полярный и азимутальный углы (радианы)
    cos_alpha: Real;       // Направляющий косинус нормали к X
    cos_beta: Real;        // Направляющий косинус нормали к Y
    cos_gamma: Real;       // Направляющий косинус нормали к Z
  end;

Экспорт и интеграция

Сгенерированные данные

0 точек

#	Группа	X	Y	Z	Ω (ср)	cos α	cos β	cos γ

Готовый код для PascalABC.NET