serroblib_create_robot_class.m

% Instanz der Roboterklasse für gegebenen Roboter initialisieren
% 
% Eingabe:
% Name
%   Name des Robotermodells nach dem Schema "SxRRRyy"
%   (x ist die Anzahl der FG, yy die laufende Nummer des Modells dieser
%   Gelenkreihenfolge)
% RobName
%   Name der Roboterparameter entsprechend der ersten Spalte der Tabelle
%   models.csv des jeweiligen Robotermodells
% only_mdh
%   Falls auf true gesetzt, wird nur die Parameterstruktur PS zurückgegeben
% 
% Ausgabe:
% RS [SerRob]
%   Instanz der SerRob-Klasse mit den Eigenschaften und Funktionen des zu
%   ladenden Roboters
% PS [struct]
%   Struktur mit allen MDH-Parametern des Roboters

% Moritz Schappler, moritz.schappler@imes.uni-hannover.de, 2018-08
% (C) Institut für Mechatronische Systeme, Universität Hannover

function [RS, PS] = serroblib_create_robot_class(Name, RobName, only_mdh)

if nargin < 3
  only_mdh = false;
end

% Prüfe Namensschema. Format "S3RRR1" oder "S3RRR1V1".
[tokens, ~] = regexp(Name,'S(\d)([RP]+)(\d+)[V]?(\d*)','tokens','match');
if isempty(tokens)
  error('Eingegebener Name %s entspricht nicht dem Namensschema S3RPR1', Name);
end

%% Daten laden
N = str2double(Name(2)); % Annahme: Namensschema SxRRR; mit x="Anzahl Gelenk-FG"
repopath=fileparts(which('serroblib_path_init.m'));
mdllistfile_Ndof = fullfile(repopath, sprintf('mdl_%ddof', N), sprintf('S%d_list.mat',N));
l = load(mdllistfile_Ndof, 'Names_Ndof', 'BitArrays_Ndof', 'BitArrays_phiNE', ...
  'BitArrays_EEdof0', 'AdditionalInfo');
I_robot = find(strcmp(l.Names_Ndof,Name));
if isempty(I_robot)
  error('Roboter %s ist nicht bekannt', Name);
end

% Informationen über Variante extrahieren
isvariant = l.AdditionalInfo(I_robot,2);
variantof = l.AdditionalInfo(I_robot,3);
Name_GenMdl = l.Names_Ndof{variantof};% Name des Hauptmodells herausfinden
  
% Bit-Array für Namen
BA = l.BitArrays_Ndof(I_robot,:);
[~, csvbits] = serroblib_bits2csvline(BA);
% Bit-Array für EE-Eigenschaften
BAE = l.BitArrays_EEdof0(I_robot,:);
[~, EEFG0] = serroblib_bits2csvline_EE(BAE);
% Bit-Array für Endeffektor-Rotation
BAR = l.BitArrays_phiNE(I_robot,:);
%% Parameter-Struktur erstellen
PS = serroblib_csvindex2paramstruct(N, csvbits);

%% Parameter-Zahlenwerte setzen
% In diesem Abschnitt belegte Variablen mit Standardwerten initialisieren:
descr = '';
% Parameter aus Tabelle holen
if nargin > 1 && ~isempty(RobName) % Falls Name des Parametrierten Modells gegeben
  % Allgemeine Definitionen
  unitmult_angle = pi/180; % Angaben in Tabelle in Grad. Umrechnung in Radiant
  unitmult_dist = 1/1000;
  found = false; % Marker, ob Parametersatz gefunden wurde
  if isvariant
    pardat = fullfile(repopath, sprintf('mdl_%ddof', N), Name_GenMdl, 'models.csv');
  else
    pardat = fullfile(repopath, sprintf('mdl_%ddof', N), Name, 'models.csv');
  end
  if ~exist(pardat, 'file')
    error('Parameterdatei zu %s existiert nicht', Name);
  end
  
  % Suche nach gefordertem Roboter in Parameterdatei
  fid = fopen(pardat);
  tline = fgetl(fid); % csv-Datei zeilenweise einlesen
  while ischar(tline)
    % Spaltenweise als Cell-Array
    csvline = strsplit(tline, ';', 'CollapseDelimiters', false);
    tline = fgetl(fid); % nächste Zeile
    if isempty(csvline) || strcmp(csvline{1}, '')
      continue
    end
    if strcmp(csvline{1}, RobName)
      found = true; % Erste Spalte der Zeile entspricht dem Roboternamen
      break;
    end
  end
  fclose(fid);
  if ~found
    warning('Parameter für %s nicht gefunden', RobName);
  else
    % Daten aus csv-Zeile extrahieren
    c = 3; % erste Drei Zeilen nicht betrachten (sind allgemeine Felder des Roboters)
    descr = sprintf('%s %s', csvline{2}, csvline{3});
    for kk = 1:N % über alle Gelenk-FG
      % Werte aus csv-Zeile herausholen: Einzelne Spalten durchgehen      
      c=c+1; % Gelenktyp (R/P); muss nicht extrahiert werden
      c=c+1; value_beta   = str2double(csvline{c});
      c=c+1; value_b      = str2double(csvline{c});
      c=c+1; value_alpha  = str2double(csvline{c});
      c=c+1; value_a      = str2double(csvline{c});
      c=c+1; value_theta  = str2double(csvline{c});
      c=c+1; value_d      = str2double(csvline{c});
      c=c+1; value_offset = str2double(csvline{c});
      c=c+1; value_qmin   = str2double(csvline{c});
      c=c+1; value_qmax   = str2double(csvline{c});
      c=c+1; value_vmax   = str2double(csvline{c});
      c=c+1; value_sign   = str2double(csvline{c});
      c=c+1; value_qref = str2double(csvline{c});
      
      if PS.sigma(kk) == 0
        unitmult_q = unitmult_angle; % Angabe in Tabelle in deg, Umrechnung in rad
      else
        unitmult_q = unitmult_dist; % Angaben in Tabelle in mm. Umrechnung in m
      end
      % Werte prüfen und eintragen (wenn die Werte ein mit NaN markierter
      % freier Parameter des Robotermodells sind)
      if isnan(PS.beta(kk)), PS.beta(kk)     = unitmult_angle*value_beta; end
      if isnan(PS.b(kk)), PS.b(kk)           = unitmult_dist*value_b; end
      if isnan(PS.alpha(kk)), PS.alpha(kk)   = unitmult_angle*value_alpha; end
      if isnan(PS.a(kk)), PS.a(kk)           = unitmult_dist*value_a; end
      if isnan(PS.theta(kk)), PS.theta(kk)   = unitmult_angle*value_theta; end
      if isnan(PS.d(kk)), PS.d(kk)           = unitmult_dist*value_d; end
      if isnan(PS.offset(kk)), PS.offset(kk) = unitmult_q*value_offset; end
      
      % Werte belegen, wenn sie in der Tabelle nicht gegeben sind
      % Nehme die typischen Einheiten aus der Tabelle (deg, mm) und rechne
      % sie am Ende um
      if isnan(value_qmin)
        if PS.sigma(kk) == 0
          value_qmin = -180;
        else
          value_qmin = -1000;
        end
      end
      if isnan(value_qmax)
        if PS.sigma(kk) == 0
          value_qmax = 180;
        else
          value_qmax = 1000;
        end
      end
      if isnan(value_vmax)
        if PS.sigma(kk) == 0
          value_vmax = 720;
        else
          value_vmax = 1000;
        end
      end
      % Spalte für Achs-Vorzeichen nach Hersteller-Norm (noch nicht vollständig implementiert)
      if value_sign ~= -1 && value_sign ~= 1
        error('Spalte für Vorzeichen hat Wert mit Betrag ungleich eins');
      end
      
      PS.qmin(kk) = unitmult_q*value_qmin;
      PS.qmax(kk) = unitmult_q*value_qmax;
      PS.vmax(kk) = unitmult_q*value_vmax;
      PS.qref(kk) = unitmult_q*value_qref;
    end
  end
end

if only_mdh
  RS = [];
  return
end

%% EE-Transformation
phi_N_E = NaN(3,1); % Variable vorbelegen
descr_phi = {0, pi/2, pi, -pi/2, NaN}; % mögliche Werte, die durch Bits kodiert werden
b = 0; % Bit-Zähler
for kk = 1:3 % 3 Euler-Winkel
  % 3 Bits zur Kodierung des aktuellen Wertes extrahieren
  Bit_phi   = bitand( bitshift( BAR, -b), bin2dec('111')); b = b+3;
  % Wert mit den Bits auswählen
  phi_N_E(kk) = descr_phi{Bit_phi+1};
end

%% Klasse initialisieren

% Zahlenwerte der Parameter festlegen.
PS.pkin = []; % sind hier noch gar nicht bekannt. Würde Auswahl eines bestimmten Roboters erfordern

% Klassen-Instanz erstellen
serroblib_addtopath({Name});
if ~isvariant % Keine Variante: Normale Definition der Klasse
  RS = SerRob(PS, Name);
elseif ~isempty(which(sprintf('%s_structural_kinematic_parameters.m', Name)))
  % Benutze die direkt für diese Varianten erzeugten Funktionen. Normaler
  % Aufruf der Klasse (Existenz der Funktionen wurde stichprobenartig geprüft)
  RS = SerRob(PS, Name);
else
  % Variante ohne existierende generierte Funktionen
  RS = SerRob(PS, Name_GenMdl, Name);   % Modell als Variante erzeugen
end

% Klassen-Instanz vorbereiten
RS.fill_fcn_handles(false);

% Setze Euler-Winkel für Transformation zum EE-KS
RS.update_EE(zeros(3,1), phi_N_E, uint8(2));

% EE-FG einsetzen
RS.I_EE = logical(EEFG0([1:3,7:9]));
RS.I_EE_Task = RS.I_EE; % Setze EE-FG für Aufgabe (für IK) auf EE-FG des Roboters

RS.update_pkin();

RS.qlim = [PS.qmin(:), PS.qmax(:)];
RS.qDlim = [-PS.vmax(:), PS.vmax(:)];
RS.qDDlim = NaN(PS.NQJ,2);
RS.qref = PS.qref(:);

RS.descr = descr;

if nargin > 1
  % CAD-Modelle initialisieren, falls vorhanden
  cadinidat = fullfile(repopath, sprintf('mdl_%ddof', N), Name_GenMdl, ...
    sprintf('CAD_%s',RobName), sprintf('%s_init_CAD.m', RobName));
  [p,f]=fileparts(cadinidat);
  if exist(cadinidat, 'file')
    addpath(p);
    eval(sprintf('RS = %s(RS, Name_GenMdl, RobName);', f));
    rmpath(p);
  end
end