Advertisement
MysterionCS

poly_umfang

Jan 18th, 2021
865
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 0.41 KB | None | 0 0
  1. function U = poly_umfang(P)
  2.     [r,c] = size(P);
  3.     n = r - 1;
  4.     U = 0;
  5.     for i = 1:n
  6.         % Erste Klammer U (x-Teil)
  7.         UK1 = ( P(i+1,1) - P(i,1) );
  8.         % Zweite Klammer U (y-Teil)
  9.         UK2 = ( P(i+1,2) - P(i,2) );
  10.         %Formel Umfang
  11.         U = U + sqrt( (UK1 * UK1) + (UK2 * UK2) );
  12.     end
  13.     formatSpecU = 'Der Umfang des Polygons beträgt %f\n';
  14.     fprintf(formatSpecU,U);
  15. end  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement