Разработка программной системы, обеспечивающей отображение и сравнение в трехмерном пространстве исходных данных из двух матричных форм

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

ив цветов

}:= true;;TMat.cb_SurfaceClick(Sender: TObject);(self.MCurrent^);;TMat.Button2Click(Sender: TObject);

//возможно, режим анализа поверхностейself.ComboBoxMatrix.ItemIndex = 2 thennot self.MakeAnalysMatrixData(self.myMatrix01, self.myMatrix02, self.myMatrix03) then

ShowMessage('Не удалось провести анализ поверхностей!');

end;.GL(self.MCurrent^);;;.Hide;.InitialDir:=ExtractFilePath(Application.ExeName);FoDialog.Execute thenself.LoadMatrixFromDtFile(FoDialog.FileName,self.MCurrent^) then.GL(self.MCurrent^);else //Yess=false.Hide;(Handle,PAnsiChar('Ошибка в файле данных!'+#13#10+self.mess),PAnsiChar('Ошибка'),MB_OK or MB_ICONINFORMATION);.Hide;

// w:=0;;;;TMat.ComboBoxMatrixChange(Sender: TObject);self.ComboBoxMatrix.ItemIndex = 0 then self.MCurrent := @self.myMatrix01;self.ComboBoxMatrix.ItemIndex = 1 then self.MCurrent := @self.myMatrix02;self.ComboBoxMatrix.ItemIndex = 2 then self.MCurrent := @self.myMatrix03;.Button2.Caption := 'Загрузить';self.ComboBoxMatrix.ItemIndex = 2 then self.Button2.Caption := 'Провести анализ';.GL(self.MCurrent^);;;TMat.Edit3Change(Sender: TObject);_x:integer;_y:integer;:real;

begin

//изменение значения вершины

pos_x := self.UpDown1.Position-1;_y := self.UpDown2.Position-1;:= StrToFloatDef(self.Edit3.Text,-1000);value > -1000 then.MCurrent^.vx[pos_x,pos_y] := value;

// else

// self.Edit3.Text := FloatToStr(self.MCurrent^.vx[pos_x,pos_y]);

//теперь просчитываем цвета

With self.MCurrent^ do

begin[pos_x,pos_y,1]:=(vx[pos_x,pos_y]+1)/9;[pos_x,pos_y,2]:=1-vx[pos_x,pos_y+1]/9;[pos_x,pos_y,3]:=0;[pos_x,pos_y,1]:=(vx[pos_x,pos_y]+1)/9;[pos_x,pos_y,2]:=1-vx[pos_x,pos_y+1]/9;[pos_x,pos_y,3]:=0;;

//после изменений перерисовываем

self.GL(self.MCurrent^);

exit;;TMat.BitBtnSaveClick(Sender: TObject);:TStringList;:string;,y:integer;

//button "save" clickself.MCurrent^.w = 0 then('Матрица не загружена!');

exit;;self.SaveDialogMain.FileName = '' then.SaveDialogMain.InitialDir := ExtractFileDir(ParamStr(0));not self.SaveDialogMain.Execute() then exit;

//---------------------------------------------:= TStringList.Create();self.MCurrent^ doy:= 0 to w-1 do:= '';k:= 0 to w-1 do:= stroka + ' ' + FloatToStr(vx[k,y]);;;:= trim(stroka);.Add(stroka);;;.SaveToFile(self.SaveDialogMain.FileName);.Free();

//---------------------------------------------('Матрица была сохранена.');;;.