Сетка точек (ось Z, 45°)

Ось Z Главная ось

Ось X 0° (XZ)

Ось Y 90° (YZ)

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

Сфера: 2000 т.

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

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

Всего: 0 т.

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

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

type
  // Признак принадлежности элементу геометрии
  TCheckType = (Sfera, Rebro1, Rebro2, Objem);

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

  // Запись точки типа RECORD
  TPointRecord = record
    id: Integer;           // Уникальный идентификатор
    groupType: TPointGroup;// Принадлежность (Сфера / Плоскость 1..8)
    Check: TCheckType;     // Sfera, Rebro1, Rebro2, Objem
    isSurface: Boolean;    // True для границы сферы
    isMeniscus: Boolean;   // True для выделенного мениска
    sectorIdx: Integer;    // Номер сектора (0..7)
    rayIdx: Integer;       // Индекс углового луча в секторе (1..NUM_RAYS)
    radialIdx: Integer;    // Индекс радиуса (1..NUM_RADIAL)
    zIdx: Integer;         // Индекс высоты Z
    potentialLevel: Integer;// Уровень потенциала (1..8)
    potentialVal: Real;    // Численное значение потенциала V(P_in)
    InPotencial: Real;     // Внутренний потенциал
    OutPotencial: Real;    // Внешний потенциал
    omega: Real;           // Численный интеграл dOmega (стерадиан)
    x, y, z: Real;         // Декартовы координаты
    r: Real;               // Расстояние до центра сферы
    theta: Real;           // Полярный угол к оси Z (радианы)
    phi: Real;             // Азимутальный угол в плоскости XY (радианы)
    cos_alpha: Real;       // Направляющий косинус нормали по X
    cos_beta: Real;        // Направляющий косинус нормали по Y
    cos_gamma: Real;       // Направляющий косинус нормали по Z
  end;

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

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

0 точек

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

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