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

ATD/approx_TuL.m

@@ -0,0 +1,87 @@
+% Funzione che approssima il dato alla quarta cifra decimale (decimi di
+% millimetri)
+function [X_TuL,Y_TuL,Z_TuL,Xlocal_TuL,Ylocal_TuL,Zlocal_TuL,Xstar_TuL,Zstar_TuL,HShift_local_TuL,...
+    SegStar,TempDef_TuL,Speed_local_TuL,Acceleration_local_TuL,Area_TuL] = approx_TuL(X_TuL,...
+    Y_TuL,Z_TuL,Xlocal_TuL,Ylocal_TuL,Zlocal_TuL,Xstar_TuL,Zstar_TuL,HShift_local_TuL,...
+    SegStar,TempDef_TuL,Speed_local_TuL,Acceleration_local_TuL,Area_TuL,FileName)
+
+fileID = fopen(FileName,'a');
+fmt = '%s \r';
+text = 'approx_TuL function started';
+fprintf(fileID,fmt,text);
+
+% X
+conv = X_TuL*10000;
+conv = round(conv);
+X_TuL = conv/10000;
+
+% X star
+conv = Xstar_TuL*10000;
+conv = round(conv);
+Xstar_TuL = conv/10000;
+
+% X local
+conv = Xlocal_TuL*10000;
+conv = round(conv);
+Xlocal_TuL = conv/10000;
+
+% Y
+conv = Y_TuL*10000;
+conv = round(conv);
+Y_TuL = conv/10000;
+
+% Y local
+conv = Ylocal_TuL*10000;
+conv = round(conv);
+Ylocal_TuL = conv/10000;
+
+% Z
+conv = Z_TuL*10000;
+conv = round(conv);
+Z_TuL = conv/10000;
+
+% Zstar
+conv = Zstar_TuL*10000;
+conv = round(conv);
+Zstar_TuL = conv/10000;
+
+% Z local
+conv = Zlocal_TuL*10000;
+conv = round(conv);
+Zlocal_TuL = conv/10000;
+
+% H Shift local
+conv = HShift_local_TuL*10000;
+conv = round(conv);
+HShift_local_TuL = conv/10000;
+
+% SegStar
+conv = SegStar*10000;
+conv = round(conv);
+SegStar = conv/10000;
+
+% TempDef
+conv = TempDef_TuL*10;
+conv = round(conv);
+TempDef_TuL = conv/10;
+
+% Speed
+conv = Speed_local_TuL*10000;
+conv = round(conv);
+Speed_local_TuL = conv/10000;
+
+% Acceleration
+conv = Acceleration_local_TuL*10000;
+conv = round(conv);
+Acceleration_local_TuL = conv/10000;
+
+% Area
+conv = Area_TuL*10000;
+conv = round(conv);
+Area_TuL = conv/10000;
+
+text = 'approx_TuL function worked correctly';
+fprintf(fileID,fmt,text);
+fclose(fileID);
+
+end