1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
| T =xlsread('valeurKT.xlsx',1,'a3:f28')
for k=1:26
for i=1:26
A(i)=abs((T(k,1)-T(i,4))) %recherche de tous les vecteur PxNx.
B(i)=abs((T(k,2)-T(i,5))) %recherche de tous les vecteur PyNy.
C(i)=abs((T(k,3)-T(i,6))) %recherche de tous les vecteur PzNz.
X(i)=min(A)%vecteur mini PxNx
Y(i)=min(B)%vecteur mini PyNy
Z(i)=min(C)%vecteur mini PzNz
R(k,1)=X(1,i) %Vecteur avec les n vecteurs mini PxNx
S(k,2)=Y(1,i) %Vecteur avec les n vecteurs mini PyNy
V(k,3)=Z(1,i) %Vecteur avec les n vecteurs mini PzNz
N=[(R(:,1)),(S(:,2)),(V(:,3))] %Matrice des n vecteurs mini sur X,Y,Z
N1x(k)=T(k,1)-X(i)
E(k)=ismember(N1x(k),T(:,4))
if E(k)~=1
N1x(k)=T(k,1)+ X(i)
E(k)=ismember(N1x(k),T(:,4))
else N1x(k)=T(k,1)- X(i)
end
Py(i)=T(k,2)+min(T(i,5))
Ny(i)=Py(i)-min(T(k,2))
N1y(k)=T(k,2)-Y(i)
F(k)=ismember(N1y(k),T(:,5))
if F(k)~=1
N1y(k)=T(k,2)+ Y(i)
F(k)=ismember(N1y(k),T(:,5))
else N1y(k)=T(k,2)- Y(i)
end
Pz(i)=T(k,3)+min(T(i,6))
Nz(i)=Pz(i)-min(T(k,3))
N1z(k)=T(k,3)-Z(i)
G(k)=ismember(N1z(k),T(:,6))
if G(k)~=1
N1z(k)=T(k,3)+ Z(i)
G(k)=ismember(N1z(k),T(:,6))
else N1z(k)=T(k,3)- Z(i)
end
if T(
U(k)=[
end
[statut, message] = xlswrite('valeurKT.xlsx',N,1,'G3')
[statut, message] = xlswrite('valeurKT.xlsx',A(1,:),1,'K1')
[statut, message] = xlswrite('valeurKT.xlsx',B(1,:),1,'K2')
[statut, message] = xlswrite('valeurKT.xlsx',C(1,:),1,'K3')
[statut, message] = xlswrite('valeurKT.xlsx',X,1,'K5')
[statut, message] = xlswrite('valeurKT.xlsx',Y,1,'K6')
[statut, message] = xlswrite('valeurKT.xlsx',Z,1,'K7')
[statut, message] = xlswrite('valeurKT.xlsx',N1x,1,'K9')
[statut, message] = xlswrite('valeurKT.xlsx',N1y,1,'K10')
[statut, message] = xlswrite('valeurKT.xlsx',N1z,1,'K11')
end |
Partager