47
47
deg = pi / 180 ;
48
48
mm = 1e-3 ;
49
49
50
- d7 = 107 * mm ;
51
50
52
51
%% Define links (thanks Alex Smith for this code)
53
52
L1 = RevoluteMDH(' a' , 0.0 , ' d' , 0.333 , ' alpha' , 0.0 , ' qlim' , [-2.8973 2.8973 ], ...
62
61
' m' , 1.225946 , ' r' , [-1 .1953e- 02 4 .1065e- 02 - 3 .8437e- 02 ], ' I' , [3 .55490e- 02 2 .94740e- 02 8 .62700e- 03 - 2 .11700e- 03 2 .29000e- 04 - 4 .03700e- 03 ], ' G' , 1 );
63
62
L6 = RevoluteMDH(' a' , 0.0 , ' d' , 0.0 , ' alpha' , pi / 2 , ' qlim' , [-0.0175 3.7525 ], ...
64
63
' m' , 1.666555 , ' r' , [6 .0149e- 02 - 1 .4117e- 02 - 1 .0517e- 02 ], ' I' , [1 .96400e- 03 4 .35400e- 03 5 .43300e- 03 1 .09000e- 04 3 .41000e- 04 - 1 .15800e- 03 ], ' G' , 1 );
65
- L7 = RevoluteMDH(' a' , 0.088 , ' d' , 0.0 , ' alpha' , pi / 2 , ' qlim' , [-2.8973 2.8973 ], ...
64
+ L7 = RevoluteMDH(' a' , 0.088 , ' d' , 0.107 , ' alpha' , pi / 2 , ' qlim' , [-2.8973 2.8973 ], ...
66
65
' m' , 7 .35522e- 01 , ' r' , [1 .0517e- 02 - 4 .252e- 03 6 .1597e- 02 ], ' I' , [1 .25160e- 02 1 .00270e- 02 4 .81500e- 03 - 4 .28000e- 04 - 7 .41000e- 04 - 1 .19600e- 03 ], ' G' , 1 );
67
66
68
67
%% Create SerialLink object
69
- robot = SerialLink([L1 L2 L3 L4 L5 L6 L7 ], ' name' , ' PANDA' , ' manufacturer' , ' Franka-Emika' , ' tool' , transl([0 0 d7 ]));
68
+ robot = SerialLink([L1 L2 L3 L4 L5 L6 L7 ], ' name' , ' PANDA' , ' manufacturer' , ' Franka-Emika' , ' tool' , transl([0 0 110 * mm ]));
70
69
71
- qz = [0 0 0 0 0 0 0 ];
70
+ qv = [0 0 0 - 4 0 0 0 ]* deg ;
72
71
qr = [0 - 90 - 90 90 0 - 90 90 ]*deg ;
73
72
74
73
% place the variables into the global workspace
75
74
if nargin == 1
76
75
r = robot ;
77
76
elseif nargin == 0
78
77
assignin(' caller' , ' panda' , robot );
79
- assignin(' caller' , ' qz ' , qz ); % zero angles
78
+ assignin(' caller' , ' qv ' , qv ); % zero angles
80
79
assignin(' caller' , ' qr' , qr );
81
80
end
82
81
end
0 commit comments