Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2019, 14:08   #141
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

Цитата:
Сообщение от anaschu Посмотреть сообщение
Кто платит за мат модель,
никто мне не платит)))Я имею в виду, кто больше интересуется, спрашивает что то, подталкивает к занятию моделью
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
anaschu вне форума Ответить с цитированием
Старый 26.05.2019, 14:14   #142
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию ошибко

Ошибка. Внутри юнита Umodel на строчке 245
Код:
sg.Cells[i, j] := ('р '+res + ' ' +'ч '+ qp)
Вроде бы сама процедура ничего плохого в себе не несёт. Она заполняет клетки стригрида значениями, которые она копирует из слоя Model. почему то спойлер тут на форуме делать не получается...
[SPOILER]
Код:
procedure TForm2.fillStiringGrid(var field: TModel; var sg: TStringGrid;
  { rowCount, colCount, } maxValue: Integer);
  // запоонение случайными ресурсами клеток поля. аогда нить пригодитьсчvar
  var
  i, j: Integer;
   Condition:boolean;
   res,qp:string;
begin
  sg.RowCount := Model.Field.getWidth;
  sg.ColCount := Model.field.getHeight;
  // http://programmersforum.ru/showthread.php?t=327138
  //   .
  Randomize;
  for i := 0 to StringGrid1.RowCount - 1 do
  begin
    for j := 0 to StringGrid1.ColCount - 1 do
    begin
      Condition:= (Model.Field.FArea[i, j].Ffamily<>nil);
      if Condition then
      begin
      res:= inttostr(Model.Field.FArea[i, j].Resource);
      qp:= inttostr(length(Model.Field.FArea[i, j].Ffamily.Apeople));
      sg.Cells[i, j] := ('р '+res + ' ' +'ч '+ qp);
      end
      else
      sg.Cells[i, j] := (inttostr(Model.Field.FArea[i, j].Resource) );
    end;
  end;
end;
[/SPOILER]

прикрепить файл не получается, вот ссылка на него в дропбокс

А вот ссыль на репозиторий, прошлые несколько коммитов проде бы были рабочие. ничего не предвещало беды

git@gitlab.com:anaschu/soc_mod_woman_man.git

Если кто сможет быстро взглянув на дельце- тельце, увидеть причину, я буду благодарен. я не вижу причины. не понимаю, что происходит. Я рассеян до безобразия, а так же во время и после него. Так что иногда не вижу обычные, тупые вещи в коде, лошара
Изображения
Тип файла: jpg Скриншот 2019-05-26 14.09.33.jpg (100.5 Кб, 131 просмотров)
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками

Последний раз редактировалось anaschu; 26.05.2019 в 14:28. Причина: добавил репу
anaschu вне форума Ответить с цитированием
Старый 28.05.2019, 15:38   #143
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

В общем, с этим вопросом я так и не разобрался, откатился назад и стал снова делать всё с нуля. Теперь вроде норм пошло, кроме одной крайне простой вещи. но у меня не хватает внимательности разобраться. Я её запощу вот тут
http://programmersforum.ru/showthrea...69#post1782369
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками

Последний раз редактировалось anaschu; 28.05.2019 в 18:31.
anaschu вне форума Ответить с цитированием
Старый 29.05.2019, 21:29   #144
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

прошлая проблема решена. но прежде выпила у меня немало крови:

https://www.youtube.com/watch?v=SwSKIo3L2CQ

решил переходить на работу с List. бесконечные ошибки внутри массивов надоели
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
anaschu вне форума Ответить с цитированием
Старый 29.05.2019, 23:40   #145
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

всё. я ставил себе задачу написать научную статью, если будут выполнены 2 задачи из 4х:
задача 1- что бы обезьянки ели ресурсы, или выгоняли других обезьянок с насиженых мест и забирали ресурсы у них
задача 2- что бы они стали есть друг друга, причем можно выбрать, кого первым едят. мужчин, женщин, детей, альф, бет, омег
задача 3- показать переход от канибализма и внутристадной конкуренции к всеобщему благу через моногамию
задача 4- показать закрепление этого всего с помощью мемов.

две задачи из 4х- нечётные- выполнены.

не знаю, может быть, я буду всё таки переделывать на List,а может быть, буду и на этой несовершенной модельке писать статью
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
anaschu вне форума Ответить с цитированием
Старый 30.05.2019, 14:31   #146
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

https://youtu.be/ooQOehbWmYo
Видео про окончание разработки, теперь надо сосредоточится на прогонах самой модели с научными целями.
Или теперь , наверное, надо работать с List? а то тут друг один интересуется моделькой, и готов учавстовать в надежде, что ему удасться на ней отработать новые приёмы
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
anaschu вне форума Ответить с цитированием
Старый 03.06.2019, 13:38   #147
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

git@gitlab.com:anaschu/soc_mod_woman_man_2.git
https://gitlab.com/anaschu/soc_mod_woman_man_2.git

https://youtu.be/xtVghgOEyBM

обьяснение модели с самого начала + как сделать из модели игру
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками

Последний раз редактировалось Alex11223; 03.06.2019 в 14:24.
anaschu вне форума Ответить с цитированием
Старый 09.06.2019, 01:53   #148
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

новые алгоритмы модели. Больше для игры, но для науки тоже, наверное, подойдут. Просто для науки не очень, так как очень много сразу всего введено
Введено сначала вот тут в файле
https://docs.google.com/document/d/1..._6LcG1qy4/edit
Потом в прикрепленных вордовских файлах
Потом это обсуждается в первом видео:
https://www.youtube.com/watch?v=i67B0J8JZ7E&t=7s
и вот тут второе:
https://www.youtube.com/watch?v=SYqb...ature=youtu.be

всё это в рамках десятков тысяч шагов должно привести к таким результатам:
https://www.youtube.com/watch?v=PG55EcnDyCo
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками

Последний раз редактировалось anaschu; 09.06.2019 в 01:57.
anaschu вне форума Ответить с цитированием
Старый 16.06.2019, 21:57   #149
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

Данные по другой модели-модель роста гриба.
У нас есть подтема "описания своих мыслей в тексте"
А это - подтема подтемы- написание статьи на тему моделирования гриба
url]https://youtu.be/TwWu2QQTvmk[/url]
https://youtu.be/TwWu2QQTvmk
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками

Последний раз редактировалось anaschu; 16.06.2019 в 22:01.
anaschu вне форума Ответить с цитированием
Старый 23.06.2019, 19:44   #150
anaschu
Форумчанин
 
Регистрация: 21.09.2012
Сообщений: 372
По умолчанию

статья по клеточному автомату в грибах
https://www.dropbox.com/s/aryf1nghvk...BD%29.doc?dl=0
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
anaschu вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
построение клеточного автомата в Excel olgafirst Помощь студентам 0 02.04.2014 00:26
Математическая модель "Автосервис" pro100saniok Помощь студентам 4 24.05.2012 18:31
Меня раздражают наши "звезды", которые считают себя сливками общества... grenles Свободное общение 53 16.02.2011 11:16
Стоит ли покупать видеокурс О.Л.Соколова, Видеокурс О.Л.Соколова "Проф.хакер" arkad-167 Помощь студентам 1 27.02.2010 10:32
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 10:49