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

This commit is contained in:
2025-10-12 18:56:59 +02:00
commit 7e8ee264aa
553 changed files with 161447 additions and 0 deletions

13
Tilt/arot.m Executable file
View File

@@ -0,0 +1,13 @@
function angle = arot(mx,my,j,i) %Unit vectors
if my(i,j)>0
angle = 90-(atan(mx(i,j)/my(i,j)))*180/pi;
elseif my(i,j)<0
angle = 270-(atan(mx(i,j)/my(i,j)))*180/pi;
elseif (my(i,j)==0)&&(mx(i,j)<0)
angle = 180.0;
elseif (my(i,j)==0)&&(mx(i,j)>0)
angle = 0.0;
end
end