Заглянул в группу пейсбук, нашел много интересных программ. Одну решил адаптировать
10 CLS
20 LET co=180/PI
40 FOR s=1 TO 45 STEP 2
50 FOR a=1 TO 360
60 LET x=(60+s*SIN (10*a*co))*COS (a*co)
70 LET y=(40+s*SIN (7*a*co))*SIN (a*co)
80 PLOT 127+x,88+y
90 NEXT a: NEXT s
считает долго, запустил ускоренно на Spectaculator
Комментарии
Отправить комментарий