Skip to main content
. 2021 Jun 13;21(12):4080. doi: 10.3390/s21124080
Algorithm 1. Initialization 3
INITIALIZATION
                Δi=0
Nch= number of columns of Minc.
BEGIN
qindd=qindr+νd·ts·Δi
IF epin==true
  minΩc= minimum element in VΩc
  IF minΩc<Ωlim OR JDc<JDlim
    IF minΩc==VΩc1
      ich=12
      *  inc=34
    ELSEIF minΩc==VΩc2
      ich=13
      *  inc=24
    ELSEIF minΩc==VΩc3
      ich=14
      *  inc=23
    ELSEIF minΩc==VΩc4
      ich=23
      *  inc=14
    ELSEIF minΩc==VΩc5
      ich=24
      *  inc=13
    ELSE minΩc==VΩc6
    ich=34
      *  inc=12
    ENDIF
    VΩch= column vector of Nch zeros
    FOR c1=1:Nch
      qch=qindd
      qchich=qchich+νd·ts·Minc:,c1
      **  qchinc=qchinc+νd·ts·Minc:,c1
      IF minqind<qch<maxqind (element-wise comparison)
        Xch= Solve the Forward Kinematics for qch, using Xc as initial condition
        αch= Angle of spherical joints for Xch
        IF αch<αlim (element-wise comparison)
            VΩchc1= Calculate the index Ωi,j for Xch with i,j=ich
        ENDIF
      ENDIF
   ENDFOR
    c1=argmaxVΩch
    Δiich=Δiich+Minc:,c1
    qindd=qindr+νd·ts·Δi
  ENDIF
ENDIF
END