http://www.informatik.kz

Дипломная работа

Тема: "Графика в программировании".

Объем: 76 страницы.

Фрактальный морфинг
Если есть описание еще одного фрактала в формате IFS, например листа папоротника, можно произвести морфинг (непрерывное преобразование одного в другой). Приведем фрагмент программы, задающий лист папоротника в формате IFS в пакете FRACTINT (см.
 

графика в паскале, дипломная работа

 

PROGRAM FRACTAL;
USES CRT,GRAPH,DOS;
LABEL 1;
VAR
RE,IM,RE1,IM1: REAL ;
V,X,Y : INTEGER;
C: STRING;
procedure GrInit; { инициализация режима графики }
var GraphDriver : Integer; { для графического адаптера }
GraphMode : Integer; { для графического режима }
ErrorCode : Integer; { для кода ошибки }
begin
GraphDriver:= Detect; { режим автоопределения }
InitGraph(GraphDriver,GraphMode,''); { инициализация}
ErrorCode:=GraphResult; { результат инициализации }
if ErrorCode <> grOk then { если не успешно, то ...}
begin Writeln('Ошибка графики:',GraphErrorMsg(ErrorCode));
Writeln('Программа остановлена.');
Halt (1)
end {if} end;
PROCEDURE QWA ;
BEGIN RE1:=RE*RE-IM*IM ;
IM:=2*RE*IM ;
RE:=RE1 ;
END ;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
BEGIN
GRINIT;
SETFILLSTYLE(1,WHITE) ; BAR(0,0,640,480) ;
X:=-320 ;
REPEAT Y:=-240 ; ...
 

паскаль, графика, морфинг, фракталы, дипломная работа

 
вот фрагмент программы для его получения.
:=-320 ;
REPEAT
Y:=-240 ;
REPEAT
V:=0 ;
RE:=0.0075*X ;
IM:=0.0075*Y ;
REPEAT
QWA; kub;
RE:=RE-0.1 ;
IM:=IM+0.828201638 ;
IF RE*RE > 10 THEN GOTO 1 ; ...

...

Купить за СМС  "Графика в программировании"    Цена: 450 тенге = 3 у.е.


Назад


Rambler's Top100       Каталог Интернет ресурсов. Казахстанский интернет.   Resurs.kz: сайты Казахстана и раскрутка сайта