Узоры с помощью программ
Здесь приведены узоры, которые я получил с помощью написанных мной компьютерных программ.

 

Узоры и фрагменты соответствующих программ на языке C++

 

Черная звезда

 
	int x,y,z;

	for( y=0; y<256; y++ ){
		for( x=0; x<256; x++ ){
			double rad=sqrt((x-128)*(x-128)+(y-128)*(y-128));
			int a=(int)((cos(rad/64)+1)*128);
			COLORREF col=RGB(a/2,a/2,a);
			dc->SetPixel(x,y,col);
		}
	}

	for( z=0; z<314; z++ ){
		dc->MoveTo(128,128);
		x=(int)(128+cos(z)*128);
		y=(int)(128+sin(z)*128);
		dc->LineTo(x,y);
	}

Зеленые квадраты

	int x,y,z;
	COLORREF col;

	for( y=0; y<256; y++ ){
		for( x=0; x<256; x++ ){
			double rad=fabs(x+y-256);
			int a=(int)((cos(rad/64)+1)*127);
			col=RGB(0,255-a,0);
			dc->SetPixel(x,y,col);
		}
	}

	for( z=0; z<314/2; z++ ){
		x=(int)(cos(z/100.)*128);
		y=(int)(sin(z/100.)*128);
		dc->MoveTo(0,0);
		dc->LineTo(x,y);
		dc->MoveTo(255,255);
		dc->LineTo(255-x,255-y);
	}

	col=RGB(0,255,0);

	for( z=0; z<255; z+=16 ){
		dc->FillSolidRect(z,256-z-16,16,16,col);
	}

Дифференциальные уравнения

Программу, рисующую такие узоры, можно скачать здесь: uzdifur.rar
( архив содержит как исходные тексты на C++, так и файл, который можно запускать - Release/Uzc.exe )

 

Узоры (без самих программ)

 

Осаждение блуждающих частиц

 

На главную страничку