ЭТЮДЫ

[denpopov]

Вот OBOI на бейсике: http://zxpress.ru/book_articles.php?id=416

Кстати, а почему на zxpress текста нет до сих пор?

[denpopov]

Нужна идея - как построить данные(см.рис.):

Скрытый текст

[свернуть]

[Andrew771]

какой график функции? От него и пляши.

[denpopov]

какой график функции?

на синусоиду разве не похоже?

[esl]

Не оно ?
https://www.dropbox.com/s/eyrfb4ikvv0p3sd/dots.html

[denpopov]

Не оно ?

по идее похоже, просто много вычислений..

[Advertiser]

[Andrew771]

на синусоиду разве не похоже?

вот это что: http://www.all-fizika.com/article/in...id_article=452
сложение двух синусоид.

---------- Post added at 15:15 ---------- Previous post was at 15:13 ----------

математически называются "биения"

[denpopov]

что-то у меня нелады с тригонометрией получается пока что плохо..

[Titus]

что-то у меня нелады с тригонометрией получается пока что плохо..

Такую большую картинку следует убирать под спойлер.

Складываешь две синусоиды друг с другом, и получаешь искомое.

Например pi/10 и pi/11

[denpopov]

ага, примерно вот так(если целые числа юзать)

Dim s.b(256)

For i=0 To 255
  s(i)=Int(127*Sin(i*#PI/128))
Next i


If InitSprite() And OpenWindow(0,0,0,640,480,"SineWave",#PB_Window_SystemMenu) And OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) 
  Repeat 
    StartDrawing(ScreenOutput()) 
    
    For i=0 To 255
      t.a=i*4
      y1.b=s(t)
      y2.b=s(i>>1)
      Plot(i,y1+128,RGB(0,255,0))
      Plot(i,128-y2,RGB(255,0,0))
      
      y3=Int(y2*y1/256)
      Box(i,128+y3,1,1,RGB(255,255,255))
    Next i
       StopDrawing() 
      FlipBuffers() 
  Until WindowEvent()=#PB_Event_CloseWindow 
EndIf