MATLAB怎么画Bezier曲线曲面

royle0913

请教高手，怎么样用MATLAB画Bezier曲线曲面和B样条曲线曲面，急啊

suffer

Bezier曲线【zz】

1. % Faculty of Engineering, University of Fukui. 2004/07/07
   
2. % coded by Sokthai Chan (sokthai@wireless.fuis.fukui-u.ac.jp)
   
3. % Bezier Curve乮Infinite Sign乯
   
4. 
   
5. % clear all the variable from memory
   
6. clear all;
   
7. 
   
8. % Data Setting
   
9. t=[-0.8 -0.6 -1/4 1/2 1 3/2 1 1/2 -1/4 -0.6 -0.8];
   
10. p=[0 0.9 0.9 -3/2 -3/2 0 3/2 3/2 -0.9 -0.9 0];
    
11. 
    
12. n=11;
    
13. a=-1;
    
14. b=1;
    
15. x=-1:0.01:1;
    
16. m=length(x);
    
17. 
    
18. % Matrix Setting
    
19. Pn=zeros(1,m);
    
20. Pv=zeros(1,m);
    
21. Tv=zeros(1,m);
    
22. 
    
23. Ts=((1:n)-1)*(b-a)/(n-1)+a; % Equally Divided Point
    
24. 
    
25. % Calculation Bezier Curve
    
26. for j=1:m
    
27. for i=1:n
    
28. B(i)=(nchoosek(n-1,i-1)*realpow(b-x(j),n-i)*realpow(x(j)-a,i-1))/realpow(b-a,n-1); % Base Function of Bernstein
    
29. Pn(j)=Pn(j)+p(i)*B(i); % Scalar Bezier Curve
    
30. Tv(j)=Tv(j)+t(i)*B(i); % Equally Divided Point
    
31. Pv(j)=Pv(j)+p(i)*B(i); % Vector Bezier Curve
    
32. end
    
33. end
    
34. 
    
35. % Plot Graphic
    
36. figure(1)
    
37. plot(x,Pn,'*',Ts,p,'-');
    
38. legend('Scalar Bezier Curve','Bezier Control Polygon');
    
39. xlabel('x'); ylabel('Pn(x)');
    
40. title(['Bezier Curve']);
    
41. 
    
42. figure(2)
    
43. plot(Tv,Pv,'*',t,p,'-');
    
44. legend('Vector Bezier Curve','Bezier Control Polygon');
    
45. xlabel('x'); ylabel('Pn(x)');
    
46. title(['Bezier Curve']);

复制代码

[ 本帖最后由 suffer 于 2007-6-3 12:06 编辑 ]

raby_yu

suffer老兄，可以指点一下t和p的设置依据吗？再次，查看手头上的文献，好像Berstein基函数并不时程序中那样，且其中的变量x(j)的取值范围也是0~1。