Найдено в Интернетах
Код:
If InitSprite() And OpenWindow(0,0,0,640,480,"CatCurve",#PB_Window_SystemMenu) And OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)
; Repeat
StartDrawing(ScreenOutput())
t.f=0
mu=2
While t<2*#PI
x.f=0-721/4*Sin(t)+196/3*Sin(2*t)-86/3*Sin(3*t)-131/2*Sin(4*t)
x=x+477/14 *Sin(5 *t) + 27 *Sin(6 *t) - 29/2 *Sin(7 *t) + 68/5 *Sin(8*t)
x=x+1/10 *Sin(9 *t) + 23/4 *Sin(10 *t) - 19/2 *Sin(12 *t) - 85/21 *Sin(13 *t)
x=x+2/3*Sin(14*t)+27/5*Sin(15*t)+7/4*Sin(16*t)+17/9*Sin(17*t)
x=x-4*Sin(18*t)-1/2*Sin(19*t)+1/6*Sin(20*t)+6/7*Sin(21*t)
x=x-1/8*Sin(22*t)+1/3*Sin(23*t)+3/2*Sin(24*t)+13/5*Sin(25*t)
x=x+Sin(26*t)-2*Sin(27*t)+3/5*Sin(28*t)-1/5*Sin(29*t)
x=x+1/5*Sin(30*t)+(2337*Cos(t))/8-43/5*Cos(2*t)+322/5*Cos(3*t)
x=x-117/5*Cos(4*t)-26/5*Cos(5*t)-23/3*Cos(6*t)+143/4*Cos(7*t)
x=x-11/4*Cos(8*t)-31/3*Cos(9*t)-13/4*Cos(10*t)-9/2*Cos(11*t)
x=x+41/20*Cos(12*t)+8*Cos(13*t)+2/3*Cos(14*t)+6*Cos(15*t)
x=x+17/4*Cos(16*t)-3/2*Cos(17*t)-29/10*Cos(18*t)+11/6*Cos(19*t)
x=x+12/5*Cos(20*t)+3/2*Cos(21*t)+11/12*Cos(22*t)-4/5*Cos(23*t)
x=x+Cos(24*t)+17/8*Cos(25*t)-7/2*Cos(26*t)-5/6*Cos(27*t)
x=x-11/10*Cos(28*t)+1/2*Cos(29*t)-1/5*Cos(30*t)
y.f = -(637 * Sin(t)) / 2 - 188 / 5 * Sin(2 * t) - 11 / 7 * Sin(3 * t)
y=y- 12 / 5 * Sin(4 * t) + 11 / 3 * Sin(5 * t) - 37 / 4 * Sin(6 * t)
y=y+ 8 / 3 * Sin(7 * t) + 65 / 6 * Sin(8 * t) - 32 / 5 * Sin(9 * t)
y=y- 41 / 4 * Sin(10 * t) - 38 / 3 * Sin(11 * t) - 47 / 8 * Sin(12 * t)
y=y+ 5 / 4 * Sin(13 * t) - 41 / 7 * Sin(14 * t) - 7 / 3 * Sin(15 * t)
y=y- 13 / 7 * Sin(16 * t) + 17 / 4 * Sin(17 * t) - 9 / 4 * Sin(18 * t)
y=y+ 8 / 9 * Sin(19 * t) + 3 / 5 * Sin(20 * t) - 2 / 5 * Sin(21 * t)
y=y+ 4 / 3 * Sin(22 * t) + 1 / 3 * Sin(23 * t) + 3 / 5 * Sin(24 * t)
y=y- 3 / 5 * Sin(25 * t) + 6 / 5 * Sin(26 * t) - 1 / 5 * Sin(27 * t)
y=y+ 10 / 9 * Sin(28 * t) + 1 / 3 * Sin(29 * t) - 3 / 4 * Sin(30 * t)
y=y- (125 * Cos(t)) / 2 - 521 / 9 * Cos(2 * t) - 359 / 3 * Cos(3 * t)
y=y+ 47 / 3 * Cos(4 * t) - 33 / 2 * Cos(5 * t) - 5 / 4 * Cos(6 * t)
y=y+ 31 / 8 * Cos(7 * t) + 9 / 10 * Cos(8 * t) - 119 / 4 * Cos(9 * t)
y=y- 17 / 2 * Cos(10 * t) + 22 / 3 * Cos(11 * t) + 15 / 4 * Cos(12 * t)
y=y- 5 / 2 * Cos(13 * t) + 19 / 6 * Cos(14 * t) + 7 / 4 * Cos(15 * t)
y=y+ 31 / 4 * Cos(16 * t) - Cos(17 * t) + 11 / 10 * Cos(18 * t)
y=y- 2 / 3 * Cos(19 * t) + 13 / 3 * Cos(20 * t) - 5 / 4 * Cos(21 * t)
y=y+ 2 / 3 * Cos(22 * t) + 1 / 4 * Cos(23 * t) + 5 / 6 * Cos(24 * t)
y=y+ 3 / 4 * Cos(26 * t) - 1 / 2 * Cos(27 * t) - 1 / 10 * Cos(28 * t)
y=y- 1 / 3 * Cos(29 * t) - 1 / 19 * Cos(30 * t)
Box(x/mu+320,240-y/mu,1,1,$FFFFFF)
t=t+1/300
Wend
StopDrawing()
FlipBuffers()
Repeat
Until WindowEvent()=#PB_Event_CloseWindow
EndIf
Отредактировано egons (21.03.2025 09:55:26)
