Chapter 9 - Compute Torque Control
Chapter 9 - Compute Torque Control
Lagrange-Euler Dynamics
i) Derive kinetic and potential energy
ii) Use Lagrange's equations of motion
linear velocity : v w r
coriolis force : Fcor 2mwo v
1
kinetic energy (k) : k mv 2
2
1
rotational kinetic energy : k rot I 2
2
y2 a1 sin 2 a2 sin(1 2 )
x 2 a1 sin 1 a2 (1 2 ) sin(1 2 )
y a cos a ( ) cos( )
2 1 1 2 1 2 1 2
velocity squared :
v2 x2 y 2 a1 1 a2 (1 2 ) 2 2a1a2 (1 12 ) cos 2
2 2 2 2 2 2 2
1 1 1
∴ K 2 m2 v2 2 m2 a1 2 1 2 m2 a 2 2 (1 2 ) 2 m2 a1a 2 (1 2 12 ) cos 2
2 2 2
P2 m2 g y2 m2 g[a1 sin 1 a2 sin(1 2 )]
d L L
2) Lagrange's equation ( ) q 1 , q 1 , 1
dt q q 2 2
2
L K P ( K1 K 2 ) ( P1 P2 )
1 1
(m1 m2 )a1 1 m2 a2 (1 2 ) 2 m2 a1a2 (1 12 ) cos 2
2 2 2 2
2 2
(m1 m2 ) ga1 sin 1 m2 ga2 sin(1 2 )
L
(m1 m2 )a1 1 m2 a2 (1 2 ) m2 a1a2 (21 2 ) cos 2
2 2
1
L
(m1 m2 ) ga1 cos1 m2 ga2 cos(1 2 )
1
L
m2 a2 (1 2 ) m2 a1a21 cos 2
2
2
d L
m2 a2 (1 2 ) m2 a1a21 cos 2 m2 a1a212 sin 2
2
dt 2
L
m2 a1a2 (1 12 ) sin 2 m2 ga2 cos(1 2 )
2
2
m2 ga2 cos(1 2 )
m2 a2 m2 a1a2 c o s2 2
2 2
m2 a2
1
2
Mx cx kx F
M ( q ) q V ( q, q ) G (q)
* M(q) is symmetric.
Computed-Torque Control
(⇒ feedback linearization of nonlinear system)
Consider robot arm dynamics :
then,
e qd q
e qd q M (qd e) ( N d )
qd e M 1 ( N d )
①⇒ e qd M 1 ( N d ) e qd M 1 ( N d )
u qd M 1 ( N ) ②
②⇒ M (qd u ) N ---④
[Ex] For the robot dynamic equation derived before, desired trajectory
qd (t ) has the components:
2 d g 2 cos( 2t / T )
g=9.806;
g1=0.1;
g2=0.1;
fact=3.14;
kp=100;
kv=20;
m1=1;m2=1;a1=1;a2=1;
x=[0 0.1 0 0]; %theta1, dtheta1, theta2,dtheta2
for i=0:500
ts=i*0.01;
tf=(i+1)*0.01;
rowx_out=size(x,1);
x_end=x(rowx_out,:);
th_d=[g1*sin(fact*ts) g2*cos(fact*ts)];
dth_d=[g1*fact*cos(fact*ts) -g2*fact*sin(fact*ts)];
ddth_d=[-g1*fact^2*sin(fact*ts) -g2*fact^2*cos(fact*ts)];
e=[th_d(1)-x_end(1) th_d(2)-x_end(2)];
de=[dth_d(1)-x_end(3) dth_d(2)-x_end(4)];
m=[(m1+m2)*a1^2+m2*a2^2+2*m2*a1*a2*cos(x_end(2))
m2*a2^2+m2*a1*a2*cos(x_end(2))
m2*a2^2+m2*a1*a2*cos(x_end(2)) m2*a2^2];
m_inv=inv(m);
temp=-m2*a1*a2*(2*x_end(3)*x_end(4)+x_end(4)^2)*sin(x_end(2));
n=[temp+(m1+m2)*g*a1*cos(x_end(1))+m2*g*a2*cos(x_end(1)+x_end(2
))
m2*a1*a2*x_end(3)^2*sin(x_end(2))+m2*g*a2*cos(x_end(1)+x_end(2))]'
;
s=[ddth_d(1)+kv*de(1)+kp*e(1) ddth_d(2)+kv*de(2)+kp*e(2)];
torq=[m(1,1)*s(1)+m(1,2)*s(2)+n(1) m(1,2)*s(1)+m(2,2)*s(2)+n(2)];
[t,x_o]=ode45('xdot',[ts tf],x_end);
rowx_o=size(x_o,1);
x(rowx_out+1,:)=x_o(rowx_o,:);
theta(i+1,:)=th_d;
ee(i+1,:)=e;
end
%% FILE NAME=xdot.m
function x_dot=xdot(t,x)
global m_inv;
global n;
global torq;
x_dot=[
x(3)
x(4)
m_inv(1,1)*(-n(1)+torq(1))+m_inv(1,2)*(-n(2)+torq(2))
m_inv(1,1)*(-n(1)+torq(1))+m_inv(2,2)*(-n(2)+torq(2))
];
0 1 0 0
d
e 0 0 1 e 0w
dt
e Ki Kp Kd e 1