23 type(display_type) :: disp
24 integer(IK) :: itry, ntry
= 10
25 character(:),
allocatable :: format
29 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
30 call disp%show(
"!Compute the correlation matrix from correlation matrix.")
31 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
36 real(TKG),
allocatable :: cov(:,:), cor(:,:), std(:)
38 format = getFormat(mold
= [
0._TKG], ed
= SK_
"es", signed
= .true._LK)
42 call disp%show(
"ndim = getUnifRand(0, 4)")
46 call disp%show(
"std = getUnifRand(1, ndim, ndim)")
49 call disp%show( std ,
format = format )
50 call disp%show(
"cov = getCovRand(1._TKG, std)")
53 call disp%show( cov ,
format = format )
60 call disp%show(
"call setCor(cor, uppDia, cor, uppDia)")
61 call setCor(cor, uppDia, cor, uppDia)
63 call disp%show( cor ,
format = format )
67 call disp%show(
"call setCor(cor, uppDia, cor, lowDia)")
68 call setCor(cor, uppDia, cor, lowDia)
70 call disp%show( cor ,
format = format )
74 call disp%show(
"call setCor(cor, upp, cor, uppDia)")
75 call setCor(cor, upp, cor, uppDia)
77 call disp%show( cor ,
format = format )
81 call disp%show(
"call setCor(cor, upp, cor, lowDia)")
82 call setCor(cor, upp, cor, lowDia)
84 call disp%show( cor ,
format = format )
88 call disp%show(
"call setCor(cor, lowDia, cor, uppDia)")
89 call setCor(cor, lowDia, cor, uppDia)
91 call disp%show( cor ,
format = format )
95 call disp%show(
"call setCor(cor, lowDia, cor, lowDia)")
96 call setCor(cor, lowDia, cor, lowDia)
98 call disp%show( cor ,
format = format )
102 call disp%show(
"call setCor(cor, low, cor, uppDia)")
103 call setCor(cor, low, cor, uppDia)
105 call disp%show( cor ,
format = format )
109 call disp%show(
"call setCor(cor, low, cor, lowDia)")
110 call setCor(cor, low, cor, lowDia)
112 call disp%show( cor ,
format = format )
119 call disp%show(
"call setCor(cor, uppDia, cor, upp, stdinv = 1 / std)")
120 call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
122 call disp%show( cor ,
format = format )
126 call disp%show(
"call setCor(cor, uppDia, cor, low, stdinv = 1 / std)")
127 call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
129 call disp%show( cor ,
format = format )
133 call disp%show(
"call setCor(cor, upp, cor, upp, stdinv = 1 / std)")
134 call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
140 call disp%show(
"call setCor(cor, upp, cor, low, stdinv = 1 / std)")
141 call setCor(cor, upp, cor, low, stdinv
= 1 / std)
143 call disp%show( cor ,
format = format )
147 call disp%show(
"call setCor(cor, lowDia, cor, upp, stdinv = 1 / std)")
148 call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
150 call disp%show( cor ,
format = format )
154 call disp%show(
"call setCor(cor, lowDia, cor, low, stdinv = 1 / std)")
155 call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
157 call disp%show( cor ,
format = format )
161 call disp%show(
"call setCor(cor, low, cor, upp, stdinv = 1 / std)")
162 call setCor(cor, low, cor, upp, stdinv
= 1 / std)
164 call disp%show( cor ,
format = format )
168 call disp%show(
"call setCor(cor, low, cor, low, stdinv = 1 / std)")
169 call setCor(cor, low, cor, low, stdinv
= 1 / std)
171 call disp%show( cor ,
format = format )
178 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
179 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
180 call disp%show(
"!Compute the Pearson correlation matrix for a pair of time series.")
181 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
182 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
187 integer(IK) :: ndim, nsam, dim
188 real(TKG),
allocatable :: sample(:,:), samShifted(:,:), cor(:,:), mean(:)
189 format = getFormat(mold
= [
0._TKG], ed
= SK_
"es", signed
= .true._LK)
190 call disp%show(
"ndim = 2; nsam = 10; dim = 2")
191 ndim
= 2; nsam
= 10; dim
= 2
192 call disp%show(
"sample = reshape(getUnifRand(1, 20, ndim * nsam), shape = [ndim, nsam], order = [2, 1])")
193 sample
= reshape(
getUnifRand(
1,
20, ndim
* nsam), shape
= [ndim, nsam], order
= [
2,
1])
195 call disp%show( sample ,
format = format )
196 call disp%show(
"mean = getMean(sample, dim)")
199 call disp%show( mean ,
format = format )
200 call disp%show(
"samShifted = getShifted(sample, dim, -mean)")
203 call disp%show( samShifted ,
format = format )
204 call disp%show(
"cor = getFilled(0., ndim, ndim)")
206 call disp%show(
"call setCor(cor, uppDia, mean, sample, dim)")
207 call setCor(cor, uppDia, mean, sample, dim)
209 call disp%show( cor ,
format = format )
210 call disp%show(
"cor = getFilled(0., ndim, ndim)")
212 call disp%show(
"call setCor(cor, uppDia, samShifted, dim) ! same result as above.")
213 call setCor(cor, uppDia, samShifted, dim)
215 call disp%show( cor ,
format = format )
217 call disp%show(
"cor = getFilled(0., ndim, ndim)")
219 call disp%show(
"call setCor(cor, lowDia, mean, sample, dim)")
220 call setCor(cor, lowDia, mean, sample, dim)
222 call disp%show( cor ,
format = format )
223 call disp%show(
"cor = getFilled(0., ndim, ndim)")
225 call disp%show(
"call setCor(cor, lowDia, samShifted, dim) ! same result as above.")
226 call setCor(cor, lowDia, samShifted, dim)
228 call disp%show( cor ,
format = format )
230 call disp%show(
"Compute the sample correlation along the first dimension.", deliml
= SK_
'''')
234 call disp%show(
"cor = getFilled(0., ndim, ndim)")
236 call disp%show(
"call setCor(cor, uppDia, mean, transpose(sample), dim)")
237 call setCor(cor, uppDia, mean,
transpose(sample), dim)
239 call disp%show( cor ,
format = format )
240 call disp%show(
"cor = getFilled(0., ndim, ndim)")
242 call disp%show(
"call setCor(cor, uppDia, transpose(samShifted), dim) ! same result as above.")
243 call setCor(cor, uppDia,
transpose(samShifted), dim)
245 call disp%show( cor ,
format = format )
247 call disp%show(
"cor = getFilled(0., ndim, ndim)")
249 call disp%show(
"call setCor(cor, lowDia, mean, transpose(sample), dim)")
250 call setCor(cor, lowDia, mean,
transpose(sample), dim)
252 call disp%show( cor ,
format = format )
253 call disp%show(
"cor = getFilled(0., ndim, ndim)")
255 call disp%show(
"call setCor(cor, lowDia, transpose(samShifted), dim) ! same result as above.")
256 call setCor(cor, lowDia,
transpose(samShifted), dim)
258 call disp%show( cor ,
format = format )
260 call disp%show(
"Compute the full sample correlation for a pair of time series.", deliml
= SK_
'''')
262 call disp%show(
"call setCor(cor(1,1), mean, sample(1,:), sample(2,:))")
263 call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:))
265 call disp%show( cor(
1,
1) ,
format = format )
266 call disp%show(
"call setCor(cor(1,1), samShifted(1,:), samShifted(2,:)) ! same result as above.")
267 call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:))
269 call disp%show( cor(
1,
1) ,
format = format )
274 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
275 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
276 call disp%show(
"!Compute the Pearson correlation matrix for a weighted pair of time series.")
277 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
278 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
284 integer(IK),
allocatable :: iweight(:)
285 real(TKG),
allocatable :: rweight(:)
288 integer(IK) :: iweisum
289 integer(IK) :: ndim, nsam
290 real(TKG),
allocatable :: sample(:,:), samShifted(:,:), cor(:,:), mean(:)
291 format = getFormat(mold
= [
0._TKG], ed
= SK_
"es", signed
= .true._LK)
292 call disp%show(
"ndim = 2; nsam = 10; dim = 2")
293 ndim
= 2; nsam
= 10; dim
= 2
294 call disp%show(
"sample = reshape(getUnifRand(1, 20, ndim * nsam), shape = [ndim, nsam], order = [2, 1])")
295 sample
= reshape(
getUnifRand(
1,
20, ndim
* nsam), shape
= [ndim, nsam], order
= [
2,
1])
297 call disp%show( sample ,
format = format )
298 call disp%show(
"call setResized(mean, ndim)")
300 call disp%show(
"iweight = getUnifRand(1, 10, nsam) ! integer-valued weights.")
304 call disp%show(
"call setMean(mean, sample, dim, iweight, iweisum)")
305 call setMean(mean, sample, dim, iweight, iweisum)
307 call disp%show( mean ,
format = format )
310 call disp%show(
"rweight = iweight ! or real-valued weights.")
314 call disp%show(
"call setMean(mean, sample, dim, rweight, rweisum)")
315 call setMean(mean, sample, dim, rweight, rweisum)
317 call disp%show( mean ,
format = format )
319 call disp%show( rweisum ,
format = format )
322 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
323 call disp%show(
"!Compute the correlation matrix with integer weights.")
324 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
327 call disp%show(
"samShifted = getShifted(sample, dim, -mean)")
330 call disp%show( samShifted ,
format = format )
331 call disp%show(
"cor = getFilled(0., ndim, ndim)")
333 call disp%show(
"call setCor(cor, uppDia, mean, sample, dim, iweight, iweisum)")
334 call setCor(cor, uppDia, mean, sample, dim, iweight, iweisum)
336 call disp%show( cor ,
format = format )
337 call disp%show(
"cor = getFilled(0., ndim, ndim)")
339 call disp%show(
"call setCor(cor, uppDia, samShifted, dim, iweight, iweisum) ! same result as above.")
340 call setCor(cor, uppDia, samShifted, dim, iweight, iweisum)
342 call disp%show( cor ,
format = format )
344 call disp%show(
"cor = getFilled(0., ndim, ndim)")
346 call disp%show(
"call setCor(cor, lowDia, mean, sample, dim, iweight, iweisum)")
347 call setCor(cor, lowDia, mean, sample, dim, iweight, iweisum)
349 call disp%show( cor ,
format = format )
350 call disp%show(
"cor = getFilled(0., ndim, ndim)")
352 call disp%show(
"call setCor(cor, lowDia, samShifted, dim, iweight, iweisum) ! same result as above.")
353 call setCor(cor, lowDia, samShifted, dim, iweight, iweisum)
355 call disp%show( cor ,
format = format )
356 call disp%show(
"cor = getFilled(0., ndim, ndim)")
358 call disp%show(
"call setCor(cor, lowDia, getVerbose(samShifted, iweight, sum(iweight), dim), dim) ! same result as above.")
359 call setCor(cor, lowDia,
getVerbose(samShifted, iweight,
sum(iweight), dim), dim)
361 call disp%show( cor ,
format = format )
363 call disp%show(
"Compute the sample correlation along the first dimension.", deliml
= SK_
'''')
367 call disp%show(
"cor = getFilled(0., ndim, ndim)")
369 call disp%show(
"call setCor(cor, uppDia, mean, transpose(sample), dim, iweight, iweisum)")
370 call setCor(cor, uppDia, mean,
transpose(sample), dim, iweight, iweisum)
372 call disp%show( cor ,
format = format )
373 call disp%show(
"cor = getFilled(0., ndim, ndim)")
375 call disp%show(
"call setCor(cor, uppDia, transpose(samShifted), dim, iweight, iweisum) ! same result as above.")
376 call setCor(cor, uppDia,
transpose(samShifted), dim, iweight, iweisum)
378 call disp%show( cor ,
format = format )
380 call disp%show(
"cor = getFilled(0., ndim, ndim)")
382 call disp%show(
"call setCor(cor, lowDia, mean, transpose(sample), dim, iweight, iweisum)")
383 call setCor(cor, lowDia, mean,
transpose(sample), dim, iweight, iweisum)
385 call disp%show( cor ,
format = format )
386 call disp%show(
"cor = getFilled(0., ndim, ndim)")
388 call disp%show(
"call setCor(cor, lowDia, transpose(samShifted), dim, iweight, iweisum) ! same result as above.")
389 call setCor(cor, lowDia,
transpose(samShifted), dim, iweight, iweisum)
391 call disp%show( cor ,
format = format )
393 call disp%show(
"Compute the full sample correlation for a pair of time series.", deliml
= SK_
'''')
395 call disp%show(
"call setCor(cor(1,1), mean, sample(1,:), sample(2,:), iweight, iweisum)")
396 call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:), iweight, iweisum)
398 call disp%show( cor(
1,
1) ,
format = format )
399 call disp%show(
"call setCor(cor(1,1), samShifted(1,:), samShifted(2,:), iweight, iweisum) ! same result as above.")
400 call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:), iweight, iweisum)
402 call disp%show( cor(
1,
1) ,
format = format )
406 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
407 call disp%show(
"!Compute the correlation matrix with real weights.")
408 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
413 call disp%show(
"samShifted = getShifted(sample, dim, -mean)")
417 call disp%show(
"cor = getFilled(0., ndim, ndim)")
419 call disp%show(
"call setCor(cor, uppDia, mean, sample, dim, rweight, rweisum)")
420 call setCor(cor, uppDia, mean, sample, dim, rweight, rweisum)
422 call disp%show( cor ,
format = format )
423 call disp%show(
"cor = getFilled(0., ndim, ndim)")
425 call disp%show(
"call setCor(cor, uppDia, samShifted, dim, rweight, rweisum) ! same result as above.")
426 call setCor(cor, uppDia, samShifted, dim, rweight, rweisum)
428 call disp%show( cor ,
format = format )
430 call disp%show(
"cor = getFilled(0., ndim, ndim)")
432 call disp%show(
"call setCor(cor, lowDia, mean, sample, dim, rweight, rweisum)")
433 call setCor(cor, lowDia, mean, sample, dim, rweight, rweisum)
435 call disp%show( cor ,
format = format )
436 call disp%show(
"cor = getFilled(0., ndim, ndim)")
438 call disp%show(
"call setCor(cor, lowDia, samShifted, dim, rweight, rweisum) ! same result as above.")
439 call setCor(cor, lowDia, samShifted, dim, rweight, rweisum)
441 call disp%show( cor ,
format = format )
443 call disp%show(
"Compute the sample correlation along the first dimension.", deliml
= SK_
'''')
447 call disp%show(
"cor = getFilled(0., ndim, ndim)")
449 call disp%show(
"call setCor(cor, uppDia, mean, transpose(sample), dim, rweight, rweisum)")
450 call setCor(cor, uppDia, mean,
transpose(sample), dim, rweight, rweisum)
452 call disp%show( cor ,
format = format )
453 call disp%show(
"cor = getFilled(0., ndim, ndim)")
455 call disp%show(
"call setCor(cor, uppDia, transpose(samShifted), dim, rweight, rweisum) ! same result as above.")
456 call setCor(cor, uppDia,
transpose(samShifted), dim, rweight, rweisum)
458 call disp%show( cor ,
format = format )
460 call disp%show(
"cor = getFilled(0., ndim, ndim)")
462 call disp%show(
"call setCor(cor, lowDia, mean, transpose(sample), dim, rweight, rweisum)")
463 call setCor(cor, lowDia, mean,
transpose(sample), dim, rweight, rweisum)
465 call disp%show( cor ,
format = format )
466 call disp%show(
"cor = getFilled(0., ndim, ndim)")
468 call disp%show(
"call setCor(cor, lowDia, transpose(samShifted), dim, rweight, rweisum) ! same result as above.")
469 call setCor(cor, lowDia,
transpose(samShifted), dim, rweight, rweisum)
471 call disp%show( cor ,
format = format )
473 call disp%show(
"Compute the full sample correlation for a pair of time series.", deliml
= SK_
'''')
475 call disp%show(
"call setCor(cor(1,1), mean, sample(1,:), sample(2,:), rweight, rweisum)")
476 call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:), rweight, rweisum)
478 call disp%show( cor(
1,
1) ,
format = format )
479 call disp%show(
"call setCor(cor(1,1), samShifted(1,:), samShifted(2,:), rweight, rweisum) ! same result as above.")
480 call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:), rweight, rweisum)
482 call disp%show( cor(
1,
1) ,
format = format )
Generate and return an array of the specified rank and shape of arbitrary intrinsic type and kind wit...
Generate minimally-spaced character, integer, real sequences or sequences at fixed intervals of size ...
Allocate or resize (shrink or expand) an input allocatable scalar string or array of rank 1....
Generate count evenly spaced points over the interval [x1, x2] if x1 < x2, or [x2,...
Generate an equally-weighted (verbose or flattened) array of the input weighted array of rank 1 or 2.
Generate and return a random positive-definite (correlation or covariance) matrix using the Gram meth...
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
Generate and return the (weighted) mean of an input sample of nsam observations with ndim = 1 or 2 at...
Return the (weighted) mean of a pair of time series or of an input sample of nsam observations with n...
Generate a sample of shape (nsam), or (ndim, nsam) or (nsam, ndim) that is shifted by the specified i...
This module contains procedures and generic interfaces for convenient allocation and filling of array...
This module contains procedures and generic interfaces for generating ranges of discrete character,...
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
This module contains procedures and generic interfaces for generating arrays with linear or logarithm...
This module contains procedures and generic interfaces for flattening (duplicating the elements of) a...
This module contains classes and procedures for generating random matrices distributed on the space o...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for input/output (IO) or generic display operations on st...
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
This module contains classes and procedures for computing the first moment (i.e., the statistical mea...
This module contains classes and procedures for shifting univariate or multivariate samples by arbitr...
Generate and return an object of type display_type.
18call setCor(cor, uppDia, cor, uppDia)
22call setCor(cor, uppDia, cor, lowDia)
26call setCor(cor, upp, cor, uppDia)
30call setCor(cor, upp, cor, lowDia)
34call setCor(cor, lowDia, cor, uppDia)
38call setCor(cor, lowDia, cor, lowDia)
42call setCor(cor, low, cor, uppDia)
46call setCor(cor, low, cor, lowDia)
51call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
55call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
59call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
63call setCor(cor, upp, cor, low, stdinv
= 1 / std)
67call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
71call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
75call setCor(cor, low, cor, upp, stdinv
= 1 / std)
79call setCor(cor, low, cor, low, stdinv
= 1 / std)
94call setCor(cor, uppDia, cor, uppDia)
98call setCor(cor, uppDia, cor, lowDia)
102call setCor(cor, upp, cor, uppDia)
106call setCor(cor, upp, cor, lowDia)
110call setCor(cor, lowDia, cor, uppDia)
114call setCor(cor, lowDia, cor, lowDia)
118call setCor(cor, low, cor, uppDia)
122call setCor(cor, low, cor, lowDia)
127call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
131call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
135call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
139call setCor(cor, upp, cor, low, stdinv
= 1 / std)
143call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
147call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
151call setCor(cor, low, cor, upp, stdinv
= 1 / std)
155call setCor(cor, low, cor, low, stdinv
= 1 / std)
164+3.000000E+00,
+3.000000E+00,
+3.000000E+00
167+9.000000E+00,
-8.644159E+00,
-6.755726E+00
168-8.644159E+00,
+9.000002E+00,
+5.978867E+00
169-6.755726E+00,
+5.978867E+00,
+9.000000E+00
173call setCor(cor, uppDia, cor, uppDia)
175+1.000000E+00,
-9.604621E-01,
-7.506363E-01
176-8.644159E+00,
+1.000000E+00,
+6.643185E-01
177-6.755726E+00,
+5.978867E+00,
+1.000000E+00
180call setCor(cor, uppDia, cor, lowDia)
182+1.000000E+00,
-9.604621E-01,
-7.506363E-01
183-8.644159E+00,
+1.000000E+00,
+6.643185E-01
184-6.755726E+00,
+5.978867E+00,
+1.000000E+00
187call setCor(cor, upp, cor, uppDia)
189+9.000000E+00,
-9.604621E-01,
-7.506363E-01
190-8.644159E+00,
+9.000002E+00,
+6.643185E-01
191-6.755726E+00,
+5.978867E+00,
+9.000000E+00
194call setCor(cor, upp, cor, lowDia)
196+9.000000E+00,
-9.604621E-01,
-7.506363E-01
197-8.644159E+00,
+9.000002E+00,
+6.643185E-01
198-6.755726E+00,
+5.978867E+00,
+9.000000E+00
201call setCor(cor, lowDia, cor, uppDia)
203+1.000000E+00,
-8.644159E+00,
-6.755726E+00
204-8.644159E+00,
+1.000000E+00,
+5.978867E+00
205-6.755726E+00,
+5.978867E+00,
+1.000000E+00
208call setCor(cor, lowDia, cor, lowDia)
210+1.000000E+00,
-8.644159E+00,
-6.755726E+00
211-9.604621E-01,
+1.000000E+00,
+5.978867E+00
212-7.506363E-01,
+6.643185E-01,
+1.000000E+00
215call setCor(cor, low, cor, uppDia)
217+9.000000E+00,
-8.644159E+00,
-6.755726E+00
218-9.604621E-01,
+9.000002E+00,
+5.978867E+00
219-7.506363E-01,
+6.643185E-01,
+9.000000E+00
222call setCor(cor, low, cor, lowDia)
224+9.000000E+00,
-8.644159E+00,
-6.755726E+00
225-9.604621E-01,
+9.000002E+00,
+5.978867E+00
226-7.506363E-01,
+6.643185E-01,
+9.000000E+00
230call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
232+1.000000E+00,
-9.604622E-01,
-7.506363E-01
233-8.644159E+00,
+1.000000E+00,
+6.643186E-01
234-6.755726E+00,
+5.978867E+00,
+1.000000E+00
237call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
239+1.000000E+00,
-9.604622E-01,
-7.506363E-01
240-8.644159E+00,
+1.000000E+00,
+6.643186E-01
241-6.755726E+00,
+5.978867E+00,
+1.000000E+00
244call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
246+9.00000000,
-0.960462213,
-0.750636280
247-8.64415932,
+9.00000191,
+0.664318621
248-6.75572586,
+5.97886705,
+9.00000000
251call setCor(cor, upp, cor, low, stdinv
= 1 / std)
253+9.000000E+00,
-9.604622E-01,
-7.506363E-01
254-8.644159E+00,
+9.000002E+00,
+6.643186E-01
255-6.755726E+00,
+5.978867E+00,
+9.000000E+00
258call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
260+1.000000E+00,
-8.644159E+00,
-6.755726E+00
261-9.604622E-01,
+1.000000E+00,
+5.978867E+00
262-7.506363E-01,
+6.643186E-01,
+1.000000E+00
265call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
267+1.000000E+00,
-8.644159E+00,
-6.755726E+00
268-9.604622E-01,
+1.000000E+00,
+5.978867E+00
269-7.506363E-01,
+6.643186E-01,
+1.000000E+00
272call setCor(cor, low, cor, upp, stdinv
= 1 / std)
274+9.000000E+00,
-8.644159E+00,
-6.755726E+00
275-9.604622E-01,
+9.000002E+00,
+5.978867E+00
276-7.506363E-01,
+6.643186E-01,
+9.000000E+00
279call setCor(cor, low, cor, low, stdinv
= 1 / std)
281+9.000000E+00,
-8.644159E+00,
-6.755726E+00
282-9.604622E-01,
+9.000002E+00,
+5.978867E+00
283-7.506363E-01,
+6.643186E-01,
+9.000000E+00
291+3.000000E+00,
+1.000000E+00,
+2.000000E+00,
+3.000000E+00
294+9.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
295+1.945879E+00,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
296+2.330843E+00,
+1.062772E+00,
+4.000000E+00,
-3.917000E+00
297+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+9.000000E+00
301call setCor(cor, uppDia, cor, uppDia)
303+1.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
304+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
305+2.330843E+00,
+1.062772E+00,
+1.000000E+00,
-6.528333E-01
306+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+1.000000E+00
309call setCor(cor, uppDia, cor, lowDia)
311+1.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
312+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
313+2.330843E+00,
+1.062772E+00,
+1.000000E+00,
-6.528333E-01
314+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+1.000000E+00
317call setCor(cor, upp, cor, uppDia)
319+9.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
320+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
321+2.330843E+00,
+1.062772E+00,
+4.000000E+00,
-6.528333E-01
322+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+9.000000E+00
325call setCor(cor, upp, cor, lowDia)
327+9.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
328+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
329+2.330843E+00,
+1.062772E+00,
+4.000000E+00,
-6.528333E-01
330+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+9.000000E+00
333call setCor(cor, lowDia, cor, uppDia)
335+1.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
336+1.945879E+00,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
337+2.330843E+00,
+1.062772E+00,
+1.000000E+00,
-3.917000E+00
338+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+1.000000E+00
341call setCor(cor, lowDia, cor, lowDia)
343+1.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
344+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
345+3.884738E-01,
+5.313858E-01,
+1.000000E+00,
-3.917000E+00
346+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+1.000000E+00
349call setCor(cor, low, cor, uppDia)
351+9.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
352+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
353+3.884738E-01,
+5.313858E-01,
+4.000000E+00,
-3.917000E+00
354+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+9.000000E+00
357call setCor(cor, low, cor, lowDia)
359+9.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
360+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
361+3.884738E-01,
+5.313858E-01,
+4.000000E+00,
-3.917000E+00
362+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+9.000000E+00
366call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
368+1.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
369+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
370+2.330843E+00,
+1.062772E+00,
+1.000000E+00,
-6.528333E-01
371+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+1.000000E+00
374call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
376+1.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
377+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
378+2.330843E+00,
+1.062772E+00,
+1.000000E+00,
-6.528333E-01
379+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+1.000000E+00
382call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
384+9.00000000,
+0.648626328,
+0.388473839,
+0.242238864
385+1.94587898,
+1.00000000,
+0.531385839,
+0.280975699
386+2.33084297,
+1.06277168,
+4.00000048,
-0.652833343
387+2.18014956,
+0.842927098,
-3.91699982,
+9.00000000
390call setCor(cor, upp, cor, low, stdinv
= 1 / std)
392+9.000000E+00,
+6.486263E-01,
+3.884738E-01,
+2.422389E-01
393+1.945879E+00,
+1.000000E+00,
+5.313858E-01,
+2.809757E-01
394+2.330843E+00,
+1.062772E+00,
+4.000000E+00,
-6.528333E-01
395+2.180150E+00,
+8.429271E-01,
-3.917000E+00,
+9.000000E+00
398call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
400+1.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
401+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
402+3.884738E-01,
+5.313858E-01,
+1.000000E+00,
-3.917000E+00
403+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+1.000000E+00
406call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
408+1.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
409+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
410+3.884738E-01,
+5.313858E-01,
+1.000000E+00,
-3.917000E+00
411+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+1.000000E+00
414call setCor(cor, low, cor, upp, stdinv
= 1 / std)
416+9.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
417+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
418+3.884738E-01,
+5.313858E-01,
+4.000000E+00,
-3.917000E+00
419+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+9.000000E+00
422call setCor(cor, low, cor, low, stdinv
= 1 / std)
424+9.000000E+00,
+1.945879E+00,
+2.330843E+00,
+2.180150E+00
425+6.486263E-01,
+1.000000E+00,
+1.062772E+00,
+8.429271E-01
426+3.884738E-01,
+5.313858E-01,
+4.000000E+00,
-3.917000E+00
427+2.422389E-01,
+2.809757E-01,
-6.528333E-01,
+9.000000E+00
441call setCor(cor, uppDia, cor, uppDia)
445call setCor(cor, uppDia, cor, lowDia)
449call setCor(cor, upp, cor, uppDia)
453call setCor(cor, upp, cor, lowDia)
457call setCor(cor, lowDia, cor, uppDia)
461call setCor(cor, lowDia, cor, lowDia)
465call setCor(cor, low, cor, uppDia)
469call setCor(cor, low, cor, lowDia)
474call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
478call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
482call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
486call setCor(cor, upp, cor, low, stdinv
= 1 / std)
490call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
494call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
498call setCor(cor, low, cor, upp, stdinv
= 1 / std)
502call setCor(cor, low, cor, low, stdinv
= 1 / std)
517call setCor(cor, uppDia, cor, uppDia)
521call setCor(cor, uppDia, cor, lowDia)
525call setCor(cor, upp, cor, uppDia)
529call setCor(cor, upp, cor, lowDia)
533call setCor(cor, lowDia, cor, uppDia)
537call setCor(cor, lowDia, cor, lowDia)
541call setCor(cor, low, cor, uppDia)
545call setCor(cor, low, cor, lowDia)
550call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
554call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
558call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
562call setCor(cor, upp, cor, low, stdinv
= 1 / std)
566call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
570call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
574call setCor(cor, low, cor, upp, stdinv
= 1 / std)
578call setCor(cor, low, cor, low, stdinv
= 1 / std)
587+4.000000E+00,
+2.000000E+00,
+3.000000E+00,
+4.000000E+00
590+1.600000E+01,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
591+7.412047E+00,
+4.000000E+00,
-2.190776E+00,
+1.851153E+00
592-1.942240E-01,
-2.190776E+00,
+9.000000E+00,
+1.033868E+00
593+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.600000E+01
597call setCor(cor, uppDia, cor, uppDia)
599+1.000000E+00,
+9.265060E-01,
-1.618534E-02,
+1.524380E-01
600+7.412047E+00,
+1.000000E+00,
-3.651294E-01,
+2.313942E-01
601-1.942240E-01,
-2.190776E+00,
+1.000000E+00,
+8.615566E-02
602+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.000000E+00
605call setCor(cor, uppDia, cor, lowDia)
607+1.000000E+00,
+9.265060E-01,
-1.618534E-02,
+1.524380E-01
608+7.412047E+00,
+1.000000E+00,
-3.651294E-01,
+2.313942E-01
609-1.942240E-01,
-2.190776E+00,
+1.000000E+00,
+8.615566E-02
610+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.000000E+00
613call setCor(cor, upp, cor, uppDia)
615+1.600000E+01,
+9.265060E-01,
-1.618534E-02,
+1.524380E-01
616+7.412047E+00,
+4.000000E+00,
-3.651294E-01,
+2.313942E-01
617-1.942240E-01,
-2.190776E+00,
+9.000000E+00,
+8.615566E-02
618+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.600000E+01
621call setCor(cor, upp, cor, lowDia)
623+1.600000E+01,
+9.265060E-01,
-1.618534E-02,
+1.524380E-01
624+7.412047E+00,
+4.000000E+00,
-3.651294E-01,
+2.313942E-01
625-1.942240E-01,
-2.190776E+00,
+9.000000E+00,
+8.615566E-02
626+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.600000E+01
629call setCor(cor, lowDia, cor, uppDia)
631+1.000000E+00,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
632+7.412047E+00,
+1.000000E+00,
-2.190776E+00,
+1.851153E+00
633-1.942240E-01,
-2.190776E+00,
+1.000000E+00,
+1.033868E+00
634+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.000000E+00
637call setCor(cor, lowDia, cor, lowDia)
639+1.000000E+00,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
640+9.265060E-01,
+1.000000E+00,
-2.190776E+00,
+1.851153E+00
641-1.618534E-02,
-3.651294E-01,
+1.000000E+00,
+1.033868E+00
642+1.524380E-01,
+2.313942E-01,
+8.615566E-02,
+1.000000E+00
645call setCor(cor, low, cor, uppDia)
647+1.600000E+01,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
648+9.265060E-01,
+4.000000E+00,
-2.190776E+00,
+1.851153E+00
649-1.618534E-02,
-3.651294E-01,
+9.000000E+00,
+1.033868E+00
650+1.524380E-01,
+2.313942E-01,
+8.615566E-02,
+1.600000E+01
653call setCor(cor, low, cor, lowDia)
655+1.600000E+01,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
656+9.265060E-01,
+4.000000E+00,
-2.190776E+00,
+1.851153E+00
657-1.618534E-02,
-3.651294E-01,
+9.000000E+00,
+1.033868E+00
658+1.524380E-01,
+2.313942E-01,
+8.615566E-02,
+1.600000E+01
662call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
664+1.000000E+00,
+9.265059E-01,
-1.618534E-02,
+1.524380E-01
665+7.412047E+00,
+1.000000E+00,
-3.651293E-01,
+2.313941E-01
666-1.942240E-01,
-2.190776E+00,
+1.000000E+00,
+8.615565E-02
667+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.000000E+00
670call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
672+1.000000E+00,
+9.265059E-01,
-1.618534E-02,
+1.524380E-01
673+7.412047E+00,
+1.000000E+00,
-3.651293E-01,
+2.313941E-01
674-1.942240E-01,
-2.190776E+00,
+1.000000E+00,
+8.615565E-02
675+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.000000E+00
678call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
680+16.0000000,
+0.926505864,
-0.161853358E-1,
+0.152438030
681+7.41204691,
+3.99999976,
-0.365129322,
+0.231394112
682-0.194224030,
-2.19077587,
+9.00000000,
+0.861556530E-1
683+2.43900847,
+1.85115290,
+1.03386784,
+15.9999981
686call setCor(cor, upp, cor, low, stdinv
= 1 / std)
688+1.600000E+01,
+9.265059E-01,
-1.618534E-02,
+1.524380E-01
689+7.412047E+00,
+4.000000E+00,
-3.651293E-01,
+2.313941E-01
690-1.942240E-01,
-2.190776E+00,
+9.000000E+00,
+8.615565E-02
691+2.439008E+00,
+1.851153E+00,
+1.033868E+00,
+1.600000E+01
694call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
696+1.000000E+00,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
697+9.265059E-01,
+1.000000E+00,
-2.190776E+00,
+1.851153E+00
698-1.618534E-02,
-3.651293E-01,
+1.000000E+00,
+1.033868E+00
699+1.524380E-01,
+2.313941E-01,
+8.615565E-02,
+1.000000E+00
702call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
704+1.000000E+00,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
705+9.265059E-01,
+1.000000E+00,
-2.190776E+00,
+1.851153E+00
706-1.618534E-02,
-3.651293E-01,
+1.000000E+00,
+1.033868E+00
707+1.524380E-01,
+2.313941E-01,
+8.615565E-02,
+1.000000E+00
710call setCor(cor, low, cor, upp, stdinv
= 1 / std)
712+1.600000E+01,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
713+9.265059E-01,
+4.000000E+00,
-2.190776E+00,
+1.851153E+00
714-1.618534E-02,
-3.651293E-01,
+9.000000E+00,
+1.033868E+00
715+1.524380E-01,
+2.313941E-01,
+8.615565E-02,
+1.600000E+01
718call setCor(cor, low, cor, low, stdinv
= 1 / std)
720+1.600000E+01,
+7.412047E+00,
-1.942240E-01,
+2.439008E+00
721+9.265059E-01,
+4.000000E+00,
-2.190776E+00,
+1.851153E+00
722-1.618534E-02,
-3.651293E-01,
+9.000000E+00,
+1.033868E+00
723+1.524380E-01,
+2.313941E-01,
+8.615565E-02,
+1.600000E+01
731+1.000000E+00,
+2.000000E+00
734+1.000000E+00,
+1.768927E+00
735+1.768927E+00,
+4.000000E+00
739call setCor(cor, uppDia, cor, uppDia)
741+1.000000E+00,
+8.844635E-01
742+1.768927E+00,
+1.000000E+00
745call setCor(cor, uppDia, cor, lowDia)
747+1.000000E+00,
+8.844635E-01
748+1.768927E+00,
+1.000000E+00
751call setCor(cor, upp, cor, uppDia)
753+1.000000E+00,
+8.844635E-01
754+1.768927E+00,
+4.000000E+00
757call setCor(cor, upp, cor, lowDia)
759+1.000000E+00,
+8.844635E-01
760+1.768927E+00,
+4.000000E+00
763call setCor(cor, lowDia, cor, uppDia)
765+1.000000E+00,
+1.768927E+00
766+1.768927E+00,
+1.000000E+00
769call setCor(cor, lowDia, cor, lowDia)
771+1.000000E+00,
+1.768927E+00
772+8.844635E-01,
+1.000000E+00
775call setCor(cor, low, cor, uppDia)
777+1.000000E+00,
+1.768927E+00
778+8.844635E-01,
+4.000000E+00
781call setCor(cor, low, cor, lowDia)
783+1.000000E+00,
+1.768927E+00
784+8.844635E-01,
+4.000000E+00
788call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
790+1.000000E+00,
+8.844634E-01
791+1.768927E+00,
+1.000000E+00
794call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
796+1.000000E+00,
+8.844634E-01
797+1.768927E+00,
+1.000000E+00
800call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
802+1.00000000,
+0.884463370
803+1.76892674,
+3.99999976
806call setCor(cor, upp, cor, low, stdinv
= 1 / std)
808+1.000000E+00,
+8.844634E-01
809+1.768927E+00,
+4.000000E+00
812call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
814+1.000000E+00,
+1.768927E+00
815+8.844634E-01,
+1.000000E+00
818call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
820+1.000000E+00,
+1.768927E+00
821+8.844634E-01,
+1.000000E+00
824call setCor(cor, low, cor, upp, stdinv
= 1 / std)
826+1.000000E+00,
+1.768927E+00
827+8.844634E-01,
+4.000000E+00
830call setCor(cor, low, cor, low, stdinv
= 1 / std)
832+1.000000E+00,
+1.768927E+00
833+8.844634E-01,
+4.000000E+00
841+3.000000E+00,
+2.000000E+00,
+4.000000E+00,
+2.000000E+00
844+9.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
845+5.530821E+00,
+4.000000E+00,
-6.607532E+00,
-3.342036E+00
846-1.050892E+01,
-6.607532E+00,
+1.600000E+01,
+4.399990E+00
847-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+4.000000E+00
851call setCor(cor, uppDia, cor, uppDia)
853+1.000000E+00,
+9.218036E-01,
-8.757436E-01,
-6.214790E-01
854+5.530821E+00,
+1.000000E+00,
-8.259416E-01,
-8.355091E-01
855-1.050892E+01,
-6.607532E+00,
+1.000000E+00,
+5.499988E-01
856-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+1.000000E+00
859call setCor(cor, uppDia, cor, lowDia)
861+1.000000E+00,
+9.218036E-01,
-8.757436E-01,
-6.214790E-01
862+5.530821E+00,
+1.000000E+00,
-8.259416E-01,
-8.355091E-01
863-1.050892E+01,
-6.607532E+00,
+1.000000E+00,
+5.499988E-01
864-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+1.000000E+00
867call setCor(cor, upp, cor, uppDia)
869+9.000000E+00,
+9.218036E-01,
-8.757436E-01,
-6.214790E-01
870+5.530821E+00,
+4.000000E+00,
-8.259416E-01,
-8.355091E-01
871-1.050892E+01,
-6.607532E+00,
+1.600000E+01,
+5.499988E-01
872-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+4.000000E+00
875call setCor(cor, upp, cor, lowDia)
877+9.000000E+00,
+9.218036E-01,
-8.757436E-01,
-6.214790E-01
878+5.530821E+00,
+4.000000E+00,
-8.259416E-01,
-8.355091E-01
879-1.050892E+01,
-6.607532E+00,
+1.600000E+01,
+5.499988E-01
880-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+4.000000E+00
883call setCor(cor, lowDia, cor, uppDia)
885+1.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
886+5.530821E+00,
+1.000000E+00,
-6.607532E+00,
-3.342036E+00
887-1.050892E+01,
-6.607532E+00,
+1.000000E+00,
+4.399990E+00
888-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+1.000000E+00
891call setCor(cor, lowDia, cor, lowDia)
893+1.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
894+9.218036E-01,
+1.000000E+00,
-6.607532E+00,
-3.342036E+00
895-8.757436E-01,
-8.259416E-01,
+1.000000E+00,
+4.399990E+00
896-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+1.000000E+00
899call setCor(cor, low, cor, uppDia)
901+9.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
902+9.218036E-01,
+4.000000E+00,
-6.607532E+00,
-3.342036E+00
903-8.757436E-01,
-8.259416E-01,
+1.600000E+01,
+4.399990E+00
904-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+4.000000E+00
907call setCor(cor, low, cor, lowDia)
909+9.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
910+9.218036E-01,
+4.000000E+00,
-6.607532E+00,
-3.342036E+00
911-8.757436E-01,
-8.259416E-01,
+1.600000E+01,
+4.399990E+00
912-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+4.000000E+00
916call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
918+1.000000E+00,
+9.218036E-01,
-8.757435E-01,
-6.214790E-01
919+5.530821E+00,
+1.000000E+00,
-8.259415E-01,
-8.355091E-01
920-1.050892E+01,
-6.607532E+00,
+1.000000E+00,
+5.499988E-01
921-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+1.000000E+00
924call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
926+1.000000E+00,
+9.218036E-01,
-8.757435E-01,
-6.214790E-01
927+5.530821E+00,
+1.000000E+00,
-8.259415E-01,
-8.355091E-01
928-1.050892E+01,
-6.607532E+00,
+1.000000E+00,
+5.499988E-01
929-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+1.000000E+00
932call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
934+9.00000000,
+0.921803594,
-0.875743508,
-0.621478975
935+5.53082132,
+4.00000048,
-0.825941503,
-0.835509062
936-10.5089216,
-6.60753202,
+15.9999971,
+0.549998760
937-3.72887373,
-3.34203625,
+4.39999008,
+4.00000048
940call setCor(cor, upp, cor, low, stdinv
= 1 / std)
942+9.000000E+00,
+9.218036E-01,
-8.757435E-01,
-6.214790E-01
943+5.530821E+00,
+4.000000E+00,
-8.259415E-01,
-8.355091E-01
944-1.050892E+01,
-6.607532E+00,
+1.600000E+01,
+5.499988E-01
945-3.728874E+00,
-3.342036E+00,
+4.399990E+00,
+4.000000E+00
948call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
950+1.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
951+9.218036E-01,
+1.000000E+00,
-6.607532E+00,
-3.342036E+00
952-8.757435E-01,
-8.259415E-01,
+1.000000E+00,
+4.399990E+00
953-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+1.000000E+00
956call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
958+1.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
959+9.218036E-01,
+1.000000E+00,
-6.607532E+00,
-3.342036E+00
960-8.757435E-01,
-8.259415E-01,
+1.000000E+00,
+4.399990E+00
961-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+1.000000E+00
964call setCor(cor, low, cor, upp, stdinv
= 1 / std)
966+9.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
967+9.218036E-01,
+4.000000E+00,
-6.607532E+00,
-3.342036E+00
968-8.757435E-01,
-8.259415E-01,
+1.600000E+01,
+4.399990E+00
969-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+4.000000E+00
972call setCor(cor, low, cor, low, stdinv
= 1 / std)
974+9.000000E+00,
+5.530821E+00,
-1.050892E+01,
-3.728874E+00
975+9.218036E-01,
+4.000000E+00,
-6.607532E+00,
-3.342036E+00
976-8.757435E-01,
-8.259415E-01,
+1.600000E+01,
+4.399990E+00
977-6.214790E-01,
-8.355091E-01,
+5.499988E-01,
+4.000000E+00
991call setCor(cor, uppDia, cor, uppDia)
995call setCor(cor, uppDia, cor, lowDia)
999call setCor(cor, upp, cor, uppDia)
1003call setCor(cor, upp, cor, lowDia)
1007call setCor(cor, lowDia, cor, uppDia)
1011call setCor(cor, lowDia, cor, lowDia)
1015call setCor(cor, low, cor, uppDia)
1019call setCor(cor, low, cor, lowDia)
1024call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
1028call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
1032call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
1036call setCor(cor, upp, cor, low, stdinv
= 1 / std)
1040call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
1044call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
1048call setCor(cor, low, cor, upp, stdinv
= 1 / std)
1052call setCor(cor, low, cor, low, stdinv
= 1 / std)
1062ndim
= 2; nsam
= 10; dim
= 2
1063sample
= reshape(
getUnifRand(
1,
20, ndim
* nsam), shape
= [ndim, nsam], order
= [
2,
1])
1065+1.300000E+01,
+1.000000E+00,
+1.600000E+01,
+1.000000E+01,
+1.100000E+01,
+1.000000E+01,
+1.000000E+00,
+5.000000E+00,
+1.500000E+01,
+1.200000E+01
1066+1.600000E+01,
+5.000000E+00,
+3.000000E+00,
+2.000000E+01,
+1.800000E+01,
+1.700000E+01,
+6.000000E+00,
+1.000000E+01,
+7.000000E+00,
+1.800000E+01
1069+9.400001E+00,
+1.200000E+01
1072+3.599999E+00,
-8.400001E+00,
+6.599999E+00,
+5.999994E-01,
+1.599999E+00,
+5.999994E-01,
-8.400001E+00,
-4.400001E+00,
+5.599999E+00,
+2.599999E+00
1073+4.000000E+00,
-7.000000E+00,
-9.000000E+00,
+8.000000E+00,
+6.000000E+00,
+5.000000E+00,
-6.000000E+00,
-2.000000E+00,
-5.000000E+00,
+6.000000E+00
1075call setCor(cor, uppDia, mean, sample, dim)
1077+1.000000E+00,
+2.515804E-01
1078+0.000000E+00,
+1.000000E+00
1080call setCor(cor, uppDia, samShifted, dim)
1082+1.000000E+00,
+2.515804E-01
1083+0.000000E+00,
+1.000000E+00
1086call setCor(cor, lowDia, mean, sample, dim)
1088+1.000000E+00,
+0.000000E+00
1089+2.515804E-01,
+1.000000E+00
1091call setCor(cor, lowDia, samShifted, dim)
1093+1.000000E+00,
+0.000000E+00
1094+2.515804E-01,
+1.000000E+00
1096'Compute the sample correlation along the first dimension.'
1100call setCor(cor, uppDia, mean,
transpose(sample), dim)
1102+1.000000E+00,
+2.515804E-01
1103+0.000000E+00,
+1.000000E+00
1105call setCor(cor, uppDia,
transpose(samShifted), dim)
1107+1.000000E+00,
+2.515804E-01
1108+0.000000E+00,
+1.000000E+00
1111call setCor(cor, lowDia, mean,
transpose(sample), dim)
1113+1.000000E+00,
+0.000000E+00
1114+2.515804E-01,
+1.000000E+00
1116call setCor(cor, lowDia,
transpose(samShifted), dim)
1118+1.000000E+00,
+0.000000E+00
1119+2.515804E-01,
+1.000000E+00
1121'Compute the full sample correlation for a pair of time series.'
1123call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:))
1126call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:))
1137ndim
= 2; nsam
= 10; dim
= 2
1138sample
= reshape(
getUnifRand(
1,
20, ndim
* nsam), shape
= [ndim, nsam], order
= [
2,
1])
1140+1.500000E+01,
+4.000000E+00,
+1.000000E+01,
+1.000000E+00,
+1.300000E+01,
+1.600000E+01,
+1.400000E+01,
+1.300000E+01,
+9.000000E+00,
+5.000000E+00
1141+1.300000E+01,
+1.400000E+01,
+1.700000E+01,
+3.000000E+00,
+1.600000E+01,
+1.000000E+00,
+8.000000E+00,
+1.500000E+01,
+1.900000E+01,
+5.000000E+00
1145+2,
+3,
+10,
+1,
+9,
+10,
+4,
+9,
+5,
+10
1146call setMean(mean, sample, dim, iweight, iweisum)
1148+1.092064E+01,
+1.122222E+01
1153+2,
+3,
+10,
+1,
+9,
+10,
+4,
+9,
+5,
+10
1154call setMean(mean, sample, dim, rweight, rweisum)
1156+1.092064E+01,
+1.122222E+01
1166+4.079365E+00,
-6.920635E+00,
-9.206352E-01,
-9.920635E+00,
+2.079365E+00,
+5.079365E+00,
+3.079365E+00,
+2.079365E+00,
-1.920635E+00,
-5.920635E+00
1167+1.777777E+00,
+2.777777E+00,
+5.777777E+00,
-8.222223E+00,
+4.777777E+00,
-1.022222E+01,
-3.222223E+00,
+3.777777E+00,
+7.777777E+00,
-6.222223E+00
1169call setCor(cor, uppDia, mean, sample, dim, iweight, iweisum)
1171+1.000000E+00,
-7.423090E-02
1172+0.000000E+00,
+1.000000E+00
1174call setCor(cor, uppDia, samShifted, dim, iweight, iweisum)
1176+1.000000E+00,
-7.423090E-02
1177+0.000000E+00,
+1.000000E+00
1180call setCor(cor, lowDia, mean, sample, dim, iweight, iweisum)
1182+1.000000E+00,
+0.000000E+00
1183-7.423091E-02,
+1.000000E+00
1185call setCor(cor, lowDia, samShifted, dim, iweight, iweisum)
1187+1.000000E+00,
+0.000000E+00
1188-7.423091E-02,
+1.000000E+00
1190call setCor(cor, lowDia,
getVerbose(samShifted, iweight,
sum(iweight), dim), dim)
1192+1.000000E+00,
+0.000000E+00
1193-7.423089E-02,
+1.000000E+00
1195'Compute the sample correlation along the first dimension.'
1199call setCor(cor, uppDia, mean,
transpose(sample), dim, iweight, iweisum)
1201+1.000000E+00,
-7.423090E-02
1202+0.000000E+00,
+1.000000E+00
1204call setCor(cor, uppDia,
transpose(samShifted), dim, iweight, iweisum)
1206+1.000000E+00,
-7.423090E-02
1207+0.000000E+00,
+1.000000E+00
1210call setCor(cor, lowDia, mean,
transpose(sample), dim, iweight, iweisum)
1212+1.000000E+00,
+0.000000E+00
1213-7.423091E-02,
+1.000000E+00
1215call setCor(cor, lowDia,
transpose(samShifted), dim, iweight, iweisum)
1217+1.000000E+00,
+0.000000E+00
1218-7.423091E-02,
+1.000000E+00
1220'Compute the full sample correlation for a pair of time series.'
1222call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:), iweight, iweisum)
1225call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:), iweight, iweisum)
1237+4.07936478,
-6.92063522,
-0.920635223,
-9.92063522,
+2.07936478,
+5.07936478,
+3.07936478,
+2.07936478,
-1.92063522,
-5.92063522
1238+1.77777672,
+2.77777672,
+5.77777672,
-8.22222328,
+4.77777672,
-10.2222233,
-3.22222328,
+3.77777672,
+7.77777672,
-6.22222328
1240call setCor(cor, uppDia, mean, sample, dim, rweight, rweisum)
1242+1.000000E+00,
-7.423090E-02
1243+0.000000E+00,
+1.000000E+00
1245call setCor(cor, uppDia, samShifted, dim, rweight, rweisum)
1247+1.000000E+00,
-7.423090E-02
1248+0.000000E+00,
+1.000000E+00
1251call setCor(cor, lowDia, mean, sample, dim, rweight, rweisum)
1253+1.000000E+00,
+0.000000E+00
1254-7.423091E-02,
+1.000000E+00
1256call setCor(cor, lowDia, samShifted, dim, rweight, rweisum)
1258+1.000000E+00,
+0.000000E+00
1259-7.423091E-02,
+1.000000E+00
1261'Compute the sample correlation along the first dimension.'
1265call setCor(cor, uppDia, mean,
transpose(sample), dim, rweight, rweisum)
1267+1.000000E+00,
-7.423090E-02
1268+0.000000E+00,
+1.000000E+00
1270call setCor(cor, uppDia,
transpose(samShifted), dim, rweight, rweisum)
1272+1.000000E+00,
-7.423090E-02
1273+0.000000E+00,
+1.000000E+00
1276call setCor(cor, lowDia, mean,
transpose(sample), dim, rweight, rweisum)
1278+1.000000E+00,
+0.000000E+00
1279-7.423091E-02,
+1.000000E+00
1281call setCor(cor, lowDia,
transpose(samShifted), dim, rweight, rweisum)
1283+1.000000E+00,
+0.000000E+00
1284-7.423091E-02,
+1.000000E+00
1286'Compute the full sample correlation for a pair of time series.'
1288call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:), rweight, rweisum)
1291call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:), rweight, rweisum)