20251117

tjpc.m

@@ -0,0 +1,12 @@
+function sumLL=tjpc(L)
+LL=dms2rad(mat2dms(L))
+A=[1,1,1];
+w=sum(LL(:))-pi;
+w=dms2mat(rad2dms(w));
+P=eye(3);
+Naa=A*inv(P)*A';
+Ka=-inv(Naa)*w;
+V=A'*Ka;
+L1=L+V;
+LL=dms2rad(mat2dms(L1));
+sumLL=sum(LL);