ГОСТ 2S«4S.126— 85
С.
13
ПРИЛОЖЕНИЕ 4
Справочное
0001
0002
0003
0001
0005
OOOG
0007
0008
0009
0010
ПРОГРАММА РАСЧЕТА ГЕОМАГНИТНОГО ПОЛЯ *В1>
НА ЗАДАННЫЙ ГОД «Т»
INTEGER Е, YEAR.YEAR1
REAL 1..L1.LP.NR
DIMENSION P(17,17),R(17,17),G(150),G1(150),DG(150).
•DGl (I50),U1 (I7),U2(17).S(17,17).HI(400),F1(400),L(400)
СЧИТЫВАНИЕ МАССИВА ДАННЫХ
DATA NH/I0/.E/1/.KT/6/
«ЧН= ЧИСЛО ГАРМОНИК
Е-У Ч ЕТ ЭЛЛИПТИЧНОСТИ:
»Е =1 — УЧИТЫВАЕТСЯ. Е - 0 — НЕ УЧИТЫВАЕТСЯ
КТ — КОЛИЧЕСТВО ТОЧЕК
DATA YEAR/1989/
YEAR-ЗАДАННЫЙ ГОД (Т)
K-(NHNH-:-3-NH)/2
К-КОЛИЧЕСТВО КОЭФФИЦИЕНТОВ
G(l) -КОЭФФИЦИЕНТЫ G, ЗАДАННЫЕ НА 1985 Г.
В НАНОТЕСЛАХ
DATA G/—29877 ,—1903..—2073.,3045., 1691.,1300.,
■- 2208.1244..835.,937,780,363,.—126.. 169..
•- 2 15.356,253..—94..—161..-4 8.,52.65.,50.,
— 186.4.. 17.,-102..75.,-61 ..2..24.,—6..1..9.,
•0..2I..6..0.,—II..—9.,2.,4.,4.,—6..5..I0..I..
•-12..9..-3.,-l.,7,2.,—5.,—4., 4.,2 .--5.,-2.
•5.Д.,1.Д..3^0./
’n n ," 1 ; n nr ! 6r 1°-° ~21•10..9.,—5..—6
’n13’0A-1•1-0..1.0.3
GI (I) - КОЭФФИЦИЕНТЫ H. ЗАДАННЫЕ НА 1985 Г.,
В НАНОТЕСЛАХ
DATA GI/0..5497..0.,—2191..—309..0.,—312.281
•—296.Д.233.,—Я50..68.,- 298..0..47..148.
— 155.—75,95.,0,—16..90..69.,—50..—4..20..0.,
’7 --21..—6..0„7„—21..5..
•9.. 10.—6..2..0., 1.Д .3 ..6
"
4..0..—1,.4.0.. -6 ./
..
DO(l) — КОЭФФИЦИЕНТЫ DO. ЗАДАННЫЕ HA 1985 Г.,
В НАНОТЕСЛАХ/ГОЛ
DATA DG/19.7,11.5,-12.6,1.8.1.4.4.3.-6.1,-0,7
•-3.8.-0.4.0 2-7.4 .-0.4.-5.7.1
j
2.—0.1,—1.2. *
— 2.4,—0.3.0.5,1.4,—0.4,1.6.09. -0.1.0.7.1.0
•0.4.—0.6.-0.1.0.2,0.9,09.0.3.10.0.5,—0.3
— 0 1.0.6.—О7.0.1.0.2. -0.9.-0.5.21•0./
ESS»ЗАЯЛННЫЕ
HA1585
r-
°ATA DG1/0,—20..0..-16 4,—15.9.0.4.6.28,
•-9.8.0..3.5Д..3.7.-0.3.0..0..07.0.1.1.1. -0.1
•0.7,—0 2.0.3.0..0..0.6,—0.3.0.4.0..0.6,—I
,08.’
2