Найти наибольший периметр треугольника, вершины которого принадлежат различным точкам множества

Ответы Подписаться на ответы

• 

  aBoomest+942.89

  3.06.2022 09:49

  Перебором?

  Ответ

  Пожаловаться
• 

  Centurio+42.00

  4.06.2022 17:22

  clear,clc
  N=randi([3,15]);
  xy=randi([-20 20],2,N);
  k=nchoosek(1:N,3);
  M=xy(:,k');
  M=reshape(M,2,3,[]);
  i=nchoosek(1:3,2);
  A=M(:,i',:);
  A=reshape(A,2,2,3,[]);
  B=diff(A,1,2);
  B=squeeze(sqrt(sum(B.^2)));
  S=sum(B);
  [p,f]=max(S);
  disp(['Наибольший периметр Р=',num2str(p)]);
  disp('Координаты вершин треугольника:');
  disp([['x = ';'y = '],num2str(M(:,:,f))])
  plot(xy(1,:),xy(2,:),'o')
  hold on
  plot(polyshape(M(1,:,f),M(2,:,f)))

  Ответ

  Пожаловаться