4747 deg = pi / 180 ;
4848 mm = 1e-3 ;
4949
50- d7 = 107 * mm ;
5150
5251 %% Define links (thanks Alex Smith for this code)
5352 L1 = RevoluteMDH(' a' , 0.0 , ' d' , 0.333 , ' alpha' , 0.0 , ' qlim' , [-2.8973 2.8973 ], ...
6261 ' 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 );
6362 L6 = RevoluteMDH(' a' , 0.0 , ' d' , 0.0 , ' alpha' , pi / 2 , ' qlim' , [-0.0175 3.7525 ], ...
6463 ' 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 ], ...
6665 ' 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 );
6766
6867 %% 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 ]));
7069
71- qz = [0 0 0 0 0 0 0 ];
70+ qv = [0 0 0 - 4 0 0 0 ]* deg ;
7271 qr = [0 - 90 - 90 90 0 - 90 90 ]*deg ;
7372
7473 % place the variables into the global workspace
7574 if nargin == 1
7675 r = robot ;
7776 elseif nargin == 0
7877 assignin(' caller' , ' panda' , robot );
79- assignin(' caller' , ' qz ' , qz ); % zero angles
78+ assignin(' caller' , ' qv ' , qv ); % zero angles
8079 assignin(' caller' , ' qr' , qr );
8180 end
8281end
0 commit comments