require 'plot numeric' NB. NB. Snezhana Gocheva-Ileva EXG=: 3.0 4.5 7.0 9.0,. 2.5 1.0 2.5 0.5 NB. ---------------------------- mp=: +/ . * mat_bezier4=:1 0 0 0,_3 3 0 0,3 _6 3 0,:_1 3 _3 1 NB.Cubic BesierMatrixForm calc_bezier0=: 3 : '{|: mat_bezier4 +/ . * y' calc_bezier1=: 3 : '(calc_bezier0 y) p. L:0 steps 0 1 100' NB. -------------------------------------- plot_bezier=: 3 : 0 NB. plot_bezier EXG pd 'new' pd calc_bezier1 y pd {|: y pd 'show' ) plot_w=: 4 : 0 pd 'new' pd {|: y pd x pd 'show' )