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

Tilt/ASSEb_HR.m

@@ -0,0 +1,19 @@
+function [Nb,Eb,Zb]=ASSEb_HR(yAngTLHR,angle,SpeTLHR)
+
+angle = angle*2*pi/360;
+ay = sin(yAngTLHR);
+
+if ay >=0
+    Nb = SpeTLHR*ay*cos(angle);
+    Eb = SpeTLHR*ay*sin(angle);
+else
+    Nb = -SpeTLHR*ay*cos(angle);
+    Eb = -SpeTLHR*ay*sin(angle);
+end
+
+% calcolo il coseno dell'angolo di inclinazione
+cosBeta = (1 - ay^2)^0.5;
+Z = SpeTLHR*cosBeta;
+Zb = SpeTLHR - Z; % L'abbassamento è POSITIVO
+
+end