Fractals

[HolyDel]

как уже написала Chrono, ~ - инвертирует биты. ето есть и в блитз и в С++. для чисел со знаком как правило число меняется на противоположное по модулю число и еще -1. например ~6=-7 ;~-7 = 6;~0 = -1; и т.д.
например
для данного случая ~a*~b равносильно (a+1)*(b+1). Хотя второе будет выполняться медленнее.
ПС. За всю мою девелоперскую жизнь ета операция ни разу ни пригодилась.

/Chrono Syndrome: Еще раз напишешь "Chrone", убью ...

[ZanoZa]

я сначала не понял про что вы говорил, потом после внимательного прочтения понял что это про биты

я тут смотрю на ваши фракталы
ето простые неинтернируемые формулы для построения графиков ...
посмотрите на вот ето http://www.gamedev.ru/code/forum?id=50111
тут 4д график строится и все намного увлекательней

фрактал геометрический ето вообще интернируемая функция
http://www.codenet.ru/progr/fract/fractr1.php
поетому вы балуетесь графиками ...

ps. может я и не прав ... но ето imho правильно

посмотрите на вот ето http://www.gamedev.ru/code/forum?id=50111
тут 4д график строится и все намного увлекательней

Красиво... Надо будет как-нибудь попробовать соорудить что-то подобное...

для данного случая ~a*~b равносильно (a+1)*(b+1). Хотя второе будет выполняться медленнее.

Да я там, честно говоря, эти операции уже попросту от балды лепила ...

Нашла сегодня еще один красивый график:

V = (Y - 300) * (X - 400) * 7
Plot(X, Y, V)

[ZanoZa]

Джимон за сссылки канешна спс, но чё-то помимо слов я от тебя ниче не заметил

[ResX]

InitSprite() : InitKeyboard()
OpenWindow(0, 0, 0, 400, 400, "--Fractal Test--", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
MessageRequester("Кнопги", "I - показать FPS, счётчик и формулу" + #CRLF$ + "F - перейти к отображению в полном экране (800x600)" + #CRLF$ + "W - перейти к отображению в окне" + #CRLF$ + "Esc - убить прожку")
Global Width = WindowWidth(0) - 1, Height = WindowHeight(0) - 1, X, Y, link.l = 10, full_screen.b = 0, xxx.l = 0, str.s = "", f.l = 0, t.l = GetTickCount_()
OpenWindowedScreen(WindowID(0), 0, 0, Width + 1, Height + 1, #False, 0, 0)
SetActiveWindow(0)
LoadFont(0, "Comic Sans MS", 10, #PB_Font_Bold)
LoadFont(1, "Tahoma", 7)
CreateImage(0,200,200)
CreateSprite(0, 400, 400)
Procedure d(d.l)
If IsScreenActive()
str = "fps: " + StrD(f / ((GetTickCount_() - t)  / 1000), 1) + " * link = " + StrQ(link)
If GetTickCount_() - t = 10000
 t = GetTickCount_()
 f = 0
EndIf
ResizeImage(0, 200, 200)
StartDrawing(ImageOutput(0))
 Box(0, 0, 200, 200)
 GetCursorPos_(cmxy.POINT)
 For X = 20 To 180
  For Y = 20 To 180
;--Fractal[--;
   ;delta = Tan(x) * Tan(y) * ATan((x * y) * #PI)
   one_of = Sin(Sqr( ((x + Log10(y / #PI / 100000000)) * link) + ((y + Log10(x / #PI / 100000000)) * (link / #PI)) )) * link
   xxx = one_of * (ATan(link + (link / #PI)) + #PI)
   Plot(x, y, xxx)
;--]Fractal--;
  Next Y
 Next X
StopDrawing()
FlipBuffers(2) : ClearScreen(Sqr(Sin(link / #PI) * #PI * Log(link / 360)))
 ResizeImage(0, 400, 400)
If IsScreenActive()
StartDrawing(SpriteOutput(0))
 DrawingMode(#PB_2DDrawing_Transparent)
 DrawImage(ImageID(0), 0, 0)
 If GetAsyncKeyState_(#VK_I)
  DrawingFont(FontID(0))
  DrawText(10, 10, str, #White)
  DrawingFont(FontID(1))
  DrawText(10, 365, "Sin(Sqr( ((x + Log10(y / #PI / 100000000)) * link) + ((y + Log10(x / #PI / 100000000))", #White)
  DrawText(10, 375, " * (link / #PI)) )) + ((y + Log10(x / #PI / 100000000)) * (link / #PI)) )) * link", #White)
  DrawText(10, 385, " * (ATan(link + (link / #PI)) + #PI) - формула, которая рисует всё это...", #White)
 EndIf
DrawingMode(#PB_2DDrawing_Outlined)
Box(1, 1, SpriteWidth(0) - 1,  SpriteHeight(0) - 1, RGB(30,10,5))
StopDrawing()
DisplaySprite(0, (Width / 2) -(SpriteWidth(0) / 2), (Height / 2) -(SpriteHeight(0) / 2))
EndIf
link + 1
ExamineKeyboard()
If KeyboardPushed(#PB_Key_F) And full_screen = 0
 SetRefreshRate(75)
 CloseScreen() : CloseWindow(0) : Delay(100) : OpenScreen(800, 600, 32, "--Fractal Test--") : Delay(100) : full_screen = 1 : Width = 800 : Height = 600
 CreateSprite(0, 400, 400)
EndIf
If KeyboardPushed(#PB_Key_W) And full_screen = 1
 CloseScreen()
 OpenWindow(0, 0, 0, 400, 400, "--Fractal Test--", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
 OpenWindowedScreen(WindowID(0), 0, 0, Width + 1, Height + 1, #False, 0, 0) : full_screen = 0 : Width = 400 : Height = 400
 SetActiveWindow(0)
 CreateSprite(0, 400, 400)
EndIf
If KeyboardPushed(#PB_Key_Escape)
 If IsSprite(0) : FreeSprite(0) : EndIf
 If IsImage(0) : FreeImage(0) : EndIf
 End
EndIf
If link >= 1000000 : link = 10 : EndIf
f + 1
Delay(d)
EndIf
EndProcedure
While WindowEvent() <> #PB_Event_DataReceived : d(0) : Delay(1) : Wend

эээ... вод, написал вместе с "балдой" )

[ResX]

он живой!!! написан мной...

Сообщение от ResX

он живой!!! написан мной...

Исходник ?

[ResX]

Сообщение от Chrono Syndrome

Исходник ?

очень хочется? там же формула приведена lin + 0.0002 : link + 1 каждый кадр

[ResX]

вод ещё один )

Сообщение от ResX

очень хочется? там же формула приведена lin + 0.0002 : link + 1 каждый кадр

Да не, не очень. Просто не совсем понятно, зачем нужны бесполезные проги без исходников.

[ResX]

Сообщение от Chrono Syndrome

Да не, не очень. Просто не совсем понятно, зачем нужны бесполезные проги без исходников.

Во всём есть смысл

Сообщение от ResX

Во всём есть смысл

Ес-но. Но, честно говоря, очень не хотелось бы, чтобы этот смысл заключался в полевых испытаниях нового вируса собственной конструкции или банальном рапространении трояна... Посему нормальные люди не торопятся качать .EXE'шник с одной строчкой малограмотного описания от незнакомого человека. Но это я так, к слову.

[ResX]

ну-у-у... можно, как бы, доверять код выше есть. я его изменил малость...