On Mon, Sep 8, 2008 at 2:36 AM, Oleg Kobchenko <[EMAIL PROTECTED]> wrote:
> nurbpts=: verb define
>  pts=. ''
>  for_u. i.4 do.
>    for_v. i.4 do.
>      pts=. pts,2*u-1.5
>      pts=. pts,2*v-1.5
>      pts=. pts,3*_1^-.(*./(u,v) e. 1 2)
>    end.
>  end.
>  pts
> )

This does not teach me anything about nurbs, but
   (nurbpts'')-: ,(,.  3* _1^ +./"1@(1<|))@,."0 1/~_3 _1 1 3
1

-- 
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to