forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Болтовня (http://forum.boolean.name/forumdisplay.php?f=25)
-   -   Формула конопли (http://forum.boolean.name/showthread.php?t=4509)

HolyDel 20.09.2007 22:49
Формула конопли
 
Российские ученые вывели математическую формулу конопли.
вот она: R# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))

а вот чо получается:

Код:
Graphics 640,480,32,2
SetBuffer BackBuffer()

a#=0
Color 255,255,255
While a<360
        a=a+0.01
        R# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))
        x#=320+Sin(a+90)*R*200
        y#=400+Cos(a+90)*R*200
        Plot x,y

Wend

Flip
WaitKey

dimanche13 20.09.2007 22:55
Re: Формула конопли
 
Зачет! видел уже где-то.. правда на картинке, думал боян а ведь и правда... она чертовка!

Данил 20.09.2007 23:03
Re: Формула конопли
 
Круто!

HolyDel 21.09.2007 00:38
Re: Формула конопли
 
вот второй вариант (кто больше):
Код:
Graphics 640,480,32,2
SetBuffer BackBuffer()

For i=1 To 12
       

a#=0
Color 120-i*10,255-i*20,40-i
While a<360
        a=a+0.01
        R# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))
        x#=320+Sin(a+90)*R*(200-(i*10))
        y#=400+Cos(a+90)*R*(200-(i*10))
        Plot x,y
Wend

Next

Dim buff(640,480,3)
LockBuffer BackBuffer()

For i=1 To 640
        For j=1 To 480
                buff(i,j,0)=ReadPixelFast(i,j,BackBuffer())
                buff(i,j,1)=r(buff(i,j,0))
                buff(i,j,2)=g(buff(i,j,0))
                buff(i,j,3)=b(buff(i,j,0))
        Next
Next

For i=2 To 639
        For j=2 To 479
                r_=0
                g_=0
                b_=0
                For dx=-1 To 1
                For dy=-1 To 1
                        r_=r_+buff(i+dx,j+dy,1)
                        g_=g_+buff(i+dx,j+dy,2)
                        b_=b_+buff(i+dx,j+dy,3)
                Next
                Next
                buff(i,j,0)=rgb(r_/9,g_/9,b_/9)
        Next
Next
For i=1 To 640
        For j=1 To 480
                WritePixelFast i,j,buff(i,j,0),BackBuffer()
        Next
Next

UnlockBuffer BackBuffer()
Flip
WaitKey

Function rgb(r,g,b)
        Return r Shl 16 Or g Shl 8 Or b
End Function

Function r(v)
        Return v Shr 16 And $FF
End Function

Function g(v)
        Return v Shr 8 And $FF
End Function

Function b(v)
        Return v And $FF
End Function

impersonalis 21.09.2007 01:31
Re: Формула конопли
 
mav

Diplomat 21.09.2007 01:41
Re: Формула конопли
 
У меня всё работает нормально. Если у тебя глючит- просто замени ReadPixelFast и WritePixelFast на ReadPixel и WritePixel- всё будет работать и у тебя.

2 HolyDel: Сколько раз обсуждалось, не надо юзать эти команды. Они глючат самыми непредсказуемыми способами, из которых МАВ- самый милый, приятный и легко идентифицируемый. )

Crystal 21.09.2007 03:07
Re: Формула конопли
 
Нетбы учёным чёнить стоещее изобрести, а они формулы канопли выводят.
Наркоманы пля.

Так будет лучше )
В стиле инков.

Код:
Graphics 1024,768,32,2
SetBuffer BackBuffer()

a#=0
Color 255,255,255
While a<360
    a=a+1.7
    R# = (3+Sin(a))*(30-.1*Abs(Sin(4*a)))*(.004+.900*Cos(200*a))
    x#=320+Sin(a+90)*R*3
    y#=400+Cos(a+90)*R*3
    Plot x,y

Wend

Flip
WaitKey

HolyDel 21.09.2007 09:51
Re: Формула конопли
 
Посчет WritePixelFast и ReadPixelFast. юзал, юзаю и буду юзать.
вроде как вероятность возникновения MAV-а увеличивается от времени блокировки поверхности.

Impersonalis, попробуй ето:
Код:
Graphics 640,480,32,2
SetBuffer BackBuffer()

For i=1 To 12
       

a#=0
Color 120-i*10,255-i*20,40-i
While a<360
        a=a+0.01
        r# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))
        x#=320+Sin(a+90)*R*(200-(i*10))
        y#=400+Cos(a+90)*R*(200-(i*10))
        Plot x,y
Wend

Next

Dim buff(640,480,3)
LockBuffer BackBuffer()

For i=1 To 640
        For j=1 To 480
                buff(i,j,0)=ReadPixelFast(i,j,BackBuffer())
                buff(i,j,1)=r(buff(i,j,0))
                buff(i,j,2)=g(buff(i,j,0))
                buff(i,j,3)=b(buff(i,j,0))
        Next
Next
UnLockBuffer backBuffer()

For i=2 To 639
        For j=2 To 479
                r_=0
                g_=0
                b_=0
                For dx=-1 To 1
                For dy=-1 To 1
                        r_=r_+buff(i+dx,j+dy,1)
                        g_=g_+buff(i+dx,j+dy,2)
                        b_=b_+buff(i+dx,j+dy,3)
                Next
                Next
                buff(i,j,0)=rgb(r_/9,g_/9,b_/9)
        Next
Next

lockBuffer BackBuffer()
For i=1 To 640
        For j=1 To 480
                WritePixelFast i,j,buff(i,j,0),BackBuffer()
        Next
Next

UnlockBuffer BackBuffer()
Flip
WaitKey

Function rgb(r,g,b)
        Return r Shl 16 Or g Shl 8 Or b
End Function

Function r(v)
        Return v Shr 16 And $FF
End Function

Function g(v)
        Return v Shr 8 And $FF
End Function

Function b(v)
        Return v And $FF
End Function

impersonalis 21.09.2007 17:49
Re: Формула конопли
 
не помогло

PaKo 21.09.2007 17:55
Re: Формула конопли
 
У меня тоже MAV, но когда меняю ReadPixelFast и WritePixelFast на ReadPixel и WritePixel, всё норм.

Да и прикольная формула!! пригодится! :)

Diplomat 21.09.2007 18:00
Re: Формула конопли
 
Цитата:
вроде как вероятность возникновения MAV-а увеличивается от времени блокировки поверхности.
Нет. Давно проверено и доказано эмпирически: вероятность возникновения MAV-а на "Fast-ах" увеличивается исключительно в связи со сменой расположения звёзд на небосклоне и возможностью наиболее эффективного применением законов Мерфи против разработчика.
Цитата:
юзал, юзаю и буду юзать.
Да пожалуйста. У 20% юзверей будут вылеты, а еще у 10%- совершенно психоделические глюки самого разного толка.
Цитата:
когда меняю ReadPixelFast и WritePixelFast на ReadPixel и WritePixel, всё норм.
Естественно всё нормально, алгоритм-то вполне рабочий, глючат функции.

impersonalis 21.09.2007 18:35
Re: Формула конопли
 
Цитата:
Сообщение от PaKo
когда меняю ReadPixelFast и WritePixelFast на ReadPixel и WritePixel, всё норм.

Да и прикольная формула!! пригодится! :)
аналогично

ABTOMAT 05.11.2007 00:16
Re: Формула конопли
 
Аффтару зачот! Эта пять! :-D

ЛысыЙ_Чук-Иванчук 05.11.2007 12:44
Re: Формула конопли
 
Вложений: 2
У меня мава нет, но канапля не ресуется до конца.:(

ABTOMAT 05.11.2007 18:14
Re: Формула конопли
 
ЛысыЙ_Чук-Иванчук, у меня оно так вот висит пару секунд а потом дорисовывавется.


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

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot