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

Еще один мотив. Теперь уже пишу и буквенные параметры. Чтобы проще было копировать в прогу. Привожу ее текст именно для этого примера:

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
for t=0 to 360 step 0.01
x=500-(a*(b*cos(t)+c*cos(t)*sin(t*d/f))/k)
y=500-(a*(b*cos(t)-c*sin(t)^2*sin(t*d/f)^1)/k)
x1=500-(a*(b*cos(t+0.0001)+c*cos(t)
*sin((t+0.0001)*d/f)^1)/k)
y1=500-(a*(b*cos(t+0.0001)-c*sin(t)^2
*sin((t+0.0001)*d/f)^1)/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*cos(t)*sin(t*d/f)^1)/k)
y=500-(a*(b*cos(t)-c*sin(t)^2*sin(t*d/f)^1)/k)
x1=500-(a*(b*cos(t+0.0001)+c*cos(t)
*sin((t+0.0001)*d/f))/k)
y1=500-(a*(b*cos(t+0.0001)-c*sin(t)^2
*sin((t+0.0001)*d/f)^1)/k)
line x,y to x1,y1
next t

30 декабря 2023 г.


Рецензии