Line data Source code
1 : //# RIorAParray.cc: Implementation of RI/AP on-demand converter
2 : //# Copyright (C) 2012
3 : //# Associated Universities, Inc. Washington DC, USA.
4 : //#
5 : //# This library is free software; you can redistribute it and/or modify it
6 : //# under the terms of the GNU Library General Public License as published by
7 : //# the Free Software Foundation; either version 2 of the License, or (at your
8 : //# option) any later version.
9 : //#
10 : //# This library is distributed in the hope that it will be useful, but WITHOUT
11 : //# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 : //# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
13 : //# License for more details.
14 : //#
15 : //# You should have received a copy of the GNU Library General Public License
16 : //# along with this library; if not, write to the Free Software Foundation,
17 : //# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.
18 : //#
19 : //# Correspondence concerning AIPS++ should be adressed as follows:
20 : //# Internet email: casa-feedback@nrao.edu.
21 : //# Postal address: AIPS++ Project Office
22 : //# National Radio Astronomy Observatory
23 : //# 520 Edgemont Road
24 : //# Charlottesville, VA 22903-2475 USA
25 : //#
26 : //#
27 :
28 : #include <synthesis/CalTables/RIorAParray.h>
29 :
30 : #include <casacore/casa/aips.h>
31 : #include <casacore/casa/BasicSL/Constants.h>
32 : #include <casacore/casa/Arrays/Array.h>
33 : #include <casacore/casa/IO/ArrayIO.h>
34 : #include <casacore/casa/Arrays/ArrayIter.h>
35 : #include <casacore/casa/Arrays/Matrix.h>
36 : #include <casacore/casa/Arrays/ArrayMath.h>
37 : #include <casacore/casa/Logging/LogMessage.h>
38 : #include <casacore/casa/Logging/LogSink.h>
39 :
40 : #define RIORAPVERB false
41 :
42 : using namespace casacore;
43 : namespace casa { //# NAMESPACE CASA - BEGIN
44 :
45 :
46 : // Construct empty
47 0 : RIorAPArray::RIorAPArray() :
48 0 : c_ok_(false),
49 0 : f_ok_(false),
50 0 : phaseTracked_(false),
51 0 : c_(),
52 0 : f_()
53 0 : {}
54 :
55 : // Construct from external Complex Array
56 5075 : RIorAPArray::RIorAPArray(const Array<Complex>& c) :
57 5075 : c_ok_(false),
58 5075 : f_ok_(false),
59 5075 : phaseTracked_(false),
60 5075 : c_(),
61 5075 : f_()
62 : {
63 : if (RIORAPVERB) cout << "ctor(A<Complex>))" << endl;
64 :
65 : // Delegate to setData
66 5075 : this->setData(c);
67 5075 : }
68 :
69 : // Construct from external Float Array
70 4532 : RIorAPArray::RIorAPArray(const Array<Float>& f) :
71 4532 : c_ok_(false),
72 4532 : f_ok_(false),
73 4532 : phaseTracked_(false),
74 4532 : c_(),
75 4532 : f_()
76 : {
77 : if (RIORAPVERB) cout << "ctor(A<Float>))" << endl;
78 :
79 : // Delegate to setData
80 4532 : setData(f);
81 4532 : }
82 :
83 : // Destructor
84 9607 : RIorAPArray::~RIorAPArray() {};
85 :
86 :
87 5075 : void RIorAPArray::setData(const Array<Complex>& c) {
88 :
89 : // Discard any existing float part; will be created on-demand, if nec.
90 5075 : f_.resize();
91 5075 : f_ok_=false;
92 : // Reference incoming data array
93 5075 : if (c.ndim()==1) {
94 0 : IPosition ip=c.shape();
95 0 : ip.prepend(IPosition(1,1));
96 0 : c_.reference(c.reform(ip));
97 0 : }
98 : else
99 5075 : c_.reference(c);
100 : // Complex version now ok
101 5075 : c_ok_=true;
102 5075 : }
103 :
104 4532 : void RIorAPArray::setData(const Array<Float>& f) {
105 :
106 : // Discard any existing complex part; will be created on-demand, if nec.
107 4532 : c_.resize();
108 4532 : c_ok_=false;
109 :
110 : // Insist that incoming Float Array has ndim>1
111 4532 : if (f.ndim()<2)
112 0 : throw(AipsError("RIorAPArray: Input Float Array must be at least 2D."));
113 :
114 : // Reference incoming data array
115 4532 : f_.reference(f);
116 4532 : f_ok_=true;
117 4532 : }
118 :
119 : // State
120 0 : void RIorAPArray::state(Bool verbose) {
121 :
122 0 : cout << boolalpha;
123 0 : cout << "--state--" << endl;
124 0 : cout << "f_: ok=" << f_ok_ << " &=" << f_.data() << " sh=" << f_.shape() << " nrefs=" << f_.nrefs() << endl;
125 0 : cout << "c_: ok=" << c_ok_ << " &=" << c_.data() << " sh=" << c_.shape() << " nrefs=" << c_.nrefs() << endl;
126 :
127 0 : if (verbose) {
128 0 : cout.precision(10);
129 0 : cout << "f_ = " << f_ << endl;
130 0 : cout << "c_ = " << c_ << endl;
131 : }
132 0 : cout << "---------" << endl;
133 :
134 0 : }
135 :
136 :
137 : // Render Complex version (calc from Float, if necessary)
138 4532 : Array<Complex> RIorAPArray::c() {
139 4532 : if (!c_ok_) { // not already calculated
140 4532 : resizec_();
141 4532 : calc_c(); // calc internally
142 : }
143 4532 : return c_; // return the array
144 : }
145 :
146 :
147 : // Render Float version (calc from Complex, if necessary)
148 5075 : Array<Float> RIorAPArray::f(Bool trackphase) {
149 : // form it, if not already calculated or phase needs tracking
150 : // TBD optimize already-calc'd/needs phasetracked case
151 5075 : if (!f_ok_ || (trackphase && !phaseTracked_)) {
152 5075 : resizef_();
153 5075 : calc_f(trackphase);
154 : }
155 5075 : return f_; // return the array
156 : }
157 :
158 4532 : void RIorAPArray::resizec_() {
159 : if (RIORAPVERB) cout << "resizec_()" << endl;
160 4532 : IPosition cip(f_.shape());
161 4532 : cip(0)/=2; // First axis float->complex (half as long)
162 4532 : c_.resize(cip);
163 4532 : }
164 5075 : void RIorAPArray::resizef_() {
165 : if (RIORAPVERB) cout << "resizef_()" << endl;
166 5075 : IPosition fip(c_.shape());
167 5075 : fip(0)*=2; // First axis complex->float (twice as long)
168 5075 : f_.resize(fip);
169 :
170 : // Ensure that at least 2 axes...
171 5075 : if (fip.size()<2)
172 0 : throw(AipsError("RIorAPArray: Internal Float array, f_, must have ndim>1"));
173 5075 : }
174 :
175 : // Calc Complex version from Float info
176 : // (assumes c_ already correct size)
177 4532 : void RIorAPArray::calc_c() {
178 :
179 : if (RIORAPVERB) cout << "calc_c()" << endl;
180 :
181 4532 : if (!f_ok_)
182 0 : throw(AipsError("RIorAParray::f(): Can't calculate complex version from absent float version."));
183 :
184 4532 : Int ndim=f_.ndim();
185 4532 : Array<Float> amp;
186 4532 : Array<Float> ph;
187 4532 : IPosition blc(ndim,0),trc(f_.endPosition()),stp(ndim,1);
188 4532 : stp(0)=2; // by 2 in first axis
189 4532 : amp=f_(blc,trc,stp);
190 4532 : blc(0)=1; // phase is 2nd value on first axis
191 4532 : ph=f_(blc,trc,stp);
192 :
193 : // Form Float array with real/imag parts (not amp/phase)
194 4532 : Array<Float> ftmp(f_.shape());
195 4532 : blc(0)=0;
196 4532 : ftmp(blc,trc,stp)=amp*cos(ph);
197 4532 : blc(0)=1;
198 4532 : ftmp(blc,trc,stp)=amp*sin(ph);
199 :
200 : // Convert Float R/I array to Complex array
201 : // c_=RealToComplex(ftmp);
202 4532 : RealToComplex(c_,ftmp);
203 4532 : c_ok_=true;
204 :
205 4532 : }
206 :
207 : // Calc Float version from Complex info
208 : // (assumes f_ already correct size)
209 5075 : void RIorAPArray::calc_f(Bool trackphase) {
210 :
211 : if (RIORAPVERB) cout << "calc_f(" << boolalpha << trackphase << ")" << endl;
212 :
213 5075 : if (!c_ok_)
214 0 : throw(AipsError("RIorAParray::f(): Can't calculate float version from absent complex version."));
215 :
216 5075 : Int ndim=f_.ndim();
217 5075 : IPosition blc(ndim,0),trc(f_.endPosition()),stp(ndim,1);
218 5075 : stp(0)=2; // by 2 in first axis
219 5075 : Array<Float> amp(f_(blc,trc,stp));
220 5075 : blc(0)=1; // phase is 2nd value on first axis
221 5075 : Array<Float> ph(f_(blc,trc,stp));
222 :
223 5075 : amp=amplitude(c_).reform(amp.shape());
224 5075 : ph=phase(c_).reform(amp.shape());
225 5075 : f_ok_=true;
226 :
227 5075 : phaseTracked_=false;
228 :
229 5075 : if (trackphase)
230 5075 : trackPhase(ph);
231 :
232 5075 : }
233 :
234 : // Track phase _on_last_axis_
235 5075 : void RIorAPArray::trackPhase(Array<Float>& ph) {
236 :
237 : if (RIORAPVERB) cout << "trackPhase()" << endl;
238 :
239 5075 : IPosition phsh(ph.shape());
240 5075 : ArrayIterator<Float> phiter(ph,IPosition(1,ph.ndim()-1));
241 5075 : Vector<Float> ph1;
242 10150 : while (!phiter.pastEnd()) {
243 5075 : ph1.reference(phiter.array());
244 5075 : for (uInt j=1;j<ph1.nelements();++j) {
245 0 : if (ph1(j)>ph1(j-1))
246 0 : while (ph1(j)>(ph1(j-1)+C::pi)) ph1(j)-=C::_2pi;
247 0 : if (ph1(j)<ph1(j-1))
248 0 : while (ph1(j)<(ph1(j-1)-C::pi)) ph1(j)+=C::_2pi;
249 : }
250 5075 : phiter.next();
251 : }
252 :
253 5075 : phaseTracked_=true;
254 :
255 5075 : }
256 :
257 :
258 :
259 : /*
260 :
261 : ****TBD: Handle filling supplied arrays? (to avoid copies)
262 :
263 :
264 : // Render Complex version onto supplied Array (calc from Float, if necessary)
265 : void RIorAPArray::c(Array<Complex>& c) {
266 :
267 :
268 : if (c_ok_) { // Already calculated internally
269 : if (c.conform(c_))
270 : c=c_;
271 : }
272 : else { // Do the calculation
273 :
274 : // f_ *must* be ok if we are going to calculate c_
275 : if (!f_ok_)
276 : throw(AipsError("RIorAParray::c(): Can't serve complex version from absent float version."));
277 :
278 : // Resize supplied storage
279 : IPosition cip(f_.shape());
280 : cip.getLast(cip.nelements()-1);
281 : c.resize(cip); // the _supplied_ array (could be external)
282 : if (&c_!=&c)
283 : c_.reference(c); // no-op if c_ and c are same array?
284 : // Do the calculation
285 : calc_c();
286 : }
287 :
288 : }
289 :
290 : // Render Float version onto supplied Array(calc from Complex, if necessary)
291 : void RIorAPArray::f(Array<Float>& f,Bool trackphase) {
292 : // c_ must be ok if we are going to calculate f_
293 : if (!c_ok_)
294 : throw(AipsError("RIorAParray::c(): Can't serve complex version from absent float version."));
295 :
296 : // Resize storage
297 : IPosition fip(c_.shape());
298 : fip.prepend(IPosition(1,2));
299 : f.resize(fip); // the supplied array (could be external)
300 : f_.reference(f); // no-op if f_ and f are same array?
301 :
302 : // Do the calculation
303 : calc_f(trackphase);
304 : }
305 : */
306 :
307 : } //# NAMESPACE CASA - END
|
