paparazzo
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Знаешь на сайте ОРА статью: Davenport "Non-uniform – rational – B – splines (NURBS) in Illumination Design," 2003 Invited Paper, OSA Annual Meeting. (Если нет - могу прислать). Там на стр. 15 | Привет! Давно вас не было. Спасибо, гляну. Да я логически подумав задал уже, надеюсь верно: Алгоритм простой. Цитата: pi=3.141592654 GRAPHICS NOFRAME !dL=0.01 INPUT "Enter grid step", dL IF dL<0.01 THEN dL=0.01 IF dL>0.4 THEN dL=0.4 Rmax=1 PIXEL 4000,3000 FOR k,1,10000,1 R=dL*k ddL=(2*pi*R)/INTE(2*pi*(k)) IF (R>Rmax) k=10000 GOTO 11 ENDIF FOR l,1,1000,1 IF ((l-1)*ddL/R>2*pi) l=1000 GOTO 12 ENDIF x=R*SINE(l*ddl/R) y=R*COSI(l*ddl/R) PIXEL x*1000+4000,y*1000+3000 NEXT l LABEL 12 NEXT k LABEL 11 | Добавлено: А да ,статью пришли,конечно Хотя сетку задать нужно было для изображающей системы. Добавлено: Хотя самый простой этот вариант, но это слишком просто |