Мобильный LiveInternet фрактальная геометрия | jssw

Авторизация

Дневник jssw Лента друзей - Дневник - Полная версия

фрактальная геометрия 25-03-2016 13:56 к комментариям - к полной версии - понравилось!

# include
#include
#include
int main()
{

initwindow(620,600);
setcolor(BLUE);

int a,l,n,g,e,r, x,y,z,k,m;
l=300;
x=300;
y=300;
z=100;
a=300;

n=180;

circle (x, y, n);
l=300;
m=l-n;
line (l,l,l,m);

k=l+n;
m=l-n;

line (l,l,k,l);
line (l,m,k,l);
line (l,l-(n/2),l+(n/2),l);
line (l+(n/2),l-(n/2),l+(n/2),l);
line (l,l-(n/2),l+(n/2),210);
line (l,k,k,l);
line (l,m,m,l);
line (m,l,l,l);
line (m,l,l,k);
line (l,l,l,k);
line (l,m,k,m);
line (k,m,k,l);
line (l+(n/2),l-n,l+n,l-(n/2));

g=201;
circle (x, y, g);
l=300;
m=l-g;
line (l,l,l,m);

k=l+g;
m=l-g;

line (l,l,k,l);
line (l,m,k,l);
line (l,l-(g/2),l+(g/2),l);
line (l+(g/2),l-(g/2),l+(g/2),l);
line (l,l-(g/2),l+(g/2),l-(g/2));
line (l,k,k,l);
line (l,m,m,l);
line (m,l,l,l);
line (m,l,l,k);
line (l,l,l,k);
line (l,m,k,m);
line (k,m,k,l);
line (l+(g/2),l-g,l+g,l-(g/2));

e=225;
circle (x, y, e);
l=300;
m=l-e;
line (l,l,l,m);

k=l+e;
m=l-e;

line (l,l,k,l);
line (l,m,k,l);
line (l,l-(e/2),l+(e/2),l);
line (l+(e/2),l-(e/2),l+(e/2),l);
line (l,l-(e/2),l+(e/2),l-(e/2));
line (l,k,k,l);
line (l,m,m,l);
line (m,l,l,l);
line (m,l,l,k);
line (l,l,l,k);
line (l,m,k,m);
line (k,m,k,l);
line (l+(e/2),l-e,l+e,l-(e/2));

r=251;
//...180,201,225,251,281,314
//21,24,26,30,33
// c=sqrt(r*r+((r/2)*(r/2)));
getch();
closegraph();
return 0;
}

[554x608]

вверх^ к полной версии понравилось! в evernote

Вы сейчас не можете прокомментировать это сообщение.

Дневник фрактальная геометрия | jssw - jssw: Квадрат гипотенузы. | Лента друзей jssw / Полная версия Добавить в друзья Страницы: раньше»