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

Статистика и анализ геологических данных

..pdf
Скачиваний:
20
Добавлен:
15.11.2022
Размер:
21.12 Mб
Скачать

 

 

 

 

Т а б л и ц а 5.15

 

Результаты анализа содержаний золота в пробах,

 

 

северный Квебек

 

Расстояние,

Значение содержаний,

Расстояние,

Значение содержаний,

Ф уты ___________п е н н и /т6,_____________ф у т ь Г __________ п е н н и /т*

Северный' конец траншей

 

 

3 ,0

0 ,9

6 6 ,0

9 ,0

9

,2

1 ,2

6 7 ,0

1 2 ,0

1 3 ,0

0 ,5

68,1

1 0 ,4

1 8

,9

1 ,7

71,1

5 ,2

2 2

,3

V

7 3 ,0

1,4

23,1

1 ,3

74,1

1 ,2

2 5

,5

1 ,0

7 6 ,0

1,1

2 8

,6

1,1

76,1

1 ,0

30 ,1

1 2 ,0

8 0 ,4

6 ,5

3 0

,9

9,1

8 2 ,2

1 1 ,9

3 3 ,0

4,9

8 4 ,0

1 5 ,6

3 6 ,4

1 ,9

8 6 ,6

6 ,9

3 9 ,8

1,1

8 7 ,6

1,1

4 2 ,9

1 ,9

9 0 ,5

1,1

4 6 ,0

1,4

9 2 ,5

1 5 ,9

50,1

1 ,7

9 3 ,9

9 ,9

5 3 ,9

2 ,2

9 4 ,4

3 ,8

5 5 ,8

0 ,9

9 6 ,3

1 ,6

6 0 ,0

1 ,3

9 8 ,7

2 ,7

6 4 ,9

1 ,3

100,1

0 ,6

 

 

 

Южный конец тр а н ш е и

а пен н и /т =

2 4 гран / т = 1,5552.

г / т .

 

л и н и и регрессии? Вытекает ли из результатов анализа, что тран­ шея пересекла участки минерализации? Можно ли полученные сведения об отклонениях от линии регрессии использовать для разумной экстраполяции содержаний золота вне пределов траншеи?

Фильтрация и временной тренд

Математическая статистика использует ряд терминов, заим­ ствованных из электротехники, поэтому иногда о последова­ тельности данных говорят как о «шуме». Наблюдаемые значе­ ния имеют две компоненты: основной сигнал, или главную со­ ставную часть изменчивости, и случайные помехи, т. е. шум. Наиболее широкое использование эти термины нашли в анализе временных рядов, так как исследования, связанные с разло­ жением радиосигналов, внесли значительный вклад именно в эту область статистики. Геолога привлекает мысль, что среди

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

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

своего вида,

в то время как шум имеет обратную тенденцию,

то среднее

значение по нескольким промежуточным точкам

стремится к значению только одного сигнала. Предположим, что мы измеряем переменную Y в точках некоторой шкалы, которую мы назовем X. Мы можем обнаружить, что каждое наблюдение состоит из сигнала Yi плюс случайная, или шумо­ вая, компонента г\. В качестве оценки значения сигнала Yi

в точке Xi можно выбрать значение среднего Yi нескольких наблюдений в соседних точках. Для вычисления значения Yj

можно предложить различные схемы; наиболее часто использу­

ются оценки

по методу

наименьших квадратов

и взвешенные

_

 

^

 

средние. Последовательность оценок Y образует более плавную

кривую, чем

исходная

последовательность Y.

Поэтому метод

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

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

Наиболее простой способ сглаживания — это метод скользя-

**ч

щего среднего. Сглаженное значение Y вычисляется по формуле i+k

Yi =

2

Yj

(5.32)

j=i~k

где

m

 

 

 

 

 

m — длина интервала, в котором

производится

сглаживание,

или число точек, по которым вычисляется среднее значение. Это

равенство определяет

интервал,

центр которого расположен

в оцениваемой точке.

Заметим,

что m должно быть нечетным

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

тывает по

наблюдений с каждой стороны от оценивае­

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

л

1

2

3

4

5

6

7

8

9

10

11

12

Фиг. 5.13. Исходная последовательность и

последовательность,

сглаженная

с помощью трехчленного метода

скользящего

среднего.

Обратите внимание на сдвиг пиков в сглаженной последовательности.

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

Иллюстрация метода скользящего среднего приведена ниже. В качестве длины интервала усреднения выбрано число ш =3 . Интервал просто передвигается вниз по последовательности, так что на каждом шаге добавляется одно новое наблюдение и опускается одно наблюдение из предыдущего интервала:

Первоначаль­

 

 

 

 

 

 

 

 

 

 

 

 

 

ная последова­

5

7

4

3

2

3

 

4

5

7

2

6

4

тельность

 

Скользящее

 

 

 

 

 

 

 

 

 

 

 

 

 

среднее

 

5,3

4,7

3,0

2,7

 

3,0

4,0

5,3

4,7

 

5,0

3,0

Эти две последовательности представлены графиками на фиг. 5.13, хорошо иллюстрирующими смысл выражения «сглажи­ вание данных». Чем больше интервал гп, тем сильнее сглажи­ вание уменьшает дисперсию первоначальной последователь­ ности. На фиг. 5.13 указаны также некоторые случайности при сглаживании данных. Слева, там где данные имеют регулярные отклонения вверх и вниз, сглаженная кривая является аппро­

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

только прошедшие события. Иными словами, значение Yi оце­ нивается по формуле

Y, = 2 Yk/m.

k = i — m

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

Методы временного тренд-анализа широко используются при

исследовании

таких данных, как записи сейсмических волн

(в геофизике

процесс сглаживания называется фильтрацией),

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

Исходные данные 5 членов 9 членов \ъчленов м членов

Фиг. 5.14. Результаты сглаживания последовательности значений каротажной диаграммы в скважине с помощью различных уравнений [11].

lfiu

0,5 -

oL

A .

 

 

1,0 г

 

0,5 -

в

г

1,0Г

1,0 г

0,5-

0,5 -

oL

OL

д

e

Фиг. 5.15. Отклик фильтра для уравнений, использованных при сглаживании

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

данных.

а — 3-членное скользящее среднее; б — 5-членное

уравнение Шеппарда; в — уравнение

Спенсера с 21 членом; г — 7-членное скользящее среднее; д — 7-членное сглаженное урав­ нение; е — двойное экспоненциальное уравнение.

и соответствующие кривые, сглаженные с помощью 5, 9, 13 и 17-членных уравнений. Следует отметить, что главные черты исходных данных сохраняются, уменьшается лишь их изменчи­ вость. Исчезновение мелких вариаций обычно называют «поте­ рей высоких частот» (частота — это величина, обратная длине волны, т. е. расстоянию между пиками), которая в действитель­ ности может затруднить исследование корреляции в каротаже в случае, если большая часть данных состоит из таких колеба­ ний. Сглаживающее уравнение, которое приводит к потере вы­ соких частот, иногда называется низкочастотным фильтром.

Для сглаживания данных существует много методов, однако

все они основаны

на скользящем среднем. В

каждом из них

используется свое

уравнение, предназначенное

для получения

 

 

оценок Yi. Уравнение, используемое для получения оценок, на­ зывается фильтром, а веса, приписываемые наблюдениям, ис­ пользуемым в фильтре, называются откликом фильтра. На фиг. 5.15, а изображен отклик трехточечного скользящего сред­ него. Такое изображение позволяет визуально исследовать влия­ ние фильтра на данные.

Некоторые другие сглаживающие фильтры были предложены Уиттекером и Робинсоном [25], в частности 5-членное уравнение Шеппарда

Y1= 4-[17Y,+ 12(Yi+1+YI_1)-3(Y1+2+Y1_2)I, (5.33)

которому соответствует фиг. 5.15, б. В сущности, это — метод скользящего среднего с наибольшими весами оцениваемых зна­

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

Yi = -3So-[60Y,+57(Yi+1+ Y 1_ i)+ 4 7 (Y l+2+ Y l_ 2) +

+ 3 3 (Y I+3+ Y i_ 3)+ 1 8 (Y i+4+ Y 1_ 4) + 6 (Y I+5 + Y I_ 5) - - 2 ( Y i+6+ Y i_ 6) — 5(Yl4.7+ Y 1_ 7) — 5(YI+8+ Y 1_ 8) —

- 3 (Yi+9+ Y, _ 9) — (Y ,+ 10+ Y, _ 10) 1,

(5.34)

и соответствующий ему график изображен'на фиг. 5.15, в. 7-членное уравнение, являющееся промежуточным между урав­ нениями Спенсера и Шеппарда, имеет вид

Y, = - ^ [ 7YI+ 6 (YI+1+

Y1_ 1) + 3 (Y1 + 2 + YI_ 2) -

- 2 ( Y 1+3+ Y i_ 3)],

(5.35)

исоответствующий ему график представлен на фиг. 5.15, г. Для сравнения график результата применения 7-членного метода скользящего среднего представлен на фиг. 5.15, д.

Различные фильтры предназначаются для выполнения раз­ личных функций и подразделяются в зависимости от их свойств при устранении шума в условиях минимального сигнала. Их применение, однако, требует исчерпывающих знаний о струк­ туре данных и привлечения анализа временных рядов, которым исследователь обычно не владеет. Агтерберг [1] приводит специ­ альный фильтр для сглаживания данных процентного содержа­ ния цинка по пересечению на руднике в Боливии. Веса фильтра экспоненциально убывают при удалении от оцениваемой точки,

ипо этой причине он называется двойным экспоненциальным фильтром. Были вычислены частные значения, соответствующие Частотным характеристикам, содержащимся в первоначальной Последовательности. Использованное при этом 9-членное урав­

нение имеет вид

Y1=0,31Y 1+ 0 ,1

6 (Y 1+1+ Y 1_ 1)+ 0 ,0

8 (Y i+2+ Y i_ 2) +

 

+ 0 ,0 4 (Y 1+34

-YI_ 3)-f-0,02(Y,+4+

Y 1_ 4).

(5.36)

Отклик этого фильтра представлен на фиг. 5.15, е.

Написать программу сглаживания последовательностей дан­ ных сравнительно просто. Мы приводим в качестве примера Программу 5.6, SMOOTH, в которую легко внести изменения

О О О O O O O O O O O O O O Q O

C C

C

PROGRAM 5 - 6

 

 

ROUT INE

SMOOTH

 

ROUTINE

TO PERFORM M TERM SMOOTHING.

X I N I S

DATA SEQUENCE OF LENGTH N TO BE SMOOTHED BY

M-TERM

MOVING

AVERAGE. LENGTH OF

OUTPUT I S I E - N - M + I .

SMOOTHED

SEQUENCE I S XOUT .

FOR\ X I N ( I - K M - 1 > / 2 ) .

X O U T ( I )

=

THE

SMOOTHED E S T IM A T E

M MUST

BE

AN

ODD NUMBER.

 

DIM EN SIO N

X I N ( 2 5 0 ) ,

X 0 U T ( 2 5 O )

READ

IN THE NUMBER

OF TERMS TO *B E USED I N THE MOVING AVERAGE.

READ

( 5 , 1

ООО) M

 

READ

IN THE DATA SEQUENCE

TD BE SMOOTHED AND P R IN T I T OUT.

CALL

R E A D M ( X I N , N N , N M , 2 5 0

, I )

CALL

P R I N T M ( X I N , N N , 1 , 2 5 0 , 1 )

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

N-NN

I E - N - M + 1

DO

1 00

1 = 1 , I E

S U M = 0 . 0

J = 1 , M

DO

101

K = I + J - I

S U M - S U M + X IN (K )

101CONTINUE

XOUT( I )-SUM/FLOAT( M)

100 CONTINUE

C

P R IN T OUT THE SMOOTHED DATA SEQUENCE.

 

CALL

PR IN TM (XO U T, I E , 1 , 2 5 0 , 1 )

 

WRITE

( 6 , 2 0 0 1 )

S Y - 0 . 0

S Y Y - 0 . 0

DO 102 1 = 1 , N

S Y - S Y + X I N ( I )

S YY =S Y Y+ XIN ( I )*+2

102CONTINUE S Y S - 0 . 0 S Y Y S = 0 . 0 S Y C - 0 . 0 S Y Y C - 0 . 0 S S D - 0 . 0

DO 103

1 = 1, I E

 

J - I + M / 2

 

S Y S « S Y S + X I N ( J )

 

S Y Y S = S Y Y S 4 X I N ( J ) * * 2

S YC = SY C +X O U T (I)

 

SYYC=SYYC4X0IJT( I )**2

S S D = S S D 4 ( X I N ( J ) - X 0 U T ( I ) ) * * 2

103 CONTINUE

 

S S O = S Y Y - S Y * S Y /F L O A T ( N)

S S O S= S YY S - S YS *S Y S/F LO A T ( I E )

SSS=S YYC - SYC*S Y C / F L O A T ( I E )

P S S = ( S S S / S S O S ) * 1 0 0 . 0

WRITE

( 6 , 1 0 0 0 )

SSO

WRITE

( 6 , 1 0 0 1 )

WRITE

( 6 , 1 00 2 ) .

SSOS

WRITE

( 6 , 1 0 0 3 )

SSS

WRITE

( 6 , 1 0 0 4 )

SSD

WRITE

( 6 , 1 0 0 5 )

PSS

I 000

CALL E X I T

 

 

 

FO R M AT!1 2 )

OF

SQUARES OF O R IG IN A L DATA =

, F 2 0 . 8 )

1001

FORMAT

( 36HI SUMS

I 002

FORMAT

( 37H0SUMS

OF

SQUARES OF TRUNCATED DATA =

•F20.8)

1 0 03

FORMAT

(36H0SUMS

OF

SQUARES OF SMOOTHED DATA =

. F 2 0 . 8 )

1004

FORMAT

( 36H0SUMS

OF

SQUARES DUE TO D E V I A T I O N =

, F 2 0 . 8 )

100 5

FORMAT

(22H0% GOODNESS OF F I T = , F 2 0 . 8 )

 

2000

FORMAT

( / ' IN PU T

DATA SEQ UEN C E')

 

2 001

FORMAT

( / ' SMOOTHED

DATA SEQ UENC E')

 

 

END

 

 

 

 

Программа 5.6. SMOOTH

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

По мере того как вычисляется оценка Yi, она отсылается в неко­ торый массив, так чтобы печатались исходные значения Yi

вместе с оценками Yi и разностями Yi — Yj. Графопостроитель TSPLOT (программа 5.7) обеспечивает нанесение на график исходных и сглаженных данных после выполнения сглаживания. Сглаживающие алгоритмы входят в подпрограмму SMOOTH, поэтому изменение сглаживающего уравнения можно провести с минимальными изменениями в программе. Так как в ней ис­ пользован m-членный алгоритм скользящего среднего, то для ее работы необходимо ввести значение числа ш. В программе используются подпрограммы READM (программа 4.1) и PRINTM (программа 4.2); форматы данных соответствуют ука­ занным в них описаниям. Значение числа ш вводится после ввода последовательности данных.

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

ратов таковы:

 

SSo-EY *--£ 9 1

(5.37)

Для исходных данных

(5.38)

Для сглаженных данных

(5.39)

Для отклонения

(5.40)

с

с

с

с

с

с

с

с

с

с

С '

с

с

с

I I

I0 0

12

101

1 0 3

1 0 4

1 0 2

2 0 0 0

2 0 0 1

2 0 0 2

2 0 0 3

2 0 0 4

PROGRAM

5 . 7

 

 

 

 

 

 

 

 

 

 

 

PROGRAM

ТО

PLOT

1-D IM E N S IO N A L

DATA

ON

THE L IN E P R IN T E R .

SUBROUTINE

 

T S P L O T (X ,N ,IT Y P E )

 

 

 

 

X

IS

THE

I

 

D IM E N S IO N A L ARRAY TO BE

PLOTTED*

N

IS

THE

NUMBER

OF ELEMENTS

IN

X THAT

ARE TO BE P LO TTE D .

IF

I T Y P E * I,

THE

DATA

TO

BE

PLOTTED

W IL L

HAVE RANGE ( - 1 , 1 )

I F

IT Y P E = 2 ,

ANY. DATA

MAY

BE

PLOTTED

 

BE

PLO TTE D . THE O R IG IN A L

I F

IT Y P E = 3 ,

LO G IO

OF

THE

X

ARRAY W ILL

X

ARRAY

W IL L NOT

BE

DESTROYED .

 

 

 

 

D IM E N S IO N X ( I ) , IO U T ( б I ) , X X ( 13 )

' /

 

 

 

DATA

1 1 ,1 S

T A

R

,

I B

L N

K /

' I

 

 

 

IF

(IT Y P E

.N E .

I )

GO

TO

I I

 

 

 

 

 

X M IN = -I . 0

 

 

 

 

 

 

 

 

 

 

 

 

X M A X *+ I. 0

 

 

 

 

 

 

 

 

 

 

 

 

GO TO

 

12

 

 

 

 

 

 

 

 

 

 

 

 

 

X M IN = X (I)

 

 

 

 

 

 

 

 

 

 

 

 

XMAX=XMIN

 

 

 

 

 

 

 

 

 

 

 

 

DO

100

1 = 1 ,N

X M IN )

X M IN = X (I)

 

 

 

 

IF

( X ( I )

. L T .

 

 

 

 

I F

( X ( I )

.G T .

XMAX)

X M A X = X (I)

 

 

 

 

CONTINUE

 

.N E .

3 )

GO

TO

12

 

 

 

 

 

I F

(IT Y P E

 

 

 

 

 

X M IN = A L O C IO (X M IN )

 

 

 

 

 

 

 

 

X M A X = A L O G I 0 ( X M A X )

 

 

 

 

 

 

 

 

D X = X M A X - X M I N

 

 

 

 

 

 

 

 

 

 

X X X = X M I N

 

 

 

 

 

 

 

 

 

 

 

 

 

DO

101 1 = 1 , 1 3

 

 

 

 

 

 

 

 

 

 

X X ( I ) = x x x

 

 

 

 

 

 

 

 

 

 

 

 

I F ( I T Y P E . E Q . 3 ) X X ( I ) = I O . O * * X X X

 

 

 

X X X = X X X + D X / I 2 . 0

 

 

 

 

 

 

 

 

 

C O N T I N U E

 

 

 

 

 

 

 

 

 

 

 

 

 

W R IT E ( 6 , 2 0 0 4 )

( X X ( I ) . 1 * 2 , 1 2 . 2 )

 

 

 

 

W R IT E ( 6 ,

 

0 0 0 )

 

 

 

 

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

( X X ( I ) . 1 = 1 , 1 3 , 2 )

 

 

 

 

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

 

 

 

 

 

 

 

 

 

 

DO

1 0 2

1 = 1 , N

 

 

 

 

 

 

 

 

 

 

 

DO

1 0 3

J

* l , 6 1

 

 

 

 

 

 

 

 

 

 

I O U T ( J ) * I B L N K

 

 

 

 

 

 

 

 

 

 

C O N T I N U E

 

 

 

 

 

 

 

 

 

 

 

 

 

DO 1 0 4 J = l , 6 1 , 1 0

 

 

 

 

 

 

 

 

 

I O U T ( J ) = I I

 

 

 

 

 

 

 

 

 

 

 

 

C O N T I N U E

 

 

 

 

 

 

 

 

 

 

 

 

 

X X X - X d )

 

 

 

 

 

 

 

 

 

 

 

 

 

I F ( I T Y P E . E Q . 3 ) X X X * A L 0 G I 0 ( X X X )

 

 

 

1 Х = Г F I X ( ( X X X - X M I N ) * 6 0 . 0 / D X ) + l

 

 

 

 

I O U T ( I X ) = I S T A R

 

 

 

 

 

 

 

 

 

 

W R IT E

 

( 6 . 2 0 0 3 )

X

( I ) , I OUT

 

 

 

 

 

 

C O N T I N U E

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

 

 

 

 

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

( X X d ) , 1 = 1 , 1 3 , 2 )

 

 

 

 

W R IT E ( 6 , 2 0 0 0 )

( X X d ) , 1 = 2 , 1 2 , 2 )

 

 

 

 

R E TURN

 

 

 

 

 

 

 

 

 

 

 

 

 

 

FORMAT

( I 1 X . 6 F I 0 . 4 )

 

 

 

 

 

 

 

FO RMAT

( 6 X , 7 F 1 0 . 4 )

2 (

-------♦

' ) )

 

 

 

 

 

FORMAT

( I I X ,

,

 

1

 

 

 

 

 

FO RMAT

( I X , F I 0 . 4 , 6 1A

I )

 

 

 

 

 

 

FO RMAT

( I H I

)

 

 

 

 

 

 

 

 

 

 

 

END

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Программа 5.7. Подпрограмма TSPLOT