• наименование – это название трехмерного объекта (эскиза, операции, вс плоскости, детали, сборки и пр.). Наименование, которое система присваивает автоматически (например, Эскиз:1, Операция вращения:2), пользователь может изменить, обозначив принадлежность или назначение трехмерного элемента в модели. Наименование отображается в дереве построения модели возле значка каждой операции или элемента;
• видимость – это свойство управляет отображением трехмерного объекта в документе (скрытый или видимый). Переключение с невидимого на видимый режим осуществляется с команд контекстного меню дерева построения: Показать и Скрыть соответственно;
• состояние – любой объект может быть включен или исключен из расчета. При исключенном из расчета элементе модель перестраивается так, как будто этого элемента вообще нет. Для управления состоянием также применяются команды контекстного меню дерева построения: Включить в расчет и Исключить из расчета;
• цвет – задает цвет объекта в модели. Это свойство недоступно только для значка начала системы координат, каждая стрелка которого имеет свой предустановленный цвет (ось X – красный, ось Y – зеленый, ось Z – синий). Цвет трехмерного объекта выбирается из раскрывающегося списка Цвет на вкладке Свойства панели свойств при создании каждого объекта. Если представленные в списке цвета вас не устраивают (в нем всего 40 цветов), вы можете воспользоваться стандартным диалоговым окном выбора цвета операционной системы Windows, в котором указать произвольный цвет. При задании цвета объекта вы также можете установить флажок Использовать цвет детали, в результате чего объект будет иметь тот же цвет, который задан для всей детали.
const
n = 4;
begin
var a := new real[n, n](
(1.17, 0.53, -0.84, -0.34),
(0.64, -0.72, -0.43, 0.17),
(0.32, 0.43, -0.93, 0.23),
(1.35, -0.72, 1.38, 0.35));
var b := new real[n](1.15, 0.15, -0.48, 0.88);
var t := ArrFill(n, True);
for var j := 0 to n - 1 do begin
(var amin, var imin) := (real.MaxValue, -1);
for var i := 0 to n - 1 do
if (abs(a[i, j]) < amin) and t[i] then
(imin, amin) := (i, a[i, j]);
if amin = 0 then begin
t[imin] := False;
break
end;
for var k := 0 to n - 1 do
a[imin, k] /= amin; b[imin] /= amin;
t[imin] := False;
for var i := 0 to n - 1 do begin
var coef := -a[i, j] / a[imin, j];
if i <> imin then begin
for var k := 0 to n - 1 do
a[i, k] := a[imin, k] * coef + a[i, k];
b[i] := b[imin] * coef + b[i]
end
end
end;
b.PrintLines
end.