이거 한번더 쏘면서 각도를 바꾸면서


타겟을 맞추고싶은데요


일단 한번더쏘는거 조차 못하겠네요 .. 



형들 어떻게 하나요?



clear all

close all


figure; hold on

Target=[5,0]; 

plot(Target(1), Target(2),'s','MarkerFacecolor','k')


B=plot(0,0,'o');

set(B,'MarkerFacecolor','r');

axis([0 6 0 2]);


wind=0.02;

fric=-0.01;  %공기 저항 계수 (마찰력=공기저항계수*속도)

grav=-0.2;   %중력 


theta=pi/4;    %발사 각도 

x=0; vx=cos(theta);    %x의 초기 위치, 속도

y=0; vy=sin(theta);    %y의 초기 위치, 속도


dt=0.05; %시간 간격(작을수록 좋지만, 작으면 계산 시간이 많이 걸림) 

while(1) 

    x=x+vx*dt;                %dt후의 x 위치 (속도=vx=(x(후)-x(전))/dt)

    vx=vx+(wind+fric*vx)*dt;  %dt후의 x 속도 (힘=vx'=(vx(후)-vx(전))/dt)

                              %작용힘=바람+마찰력    

    

    y=y+vy*dt;                %dt후의 y 위치 (속도=vy=(y(후)-y(전))/dt)

    vy=vy+grav*dt;            %dt후의 y 속도 (힘=vy'=(vy(후)-vy(전))/dt)

                              %작용힘=중력

    

                            

  if(y<0); break; end

   set(B,'xdata',x,'ydata',y)

   

   

   pause(0.01) 

  

end