Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

книги / Применение метода конечных элементов

..pdf
Скачиваний:
5
Добавлен:
12.11.2023
Размер:
16.27 Mб
Скачать

чительно сокращает число ошибок, совершаемых неопытными пользователями.

Относительное расположение [/С], {Ф} и {F} в указанном век­ тор-столбце показано на фиг. 18.1. В программах учтено также, что результирующая алгебраическая система уравнений имеет матри-

Фиг. 18.1. Относительное расположение [/С], {Ф} и {F} в вектор-столбце.

цу ленточного типа, поэтому в эту главу включен ряд подпро­ грамм, выполняющих различные операции над матрицей [/С].

Каждая программа построена на основе блок-схемы, представ­ ленной в гл. 7. Специальные программы, включающие некоторые модификации, обсуждаются в связи с каждой прикладной темой. Ввод исходных данных для элементов осуществляется в том же формате, в каком эти данные перфорируются программой GRID после завершения ее работы. Это позволяет исключить еще один источник ошибок при формировании исходных данных.

Представленные здесь программы написаны для ЭВМ с ми­ нимальными запоминающими устройствами. Исходные данные эле­ ментов не хранятся в машинной памяти, а вводятся вновь, если необходимо вычислить результанты элемента. Тот, кто имеет дело с ЭВМ, обладающей большим по объему запоминающим устрой­ ством, может считать более удобным хранить информацию об элементах в машинной памяти.

Написать программу можно несколькими способами. Эта гла­ ва содержит только те программы, которые являются результатом работы самого автора по созданию ряда учебных программ, осно­ ванных на методе конечных элементов. Каждый пользователь мо­ жет по желанию модифицировать эти программы в соответствии с его учебными или исследовательскими целями, а также с учетом возможностей ЭВМ.

Следующие программы написаны на алгоритмическом языке ФОРТРАН IV [2].

18.1. GRID

Неверно составленные исходные данные для элементов — глав­ ный источник ошибок при использовании программ, основанных на методе конечных элементов. Обработка исходных данных так­ же требует затрат времени. Существуют программы, которые ав­

томатически вырабатывают исходные данные элементов. Эти про­ граммы построены на различных принципах, но все они служат одной цели: размещают узловые точки внутри рассматриваемой области и затем разбивают область на элементы. Окончательным результатом их работы является вывод на перфорацию номеров узлов элементов и координат этих узлов.

Программа GRID вырабатывает исходные данные элементов для .представленных в этой главе программ, основанных на методе конечных элементов. Для конструирования дискретной модели рассматриваемого тела в GRID используется семейство четырех­ угольных зон с восемью узлами (квадратичные четырехугольни­ ки). Эта программа может моделировать двумерные области, ко­ торые составляются из прямоугольников и треугольников, грани­ цы которых могут быть описаны кривыми второго порядка. В про­ грамме осуществляется нумерация узлов элементов и вычисляется величина (R + 1), используемая для определения ширины полосы ленточной матрицы. Не пытайтесь минимизировать R за счет пе­ ренумерации узлов.

Минимизация ширины полосы ленточной матрицы и связан­ ные с этим программы обсуждаются в работе [1].

18.1.1. Четырехугольная зона

В программе GRID для предварительного разбиения на зоны могут применяться только квадратичные четырехугольники. Этот элемент, однако, обладает значительной гибкостью: может ис­ пользоваться в качестве прямоугольника, четырехугольника обще­ го вида или треугольника (фиг. 18.2). В последнем случае две стороны четырехугольника используются для задания одной сто­ роны треугольной зоны.

Восемь узлов, определяющих зону, нумеруются, как показано на фиг. 18.2. Узлу 1 всегда соответствуют координаты 1 = г\ = — 1. Заметим, что один из угловых узлов (узел 5 на фиг. 18.2) всегда будет на гипотенузе треугольной зоны.

При рассмотрении каждой четырехугольной зоны выполняются пять основных операций:

1.Согласно введенным исходным данным, определяется число строк и столбцов узлов.

2.Делается проверка, нет ли среди граничных узлов таких, ко­ торые уже были пронумерованы ранее. Если такие узлы есть, то за ними сохраняются номера, которые им были приписаны раньше.

3.Узлы нумеруются последовательно, начиная от точки с ко­

ординатами

£=

— 1, Т1 = + 1

и двигаясь

слева

направо (при

изме­

нении £ от

— 1

до

+ 1) и

сверху вниз

(при

изменении г\

от +1

до — 1). Все узлы,

пронумерованные раньше,

пропускаются.

4. Номера всех граничных узлов сохраняются для последую­ щих рассмотрений соседних зон.

5. Зона делится на треугольные элементы. Каждому элементу приписывается определенный номер. Вычисляется величина (R + 1), которая сравнивается с наибольшим значением (R + 1), получен­ ным в предыдущих расчетах.

Фиг. 18.2. Зоны, которые могут рассматриваться как четырехугольник.

Разбиение зоны на треугольные элементы осуществляется сле­ дующим образом. Рассматриваются четыре узла, которые образу­ ют четырехугольник, как показано на фиг. 18.3. Вычисляются и

Фиг. 18.3. Совокупность четы-

Фиг. 18.4. Изменение размеров элемен-

рех узлов, образующих два

тов при разбиении области,

треугольных элемента.

 

сравниваются длины двух его диагоналей, после чего четырех­ угольный элемент делится с помощью короткой диагонали на два треугольных элемента. Эта процедура повторяется до тех пор, по­ ка не будут рассмотрены все множества, состоящие из соседних четырех узлов.

Размеры элементов можно варьировать, смещая узлы 2, 4, 6 или 8 относительно середин соответствующих сторон зоны. Сдвиг этих узлов означает перемещение начала местной системы коор­ динат и приводит к разбиению, подобному тому, которое представ­ лено на фиг. 18.4. Заметим, что координаты узлов, о которых идет

речь, должны

оставаться внутри интервалов — 1 /2 < £ < 1 /2 или

— 1 /2 < т ]< 1 /2

[3].

18.1.2. Составная область

Дискретная модель тела обычно конструируется с использо­ ванием нескольких четырехугольных зон, имеющих одну или не­ сколько общих сторон. Наличие общей границы между двумя зо­ нами требует задания некоторой дополнительной информации с тем, чтобы можно было приписывать узлам, расположенным вдоль общей границы, одни и те же номера независимо от того, какая рассматривается зона. Вводимую для этой цели информа­ цию будем называть «исходными данными соединения». Эти дан­ ные указывают ЭВМ, как рассматриваемая зона соединяется с другими зонами.

Данные соединения для отдельной зоны состоят из четырех чисел, представляющих собой номера каждой из ее сторон. Сто­ роны четырехугольника пронумерованы так, как показано на фиг. 18.5: первая сторона расположена между узлами 1 и 3, вто­ рая — между узлами 3 и 5 и т. д.

Фиг. 18.5. Стороны четырехугольной зоны.

Составление данных соединения, вероятно, лучше всего про­ иллюстрировать на примере области, состоящей из четырех зон,

как показано на фиг. 18.6.

и номер зоны. Нумера­

Введем местную систему координат

ция зон совершенно произвольна. Система координат £г) обычно ориентируется так., чтобы получалась наименьшая ширина полосы ленточной матрицы жесткости. Правда, ориентация осей коорди­

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

Фиг. 18.6. Тело, составленное из четырех зон в виде четырехугольников.

Данные соединения для области, составленной из четырех зонт (фиг. 18.6), сведены в следующую таблицу:

 

 

Сторона

 

 

Зона

1

 

3

4

 

 

1

2

3

0

0

2

4

1

0

0

3

4

0

0

1

4

2

0

0

3

Первая строка данных устанавливает, что сторона 1 зоны 1 соединяет ее с зоной 2, а сторона 2 зоны 1 соединяет ее с зоной 3. Два нулевых значения строки означают, что вдоль сторон 3 и 4 зона 1 не соединяется ни с какими другими зонами. Каждой зонесоответствует своя строка исходных данных.

18.1.3. Пояснения к программе

Входные данные для программы GRID могут быть разбиты на пять групп: титульная карта, карта с параметрами программы, х- и у-координаты узлов, определяющих четырехугольные зоны,

данные соединения и данные зоны.

Титульная карта (13-я строка листинга программы) содержит текст утверждения, которое печатается в верхней части страницы выдачи с целью идентификации.

Карта параметров программы (15-я строка) содержит три ве­

личины формата (313):

 

 

 

INRG

Число зон

 

 

 

INBP

Число граничных точек

 

 

IPCH

Управление

перфорацией 0 означает, что

исходные

 

 

данные элемента не пер­

 

 

форируются,

1

означает

 

 

перфорирование

исход­

 

 

ных данных элемента

Считывание х- и у-координат происходит раздельно

(строки 17

и 18). Сначала вводятся

все х-координаты, а затем — все у-коор-

динаты. Данные соединения считываются (строка 21) вслед за координатами. Идентификатор NRG используется для обозначе­ ния номера зоны, а данные соединения хранятся в массиве с иден­ тификатором JT.

Данные зоны считываются в строке 38. Эти .исходные да-нные

следующие:

 

NRG

Номер зоны

NROWS

Число строк узлов

NCOL

Число столбцов узлов

NDN

Глобальные номера узлов,

 

определяющих четырехугольник

Восемь значений NDN должны быть подготовлены для формата (1113) в строке 39. Основные части программы разделяются кар­ тами с комментариями. Приведем обозначения некоторых других важных переменных:

NВосемь функций формы для квадратичного четы­ рехугольника

ХС YC NN NNRB

ХЕ, YE,

j х- и у-координаты узлов зоны

Номера узлов зоны Номера узлов, расположенных на границе области.

Это трехмерный массив, определяемый как NNRB (зона, сторона, номер узла)

NE — х- и у-координаты и номера узлов элементарного четырехугольника с четырьмя узлами, который де­ лится на два треугольника.

Последовательность операторов, представленных в строках 162— 169, определяет величину (R+1), используемую при вычис­ лении ширины полосы ленточной матрицы.

18.1.4. Пример

Чтобы проиллюстрировать подготовку исходных данных для программы GRID, рассмотрим задачу о кручении упругого стерж­ ня с поперечным сечением в форме квадрата. Исходная область анализа показана на фиг. 18.7. Как следует из теоретического рас­

смотрения задачи, максимальное

сдвиговое напряжение

наблю­

 

 

дается на |Границе области в середи­

 

 

не стороны квадрата. Эта точка со­

 

 

ответствует вершине.угла в 90° на

 

 

фиг. 18.7. При приближении к цент­

 

 

ру сечения стержня сдвиговое на­

 

 

пряжение уменьшается до

нуля. На­

 

 

личие

градиента сдвигового

напря­

 

 

жения

указывает

на то,

что

мы

 

 

должны

проводить

разбиение

на

 

 

элементы таким образом, чтобы наи­

 

 

меньшие

по

размерам

элементы

 

 

встречались вблизи .прямого угла.

 

 

 

Исходная

треугольная

 

область

 

 

разбивается

предварительно

на

од­

Фиг. 18.7. Область анализа в

за­

ну четырехугольную и две треуголь­

ные зоны

(подобласти), как показа­

даче о кручении стержня квадрат­

но на фиг. 18.8. Узлы, используемые-

ного сечения.

 

 

 

для задания

четырехугольных

зон,

 

 

нумеруются произвольно. Узлы 4 ю

6 расположим несколько

ближе

к узлу

б

с тем,

чтобы

получить

наименьшие элементы вблизи прямого угла. Для разбиения второй зоны на элементарные четырехугольники выберем пять строк и пять столбцов. Такой выбор фиксирует число столбцов (пять) в- первой зоне и число строк (пять) в третьей зоне, поскольку число узлов вдоль общих границ различных зон должно быть одинако­ вым. Самые крупные элементы будут получаться в первой и третьей зонах, так как первая зона содержит только три строки узлов, а третья зона содержит только три столбца узлов.

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

Окончательное разбиение на элементы и номера узлов показа­ ны на фиг. 18.9. Использованное здесь расположение зон приводит к наименьшему для величины (R + 1) значению среди тех, кото­ рые можно получить с помощью программы GRID. Для достиже­ ния минимального значения (R+1) следует придерживаться об­ щего эмпирического правила: начинать с самой верхней зоны и

затем двигаться вниз и направо.

Фиг. 18.8. Предварительное разбиение области на зоны, используемое для гене­ рирования исходных данных элементов.

Фиг. 18.9. Разбиение области в виде треугольника на элементы.

I I I Ш

7]Б I

J ] Титульная карта

з| |i|e| | |i[~|Партапараметров программы

х-координаты

0 . 0

0

• 1 2 5

0 • 2

5

0

• 4 0

0

• IСП

Го~

0 •inо

0 • 5 0

0

• 4 2

5

0 • 3

5

0

оп •

о • 2

5

0 • з 7 5

0 • 0 7 5

0

• 2 5

 

 

 

 

 

 

 

 

 

у-координаты

 

 

 

 

 

 

0

 

 

 

 

о • 0

0

• 0

 

0 • 0

 

0

0 • 0

 

0 • 1 о

0 • 5 0

0

• 4 2

5

0 • 3 5

0

3 0

0 • 2

5

0 • 2 5

0 , 0 7 5 |

0 . 1 2 5

 

 

 

 

 

 

 

 

Данные

соединения

1

3

5

Ф 1 4

7

8

9

1 0

1 1

1 2

Карта данных для

2

5

5

. 3

4

5

6

7

1 4

1 3

1 8

каждойзоны

3

5

3

|l

2

3

1 8

1 3

1 5

1 6

1 7

 

0

сл о

 

0

2 0

0 • 2 5

0 • 2 0

0

5 0

0

1 5

0 • 3 7 5

0 • 1 5

5

10

оооо

 

15

20

г ь

зо

35

<♦0

<♦5

50

55

80

65

70

75

60

65

90

P R O G R A M G R I D ( I N P U T , O U T P U T , P U N C H , T A P E 6 0 * I N P U T , T A P E 6 l = O U T P U T , T A P E 6 2 = -

1 P U N C H )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0 I H E N S I 0 N

 

T I T L E < 1 0 ) • X P C 1 0 0 I , Y P ( 1 0 0 I • X R G ( 9 > , Y R G C 9 1 * N C 8 1 , N O N ( 8 )

 

O I M E N S I O N

N

N

( 2

l , 2 1 ) , Y C

<2

1 , 2 1 ) . X C

<2 1 , 2 1 ),

N N R 0 ( 2 Q . < * .

2

1 ) * JT ( 2 0 ,

«♦>

 

O I M E N S I O N

L B < 3 >

, N E

< < * 0 0 )

,

X £

<i , C 0 )

,

Y E

< <♦0 0

>,

N R

< < ♦) ,

I C O M P

<<*,<♦ )

 

 

 

REAL

N

M

P

/

- l ,

l ,

1 ,

- 1

, 1

,

-

1 ,

- 1

, 1 ,

1

, -

1 ,

- 1

9

, -

1 , 1 ,

1

, - 1

/

 

 

 

 

DATA

I C O

, 1

 

 

 

 

O A T A

I N / 6 0 / , 1 0 / 6 1 / , I P / 6 2 / , N B W / 0 / , N B / 0 / , . N E L / 0 /

 

 

 

 

 

 

I N P U T A N O O U T P U T O F

T I T L E ,

 

 

C O N T R O L C A R O , G L O B A L C O O R D I N A T E S

A N O

 

 

 

C O N N E C T I V I T Y

 

O A T A

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

17

RE A O (IN ,17)

 

TITLE

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

FORMAT <1C AS)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

R E A 0 < I N , 1 )

 

I N R G , I N B P , I P C H

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 F O R M A T ( 3 1 3 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

R E A O ( I N , 3 ) ( X P ( I ) , I = 1 , I N B P )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

R E A D ( I N , 3 ) ( Y P < I ) , 1 = 1 , I N B P )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3» F O R M A T ( 8 F 1 0 . 5 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

0 0 2 1 = 1 , 1 N R G

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

R E A O ( I N , 8 )

N R G , ( J T ( N R G , J ) , J = l , < * )

 

 

 

 

 

 

 

 

 

 

 

 

8 F O R M A T ( 5 1 3 )

 

T I T L E

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

W R I T E ( I 0 . 3 6 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 6 F O R M A T ( 1 H 1 / / / / I X , 1 0 A 8 / / 1 X , 1 8 H G L O B A L

C O O R D I N A T E S

/ / I X , 3 0 H N U M B E R

1 X C O O R O

 

 

 

Y C O O R D

 

)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 0

W R I T E ( I O , 3 0 )

 

( I , X P ( I ) , Y P ( I ) , I = 1 , I N B P )

 

 

 

 

 

 

 

 

 

 

F O R M A T ( 2 X , I 3 , 7 X , F 7 . 2 , 5 X , F 7 . 2 )

 

 

 

 

 

 

 

 

 

 

 

 

 

2 1

W R I T E ( 1 0 , 2 1 )

 

 

 

 

 

 

 

 

 

 

D A T A / 1 X , < * 1 H R E G I 0 N

 

 

S I O E

1

Z

F O R M A T ( / / I X , 1 7 H C O N N E C T I V I T Y

 

 

1

 

 

3

 

 

 

4

 

)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2 6

D 0 2 6 I = 1 , I N R G

I , ( J T ( I , J ) , J = l , < t »

 

 

 

 

 

 

 

 

 

 

 

 

 

W R I T E ( I O , 2 2 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2 2

F O R M A T ( 2 X , 1 3 , 1 « * X , < * ( 1 2 , 5 X 1 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

LOOP

ON

THE

REGIONS

TO

GENERATE

THE

ELEMENTS

 

 

 

 

 

 

 

 

D 0 1 6 K K = 1 , I N R G

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

R E A 0 ( I N , L )

 

N R G , N R O W S , N C O L , N O N

 

 

 

 

 

 

 

 

 

 

 

 

 

U F O R M A T ( 1 1 1 3 )

 

N R G , N R O W S , N C O L , ( N O N ( I ) , 1 = 1 , 8 )

 

 

 

 

 

 

 

1 8

W R I T E < 1 0 , 1 8 )

 

 

 

 

 

 

 

F O R M A T ( 1 H 1 / / / I X , 1 2 H * * *

 

 

R E G I O N

, I 2 , 6 H

• • • • / / 1 0 X , I 2 , 5 H R O W S , Ю Х , I Z

1 , 8 M

C O L U M N S / / 1 0 X , 2 1 H B O U N O A R Y N O D E N U M B E R S , I Q X , 8 I 5 )

 

 

 

 

G E N E R A T I O N OF T H E E L E M E N T

 

N O O A L C O O R D I N A T E S

 

 

 

 

 

 

 

 

 

0 0 5 1 = 1 , 8

)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

I I

= N 0 N ( I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5

X R G ( I ) = X P ( I I )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Y R G ( I ) = Y P ( 1 1 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

X R G ( 9 ) = X R G ( 1 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Y R G ( 9 ) = Y R G ( 1 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

T R = N R O W S - l

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0 E T A = 2 * / T R

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

T R = N C O L - l

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

D S I = 2 • / Т Р

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0 0 1 2 1 * 1 , N R O W S

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

T R = I

- 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

E T A = 1 , - T R * O E Т А

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

D 0 1 2 J = l . N C O L

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

T R = J - l

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

S I = - 1 . f T R * O S I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N ( l ) = - 0 . 2 5 M l . - S I ) • I I . - E T A ) M S I t E T A U . )

 

 

 

 

 

 

 

 

 

N ( 2 ) = 0 . 5 0 M 1 . - S I * * 2 ) * < 1 , - E T A )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N ( 3 ) = 0 , 2 5 M l . f S I ) * ( l . - E T A ) • ( S I - E T A - 1 . )

 

 

 

 

 

 

 

 

 

 

N < « * ) = 0 . 5 0 M 1 . * S I ) M 1 - E T A ’ * 2 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N ( 5 ) = 0 . 2 5 M 1 . * S I ) M 1 . * E T A > M S I » E T A - 1 . )

 

 

 

 

 

 

 

 

 

 

N < 6 ) = 0 . 5 0 M 1 . - S I " 2 ) M 1 . * E T A )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N ( 7 ) = 0 . 2 5 * ( 1 . - S I ) * ( 1 . » E T A ) * ( E T A - S I - 1 . I

 

 

 

 

 

 

 

 

 

 

N ( 8 ) = 0 . 5 0 M 1 . - S I ) * l l . - E T A * * 2 )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

X C ( I , J ) = 0 . Q

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Y C ( I , J ) = 0 . 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

o o

i 2 K = i , a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

X C ( I , J ) = X C ( I , J ) * X R G ( K ) * N U I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 2

Y C ( I , J ) = Y C ( I , J ) * Y R G ( K ) * N ( K )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

G E N E R A T I O N O F T H E R E G I O N N O O E N U M B E R S

 

 

 

 

 

 

 

 

 

 

 

 

K N 1 = 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

K S 1 = 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

K N 2 = N R O M S

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

K S 2 =

N C O L

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0 0 5 0

1 = 1 , * .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N R T = J T ( N R G , I )

 

 

 

 

 

 

 

G O T 0 5 0

 

 

 

 

 

 

 

 

 

 

 

 

I F ( N R T . E Q . O . O R i N R T . G T . N R G )

 

 

 

 

 

 

 

 

 

 

 

56

0 0 5 6

J * 1 ,

 

 

 

 

 

 

 

NRTS=J

 

 

 

 

 

 

 

 

 

 

 

 

 

 

I F ( J T ( NRT, J ) . EQ,NRG)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

K=NCOL

 

 

 

 

 

 

 

K = N R O W S

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

I F ( I . E Q . 2 . 0 R . I . E Q . « * )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

J L

= 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

JK=ICOMP(I . NRTSI

I F ( J K . E Q . - l ) J L * K DOW** J * l . K