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

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

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

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

Добавлен: 23.10.2024

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

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

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

п р й л і '2........

при лI‘5........

іірйл; 5........

йййй

9 8 1

, 0

9 3 2 , 0

9 9 3

, 0

9 8 8

1

0

9 8 5

, 0

9 8 6 , 0

9 8 7

, 0

9 8 8 , 0

9 8 9 , 0

9 9 0

, 0

9 9 1 , 0

9 9 2

, 0

9 9 3 , 0

9 9 8 , 0

9 9 5

, 0

9 9 6

, 0

9 9 7

, 0

9 9 6

, 0

9 9 9

, 0

о ш о

1 іи а

2 Ш 0

З Ш О

8 Щ 0

5 Щ 0

61110

7Ш 0

е л о

T H E N G O T O A N T t o ;

д I s 6 : N Z S : * o ;

N T : = N T S ;

G O T O

 

A P K T L J

 

A I S 1 i N T S : = N T S * 1 i O B S T 1 s T R U E

;

 

A l S A l R I G i

I F

S S < 1 2 T H E 4

G O T O

E N O R A T ;

B P G ( 5 ) ;

 

 

 

 

 

 

I F ( G t l J = W T 9 G l 2 ] = M T ? G ( 1 ) = W U ^ G [ 2 ] * W U ) ' 9

( G t 3 ) = W r t * G t 8 ] = N A T G [ 3 J = W C * G t 8 ] * И С ( T H E N

A N T N :

B E G I N

N Z S : = O ; G O T O

P Z T E N O

J

I F

( G [ l ] = W T « G [ 2

] =wr*c[

1 ] s W U « G I 2 ] = W U )

■ B G t 3 l a W e * G t 8 ) = « B T H E N

 

 

;

 

B E G I N

P s : = о ;

G O T O A I S S E N O

G O T O E N U R A T ;

 

 

 

 

 

C O M M E N T

 

н а й д е н Л И З А Г О Л О В О К С В О Д К И

Л N L Z 5 і I F

П Е Р Е Д в х о д о м В R A T ;

 

N Z S s O T H E N

B E G I N

 

 

 

 

 

 

I F O C T H E N N T S l i N T J

G O T O E N O R A T E N O

;

 

 

N T S t = N Z S ! R I G ;

Z P N 1 ; O B 5 T : = T R U E

j

 

 

I F

S S < 1 7 T H E N

B E G I N

 

 

 

N T S : = N T S + I ;

G O T O

E N D R A T E N O ;

 

 

 

N Z S : = O ; oc: *=T R U E J

G O T O P Z T ;

 

E N O

R

A T :

T ;

 

 

 

 

E N O

 

R A

 

 

 

 

G O T O

V R A T ;

 

 

 

 

R s T

:

 

B E G I N

 

 

 

 

C O M M E N T

Б Л О К О П О З Н А Е Т И Р А С К С Д И Р У Е Т С И Н О П Т И Ч Е С К И Е

 

 

 

С У Х О П У Т Н Ы Е И М О Р С К И Е С О О Б Щ Е Н И Я ,

 

 

 

 

Ф О Р М И Р У Е Т З А П И С И

( М А К Е Т Ы ) С О О Б Щ Е Н И Й .

Р А Б О Т А Б Л О К А A S T Н А Ч И Н А Е Т С Я С О

m


П Р И Л . 2

 

* 4

 

............................

 

г К Е Т . О О

П Р И Л . 2

 

П В . 1 л .

2

 

ПРИЛ.

2

 

 

 

 

 

 

 

9 ЩО

 

 

С Т Р О К И С Н О М Е Р О М N T ( N T s N T S ) J

 

m u j o

I N T E G E R

C H O P , C N P T ,

C I W , C O ,

C S H , C O L , C N N S ,

 

1 І Ш О

 

C G G , С У У , L . L I , L < , 0 , K , N ,

 

 

І 2 Ш 0

I N T E G E R

C N S . C O K . C K U R P . C H P G . C K O G . T . M . A A . A S ;

 

U u l O

I , T 1 , M 1 , N S T ;

 

 

 

 

м ш о

B O O L E A N

V S M R T , c a I G , C B K P S , S H R E D ;

 

 

l S u i o

B O O L E A N

L E N , L E N I ,

B B , A , c ;

 

 

 

 

1 6 Ш П I N T E G E R

Д Я Я А У С М А К t - 1 ; 6 B ] , C B R P [ 0 : 2 1 I l I S ] І В l I : 5 J J

1 7 Ш 0

C O M M E N T

- Х А Р А К Т Е Р И С Т И К А О П О З Н А В А Н И Й К О О Р Л И Н Д Т ,

1 В Ш 0

C H O P

1 9 Ш О

С N P Т - П Р И З Н А К О Т С У Т В И Н В

С О О Б Щ Е Н И И

 

2 0Ц] 0

C I W

 

Н Е К О Т О Р Ы Х

О С Н О В Н Ы Х

Г Р У П П ,

 

 

2 1 Ш О

- Х А Р А К Т Е Р И С Т И К А С П О С О Б А Н А Б Л Ю Д Е Н И Я И

 

2 2 щ О

с а

 

П Е Р Е Д А Ч И В Е Т Р А В С О О Ю Щ Е Н И И ,

 

2 3 Ш 0

- Н О М Е Р К В А Д Р А Н Т А ,

 

 

. .

 

2 А ui О

С 5 И

- Ш И Р О Т А ,

 

 

 

 

 

 

2 5 Ш 0

C O L

- Д О Л Г О Т А ,

 

 

 

 

 

 

2 6 Ш 0

C N N S

- Н О М Е Р П Е Р В О Й Н Е О П О З Н А Н Н О Й С Т Р О К И ,

 

2 7 Д О

C N S

- К О Л И Ч Е С Т В О Н Е О П О З Н А Н Н Ы Х С Т Р О К ,

 

2 В щ О *

С О К

- К О Л И Ч Е С Т В О О Ш И Б О К , О Б Н А Р У Ж Е Н Н Ы Х П Р И К О Т Р О Л Е

2 9 Ш 0

C K G R P - К О Л И Ч Е С Т В О Г Р У П П В С 8 R Р ,

 

 

З О Ш О

C H P G - Х А Р А К Т Е Р И С Т И К А Н А Л И Ч И Я В С Е Х О С Н О В Н Ы Х Г Р У П П ,

З і ш п

С К О G - К О Л И Ч Е С Т В О О С Н О В Н Ы Х Г Р У П П В С В А Р ,

 

32Ш0

N S T - H O M E P

С У Х О П У Т Н О Й СТАНЦИИ,

 

 

З З Ш О

Т , М , A 4 , А 5 , V S M R T

 

- Р А Б О Ч И Е

П Е Р Е М Е Н Н Ы Е ,

 

3 4 111О

С В I G

-

П Р И З Н А К

Н А Л И Ч И Я

И С К А Ж Е Н Н О Й

Г Р У П П Ы ,

 

3 5 Ш 0

C B K P S - П Р И З Н А К К О Н Ц А П Е Р В О Й С Т Р О К И С О О Б Щ Е Н И Я .

3 6 Ш 0

СМАК

МАКЕТ СИНОПТИЧЕСКОГО СООБЩЕНИЯ,


П Р М . г

п р и л , г

П Р И Л . г

п р и л . J1’

3 7 Ш 0

с е в р

- р а б о ч и й м а с с и в

п л и Н А Б О Р А В С Е Х

 

ЗВшо

 

г р у п п С О О Б Щ Е Н И Я

п о с л е З А Г О Л О В К А ,

 

3 9 Ц І 0

в

- Р А Б О Ч И Й М А С С И В ;

 

 

4ошо

P R O C E D U R E C B K O R D ;

 

 

4 і ш а C O M M E N T

П О И С К К О О Р Д И Н А Т Д Л Я О П О З Н А В А Н И Я М О Р С К И Х

4 2 Щ 0

 

С О О Б Щ Е Н И Й И С О О Б Щ Е Н И Й , Н А Ч И Н А Ю Щ И Х С Я С 1

4 З Ш О

4 4 Ш 0

4 5 ш о

4 6 Ш О

4 7 Щ 0

4 a m О

4 9 JJ О

5 0 0 1 0

5 1 ш а

5 2 0 1 0

5 5 0 1 0

B E G I N I N T E G E R

I , 5 , Т J

 

 

 

 

B O O L E A N

C B I W . C B V X ;

 

i

I N T E G E R

A R R A Y

C B S H , C B O L , C B V G [1 :5 ]1

C O M M E N T

в ы б о р к а

г р у п п

C B S H ,

C B O L и C B V G ;

I :* 1 ; S H R E O := F A L S E

;

 

 

C T 114

2

] ;=ст П 4 2 ]♦ 1 ;

 

 

M I : B P G (5 )J I F S G = 5 « 7 K S T H E N

B E G I N

 

 

I F

i в 1 T H E N

G O T O

с к I J

 

 

I F

I F I = 2 T H E N

G O T O

C К £; G O T O C K S E N O

;

К 3 T H E N

B E

G I N

С H 0 P :=3 ; сото C [ E N D

;

K S G :з а j

G O T O

M I ;

 

 

 

5401 0 C K 1 1

F O R

T : » I S T E P 1 U N T I L

S D O

C B S H [ T ];B G I T );

5 5 U I 0

I F 7 3 H R E D T H E N

B E G I N

 

 

 

 

5<>Щ0

I F

C [ I ] 3 W S « G 1 2 ] 3 H

I « G [ 5 ]3 W R « G [4 I B W E R

5 7 U 1 0

 

R15 1B W Q T H E N

 

B E G I N

 

S H R E O : = T R U E ;

5 Ѳоі 0

[4J

1

:=ст

1

1

 

*

1

;

 

C T I

 

 

4 5 1

 

 

 

5 9 л і

 

G O T O MI E N O

E N D

;

 

 

 

 

5 0 л 0

6 1010

6 2 0 1 U

6 5 0 1 0

М а ю

. 3 : = 0 1

I : » I + 1;

G O T O

M I ;

C B O L [ T ) : B G I T 1 ;

с к г : F O R

Т І З І 5 Т Е Р

1 U N T I L

5 0 0

I : з і 1 1 ; G O T O

M i ;

5 0 0

с B y с t T ] : = G I T ] ;

С К 5 I F O R

T « * l 5 T E P

1 U N T J L

C O M M E N T

ф о р м и р о в а н и е п р и з н а к о в C N P T и C H O P ;

116


......... *..............

•••••

П Р Ц Л . 2

П Р . 1 Л . 2

П Р И Л . 2

П Р И Л . 2

Ь 5 Ш 0 B P S H 9 G :

C G I ; : = T T N ( C B V S , 3 , 2 ) і

6 6 Ш 0

6 7 Ш 0

6ѲШО

6 9 Ш П

7 U Ш О

7 1 Ш О

7 2 Ш О

7 3 Ш 0

7 < Ш П

7 5 Ш О

7 6 IU О

7 7 Ш О

7 8 Ш 0

7 9 Ш 0

8ОШО

8 l i UO

82 1 ÜO

BJiilO

 

c i w : s T T N ( c a y e , 5 , n i

с ѵ у : я т т N l e a v e . і » 2 > t

 

I F

C G G > 0 1 C G G 7 2 4 T H E N C N P T I S O E L S E

 

I F

C G G ? 3 l H C G ( ; 7 5 « T H E N

C N P T : = 1 E L S E

 

I F

C G G > 6 0 * C G G 7 8 4 T H E N

С И Р Т ! = 2 E L S £

 

I F

C N P T : = 3

;

 

 

C H O P ; = 3 j

G O T O C 2 E N Q ;

 

C N P T = 3 T 4 E N B E G I N

 

E G G : = C G G - C N P T « 3 O J

 

 

 

 

1 F C e S H l Ц = И 9 * С В 5 Н [ 2 ] = W 9 T H E N B E G I N

 

I F

C H O P : = O I

£ O T O

C 2 E N O J

 

 

 

C I W = 0 T C I W = l T c i W = 3 T C I W = 4 T H E N

 

I F

C 8 - I W : = T « U E

E L S E C B I W l s F A L S E

J

C y y 7 3 l T H E N

E L S E . С В У У І s F A L S E

i

I F

C B V V : = T R U E

 

С В У У й С В I W T H E N C H O P ! * O E L S E

 

 

 

I F C B У У Т Н Е М C H O P I a l E L S E

 

 

C 2 :

I F

I F C B 1 N T H E N

C H 0 P : = 2 t L S E C H 0 P J * 3 !

C H O P s S T H Ë——--------N B E G I N

О J = J +

1 ;

 

 

С Д В И Г

н А

О Д Н У Группу

 

 

C O M M E N T

для .

8 4 ш O'

 

П Р О Д О Л Ж Е Н И Я П О И С К А К О О Р Д И Н А Т ;

 

8 5 ш О

 

I F 0 Ж 2 Т Я Е Н - B E G I N К S S I = С i

8 E 6 J _ N

 

86 Ш 0

 

F O R

 

T V = 1 S T EP l U N T I ^ L 5 0 0

 

8 7 U1 0

C B S H [ T j : = C B O L [ T ) i C B D L l T J : = С В У в [ Т 1 E N D ;

вето

G O T O

M | E N D

;

 

G O T O C 3 E N D

с н ' 6р = з і

8 9 Ы 0

с м : с н о р : = з ;

C T 1 1 < 4 1 : = C T I H ’4 ] ♦ i ;

9 ОШО

C Q

: = T T N

(

C B O L , I

, n

;

 

;

9 1 Ш О

I F

7t co= i 5 c a = 3 * c o

= 5 * C Q = 7 ) T H E N G O T O C M

9 2 Ш 0

C S H : = T T N i C B S H , 5 , 3 1 ; ,


ц.РИР*.і..

п р и л . г

п р и л , г

п р и л , a ,

 

9 3 Ц І 0

9 4 Ц І 0

9 $ U I 0

9 6 Ш 0

9 7 Ш 0

9 8ш ч

9 9 К О

1аoutо

to 1 аіо

1 оащо

1 аЭиіа

1 0 4 Щ О

1 0 S U I Q

IОбщо

Ю 7 Ш 0

іоemo

1 0 9 U 1 Q

щ

11 оіиа

111010

1І2Ш0

11ОШ 0

1 K I J I O

1 І 5 Щ 0

1 І б ц і о

1 1 7 а і и

1 1 8 41Э

1 І 9 Ш 0

1 2 0 К О

 

1 F C S H « 0 * C S H > 9 0 Q T H E N

С О Т О С Ц ;

 

 

 

C D U ! «TTN( C B O L ,2,0);

 

 

 

 

 

сз:

IF

 

C Q L < 0 * C 0 L > 1 8 0 0 T H E N

сото

см;

 

 

C B K O R Ü

;

 

 

 

 

 

 

 

 

 

 

B N D

, U 2); V A L U E

L | . L *

| I N T E G E R

L i L 2;

P R O C E D U R E

 

А

(L.1

B E G I N L O l a S I C N

( L 2 ) ;

L 2 : = A B S

( L e i ;

L 3 : « L 2 ; I O O !

L 2 I » L 3 - L i « 1 0 0 i

L l : « C M A O I n ];

 

 

 

 

I F

1 1 « 1 0 0 0 0 0 0 * L I » - 1 T H E N

B E G I N

 

 

 

 

L i : « 2 t L 3 - i ;

 

G O T O

L N E N O

i L E N S s T R U E

i

 

L N ;

L E N I : « L E N ) T O N O R ( L 1 , L 2 ); I F

L 4 « O T H E N

B E G I N

мам(L 1;I LEN 1;

L :*L + U

O B L E N ;

 

 

 

IF L E N T H E N

B E G I N

S M 5 M - . 3 L ;

L E N : = F A L S E E N D

;

L E N K C T R U E

E N D

E N D

 

R ;

 

 

 

 

 

 

 

C N N S ;S C N S ;ao ;

 

 

 

 

 

 

 

 

с и loo J; =

C T I

н о

)♦ t;

 

 

 

 

 

C R S

T :

R

I

G

;

 

 

 

l U N T I L

7 0 0

C M A K [ M ] ; . O i

 

F O R

 

M l a - I S T E P

 

N T ; = N T S ;

I F

O C T H E N

G O T O

S H I P ;

 

 

 

I F

 

P I - W S T H E N

 

B E G I N

 

 

 

 

 

 

c y N O P ;I F

 

P S ^ S T H E N

 

G O T O C 2 В i

 

 

 

 

 

I F

S S < 2 8 T H E N

 

B E G I N

8 P G I 5 ) ;

 

 

 

 

 

IF S S » 5 2 * 5 l ‘ l ] = . H 9 l c e 2 ] a W 9 » G [ 3 ) = H 9 T H E N

C 3 9 :

 

 

B E G I N

N R I = T T N ( G , 4 , 2 ) ;

; G O T O C 2 5E N D ;

 

 

N T S ; B N T S +1; O d S T ; = T R U E

C O M M E N T

I F S S = 9 T H E N

G O t O

C 3 9 ;

G O T O C ? 7 E N D

;

 

 

П О И С К Н О М Е Р А С Т А Н Ц И И В С Л О В А Р Е ;

 

 

С т1IА1

]

; = С Т I ( 4

1

] +

1 ;

 

 

 

 

 

 

II8