Форум программистов, компьютерный форум, киберфорум
alhaos
Войти
Регистрация
Восстановить пароль

Модель заражения группы наркоманов

Запись от alhaos размещена 17.04.2026 в 15:33
Показов 5899 Комментарии 0

Условия задачи сформулированы тут

Суть:
- Группа наркоманов из 10 человек.
- Только один инфицирован ВИЧ.
- Колются одной иглой.
- Колются раз в день.
- Колются последовательно через минимальный промежуток времени.
- После инфицированного наркомана игла становится грязной.
- Укол грязной иглой вызывает заражение в 2% случаях.
- За ночь игла становится чистой.

Интересует сколько в среднем дней нужно чтобы заразилась вся группа.

смоделировал Так

Go
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
// Наркоман
type Junkie struct {
    ID       int
    Infected bool
}
 
// Эксперимент
type Trial struct {
    Junkies []Junkie
}
 
func NewDefaultTrial() *Trial {
 
    t := Trial{}
 
    t.Junkies = append(t.Junkies, Junkie{Infected: true, ID: 0})
 
    for i := range 9 {
        t.Junkies = append(t.Junkies, Junkie{Infected: false, ID: i + 1})
    }
 
    return &t
}
 
func (t *Trial) ShootUpJunkies() {
 
    rand.Shuffle(len(t.Junkies), func(i, j int) {
        t.Junkies[i], t.Junkies[j] = t.Junkies[j], t.Junkies[i]
    })
 
    isNeedleInfected := false
 
    for i, junkie := range t.Junkies {
 
        if junkie.Infected {
            isNeedleInfected = true
        }
 
        if isNeedleInfected {
            t.Junkies[i].Infected = t.Junkies[i].Infected || (rand.Intn(100) < 2)
        }
    }
}
 
func (t *Trial) IsAllInfected() bool {
 
    var result bool
 
    result = true
 
    for _, j := range t.Junkies {
        result = result && j.Infected
    }
 
    return result
}
Один миллион экспериментов показал что в среднем надо 167 дней

Go
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
package main
 
import (
    "fmt"
 
    "github.com/alhaos/junkiesInection/internal/model"
)
 
const count = 1_000_000
 
func main() {
 
    var sum int
 
    for _ = range count {
        t := model.NewDefaultTrial()
        i := 0
        for ; !t.IsAllInfected(); i++ {
            t.ShootUpJunkies()
        }
        sum += i
    }
 
    fmt.Printf("avg days: %d", sum/count)
}
avg days: 167
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 0
Комментарии
 
Новые блоги и статьи
Цена ошибки
DevAlt 23.08.2026
Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины.
zorxor 22.08.2026
Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом
anaschu 21.08.2026
Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире.
kumehtar 19.08.2026
Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .
Когда логика программы не спасает от человеческих ошибок
Maks 18.08.2026
В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит
kumehtar 17.08.2026
Мысли в слух
kumehtar 17.08.2026
Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега
Maks 17.08.2026
Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru