blob: 46710e8f5b9943c5358bc7f6ecd206ba6e53a7a2 (
plain)
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
|
*----
* TEST CASE TRDR45
* MIXTURES DEFINED WITH COMB INSTRUCTION
* 172-GROUP JEF2.2 DRAGLIB
*
* REF: none
*
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST LIBRARY ;
MODULE LIB: END: ;
PROCEDURE assertS ;
*----
* Concentrations given to LIB:
*----
REAL Ni58 := 3.9171E-3 ;
REAL O16 := 2.3954E-2 ;
REAL H1_H2O := O16 2.0 * ;
REAL B10 := 4.7892E-6 ;
REAL B11 := 1.9157E-5 ;
*----
* Using COMB instruction to define MIX 3
*----
LIBRARY := LIB: ::
NMIX 3
MIXS LIB: DRAGON FIL: DLIB_J2
MIX 1 579.9
Ni58 = Ni58 <<Ni58>>
MIX 2 579.9
O16 = O16 <<O16>>
H1H2O = H1_H2O <<H1_H2O>>
B10 = B10 <<B10>>
B11 = B11 <<B11>>
MIX 3
COMB 1 0.01
2 0.99
;
*----
* Out-of-LIB: dilution
*----
REAL Ni58dil := Ni58 0.01 * ;
REAL O16dil := O16 0.99 * ;
REAL H1_H2Odil := H1_H2O 0.99 * ;
REAL B10dil := B10 0.99 * ;
REAL B11dil := B11 0.99 * ;
*
assertS LIBRARY :: 'ISOTOPESDENS' 1 <<Ni58>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 2 <<O16>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 3 <<H1_H2O>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 4 <<B10>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 5 <<B11>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 6 <<Ni58dil>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 7 <<O16dil>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 8 <<H1_H2Odil>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 9 <<B10dil>> ;
assertS LIBRARY :: 'ISOTOPESDENS' 10 <<B11dil>> ;
*
ECHO "test TCDR45 completed" ;
END: ;
QUIT "LIST" .
|
