Файл: Кастин, О. М. Система первичной обработки метеорологической информации.pdf

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 23.10.2024

Просмотров: 94

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

п р и л , і

п р и л , а

п р и л . г

п р и л . а

8 6 9 , 0

8 7 0 , 0

8 7 1 , 0

8 7 ! , 0

8 7 3 , 0

8 7 4 , 0

8 7 5 , 0

8 7 6 , 0

8 7 7 , 0

8 7 8 , 0

8 7 9 , 0

8 8 0 , 0

8 8 1 і О

ев! Iо.

б а з ,о

884,D

885,:

886,

887,0

888,0

889,0

 

I F A B I U V T H E N С О Т О R P O V Ü

 

 

 

 

 

I F

A B P U O I T H E N

С О Т О S D ! ;

 

 

 

 

 

I F

Ä B L C T H E N

С О Т О

S D C t f l S D + l l ;

 

 

 

s o о о :

T : * o ;

с о т о

 

s o o ;

і и м п і .

5 0 0

 

 

р Р о ѵ г ;

F O R

 

Ä P i : = i S T E P

 

 

T F !

д й р 1 о , A R 1 ) : = Д Р Р t г , д я 1 1 ;

 

 

 

 

 

т : х \ J

С О Т О

S O I !

1 U N T I L

5 0 0

 

 

 

S O I !

 

F O R

f l R H a l S T E P

С О Т О

T F ;

5 D ! :

 

Д Р Р І О , * p П : а Я Ч Р 13 , Я Я 1 1 ;

 

F O R

Д Р І ! = 1 S T Е р

1 U N T I L

5 0 0

С О Т О

т F ;

5 0 3 !

 

Д Р Р [ 0 , Я Я 1 1 ! З Д О Р t 5 , A R 1 ] ;

 

F O R

f l R I I e l S T E P

1 U N T H

5 0 0 B E G I N

 

 

д я р t о , д в п

: = д р р 1 4 , д я 1 ] ;

 

 

 

s f f d :

 

дяр 1і,яр 1 1 :з Дрр [S .ли U ENO ; т:*і

 

ANU :X A N I I *

1 ;

 

 

 

 

 

 

IF

Д В Д С « Д м и > 1 0 * 7 Д ОЛ СIflNU»15THEN

СОТО PSK;

С О Т О

Д Вг Ѵ Е Д О

ДВОРи;

 

 

1 ,! ITHEN BEGIN

IF

с

I 1 J r T u l flNU*l ,1 J S C t ! J = T U (P N U

RVM ;

IF

A B A C 7 A N U = 1 * 7 A B A C 7 A N U = \ 4 T H E 4

 

A B O P U !sTRUE i

I^F ACVU » 3T HEN

C T1 [!Э 1 != CT 1 119 ]* 1 !

 

 

 

 

с о т о

K A R U M E N O

;

 

 

 

 

 

8 9 0 , 0

C O M M E N T

д н д л и з

и м е о щ и х с я в с о о б щ е н и и о т к л о н е н и й

891,0

 

I F

o r к о д я

и

и х

и с п р а в л е н и е ;

89! ,0

 

С I 1 I = W 8 7 C t 2 ] = W B T H E N

GOTO

E N D a ;

8 9 3 , 0

С Т І { 2 5 1 ! s C T I {251*15

 

 

 

894,0

3 4 ;

СО ТО O S l A C VU li

 

 

 

 

895,0

IF

7 A 8 B V T H E N

СОТО

3<8;

СОТО

04Д;

8 9 6 , 0

03!

T !

s A e V U ! = ! J flBIUV:=TRUE

;

 

І Ю

..................................................................................... ........................................................................................................... « • • • • • • П А К Е Т . 0 0 .............................

П Р И Л . 2

П Р И Л . 2

П Р И Л . 2

П Р И Л . 2

897,0

I F f l R P i r , 1 ] = T U [ A N U + l , n « M J P [ T , 2 ] 3 l U [ A N U . » b a )

а 9 в

,

о

3 9 9

,

0

■ > 0

0 , 0

9 0 1

, 0

9 0 2

,

0

9 0 3

, 0

T H E N

B E G I N C T I I 2 6 ) : = с Т 1 I 2 6 ] + 1 ;

G O T O

R V M E N Q j

 

I F

A R P ( T , 1 ] = W B « A a P [ T , 2 ) = W 8 T H E N

 

0 2 I

 

B E G I N A K G P P R : = 2 |

G O T O

E N D 2 E N O - ;

 

A G V U : = 9 ;

 

A 3 I U V ; = F A L S E

;

 

I F

A B I U V T H E N B E G I N

 

 

T : = J E N U

; A N U ; S A N U + I ;

G O T O

Z N R P ;

9 0 К

,

0

9 0 S

,

0

9 0 6

,

0

9 0

7

, 0

9 0

6

, 0

9 0 9 «

0

9 1 0 , 0

9 1 1 , 0

9 1 2 , 0

9 1 0 , 0

9 1 9 , 0

9 1 5 , 0

9 1 6 , о ’

9 1 7 , 0

9 1 8 , 0

9 1 9 , 0

9 2 0 , 0

9 2 1 , 0

9 2 2 , 0

9 2 3 , 0

9 2 9 , 0

зал: I F

A A P [ 2 , U = T U

[ A N

U + l , 1 1 3 A R

P t 2 , 2 ] = T U

l A N

U + l , 2 ]

 

 

7 G [ 1 J = T U I A N U * 2 , l l » G l 2 ) = T U [ A N U + 2 , 2 l T H £ N

 

 

 

G O T O R O S ;

G O T O A L G ;

 

 

 

 

 

 

 

3л В • A G V U ; = 5 J

G O T O

Z N R P ;

 

 

 

 

 

 

 

o s :

я ; v u : = 6 ;

G O T O

Z N R P ;

 

 

 

 

 

 

 

О б :

I F

A R P [ 3 , U = T U [ A N U + 1 , 1 ] » A R P t 3 , 2 ] = T U t A N U * 1 , 2 1

 

 

» A R P [ S , l l = T U l A N U + 2 , l ) « A R P [ 5 , 2 ) = T U [ A N U + 2 , 2 l T H E N

R O S :

 

B E G I N A G V U ; = 5 ;

A B P U O I : = T R U E

;

*

 

 

 

д н и : = A N U f i ;

A P U R : = T R U E

;

R V M E N Q J

 

 

 

 

I F

C T I t 2 7 J : = C T 1 ( 2 7 1 ♦ I )

G O T O

 

 

 

 

A R P [ 3 , } ) = T U [ A N U t l , l l « A R P [ 3 , 2 ) = T U l A N U + l , 2 ]

C O M M E N T

x G { 1 ] = T U [ A N U + 2 , 1 ] » G l 2 ) = T U t A N U + 2 , 2 ] T H E N

G O T O R O S

 

И С К Л Ю Ч Е Н И Е

л и ш н и х

г р у п п ;

 

—

——'

”*—

A L с :

I F

A G V U = 9 T H E N

B E G I N

 

 

 

 

 

 

 

 

 

I F

C n j ^ T U I A N U . n ^ C L Z J s r U C e n O . J l T H g - N

 

 

 

 

I F

B E G I N

A S o ; = 0 ;

G O T O L G T E N O

I

 

 

 

 

 

A R P [ J , 1 ] = T U I A N U , 1 ] I A R P 1 3 , 2 ] * T U I A N U , 2 ] T H E N

 

 

 

B E G I N

A s D : = i ;

G O T O

L G T E N D

;

 

 

 

 

G O T O

L G N E N Ü

;

 

 

 

 

 

 

 

 

 

 

I F

A R P ( 9 , 1 ] = T U l A N U , l ] S A R P [ 9 , 2 ] = T U [ A N U , 2 ) T H E N

 

 

B E G I N A S D : = 3 ;

 

 

 

 

 

 

 

 

II I

п р и ", г

п р

, л ,

г

n Р . 1 л . г

fIРИЛ« 2

9 3 5 . 0 LG г : лві. с : =т я и Е

;

ст I [

) : =ст 1 1 s ä ) ♦ 1 ; G O T O

LGNE NO ;

9 26 .0

9 2 7

. 0

9 2 8

. 0

9 2 9

. 0

9 3 0

, Q

9 3 1

. 0

9 3 2

, 0

9 3 3 . 0

9 3 А , О

9 3 5 . 0

9 3 6

. 0

9 3 7

. 0

■ > 9 3 8

, 0

9 3 9

. 0

9

А 0

; О

9

А 1

, О

9

А І

, 0

9 А 3

, О

IF

A R P [ S , I 1 = T U [A N U , l I ’ A R P I S , 2 1 = T U tA N U , 2 1THEN

L G N ; I F

B E G I N

A s 0 : = 2 i

G O T O L G T E N O

;

A B L G T H E N B E G I N

G O T O R V M E N O I

E N Q I S I F

A G V U I s A K G P P R i A N U I = A N U - l ;

А В A C ? A S T M < 2 * 7 А й A C 9 A 5 T H < Н О C

 

T H E N G O T O A N L Z S J

 

E N 0 2 : A R U M ( A K G P P R ) i

 

 

C O M M E N T

З А Н Е С Е Н И Е М А К Е Т А В М А С С И В М А К Е Т О В ,

 

А Н А Л И З Н А П Р О Д О Л Ж Е Н И Е * Р А С Ш И 6 Р О В К И

 

С Л Е Д У Ю Щ И Х Д Э Р О Л О Г И Н Е С К И Х С О О Б Щ Е Н И Й

 

или

В Ы Х О Д И З

Д А Т ;

 

I F

7 A B A C T H E N

Д М I - 1 , 1 ] : = 1 E L S E

 

I F

I F

A S T M < 2 T H E N G O T O A K T P ' U ;

 

A L A C T H E N

B E G I N C T I I 3 1 ] : = C T I t 3 u ♦ 1 ;

 

C T l [ 3 3 1 : = C T I [ 3 3 ] * A M [ - l , 2 ) E N D

E L S E

B E G I N

C T I [ 3 2 1 : = C T I I 3 2 ] * 1 ;

;

 

C T l [ 3 A 1 : = C T 1 [ 3 A ] * A M [ - 1 , 2 ] E N 0

9 А А , О

C O M M E N T

У П А К О В К А М А К Е Т А A M ;

9 А5

, О

Т J = 0 I A B 1 і = D N O R ( 1 , А 5 ) ;

9 А6

, О

I : = Д . М [ - 1 , 2 ] I

0 7 = Д М І - 1 , П і

9 А7 , Q

A B 1 : = A B 1 * D N 0 R ( I , A A ) * D N 0 R ( O , A 2 ) ;

9 а в , о

а : = А М ( о , і ) і

I ; = A M I O , 2 ] J A R 1 : = д м і о , з ] J

9 А9 , 0

I F A M [ - 1 . 2 J = I T H E N

9 5 0 . 0

A B I : = A B 1 * D N 0 R ( A R 1 , 1 ) » O N d R ( Q , 1 2 ) * O N O R ( I , 1 5 ) E L S E

9 5 1 . 0

A B l : » A B l * D N O R ( l . , I I * U N O « ( a , l 3 ) » O N O R ( A R l , 2 2 ) J

9 5 2

, 0 I : = A M [ 0 , A ] j

AR 1 : = A M [ 0 , S ] ;

1 12

П Р и л . 2

П Р И Л . г

. . » • • • П

іА К Е Т . 0 0

 

П Р И Л .

приЛі г

9 5 3 . 0 I > 5 О T H E N B E C J I N

9 5 4 . 0

л в 1 : = л в 1 » O N O R м , < 3 ) ;

I : = I - S O E N D і

9 5 3 . 0

Я В 1 I = Д В 1 т О N O R ( A R 1 , 3 2 ) * O N O R ( 1 , 3 7 ) I

9 5 6 , 0

E L N I : M A M [ S M A M ) : = A B I ;

S M A M : = S M A 4 * 1 !

9 5 7 . 0

I F

T » A 5 T M T H E N B E G I N

 

9 5 8 . 0

I F

D 4 A M - S M A M « 1 2 T H E N B E G I N

9 5 9 . 0

F K M H ( o , S M f l M - 1 , M A M ) J

 

9 6 0 . 0

F O R

S M A M : = ! 5 T E P

H J N T I L

D M A M D O

9 6 1 . 0

M A M ( 5 u A 4 ] ; ± T R U E

9 6 2 . 0

G O T O A P K T E L E N O

;

S M A M ! * 1 E N D J

;

 

9 6 3 , i I : = < M [ T , 1 ] ;

 

 

 

 

11 = 1 0 2 3 !

9 6 9 , 0

I F

1 = I О О О 0 0 0 T | ± - 1 T H E N

9 6 5 , 0

я в 1 : = i N O R ( I , 3 5 » ;

I : = я м с т , 2 15

9 8 6 . 0

I F

I = 1 О О О О 0 0~I * - 1 T H E N

l : = 1 0 2 3 i

9 6 7 , 0

Я В 1 : = Я й 1 » D N O R ( I , 2 5 )

 

!

і : = Я Ч ( Т , з ] ;

9 6 8 . 0

I F

1 = 1 О О О 0 0 O T I i - 1 T H E N

11 = 1 2 7 ;

9 8 9 , 0

я в 1 : = й в 1 * D N O R ( I ,

i i ) ;

 

і : = я м і т , 4 ) і

9 7 0 . 0

I F

I

= I C O O C O O ~ I = - . I T H E N

i : = l г 7 ;

9 7 1 . 0

Я В

1 ;

=Si 1 * L N O R ( I

,

I I

1

;

I : = Я

M t T , 5 1 i

9 7 2 . 0

I F

I - 1 0 0 0 0 0 0 ~ I ± - 1 T H E N

i : = 1 0 2 3 !

9 7 3 , 0

Я В 1 : = Я В l T p N O R ( 1 , 1 ) i

G O T O

E L N i ;

9 7 « , ' -

o p - ( T £ u : i c : = F A L S E

;

 

 

 

 

9 7 5 , -

O P K T L :

П

4 Г T H E N B E G I N

 

9 7 o , :

“ K I P U i : I F

К S T H E N

S O T O

« 1 5 1 !

9 7 7 , 9

 

 

 

B P G ( 5 ) ;

G O T O

Д К Т Р 1 U E N 0 ■ ;

9 7 8 . 0

 

I F

P S ’ C T H t . N

G O T O A I S < !

B P G ( 5 ) ;

9 7 9 . 0

 

I F

(

I 1 ] = A T P G t 2 ) = h T * r U 1 ] = W U » G t 2 1 = W U )

9 8 0 . 0

 

 

7 ( . I J 1 = « R Ü G U

j = N A * G l 3 ] = w C * G H J= W C )

113

Смотрите также файлы