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 |
Добавлено:
А да ,статью пришли,конечно
Хотя сетку задать нужно было для изображающей системы.
Добавлено:
Хотя самый простой этот вариант, но это слишком просто
 |
