|
@@ -0,0 +1,181 @@
|
|
1
|
+
|
|
2
|
+ * More information is available at http:
|
|
3
|
+ */
|
|
4
|
+
|
|
5
|
+
|
|
6
|
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
7
|
+ * file, You can obtain one at http:
|
|
8
|
+ */
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+ * @file
|
|
12
|
+ * @date 10/16/2018 01:58:22 PM
|
|
13
|
+ * @author Trevor Irons (ti)
|
|
14
|
+ * @email Trevor.Irons@utah.edu
|
|
15
|
+ * @copyright Copyright (c) 2018, University of Utah
|
|
16
|
+ * @copyright Copyright (c) 2018, Lemma Software, LLC
|
|
17
|
+ */
|
|
18
|
+
|
|
19
|
+#include <TEM1D>
|
|
20
|
+using namespace Lemma;
|
|
21
|
+
|
|
22
|
+int main() {
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+ auto TxHM = TEMTransmitter::NewSP();
|
|
27
|
+ TxHM->SetRepFrequency( 20, KHZ );
|
|
28
|
+ VectorXr Times (18);
|
|
29
|
+ VectorXr Amps (18);
|
|
30
|
+ Times << 0.0, 0.03051, 0.10267, 0.19408, 0.19889, 0.21332, 0.74249, 1.3775, 1.83452, 2.52245, \
|
|
31
|
+ 3.191132, 3.9031135, 4.0, 4.00484486, 4.123904, 4.200182, 4.20732, 4.212946;
|
|
32
|
+ Amps << 0.0, 14.71872, 62.34372, 114.84372, 117.84372, 118.96872, 118.96872, 118.96872, 118.96872,\
|
|
33
|
+ 118.59372, 119.34372, 120.0, 120.0, 117.94176, 47.60364, 0.8905848, 0.1203888, 0.0;
|
|
34
|
+ TxHM->SetWaveform( Times, Amps, MILLISEC );
|
|
35
|
+
|
|
36
|
+ TxHM->SetNumberOfPoints(8);
|
|
37
|
+ TxHM->SetPoint(0, Vector3r( -16.10, 2.13, -34));
|
|
38
|
+ TxHM->SetPoint(1, Vector3r( -7.51, 10.72, -34));
|
|
39
|
+ TxHM->SetPoint(2, Vector3r( 7.51, 10.72, -34));
|
|
40
|
+ TxHM->SetPoint(3, Vector3r( 14.92, 3.31, -34));
|
|
41
|
+ TxHM->SetPoint(4, Vector3r( 14.92, -3.31, -34));
|
|
42
|
+ TxHM->SetPoint(5, Vector3r( 7.51, -10.72, -34));
|
|
43
|
+ TxHM->SetPoint(6, Vector3r( -7.51, -10.72, -34));
|
|
44
|
+ TxHM->SetPoint(7, Vector3r( -16.10, -2.13, -34));
|
|
45
|
+ TxHM->SetNumberOfTurns(8);
|
|
46
|
+
|
|
47
|
+
|
|
48
|
+
|
|
49
|
+
|
|
50
|
+ auto RxHM = TEMInductiveReceiver::NewSP();
|
|
51
|
+ RxHM->SetComponent( ZCOMPONENT );
|
|
52
|
+ RxHM->SetMoment( 1 );
|
|
53
|
+ RxHM->SetReferenceTime( 4., MILLISEC );
|
|
54
|
+ RxHM->SetRxLocation( (Vector3r() << -16.80, 0, -36.00).finished() );
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+ VectorXr centres (37);
|
|
58
|
+ centres << 7.15000000e-04, 2.21500000e-03, 4.21500000e-03, 6.21500000e-03,
|
|
59
|
+ 8.21500000e-03, 1.02150000e-02, 1.22150000e-02, 1.47150000e-02,
|
|
60
|
+ 1.82150000e-02, 2.27150000e-02, 2.82150000e-02, 3.52150000e-02,
|
|
61
|
+ 4.42150000e-02, 5.57150000e-02, 7.02150000e-02, 8.82150000e-02,
|
|
62
|
+ 1.10715000e-01, 1.38715000e-01, 1.74215000e-01, 2.19715000e-01,
|
|
63
|
+ 2.76715000e-01, 3.48715000e-01, 4.39715000e-01, 5.53715000e-01,
|
|
64
|
+ 6.97715000e-01, 8.79215000e-01, 1.10771500e+00, 1.39621500e+00,
|
|
65
|
+ 1.76021500e+00, 2.21871500e+00, 2.79671500e+00, 3.52571500e+00,
|
|
66
|
+ 4.44471500e+00, 5.60321500e+00, 7.06321500e+00, 8.90421500e+00,
|
|
67
|
+ 1.10667200e+01;
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+ VectorXr widths (37);
|
|
72
|
+ widths << 4.30000000e-04, 1.43000000e-03, 3.43000000e-03, 5.43000000e-03,
|
|
73
|
+ 7.43000000e-03, 9.43000000e-03, 1.14300000e-02, 1.34300000e-02,
|
|
74
|
+ 1.64300000e-02, 2.04300000e-02, 2.54300000e-02, 3.14300000e-02,
|
|
75
|
+ 3.94300000e-02, 4.94300000e-02, 6.24300000e-02, 7.84300000e-02,
|
|
76
|
+ 9.84300000e-02, 1.23430000e-01, 1.54430000e-01, 1.94430000e-01,
|
|
77
|
+ 2.45430000e-01, 3.08430000e-01, 3.89430000e-01, 4.90430000e-01,
|
|
78
|
+ 6.17430000e-01, 7.78430000e-01, 9.80430000e-01, 1.23543000e+00,
|
|
79
|
+ 1.55743000e+00, 1.96343000e+00, 2.47443000e+00, 3.11943000e+00,
|
|
80
|
+ 3.93243000e+00, 4.95743000e+00, 6.24943000e+00, 7.87743000e+00,
|
|
81
|
+ 9.93143000e+00;
|
|
82
|
+
|
|
83
|
+ RxHM->SetWindows(centres, widths, MILLISEC);
|
|
84
|
+
|
|
85
|
+ auto TxLM = TEMTransmitter::NewSP();
|
|
86
|
+ TxLM->SetRepFrequency( 20, KHZ );
|
|
87
|
+ VectorXr TimesLM (18);
|
|
88
|
+ VectorXr AmpsLM (18);
|
|
89
|
+
|
|
90
|
+ TimesLM << -8.00000E-004, -7.86965E-004, -7.66493E-004, -7.23688E-004,
|
|
91
|
+ -6.39938E-004, -5.16174E-004, -3.93340E-004, -2.63993E-004,
|
|
92
|
+ -1.43952E-004, -7.15990E-006, -2.50712E-006, 0.00000E+000,
|
|
93
|
+ 2.19597E-007, 1.47193E-006, 3.34398E-006, 4.68669E-006,
|
|
94
|
+ 5.96484E-006, 7.04934E-006;
|
|
95
|
+ TimesLM.array() = TimesLM.array() + 8e-4;
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+ AmpsLM << 0.00000E+000, 3.67188E-002, 6.17188E-002, 1.17969E-001,
|
|
99
|
+ 2.14844E-001, 3.28906E-001, 4.75781E-001, 6.30469E-001,
|
|
100
|
+ 7.82031E-001, 9.92969E-001, 1.00000E+000, 1.00000E+000,
|
|
101
|
+ 9.63459E-001, 6.01030E-001, 2.29652E-001, 8.64702E-002,
|
|
102
|
+ 2.53196E-002, 0.00000E+000;
|
|
103
|
+ AmpsLM.array() = AmpsLM.array() * 8.;
|
|
104
|
+
|
|
105
|
+ TxLM->SetWaveform( TimesLM, AmpsLM, SEC );
|
|
106
|
+
|
|
107
|
+ TxLM->SetNumberOfPoints(8);
|
|
108
|
+ TxLM->SetPoint(0, Vector3r( -16.10, 2.13, -34));
|
|
109
|
+ TxLM->SetPoint(1, Vector3r( -7.51, 10.72, -34));
|
|
110
|
+ TxLM->SetPoint(2, Vector3r( 7.51, 10.72, -34));
|
|
111
|
+ TxLM->SetPoint(3, Vector3r( 14.92, 3.31, -34));
|
|
112
|
+ TxLM->SetPoint(4, Vector3r( 14.92, -3.31, -34));
|
|
113
|
+ TxLM->SetPoint(5, Vector3r( 7.51, -10.72, -34));
|
|
114
|
+ TxLM->SetPoint(6, Vector3r( -7.51, -10.72, -34));
|
|
115
|
+ TxLM->SetPoint(7, Vector3r( -16.10, -2.13, -34));
|
|
116
|
+ TxLM->SetNumberOfTurns(8);
|
|
117
|
+
|
|
118
|
+
|
|
119
|
+ auto RxLM = TEMInductiveReceiver::NewSP();
|
|
120
|
+ RxLM->SetComponent( ZCOMPONENT );
|
|
121
|
+ RxLM->SetMoment( 1 );
|
|
122
|
+ RxLM->SetReferenceTime( 8e-4, SEC );
|
|
123
|
+ RxLM->SetRxLocation( (Vector3r() << -16.80, 0, -36.00).finished() );
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+ VectorXr centresLM (26);
|
|
127
|
+ centresLM << 7.150000E-07, 2.215000E-06, 4.215000E-06, 6.215000E-06, 8.215000E-06,
|
|
128
|
+ 1.021500E-05, 1.221500E-05, 1.471500E-05, 1.821500E-05, 2.271500E-05,
|
|
129
|
+ 2.821500E-05, 3.521500E-05, 4.421500E-05, 5.571500E-05, 7.021500E-05,
|
|
130
|
+ 8.821500E-05, 1.107150E-04, 1.387150E-04, 1.742150E-04, 2.197150E-04,
|
|
131
|
+ 2.767150E-04, 3.487150E-04, 4.397150E-04, 5.537150E-04, 6.977150E-04,
|
|
132
|
+ 8.792150E-04;
|
|
133
|
+
|
|
134
|
+ VectorXr widthsLM (26);
|
|
135
|
+ widthsLM << 5.700000E-07, 1.570000E-06, 1.570000E-06, 1.570000E-06, 1.570000E-06,
|
|
136
|
+ 1.570000E-06, 1.570000E-06, 2.570000E-06, 3.570000E-06, 4.570000E-06,
|
|
137
|
+ 5.570000E-06, 7.570000E-06, 9.570000E-06, 1.257000E-05, 1.557000E-05,
|
|
138
|
+ 1.957000E-05, 2.457000E-05, 3.057000E-05, 3.957000E-05, 5.057000E-05,
|
|
139
|
+ 6.257000E-05, 8.057000E-05, 1.005700E-04, 1.265700E-04, 1.605700E-04,
|
|
140
|
+ 2.015700E-04;
|
|
141
|
+
|
|
142
|
+ RxLM->SetWindows(centresLM, widthsLM, SEC);
|
|
143
|
+
|
|
144
|
+
|
|
145
|
+
|
|
146
|
+
|
|
147
|
+
|
|
148
|
+
|
|
149
|
+
|
|
150
|
+
|
|
151
|
+
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
|
|
156
|
+
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
|
|
160
|
+
|
|
161
|
+
|
|
162
|
+
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
|
|
168
|
+
|
|
169
|
+
|
|
170
|
+
|
|
171
|
+
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
175
|
+
|
|
176
|
+
|
|
177
|
+
|
|
178
|
+
|
|
179
|
+
|
|
180
|
+}
|
|
181
|
+
|