Магия кривых. Ч 10

Очень симпатичная замкнутая кривая. Рассчитана по проге:

open #1,"prime.txt","r"
dim w(100)
xmin=0
xmax=0
input #1 m
m=20
t=ran(m):t1=int(t)
print t,t1
for i=1 to m
input #1 w(i)
print w(i);
next i
print
a=100
v1=int(ran(m))+1:b=w(v1)
v2=int(ran(m))+1:c=w(v2)
v3=int(ran(m))+1:d=w(v3)
v4=int(ran(m))+1:f=w(v4)
v5=int(ran(m))+1:k=w(v5)
print
print v1,v2,v3,v4,v5
print a,b,c,d,f,k
print
open window 1000,1000
rem a=30:b=23:c=19:d=29:f=17:k=3
for t=0 to 360 step 0.01
x=500-(a*(b*cos(t)+c*sin(t*d/f)^3)/k)
y=500-(a*(b*sin(t)-c*cos(t*d/f)^2)/k)
x1=500-(a*(b*cos(t+0.0001)+c*sin((t+0.0001)*d/f)^3)/k)
y1=500-(a*(b*sin(t+0.0001)-c*cos((t+0.0001)*d/f)^2)/k)
line x,y to x1,y1
next t
print
print "INPUT a = ";
input a
print a,b,c,d,f,k
close window
open window 1000,1000
for t=0 to 360 step 0.0001
x=500-(a*(b*cos(t)+c*sin(t*d/f)^3)/k)
y=500-(a*(b*sin(t)-c*cos(t*d/f)^2)/k)
x1=500-(a*(b*cos(t+0.0001)+c*sin((t+0.0001)*d/f)^3)/k)
y1=500-(a*(b*sin(t+0.0001)-c*cos((t+0.0001)*d/f)^2)/k)
line x,y to x1,y1
next t

Здесь в самом начале система случайным образом выбирает простые числа для пяти параметров двух формул.

24 декабря 2023 г.