20251117

difun.m

@@ -0,0 +1,8 @@
+function y=difun(x)
+if x<-pi
+    y=-x-pi
+elseif x>-pi && x<pi
+    y=sin(x)
+else
+    y=(x-pi)/2
+end

dms2mat.m

@@ -0,0 +1,7 @@
+function dmsv=dms2mat(dv)
+[l,c]=size(dv);
+for i=1:l
+    dmsv(i,1)=fix(dv);
+    dmsv(i,2)=fix((dv-fix(dv))*60);
+    dmsv(i,3)=(dv-dmsv(i,1)-dmsv(i,2)*60);
+end

dms2rad.m

@@ -0,0 +1,2 @@
+function radv=dms2rad(dms)
+radv=dms*pi/180;