Matlabscript TopCamera: Difference between revisions

From Control Systems Technology Group
Jump to navigation Jump to search
No edit summary
No edit summary
 
(3 intermediate revisions by the same user not shown)
Line 1: Line 1:
dd
Hieronder staat de Matlab-code voor de top camera. Comments over gebruikte code staan in het script erbij vermeldt.


<code  style="font-size:18px">
<code  style="font-size:18px">
Line 7: Line 7:
     % do nothing if ball is undetected
     % do nothing if ball is undetected
     else
     else
     Dv = zeros(1,2);
     Dv   = zeros(1,2);
     Dv(1)=centr_ball(1)-centr_drone(1);  
     Dv(1) = centr_ball(1)-centr_drone(1);  
     Dv(2) = centr_ball(2) - centr_drone(2);
     Dv(2) = centr_ball(2) - centr_drone(2);
  .
  <br>
     %% set orientation to goal.
     %% set orientation to goal.
     %ath = atan2d(Dv(1,2),Dv(1,1)); %angle to horizon
     %ath = atan2d(Dv(1,2),Dv(1,1)); %angle to horizon
     %The orientation of the drone is calibated using the yaw sensor
     %The orientation of the drone is calibated using the yaw sensor
     %However, this fuction is unavailable due to a broken sensor
     %However, this fuction is unavailable due to a broken sensor
  .
  <br>
     %% Calling upon the drone's drive function
     %% Calling upon the drone's drive function
     % The speed of the drone is a linear function, saturated with a  
     % The speed of the drone is a linear function, saturated with a  
     % maximum speed for feasability and safety
     % maximum speed for feasability and safety
  .
  <br>
           spRight  = 0;
           spRight  = 0;
           spBack    = 0;       
           spBack    = 0;       
           max_speed = 0.4;   
           max_speed = 0.4;   
  .
  <br>
             if Dv(1)>50
             if Dv(1)>50
                 spRight = max(Dv(1)*0.001*0.5,max_speed); end  %right
                 spRight = max(Dv(1)*0.001*0.5,max_speed); end  %right
Line 32: Line 32:
             if Dv(2)>50
             if Dv(2)>50
                 spBack = min(-Dv(2)*0.001*0.5,-max_speed); end %backward
                 spBack = min(-Dv(2)*0.001*0.5,-max_speed); end %backward
  .
  <br>
     % for extra safety:
     % for extra safety:
     % if the drone is near the boundaries of the field, it will thrust in the
     % if the drone is near the boundaries of the field, it will thrust in the
     % opposite direction to slow itself down and quickly respond to the change
     % opposite direction to slow itself down and quickly respond to the change
<br>
     if centr_drone(1)<300 spRight=0.5; end
     if centr_drone(1)<300 spRight=0.5; end
     if centr_drone(1)>1500 spRight=-0.5; end  
     if centr_drone(1)>1500 spRight=-0.5; end  
     if centr_drone(2)<300 spBack=-0.5; end
     if centr_drone(2)<300 spBack=-0.5; end
     if centr_drone(2)>700 spBack=0.5; end
     if centr_drone(2)>700 spBack=0.5; end
  .
  <br>
             drone.drive([-spBack,spRight,0,0]);
             drone.drive([-spBack,spRight,0,0]);
  .
  <br>
     end
     end
  end
  end
</code>
</code>


linkje Matlabscript: [http://www.example.com link title]
linkje Matlabscript: [https://www.dropbox.com/sh/gbh5m6odnoqne99/AABFMLRutZ_o2IONJv1cpYDWa?dl=0 All-Project Matlab Files]


----
----


Terug naar: [[Control]]
Terug naar: [[Control]]

Latest revision as of 00:14, 14 January 2016

Hieronder staat de Matlab-code voor de top camera. Comments over gebruikte code staan in het script erbij vermeldt.

 function droneflypath_demo(drone,nr, centr_drone, centr_ball)
   %% create direction vector 
   if centr_ball(1) == 0 && centr_ball(2) == 0  
    % do nothing if ball is undetected
   else
   Dv    = zeros(1,2);
   Dv(1) = centr_ball(1)-centr_drone(1); 
   Dv(2) = centr_ball(2) - centr_drone(2);

 %% set orientation to goal. %ath = atan2d(Dv(1,2),Dv(1,1)); %angle to horizon %The orientation of the drone is calibated using the yaw sensor %However, this fuction is unavailable due to a broken sensor
 %% Calling upon the drone's drive function  % The speed of the drone is a linear function, saturated with a  % maximum speed for feasability and safety
spRight = 0; spBack = 0; max_speed = 0.4;
if Dv(1)>50 spRight = max(Dv(1)*0.001*0.5,max_speed); end %right if Dv(1)<-50 spRight = min(Dv(1)*0.001*0.5,-max_speed); end %left if Dv(2)<-50 spBack = max(-Dv(2)*0.001*0.5,max_speed); end %forward if Dv(2)>50 spBack = min(-Dv(2)*0.001*0.5,-max_speed); end %backward
 % for extra safety:  % if the drone is near the boundaries of the field, it will thrust in the  % opposite direction to slow itself down and quickly respond to the change
if centr_drone(1)<300 spRight=0.5; end if centr_drone(1)>1500 spRight=-0.5; end if centr_drone(2)<300 spBack=-0.5; end if centr_drone(2)>700 spBack=0.5; end
drone.drive([-spBack,spRight,0,0]);
end end

linkje Matlabscript: All-Project Matlab Files


Terug naar: Control