Facebook
From Torrid Hamster, 6 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 263
  1. Zadanie 5
  2.  
  3. W=[1:-0.01:0 0.01:0.01:1];
  4. [m,n]=size(W);
  5. for k = 1:n
  6. t=0:0.001:2*pi;
  7.  
  8.  
  9. x = cos(t)+cos(7*t)/2+sin(17*t)/3;
  10. y = sin(t)+sin(7*t)/2+cos(17*t)/3;
  11. comet(x,y);
  12.  axis equal
  13.  M(k) = getframe;
  14. end
  15. movie(M,10,30)
  16.  
  17. Zadanie 6
  18.  
  19. W=[1:-0.01:0 0.01:0.01:1];
  20. [m,n]=size(W);
  21. for k = 1:n
  22. t=0:0.001:20*pi;
  23. a=4;
  24. b=9
  25. x = a*t-b*sin(t);
  26. y = a-b*cos(t);
  27.  
  28. comet(x,y);
  29.  axis equal
  30.  M(k) = getframe;
  31. end
  32. movie(M,10,30)
  33.  
  34.  
  35. Zadanie 7
  36.  
  37. W=[1:-0.01:0 0.01:0.01:1];
  38. [m,n]=size(W);
  39. for k = 1:n
  40. t=0:0.001:10*pi;
  41. a=0.1;
  42. x = a*t*cos(t);
  43. y = a*t*sin(t);
  44.  
  45. comet(x,y);
  46.  axis equal
  47.  M(k) = getframe;
  48. end
  49. movie(M,10,30)
  50.  
  51.  
  52. Zadanie 8
  53.  
  54. W=[1:-0.01:0 0.01:0.01:1];
  55. [m,n]=size(W);
  56. for k = 1:n
  57. t=0:0.001:10*pi;
  58. a=10;
  59. b=3;
  60. c=6;
  61. d=4;
  62. A=20;
  63. B=10;
  64. x = A*cos(a*t+b);
  65. y = B*cos(a*t+d);
  66. z=b*t;
  67. comet3(x,y,z);
  68.  axis equal
  69.  M(k) = getframe;
  70. end
  71. movie(M,10,30)