Обозн. t(1/2)- зимой

Объект и предмет исследования


Обозн. t(1/2)- зимой


Download 1.41 Mb.
bet9/25
Sana16.06.2023
Hajmi1.41 Mb.
#1518011
1   ...   5   6   7   8   9   10   11   12   ...   25
Bog'liq
Разработка программного средства прогноза частоты пост 02

Обозн.

t(1/2)- зимой

t(1/2)- весной

t(1/2)-
летом

t(1/2)- осенью

MarWer2

0,93

1,47

0,33

3,48

JupMer2

0,54

3,39

3,87

1,22

JupWer2

0,13

2,06

1,12

1,14

SatMer2

0,39

2,56

0,90

0,04

NepMer2

0,40

2,49

0,88

0,11

NepWer2

2,01

2,44

1,68

0,21

UraMer2

0,28

4,10

3,73

0,31

UraWer2

0,35

1,44

0,26

1,91

LunMer03

0,21

4,01

3,73

0,45

LunPar03

1,36

3,31

2,47

0,04

LunWer03

0,66

1,54

2,30

0,98

MrkMer03

2,12

4,19

3,51

0,74

MrkPar03

2,92

3,77

0,67

1,34

MrkWer03

2,59

4,16

2,71

1,50

VenMer03

0,76

1,97

2,02

0,05

VenPar03

0,88

2,58

1,11

0,38

VenWer03

0,78

0,34

2,73

1,12

MarMer03

1,20

2,06

2,09

0,19

MarPar03(

1,36

1,05

2,77

1,25

MarWer03

1,03

2,92

0,72

1,91

JupMer03

4,73

0,27

1,78

1,06

JupPar03

2,89

0,67

0,82

0,28

JupWer03

3,42

0,44

1,12

0,21

SatMer03

5,73

0,63

0,64

0,22

SatPar03

4,11

1,35

0,38

2,13

SatWer03

2,44

1,77

0,34

0,45

NepMer03

3,16

0,56

0,68

0,11

NepPar03

0,07

0,93

2,17

0,88

NepWer03

0,29

1,52

4,00

0,42

UraMer03

0,29

1,00

4,00

0,42

UraPar03

0,29

1,72

4,00

0,42

UraWer03

2,19

1,41

2,00

0,32

SolMer05

2,27

2,53

1,23

0,13

SolPar05

2,50

0,29

0,82

1,80

SolWer05

2,40

0,20

0,85

1,80

LunMer05

3,34

1,17

1,07

1,47

1* отсутствие поступлений пациентов с ПО.


2* наличие поступлений пациентов с ПО.

Для того, чтобы оценить степень влияния параметров сил гравитации на ПО и его тенденцию, был проведен корреляционный анализ частоты заболеваемости с ПО и выявлены те из них, которые имеют достоверную корреляционную зависимость (см. табл.3).


Таблица 3. Корреляционная зависимость частоты поступления пациентов с постстенокардическими обострениями в зависимости от влияния сил гравитации

Private Sub korSolMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(18) = -1: kor(25) = -1: kor(31) = -1:
kor(39) = -1: kor(46) = -1
kor(61) = -1: kor(99) = -1: End Sub

Private Sub korMrkWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(12) = -1: kor(80) = -1:End Sub



Private Sub korSolPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(45) = 1: kor(92) = 1: kor(99) = 1:
End Sub

Private Sub korSolWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub



Private Sub korVenPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(20) = -1: kor(39) = -1: End Sub

Private Sub korLunMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(25) = -1: kor(31) = -1: End Sub

Private Sub korVenWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(20) = 1: kor(39) = 1: End Sub

Private Sub korLunPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(10) = -1: kor(35) = -1: kor(99) = -1:
End Sub

Private Sub korMarMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(67) = 1: kor(91) = 1: kor(98) = -1:
End Sub

Private Sub korLunWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(10) = 1: kor(35) = 1: kor(99) = 1:
End Sub

Private Sub korMarPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(95) = 1:
End Sub

Private Sub korMrkMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(34) = 1: kor(38) = -1: kor(70) = 1:
End Sub

Private Sub korMarWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(95) = -1:
End Sub

Private Sub korMrkPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(12) = 1: kor(80) = 1:End Sub



Private Sub korJupMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(24) = 1: kor(28) = 1: kor(36) = 1: kor(67) = -1:End Sub

Private Sub korJupPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(18) = -1: kor(89) = 1:End Sub

Private Sub korNepPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(19) = -1: kor(30) = 1: kor(47) = 1: kor(61) = 1: kor(64) = 1 End Sub

Private Sub korJupWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(18) = 1: kor(89) = -1:End Sub



Private Sub korNepWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(19) = 1: kor(30) = -1: kor(47) = -1: kor(61) = -1: kor(64) = -1 End Sub

Private Sub korSatMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(26) = -1: kor(91) = 1:End Sub

Private Sub korUraMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(26) = -1: kor(27) = -1: kor(57) = -1: kor(59) = -1: kor(64) = 1
kor(90) = 1: kor(91) = -1: kor(92) = -1: kor(93) = -1:
End Sub

Private Sub korSatPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(41) = 1: kor(60) = 1: kor(72) = 1: kor(73) = 1: kor(83) = 1 End Sub

Private Sub korUraPar03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(19) = 1:End Sub

Private Sub korSatWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(41) = -1: kor(60) = -1: kor(72) = -1: kor(73) = -1: kor(83) = -1 End Sub

Private Sub korUraWer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(19) = -1: End Sub

Private Sub korNepMer03(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(18) = 1: kor(28) = -1: kor(38) = 1: kor(58) = -1: kor(87) = -1
kor(92) = 1: kor(99) = 1: End Sub

Private Sub korSolMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
End Sub



Private Sub korSolPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSolWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korLunMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korLunPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korLunWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMrkMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korJupMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMrkPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korJupPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMrkWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korJupWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSatMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSatPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
End Sub



Private Sub korUraWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(16) = 1: kor(49) = -1: kor(50) = 1: kor(52) = -1: kor(53) = 1
kor(57) = -1: kor(62) = 1: kor(74) = 1: kor(77) = -1: kor(78) = 1
kor(81) = -1: kor(87) = 1: kor(117) = 1: kor(120) = 1: End Sub

Private Sub korSatWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSolMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSolPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSolWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepWer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub



Private Sub korLunMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(132) = 1: End Sub

Private Sub korUraMer05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(16) = 1: kor(49) = -1: kor(50) = 1: kor(52) = -1: kor(53) = 1
kor(57) = -1: kor(62) = 1: kor(74) = 1: kor(77) = -1: kor(78) = 1
kor(81) = -1: kor(87) = 1: kor(117) = 1: kor(120) = 1: End Sub

Private Sub korLunPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(1) = -1: End Sub



Private Sub korUraPar05(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(16) = 1: kor(49) = -1: kor(50) = 1: kor(52) = -1: kor(53) = 1
kor(57) = -1: kor(62) = 1: kor(74) = 1: kor(77) = -1: kor(78) = 1
kor(81) = -1: kor(87) = 1: kor(117) = 1: kor(120) = 1: End Sub

Private Sub korLunWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(132) = -1: End Sub



Private Sub korMrkMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(146) = 1: kor(150) = -1: kor(161) = -1: End Sub

Private Sub korMrkPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub



Private Sub korMarPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(148) = -1: kor(149) = 1: kor(154) = -1: kor(155) = -1: kor(158) = -1
End Sub

Private Sub korMrkWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(146) = -1: kor(150) = 1: kor(161) = 1: End Sub

Private Sub korVenMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(111) = 1: kor(114) = 1: kor(120) = 1: kor(121) = -1: kor(128) = -1
kor(132) = -1: kor(141) = 1: End Sub

Private Sub korJupMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(28) = -1: kor(32) = 1: End Sub



Private Sub korVenPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(131) = 1: End Sub

Private Sub korJupPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(111) = -1: kor(114) = -1: kor(120) = -1: kor(121) = 1: kor(128) = 1
kor(132) = 1: kor(141) = -1: End Sub

Private Sub korJupWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li
kor(28) = 1: kor(32) = -1: End Sub

Private Sub korSatMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSatWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSatPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korUraWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepWer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSolMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korUraMer1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSolWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korUraPar1(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korLunMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korLunWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMrkMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMrkWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korJupWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korSatWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korVenWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korNepWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korMarWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korUraMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korJupMer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Private Sub korUraWer2(ond, kor())
For li = 1 To ond
kor(li) = 0: Next li End Sub

Фиксация достоверных волн в листинге:


Ond – количество волн
kor(li) = маркирование волн, имеющих достоверную корреляционную связь
kor(li) = 0 – нет связи – волна не участвует в расчетах
kor(li) = 1 - есть положительная связь
kor(li) = -1 – есть отрицательная связь.



Download 1.41 Mb.

Do'stlaringiz bilan baham:
1   ...   5   6   7   8   9   10   11   12   ...   25



Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling