Wednesday, December 18, 2013

Kenapa harus ada perintah comet di MATLAB

Saya sampai hari ini kurang paham, kenapa sampai ada perintah comet di MATLAB. Coba tes perintah berikut di komputer anda, apa yang terjadi. Soalnya koneksi lagi lambat jadi g bisa buat videonya.
function comet
clc; 
f = figure; 
m = @sin ;
n = @cos ; 
x = linspace(-pi,pi, 300);
a = 'm';
tescomet(30); 
    function tescomet(n)
       state = 1; 
       for i=1:n
          if state
              a = strcat(a,'(n');
              state = 0; 
          else
              a = strcat(a,'(m');
              state = 1;  
          end
      end
      a = strcat(a, '(x)'); 
      for k= 1:n
          a = strcat(a, ')'); 
      end
    end
y = eval(a); 
m = 1; 
plot(x, y); 
hold on; 
maju = 1; 
while ishandle(f)
    if m > length(x), 
        maju = 0;
        m = length(x); 
    elseif m < 1 
        maju = 1 ; 
        m = 1; 
    end
    p = plot(x(m), y(m), 'r.', 'markersize', 30); 
    pause(0.005); 
    if ishandle(p), delete(p); end
    if maju, m = m+1;
    else
        m = m - 1; 
    end
end
end

No comments: