Магия кривых. Ч 42
open window 1000,1001
a=50:b=13:c=29:d=31:f=19:k=7
for t=0 to 360 step 0.0001
x=500-(a*(b*abs(cos(t))^(1/2)+
c*sin(t*d/f)^4)/k)
y=500-(a*(b*cos(t)^3-c*sin(t*d/f))/k)
x1=500-(a*(b*abs(cos(t+0.0001))^(1/2)+
c*sin((t+0.0001)*d/f)^4)/k)
y1=500-(a*(b*cos(t+0.0001)^3-
c*sin((t+0.0001)*d/f))/k)
line x,y to x1,y1
next t
7 января 2024 г.
Свидетельство о публикации №224010700873