-
Notifications
You must be signed in to change notification settings - Fork 0
/
HFS.DOC
116 lines (115 loc) · 8.2 KB
/
HFS.DOC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
(* ***************************************************************** *)
(* *)
(* PROGRAMM : HFSFIT *)
(* *)
(* Prog. 1 : S. Büttgenbach, F. Träber (HFSFIT.FOR) *)
(* Prog. 2 : H. Roeder (HFSFIT.PAS) *)
(* Prog. 3 : T. Fabula (PC: HFS.PAS) *)
(* *)
(* *)
(* !!! ACHTUNG : !!! *)
(* ================= *)
(* Für die PC-Version i s t unbedingt die Eingabedatei *)
(* HFS.IN nötig. *)
(* Der Output erfolgt in die Ausgabedatei HFS.OUT ! *)
(* Startwerte für das Programm HFSPEK werden in die *)
(* Datei HFSSPEK.PAR geschrieben. *)
(* *)
(* DIESES PROGRAMM BERECHNET AUS EINGEGEBENEN MESSWERTEN *)
(* HFS-PARAMETER . DIE PARAMETER TRAGEN DABEI FOLGENDE *)
(* INTERNE NUMMERIERUNG : *)
(* *)
(* PARAMETER-NR. PARAMETER-BEZ. *)
(* *)
(* 1 S1 SCHWERPUNKT DES 1.TEN ISOT. *)
(* 2 A(OBEN) A-FAKTOR " *)
(* 3 A(UNTEN) A-FAKTOR " *)
(* 4 B(OBEN) B-FAKTOR " *)
(* 5 B(UNTEN) B-FAKTOR " *)
(* *)
(* 6 S1 SCHWERPUNKT DES 2.TEN ISOT. *)
(* 7 A(OBEN) A-FAKTOR " *)
(* 8 A(UNTEN) A-FAKTOR " *)
(* 9 B(OBEN) B-FAKTOR " *)
(* 10 B(UNTEN) B-FAKTOR " *)
(* *)
(* *)
(* DABEI KOENNEN EINZELNE PARAMETER RELATIV ZU EINEM ANDEREN *)
(* FESTGEHALTEN WERDEN, ODER AUCH ABSOLUT AUF EINEN BESTIMMTEN *)
(* WERT GEHALTEN WERDEN. *)
(* *)
(* *)
(* WENN ALLE HFS-KONSTANTEN FESTGEHALTEN WERDEN, WIRD KEIN FIT *)
(* DURCHGEFUEHRT. ES WERDEN STATTDESSEN DIE FREQUENZEN UND REL. *)
(* INTENSITAETEN DER EINZELNEN KOMPONENTEN BERECHNET UND BUCH- *)
(* STABEN BEZEICHNUNGEN FUER DIE KOMPONENTEN ERMITTELT. *)
(* *)
(* BESCHRAENKUNGEN DES PROGRAMMES: *)
(* *)
(* MAXIMALE ANZAHL VON MESSWERTEN = 100 *)
(* *)
(* ES IST AUCH NICHT ERLAUBT EINEN PARAMETER AUF EINEN *)
(* PARAMTER FESTZUHALTEN, DER SELBST DURCH EIN VERHAELTNIS *)
(* BESTIMMT IST. NATUERLICH IST ES AUCH NICHT ERLAUBT *)
(* SCHLEIFEN ZU BILDEN . *)
(* *)
(* *)
(* EINGABE - DATEN (HFS.IN) : *)
(* *)
(* ZEILE SPALTE FORMAT NAME BEZEICHNUNG *)
(* *)
(* *)
(* 1 I NISOTOP ANZAHL ISOTOPE *)
(* 1 I FIXED_PAR ANZAHL FESTGEHALTENER *)
(* PARAMETER *)
(* 1 R XJO J DES OBEREN ZUSTANDES*)
(* 1 R XJU J DES UNTEREN ZUST. *)
(* 1 R XI1 I KERNSPIN 1.TE ISO *)
(* 1 R XI2 I KERNSPIN 2.TE ISO. *)
(* DIESER WERT MUSS AUCH *)
(* EINGEGEBEN WERDEN *)
(* WENN NISOTOP = 1 IST *)
(* *)
(* *)
(* WENN PARAMETER FESTGEHALTEN WERDEN FOLGT FUER JEDEN DER *)
(* 'FIXED_PAR' PARAMETER EIN ZEILE VOM TYP 2. *)
(* *)
(* 2 I NFP[I] NR. DES FESTGEH. *)
(* PARAMETERS *)
(* 2 R VALFP[I] WERT ODER VERHAELTNIS *)
(* DES FESTEN PAR. *)
(* 2 I REFP[I] BEZUGS-PARAMETER *)
(* IST REFP[I] = 0 SO *)
(* WIRD DER PARAMETER *)
(* AUF DEN WERT VALFP[I] *)
(* FESTGEHALTEN *)
(* *)
(* PARAMETER DUERFEN AUCH UEBER EIN VERHAELTNIS AUF EINEN ABSOLUT *)
(* FESTGEHALTENEN PARAMETER BEZOGEN WERDEN. NICHT ERLAUBT IST *)
(* JEDOCH DER BEZUG AUF EINEN 'RELATIV' FESTGEHALTENEN PARAMETER. *)
(* *)
(* ES FOLGEN DIE ZEILEN MIT DEN MESSWERTEN *)
(* *)
(* 3 1 C1 ISOTOP[I] 2 = DATUM GEHOERT ZUM *)
(* 2.TEN ISOTOP. *)
(* ZUM 1.TEN ISOTOP . *)
(* BELIEBIG = DATUM GE- *)
(* HOERT ZUM 1.TEN *)
(* ISOTOP *)
(* *)
(* 3 2-5 C4 XNAME[I] BEZEICHNUNG DES I.TEN *)
(* EINGABE WERTES *)
(* 3 6 C1 LIMIT WIRD HIER EIN CHAR. *)
(* UNGLEICH BLANK EINGE- *)
(* TRAGEN SO WIRD DIES *)
(* ALS ENDE DES DATEN- *)
(* SATZES VERSTANDEN *)
(* 3 R FO[I] F-QUANTENZAHL *)
(* 3 R FU[I] F-QUANTENZAHL *)
(* 3 R Y[I] MESSWERT *)
(* 3 R DY[I] FEHLER D. MESSWERTES *)
(* *)
(* *)
(* *)
(* *)
(* ***************************************************************** *)