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
| z=1
j=1
i=1
x0=0
y0=0
pent
devr %matrices réccupérées dans un fichier txt
%surface
u=zeros(10,5)
suerf(u(:,:))
while z<=5
while i<10 %&& j<=5
if (i==10 && dir== double ('S'))
break
elseif (j==5 && dir== double ('E'))
break
end
if ((i==1 )|| (i==2 ))|| (i==4 )|| ( i==6 )|| (i==8 ) || (i==9 ))
i=i+1;
else
if (pent_gch(i,j)~=0 && devr_gch(i,j)~=0)
p(i,j)= sqrt( (pent_gch(i,j))^2+(devr_gch(i,j))^2)
% calcule de l'angle de la lfgne de plus haute pente
tan_alpha= devr_gch_(i,j)/pent_gch(i,j)
%calculons delta_y
delta_y=tan_alpha*L
%détermfnonsles coordonnées de sortie
[x1 y1 dir]=coordonnees_sortie( x0, y0,pent(i,j), devr(i,j), delta_y, tan_alpha, L, l)
else
[x1 y1 dir]=coordonnees_sortie5( x0, y0,pent(i,j), devr(i,j), L, l);
end
x(i,j)=x1;
y(i,j)=y1;
%quiver3(x, y, v,w)
[i,j]= cdirection2(dir,i,j) %direction de pour la prochaine facette
end
disp('on a atteint un bord')
z=z+1
j=z
i=1
x0=j-1;
y0=0;
dir= double( '0')
end
disp ('on a parcouru toute la surface')
x
y |
Partager