Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование в широком смысле слова > Алгоритмика

Алгоритмика Об алгоритмах вообще; методы, обсуждения способов решения

Ответ
 
Опции темы
Старый 05.04.2006, 22:08   #16
jimon
 
Сообщений: n/a
у меня по красивее будет
Graphics 640,480,16,2
SetBuffer BackBuffer()

x_min# = -3.2
x_max# = 3.2
Const step_x# = 0.01

y_min# = -2.4
y_max# = 2.4
Const step_y# = 0.01

zoom# = 100

or_x = 320
or_y = 240

time_start = MilliSecs()

Cls

LockBuffer BackBuffer()

For x# = x_min To x_max Step step_x
For y# = y_min To y_max Step step_y

op#=0
oq#=0
p#=0
q#=0
itr=0

While ( op+oq<4 And itr < 96)
	p = p*q*2 + y
	q = op-oq + x
	op = p*p
	oq = q*q
	itr = itr + 1
Wend


x_draw# = x*zoom+or_x
y_draw# = y*zoom+or_y

WritePixelFast x_draw,y_draw,IntColor(op Shl 2,itr Shl 1,itr,255),BackBuffer()

Next

AppTitle x#
Next

UnlockBuffer BackBuffer()

Flip

AppTitle MilliSecs()-time_start

WaitKey
End

Function IntColor(R,G,B,A=255)
Return A Shl 24 Or R Shl 16 Or G Shl 8 Or B Shl 0
End Function
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
имя текстуры Spy4433 3D-программирование 3 01.09.2009 15:03
текстуры Samarik 3D-программирование 12 13.10.2008 09:42
Текстуры neoleg Болтовня 3 01.08.2007 01:13


Часовой пояс GMT +4, время: 12:01.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com