Sync from remote server: 2025-10-12 18:56:41

RSN/defDatiTrL.m

@@ -0,0 +1,70 @@
+% Funzione che definisce le attivazioni di fine corsa per i nodi di tipo Trigger Link
+function [ARRAYdateTrL,val_TrL,ErrTriggerLink] = defDatiTrL(DatiTriggerLink,...
+    Type,ErrTriggerLink,rTrL,NuovoZeroTrL,FileName)
+
+fileID = fopen(FileName,'a');
+fmt = '%s \r';
+text = 'defDatiTrL function started';
+fprintf(fileID,fmt,text);
+
+[r,c]=size(DatiTriggerLink);
+Ncorr = 0;
+% Elimino gli eventuali Not a Number
+for a = 2:r
+    for b = 1:c
+        check = isnan(DatiTriggerLink(a,b));
+        if check == 1
+            DatiTriggerLink(a,b) = DatiTriggerLink(a-1,b);
+            ErrTriggerLink(a,b) = 1;
+            Ncorr = Ncorr+1;
+        end
+    end
+end
+
+if NuovoZeroTrL == 1
+    DatiTriggerLink = DatiTriggerLink(2:end,:);
+    ErrTriggerLink = ErrTriggerLink(2:end,:);
+end
+
+text = ['' num2str(Ncorr) ' NaN of Trigger Link corrected by defDatiTrL function'];
+fprintf(fileID,fmt,text);
+
+[r,~] = size(DatiTriggerLink);
+TimeTrL = DatiTriggerLink(:,1); % data
+val_TrL = zeros(r,rTrL); % dati fine corsa
+if Type == 7
+    code = 16;
+else
+    code = 1;
+end
+
+i = 1;
+while i <= rTrL
+    for j = 1:r
+        if DatiTriggerLink(j,1+i) == code % Se la prima colonna ha il codice associato al Trigger
+            if j > 1 && Type == 7
+                check = DatiTriggerLink(j,1+i)-DatiTriggerLink(j-1,1+i);
+            else
+                check = 1;
+            end
+            if check > 0
+                val_TrL(j,i) = 1;
+            end
+        else
+            val_TrL(j,i) = 0;
+        end
+    end
+    if Type == 7
+        i = i+2;
+    else
+        i = i+1;
+    end
+end
+
+ARRAYdateTrL = TimeTrL;
+
+text = 'Data of Trigger Link defined correctly';
+fprintf(fileID,fmt,text);
+fclose(fileID);
+
+end