График зависимости от времени / Maple

@gulllak · Регистрация: 09.10.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток!Нужен график зависимости от времени. Как это сделать? Нужно вычислить за сколько времени программа вычисляет сумму последовательности из 1000, 2000 и т.д до 10000 элементов в массиве. Не понимаю, как использовать time. Вот сама программа вычисления максимальной последовательности рекурсивным методом.
Спасибо.
С уважением.

Haskell
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
> restart;
> a:=[25,-4,9,16,-4];
 
 
> MaxSubSum3:= proc(a)
   return (MaxSumRec(a,1,nops(a)));
   end proc;
 
> MaxSumRec:= proc(a,left::integer,right::integer)
 local MaxLeftSum, MaxRightSum,MaxLeftBorderSum,LeftBorderSum,i,MaxRightBorderSum,RightBorderSum;
 
 if left=right 
 then if 0<a[left]
 then return a[left] else return 0 
 end if; end if;
 center:= round((left+right-1)/2);
 
 MaxRightSum:=MaxSumRec(a,center+1,right);
 MaxLeftSum:=MaxSumRec(a,left,center);
 
 
 MaxLeftBorderSum:=0;
 LeftBorderSum:=0;
 
  for i from center by -1 to left do
 LeftBorderSum:=LeftBorderSum+a[i];
  if MaxLeftBorderSum<LeftBorderSum
 then MaxLeftBorderSum:=LeftBorderSum
  end if
 end do;
 
 MaxRightBorderSum:=0;
 RightBorderSum:=0;
 
  for i from center+1 by +1 to right do
 RightBorderSum:=RightBorderSum+a[i];
  if MaxRightBorderSum<RightBorderSum
 then MaxRightBorderSum:=RightBorderSum
  end if
 end do;
 
 return max(MaxLeftSum, MaxRightSum,MaxLeftBorderSum+MaxRightBorderSum)
 end proc;
 
> MaxSubSum3(a);

@VSI · 04.05.2014, 20:26

Практически Ваша проблема... Там и файл с программой есть. Только вставьте свою процедуру...

@gulllak · 04.05.2014, 21:44 **[ТС]**

VSI, У меня почему то не считает все равно... Хотя процедуру свою вставляю!

@VSI · 04.05.2014, 21:59

Время работы Вашей программы можно определить так...
restart;
st:= time(): # начало отсчета (сохраняется в переменной st)

3^1000000: # Ваша программа

time() - st; # время, за которое Ваша программа отработала

@gulllak · 04.05.2014, 22:13 **[ТС]**

VSI, Я это понимаю, но на деле не получается

gulllak, тогда жди и терпи... Поколдую... Только не сразу...

@VSI · 05.05.2014, 01:00

Держите... Вычисляем сумму последовательности... (правда, без Вашей процедуры

). Maple 16...

@gulllak · 05.05.2014, 08:57 **[ТС]**

Спасибо за помощь, но немного не то. В моей задаче вычисляется сумма подпоследовательности.
Вот допустим последовательность из 5 элементов:
1) [25; -4; 9; 16; -4] далее как я понимаю последовательность делится на Z1...center и Zcenter+1...n Получили ([25, -4, 9]=>[25,-4] и [9]=>[25],[-4] и [9]) и ([16, -4]=>[16] и [-4])
2) Вычисляем рекурсивно макс. сумму подпоследовательности в левой MaxSubSum3(a, left, center) и правой MaxSubSum3(a, center + 1, right) части.
3) Вычисляем рекурсивно макс. сумму подпоследовательности проходящей через центр подпоследовательности Z
{...,Zcenter,Z(center+1),...}
4) Получаем сумму sum(Левой части, правой части, центра)

@VSI · 05.05.2014, 19:13

А так пойдет?

С Вашей процедурой...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@VSI Модератор $Эксперт по математике/физике$ 5291 / 4073 / 1392 Регистрация: 30.07.2012 Сообщений: 12,489
	04.05.2014, 20:26
	Практически Ваша проблема... Там и файл с программой есть. Только вставьте свою процедуру... 0

@gulllak 48 / 4 / 0 Регистрация: 09.10.2012 Сообщений: 66
	04.05.2014, 21:44 [ТС]
	VSI, У меня почему то не считает все равно... Хотя процедуру свою вставляю! 0

@VSI Модератор $Эксперт по математике/физике$ 5291 / 4073 / 1392 Регистрация: 30.07.2012 Сообщений: 12,489
	04.05.2014, 21:59
	Время работы Вашей программы можно определить так... restart; st:= time(): # начало отсчета (сохраняется в переменной st) 3^1000000: # Ваша программа time() - st; # время, за которое Ваша программа отработала 0

@gulllak 48 / 4 / 0 Регистрация: 09.10.2012 Сообщений: 66
	04.05.2014, 22:13 [ТС]
	VSI, Я это понимаю, но на деле не получается gulllak, тогда жди и терпи... Поколдую... Только не сразу... 0

@gulllak 48 / 4 / 0 Регистрация: 09.10.2012 Сообщений: 66
	05.05.2014, 08:57 [ТС]
	Спасибо за помощь, но немного не то. В моей задаче вычисляется сумма подпоследовательности. Вот допустим последовательность из 5 элементов: 1) [25; -4; 9; 16; -4] далее как я понимаю последовательность делится на Z1...center и Zcenter+1...n Получили ([25, -4, 9]=>[25,-4] и [9]=>[25],[-4] и [9]) и ([16, -4]=>[16] и [-4]) 2) Вычисляем рекурсивно макс. сумму подпоследовательности в левой MaxSubSum3(a, left, center) и правой MaxSubSum3(a, center + 1, right) части. 3) Вычисляем рекурсивно макс. сумму подпоследовательности проходящей через центр подпоследовательности Z {...,Zcenter,Z(center+1),...} 4) Получаем сумму sum(Левой части, правой части, центра) 0

График зависимости от времени / Maple

Решение