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)
88+2.000000E+00,
+1.000000E+00,
+3.000000E+00,
+1.000000E+00
91+4.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
92-1.033379E+00,
+9.999999E-01,
+1.892676E+00,
-3.661638E-01
93-5.841490E+00,
+1.892676E+00,
+9.000002E+00,
-1.619798E+00
94+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
98call setCor(cor, uppDia, cor, uppDia)
100+1.000000E+00,
-5.166894E-01,
-9.735816E-01,
+6.258060E-01
101-1.033379E+00,
+1.000000E+00,
+6.308920E-01,
-3.661639E-01
102-5.841490E+00,
+1.892676E+00,
+1.000000E+00,
-5.399325E-01
103+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
106call setCor(cor, uppDia, cor, lowDia)
108+1.000000E+00,
-5.166894E-01,
-9.735816E-01,
+6.258060E-01
109-1.033379E+00,
+1.000000E+00,
+6.308920E-01,
-3.661639E-01
110-5.841490E+00,
+1.892676E+00,
+1.000000E+00,
-5.399325E-01
111+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
114call setCor(cor, upp, cor, uppDia)
116+4.000000E+00,
-5.166894E-01,
-9.735816E-01,
+6.258060E-01
117-1.033379E+00,
+9.999999E-01,
+6.308920E-01,
-3.661639E-01
118-5.841490E+00,
+1.892676E+00,
+9.000002E+00,
-5.399325E-01
119+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
122call setCor(cor, upp, cor, lowDia)
124+4.000000E+00,
-5.166894E-01,
-9.735816E-01,
+6.258060E-01
125-1.033379E+00,
+9.999999E-01,
+6.308920E-01,
-3.661639E-01
126-5.841490E+00,
+1.892676E+00,
+9.000002E+00,
-5.399325E-01
127+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
130call setCor(cor, lowDia, cor, uppDia)
132+1.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
133-1.033379E+00,
+1.000000E+00,
+1.892676E+00,
-3.661638E-01
134-5.841490E+00,
+1.892676E+00,
+1.000000E+00,
-1.619798E+00
135+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
138call setCor(cor, lowDia, cor, lowDia)
140+1.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
141-5.166894E-01,
+1.000000E+00,
+1.892676E+00,
-3.661638E-01
142-9.735816E-01,
+6.308920E-01,
+1.000000E+00,
-1.619798E+00
143+6.258060E-01,
-3.661639E-01,
-5.399325E-01,
+1.000000E+00
146call setCor(cor, low, cor, uppDia)
148+4.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
149-5.166894E-01,
+9.999999E-01,
+1.892676E+00,
-3.661638E-01
150-9.735816E-01,
+6.308920E-01,
+9.000002E+00,
-1.619798E+00
151+6.258060E-01,
-3.661639E-01,
-5.399325E-01,
+1.000000E+00
154call setCor(cor, low, cor, lowDia)
156+4.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
157-5.166894E-01,
+9.999999E-01,
+1.892676E+00,
-3.661638E-01
158-9.735816E-01,
+6.308920E-01,
+9.000002E+00,
-1.619798E+00
159+6.258060E-01,
-3.661639E-01,
-5.399325E-01,
+1.000000E+00
163call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
165+1.000000E+00,
-5.166894E-01,
-9.735817E-01,
+6.258060E-01
166-1.033379E+00,
+1.000000E+00,
+6.308920E-01,
-3.661638E-01
167-5.841490E+00,
+1.892676E+00,
+1.000000E+00,
-5.399326E-01
168+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
171call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
173+1.000000E+00,
-5.166894E-01,
-9.735817E-01,
+6.258060E-01
174-1.033379E+00,
+1.000000E+00,
+6.308920E-01,
-3.661638E-01
175-5.841490E+00,
+1.892676E+00,
+1.000000E+00,
-5.399326E-01
176+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
179call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
181+4.00000000,
-0.516689360,
-0.973581672,
+0.625806034
182-1.03337872,
+0.999999940,
+0.630891979,
-0.366163850
183-5.84148979,
+1.89267588,
+9.00000191,
-0.539932609
184+1.25161207,
-0.366163850,
-1.61979783,
+1.00000000
187call setCor(cor, upp, cor, low, stdinv
= 1 / std)
189+4.000000E+00,
-5.166894E-01,
-9.735817E-01,
+6.258060E-01
190-1.033379E+00,
+9.999999E-01,
+6.308920E-01,
-3.661638E-01
191-5.841490E+00,
+1.892676E+00,
+9.000002E+00,
-5.399326E-01
192+1.251612E+00,
-3.661638E-01,
-1.619798E+00,
+1.000000E+00
195call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
197+1.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
198-5.166894E-01,
+1.000000E+00,
+1.892676E+00,
-3.661638E-01
199-9.735817E-01,
+6.308920E-01,
+1.000000E+00,
-1.619798E+00
200+6.258060E-01,
-3.661638E-01,
-5.399326E-01,
+1.000000E+00
203call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
205+1.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
206-5.166894E-01,
+1.000000E+00,
+1.892676E+00,
-3.661638E-01
207-9.735817E-01,
+6.308920E-01,
+1.000000E+00,
-1.619798E+00
208+6.258060E-01,
-3.661638E-01,
-5.399326E-01,
+1.000000E+00
211call setCor(cor, low, cor, upp, stdinv
= 1 / std)
213+4.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
214-5.166894E-01,
+9.999999E-01,
+1.892676E+00,
-3.661638E-01
215-9.735817E-01,
+6.308920E-01,
+9.000002E+00,
-1.619798E+00
216+6.258060E-01,
-3.661638E-01,
-5.399326E-01,
+1.000000E+00
219call setCor(cor, low, cor, low, stdinv
= 1 / std)
221+4.000000E+00,
-1.033379E+00,
-5.841490E+00,
+1.251612E+00
222-5.166894E-01,
+9.999999E-01,
+1.892676E+00,
-3.661638E-01
223-9.735817E-01,
+6.308920E-01,
+9.000002E+00,
-1.619798E+00
224+6.258060E-01,
-3.661638E-01,
-5.399326E-01,
+1.000000E+00
238call setCor(cor, uppDia, cor, uppDia)
242call setCor(cor, uppDia, cor, lowDia)
246call setCor(cor, upp, cor, uppDia)
250call setCor(cor, upp, cor, lowDia)
254call setCor(cor, lowDia, cor, uppDia)
258call setCor(cor, lowDia, cor, lowDia)
262call setCor(cor, low, cor, uppDia)
266call setCor(cor, low, cor, lowDia)
271call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
275call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
279call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
283call setCor(cor, upp, cor, low, stdinv
= 1 / std)
287call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
291call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
295call setCor(cor, low, cor, upp, stdinv
= 1 / std)
299call setCor(cor, low, cor, low, stdinv
= 1 / std)
308+2.000000E+00,
+3.000000E+00,
+4.000000E+00,
+4.000000E+00
311+4.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
312-2.730345E+00,
+9.000000E+00,
+8.524410E+00,
+2.967734E+00
313-2.237197E+00,
+8.524410E+00,
+1.600000E+01,
-3.488663E+00
314-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.600000E+01
318call setCor(cor, uppDia, cor, uppDia)
320+1.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
321-2.730345E+00,
+1.000000E+00,
+7.103676E-01,
+2.473111E-01
322-2.237197E+00,
+8.524410E+00,
+1.000000E+00,
-2.180414E-01
323-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.000000E+00
326call setCor(cor, uppDia, cor, lowDia)
328+1.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
329-2.730345E+00,
+1.000000E+00,
+7.103676E-01,
+2.473111E-01
330-2.237197E+00,
+8.524410E+00,
+1.000000E+00,
-2.180414E-01
331-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.000000E+00
334call setCor(cor, upp, cor, uppDia)
336+4.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
337-2.730345E+00,
+9.000000E+00,
+7.103676E-01,
+2.473111E-01
338-2.237197E+00,
+8.524410E+00,
+1.600000E+01,
-2.180414E-01
339-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.600000E+01
342call setCor(cor, upp, cor, lowDia)
344+4.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
345-2.730345E+00,
+9.000000E+00,
+7.103676E-01,
+2.473111E-01
346-2.237197E+00,
+8.524410E+00,
+1.600000E+01,
-2.180414E-01
347-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.600000E+01
350call setCor(cor, lowDia, cor, uppDia)
352+1.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
353-2.730345E+00,
+1.000000E+00,
+8.524410E+00,
+2.967734E+00
354-2.237197E+00,
+8.524410E+00,
+1.000000E+00,
-3.488663E+00
355-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.000000E+00
358call setCor(cor, lowDia, cor, lowDia)
360+1.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
361-4.550575E-01,
+1.000000E+00,
+8.524410E+00,
+2.967734E+00
362-2.796496E-01,
+7.103676E-01,
+1.000000E+00,
-3.488663E+00
363-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.000000E+00
366call setCor(cor, low, cor, uppDia)
368+4.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
369-4.550575E-01,
+9.000000E+00,
+8.524410E+00,
+2.967734E+00
370-2.796496E-01,
+7.103676E-01,
+1.600000E+01,
-3.488663E+00
371-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.600000E+01
374call setCor(cor, low, cor, lowDia)
376+4.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
377-4.550575E-01,
+9.000000E+00,
+8.524410E+00,
+2.967734E+00
378-2.796496E-01,
+7.103676E-01,
+1.600000E+01,
-3.488663E+00
379-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.600000E+01
383call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
385+1.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
386-2.730345E+00,
+1.000000E+00,
+7.103676E-01,
+2.473111E-01
387-2.237197E+00,
+8.524410E+00,
+1.000000E+00,
-2.180414E-01
388-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.000000E+00
391call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
393+1.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
394-2.730345E+00,
+1.000000E+00,
+7.103676E-01,
+2.473111E-01
395-2.237197E+00,
+8.524410E+00,
+1.000000E+00,
-2.180414E-01
396-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.000000E+00
399call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
401+4.00000000,
-0.455057472,
-0.279649615,
-0.423663676
402-2.73034477,
+9.00000000,
+0.710367560,
+0.247311145
403-2.23719692,
+8.52441025,
+15.9999990,
-0.218041420
404-3.38930941,
+2.96773362,
-3.48866272,
+16.0000000
407call setCor(cor, upp, cor, low, stdinv
= 1 / std)
409+4.000000E+00,
-4.550575E-01,
-2.796496E-01,
-4.236637E-01
410-2.730345E+00,
+9.000000E+00,
+7.103676E-01,
+2.473111E-01
411-2.237197E+00,
+8.524410E+00,
+1.600000E+01,
-2.180414E-01
412-3.389309E+00,
+2.967734E+00,
-3.488663E+00,
+1.600000E+01
415call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
417+1.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
418-4.550575E-01,
+1.000000E+00,
+8.524410E+00,
+2.967734E+00
419-2.796496E-01,
+7.103676E-01,
+1.000000E+00,
-3.488663E+00
420-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.000000E+00
423call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
425+1.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
426-4.550575E-01,
+1.000000E+00,
+8.524410E+00,
+2.967734E+00
427-2.796496E-01,
+7.103676E-01,
+1.000000E+00,
-3.488663E+00
428-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.000000E+00
431call setCor(cor, low, cor, upp, stdinv
= 1 / std)
433+4.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
434-4.550575E-01,
+9.000000E+00,
+8.524410E+00,
+2.967734E+00
435-2.796496E-01,
+7.103676E-01,
+1.600000E+01,
-3.488663E+00
436-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.600000E+01
439call setCor(cor, low, cor, low, stdinv
= 1 / std)
441+4.000000E+00,
-2.730345E+00,
-2.237197E+00,
-3.389309E+00
442-4.550575E-01,
+9.000000E+00,
+8.524410E+00,
+2.967734E+00
443-2.796496E-01,
+7.103676E-01,
+1.600000E+01,
-3.488663E+00
444-4.236637E-01,
+2.473111E-01,
-2.180414E-01,
+1.600000E+01
459call setCor(cor, uppDia, cor, uppDia)
464call setCor(cor, uppDia, cor, lowDia)
469call setCor(cor, upp, cor, uppDia)
474call setCor(cor, upp, cor, lowDia)
479call setCor(cor, lowDia, cor, uppDia)
484call setCor(cor, lowDia, cor, lowDia)
489call setCor(cor, low, cor, uppDia)
494call setCor(cor, low, cor, lowDia)
500call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
505call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
510call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
515call setCor(cor, upp, cor, low, stdinv
= 1 / std)
520call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
525call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
530call setCor(cor, low, cor, upp, stdinv
= 1 / std)
535call setCor(cor, low, cor, low, stdinv
= 1 / std)
552call setCor(cor, uppDia, cor, uppDia)
557call setCor(cor, uppDia, cor, lowDia)
562call setCor(cor, upp, cor, uppDia)
567call setCor(cor, upp, cor, lowDia)
572call setCor(cor, lowDia, cor, uppDia)
577call setCor(cor, lowDia, cor, lowDia)
582call setCor(cor, low, cor, uppDia)
587call setCor(cor, low, cor, lowDia)
593call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
598call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
603call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
608call setCor(cor, upp, cor, low, stdinv
= 1 / std)
613call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
618call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
623call setCor(cor, low, cor, upp, stdinv
= 1 / std)
628call setCor(cor, low, cor, low, stdinv
= 1 / std)
638+1.000000E+00,
+2.000000E+00
641+1.000000E+00,
-1.999785E+00
642-1.999785E+00,
+4.000000E+00
646call setCor(cor, uppDia, cor, uppDia)
648+1.000000E+00,
-9.998927E-01
649-1.999785E+00,
+1.000000E+00
652call setCor(cor, uppDia, cor, lowDia)
654+1.000000E+00,
-9.998927E-01
655-1.999785E+00,
+1.000000E+00
658call setCor(cor, upp, cor, uppDia)
660+1.000000E+00,
-9.998927E-01
661-1.999785E+00,
+4.000000E+00
664call setCor(cor, upp, cor, lowDia)
666+1.000000E+00,
-9.998927E-01
667-1.999785E+00,
+4.000000E+00
670call setCor(cor, lowDia, cor, uppDia)
672+1.000000E+00,
-1.999785E+00
673-1.999785E+00,
+1.000000E+00
676call setCor(cor, lowDia, cor, lowDia)
678+1.000000E+00,
-1.999785E+00
679-9.998927E-01,
+1.000000E+00
682call setCor(cor, low, cor, uppDia)
684+1.000000E+00,
-1.999785E+00
685-9.998927E-01,
+4.000000E+00
688call setCor(cor, low, cor, lowDia)
690+1.000000E+00,
-1.999785E+00
691-9.998927E-01,
+4.000000E+00
695call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
697+1.000000E+00,
-9.998927E-01
698-1.999785E+00,
+1.000000E+00
701call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
703+1.000000E+00,
-9.998927E-01
704-1.999785E+00,
+1.000000E+00
707call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
709+1.00000000,
-0.999892652
710-1.99978530,
+4.00000000
713call setCor(cor, upp, cor, low, stdinv
= 1 / std)
715+1.000000E+00,
-9.998927E-01
716-1.999785E+00,
+4.000000E+00
719call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
721+1.000000E+00,
-1.999785E+00
722-9.998927E-01,
+1.000000E+00
725call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
727+1.000000E+00,
-1.999785E+00
728-9.998927E-01,
+1.000000E+00
731call setCor(cor, low, cor, upp, stdinv
= 1 / std)
733+1.000000E+00,
-1.999785E+00
734-9.998927E-01,
+4.000000E+00
737call setCor(cor, low, cor, low, stdinv
= 1 / std)
739+1.000000E+00,
-1.999785E+00
740-9.998927E-01,
+4.000000E+00
748+2.000000E+00,
+2.000000E+00
751+4.000000E+00,
+2.328817E+00
752+2.328817E+00,
+4.000000E+00
756call setCor(cor, uppDia, cor, uppDia)
758+1.000000E+00,
+5.822042E-01
759+2.328817E+00,
+1.000000E+00
762call setCor(cor, uppDia, cor, lowDia)
764+1.000000E+00,
+5.822042E-01
765+2.328817E+00,
+1.000000E+00
768call setCor(cor, upp, cor, uppDia)
770+4.000000E+00,
+5.822042E-01
771+2.328817E+00,
+4.000000E+00
774call setCor(cor, upp, cor, lowDia)
776+4.000000E+00,
+5.822042E-01
777+2.328817E+00,
+4.000000E+00
780call setCor(cor, lowDia, cor, uppDia)
782+1.000000E+00,
+2.328817E+00
783+2.328817E+00,
+1.000000E+00
786call setCor(cor, lowDia, cor, lowDia)
788+1.000000E+00,
+2.328817E+00
789+5.822042E-01,
+1.000000E+00
792call setCor(cor, low, cor, uppDia)
794+4.000000E+00,
+2.328817E+00
795+5.822042E-01,
+4.000000E+00
798call setCor(cor, low, cor, lowDia)
800+4.000000E+00,
+2.328817E+00
801+5.822042E-01,
+4.000000E+00
805call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
807+1.000000E+00,
+5.822042E-01
808+2.328817E+00,
+1.000000E+00
811call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
813+1.000000E+00,
+5.822042E-01
814+2.328817E+00,
+1.000000E+00
817call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
819+4.00000000,
+0.582204163
820+2.32881665,
+4.00000048
823call setCor(cor, upp, cor, low, stdinv
= 1 / std)
825+4.000000E+00,
+5.822042E-01
826+2.328817E+00,
+4.000000E+00
829call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
831+1.000000E+00,
+2.328817E+00
832+5.822042E-01,
+1.000000E+00
835call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
837+1.000000E+00,
+2.328817E+00
838+5.822042E-01,
+1.000000E+00
841call setCor(cor, low, cor, upp, stdinv
= 1 / std)
843+4.000000E+00,
+2.328817E+00
844+5.822042E-01,
+4.000000E+00
847call setCor(cor, low, cor, low, stdinv
= 1 / std)
849+4.000000E+00,
+2.328817E+00
850+5.822042E-01,
+4.000000E+00
858+1.000000E+00,
+1.000000E+00
861+9.999999E-01,
+7.193822E-01
862+7.193822E-01,
+1.000000E+00
866call setCor(cor, uppDia, cor, uppDia)
868+1.000000E+00,
+7.193822E-01
869+7.193822E-01,
+1.000000E+00
872call setCor(cor, uppDia, cor, lowDia)
874+1.000000E+00,
+7.193822E-01
875+7.193822E-01,
+1.000000E+00
878call setCor(cor, upp, cor, uppDia)
880+9.999999E-01,
+7.193822E-01
881+7.193822E-01,
+1.000000E+00
884call setCor(cor, upp, cor, lowDia)
886+9.999999E-01,
+7.193822E-01
887+7.193822E-01,
+1.000000E+00
890call setCor(cor, lowDia, cor, uppDia)
892+1.000000E+00,
+7.193822E-01
893+7.193822E-01,
+1.000000E+00
896call setCor(cor, lowDia, cor, lowDia)
898+1.000000E+00,
+7.193822E-01
899+7.193822E-01,
+1.000000E+00
902call setCor(cor, low, cor, uppDia)
904+9.999999E-01,
+7.193822E-01
905+7.193822E-01,
+1.000000E+00
908call setCor(cor, low, cor, lowDia)
910+9.999999E-01,
+7.193822E-01
911+7.193822E-01,
+1.000000E+00
915call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
917+1.000000E+00,
+7.193822E-01
918+7.193822E-01,
+1.000000E+00
921call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
923+1.000000E+00,
+7.193822E-01
924+7.193822E-01,
+1.000000E+00
927call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
929+0.999999881,
+0.719382167
930+0.719382167,
+1.00000000
933call setCor(cor, upp, cor, low, stdinv
= 1 / std)
935+9.999999E-01,
+7.193822E-01
936+7.193822E-01,
+1.000000E+00
939call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
941+1.000000E+00,
+7.193822E-01
942+7.193822E-01,
+1.000000E+00
945call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
947+1.000000E+00,
+7.193822E-01
948+7.193822E-01,
+1.000000E+00
951call setCor(cor, low, cor, upp, stdinv
= 1 / std)
953+9.999999E-01,
+7.193822E-01
954+7.193822E-01,
+1.000000E+00
957call setCor(cor, low, cor, low, stdinv
= 1 / std)
959+9.999999E-01,
+7.193822E-01
960+7.193822E-01,
+1.000000E+00
968+1.000000E+00,
+4.000000E+00,
+3.000000E+00,
+1.000000E+00
971+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
972-1.485865E+00,
+1.600000E+01,
-5.481150E+00,
+3.242330E+00
973+2.808865E+00,
-5.481150E+00,
+9.000002E+00,
+1.088034E-01
974-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
978call setCor(cor, uppDia, cor, uppDia)
980+1.000000E+00,
-3.714662E-01,
+9.362884E-01,
-3.269074E-02
981-1.485865E+00,
+1.000000E+00,
-4.567625E-01,
+8.105825E-01
982+2.808865E+00,
-5.481150E+00,
+1.000000E+00,
+3.626780E-02
983-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
986call setCor(cor, uppDia, cor, lowDia)
988+1.000000E+00,
-3.714662E-01,
+9.362884E-01,
-3.269074E-02
989-1.485865E+00,
+1.000000E+00,
-4.567625E-01,
+8.105825E-01
990+2.808865E+00,
-5.481150E+00,
+1.000000E+00,
+3.626780E-02
991-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
994call setCor(cor, upp, cor, uppDia)
996+1.000000E+00,
-3.714662E-01,
+9.362884E-01,
-3.269074E-02
997-1.485865E+00,
+1.600000E+01,
-4.567625E-01,
+8.105825E-01
998+2.808865E+00,
-5.481150E+00,
+9.000002E+00,
+3.626780E-02
999-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
1002call setCor(cor, upp, cor, lowDia)
1004+1.000000E+00,
-3.714662E-01,
+9.362884E-01,
-3.269074E-02
1005-1.485865E+00,
+1.600000E+01,
-4.567625E-01,
+8.105825E-01
1006+2.808865E+00,
-5.481150E+00,
+9.000002E+00,
+3.626780E-02
1007-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
1010call setCor(cor, lowDia, cor, uppDia)
1012+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1013-1.485865E+00,
+1.000000E+00,
-5.481150E+00,
+3.242330E+00
1014+2.808865E+00,
-5.481150E+00,
+1.000000E+00,
+1.088034E-01
1015-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
1018call setCor(cor, lowDia, cor, lowDia)
1020+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1021-3.714662E-01,
+1.000000E+00,
-5.481150E+00,
+3.242330E+00
1022+9.362884E-01,
-4.567625E-01,
+1.000000E+00,
+1.088034E-01
1023-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1026call setCor(cor, low, cor, uppDia)
1028+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1029-3.714662E-01,
+1.600000E+01,
-5.481150E+00,
+3.242330E+00
1030+9.362884E-01,
-4.567625E-01,
+9.000002E+00,
+1.088034E-01
1031-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1034call setCor(cor, low, cor, lowDia)
1036+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1037-3.714662E-01,
+1.600000E+01,
-5.481150E+00,
+3.242330E+00
1038+9.362884E-01,
-4.567625E-01,
+9.000002E+00,
+1.088034E-01
1039-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1043call setCor(cor, uppDia, cor, upp, stdinv
= 1 / std)
1045+1.000000E+00,
-3.714662E-01,
+9.362885E-01,
-3.269074E-02
1046-1.485865E+00,
+1.000000E+00,
-4.567625E-01,
+8.105825E-01
1047+2.808865E+00,
-5.481150E+00,
+1.000000E+00,
+3.626780E-02
1048-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
1051call setCor(cor, uppDia, cor, low, stdinv
= 1 / std)
1053+1.000000E+00,
-3.714662E-01,
+9.362885E-01,
-3.269074E-02
1054-1.485865E+00,
+1.000000E+00,
-4.567625E-01,
+8.105825E-01
1055+2.808865E+00,
-5.481150E+00,
+1.000000E+00,
+3.626780E-02
1056-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
1059call setCor(cor, upp, cor, upp, stdinv
= 1 / std)
1061+1.00000000,
-0.371466160,
+0.936288476,
-0.326907411E-1
1062-1.48586464,
+16.0000000,
-0.456762522,
+0.810582519
1063+2.80886531,
-5.48115015,
+9.00000191,
+0.362678021E-1
1064-0.326907411E-1,
+3.24233007,
+0.108803406,
+1.00000000
1067call setCor(cor, upp, cor, low, stdinv
= 1 / std)
1069+1.000000E+00,
-3.714662E-01,
+9.362885E-01,
-3.269074E-02
1070-1.485865E+00,
+1.600000E+01,
-4.567625E-01,
+8.105825E-01
1071+2.808865E+00,
-5.481150E+00,
+9.000002E+00,
+3.626780E-02
1072-3.269074E-02,
+3.242330E+00,
+1.088034E-01,
+1.000000E+00
1075call setCor(cor, lowDia, cor, upp, stdinv
= 1 / std)
1077+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1078-3.714662E-01,
+1.000000E+00,
-5.481150E+00,
+3.242330E+00
1079+9.362885E-01,
-4.567625E-01,
+1.000000E+00,
+1.088034E-01
1080-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1083call setCor(cor, lowDia, cor, low, stdinv
= 1 / std)
1085+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1086-3.714662E-01,
+1.000000E+00,
-5.481150E+00,
+3.242330E+00
1087+9.362885E-01,
-4.567625E-01,
+1.000000E+00,
+1.088034E-01
1088-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1091call setCor(cor, low, cor, upp, stdinv
= 1 / std)
1093+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1094-3.714662E-01,
+1.600000E+01,
-5.481150E+00,
+3.242330E+00
1095+9.362885E-01,
-4.567625E-01,
+9.000002E+00,
+1.088034E-01
1096-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1099call setCor(cor, low, cor, low, stdinv
= 1 / std)
1101+1.000000E+00,
-1.485865E+00,
+2.808865E+00,
-3.269074E-02
1102-3.714662E-01,
+1.600000E+01,
-5.481150E+00,
+3.242330E+00
1103+9.362885E-01,
-4.567625E-01,
+9.000002E+00,
+1.088034E-01
1104-3.269074E-02,
+8.105825E-01,
+3.626780E-02,
+1.000000E+00
1113ndim
= 2; nsam
= 10; dim
= 2
1114sample
= reshape(
getUnifRand(
1,
20, ndim
* nsam), shape
= [ndim, nsam], order
= [
2,
1])
1116+7.000000E+00,
+9.000000E+00,
+1.800000E+01,
+1.000000E+00,
+4.000000E+00,
+1.600000E+01,
+5.000000E+00,
+1.300000E+01,
+2.000000E+01,
+1.400000E+01
1117+4.000000E+00,
+7.000000E+00,
+9.000000E+00,
+1.000000E+00,
+1.900000E+01,
+3.000000E+00,
+1.600000E+01,
+1.500000E+01,
+1.200000E+01,
+1.400000E+01
1120+1.070000E+01,
+1.000000E+01
1123-3.700000E+00,
-1.700000E+00,
+7.300000E+00,
-9.700000E+00,
-6.700000E+00,
+5.300000E+00,
-5.700000E+00,
+2.300000E+00,
+9.300000E+00,
+3.300000E+00
1124-6.000000E+00,
-3.000000E+00,
-1.000000E+00,
-9.000000E+00,
+9.000000E+00,
-7.000000E+00,
+6.000000E+00,
+5.000000E+00,
+2.000000E+00,
+4.000000E+00
1126call setCor(cor, uppDia, mean, sample, dim)
1128+1.000000E+00,
+5.357539E-02
1129+0.000000E+00,
+1.000000E+00
1131call setCor(cor, uppDia, samShifted, dim)
1133+1.000000E+00,
+5.357539E-02
1134+0.000000E+00,
+1.000000E+00
1137call setCor(cor, lowDia, mean, sample, dim)
1139+1.000000E+00,
+0.000000E+00
1140+5.357540E-02,
+1.000000E+00
1142call setCor(cor, lowDia, samShifted, dim)
1144+1.000000E+00,
+0.000000E+00
1145+5.357540E-02,
+1.000000E+00
1147'Compute the sample correlation along the first dimension.'
1151call setCor(cor, uppDia, mean,
transpose(sample), dim)
1153+1.000000E+00,
+5.357539E-02
1154+0.000000E+00,
+1.000000E+00
1156call setCor(cor, uppDia,
transpose(samShifted), dim)
1158+1.000000E+00,
+5.357539E-02
1159+0.000000E+00,
+1.000000E+00
1162call setCor(cor, lowDia, mean,
transpose(sample), dim)
1164+1.000000E+00,
+0.000000E+00
1165+5.357540E-02,
+1.000000E+00
1167call setCor(cor, lowDia,
transpose(samShifted), dim)
1169+1.000000E+00,
+0.000000E+00
1170+5.357540E-02,
+1.000000E+00
1172'Compute the full sample correlation for a pair of time series.'
1174call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:))
1177call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:))
1188ndim
= 2; nsam
= 10; dim
= 2
1189sample
= reshape(
getUnifRand(
1,
20, ndim
* nsam), shape
= [ndim, nsam], order
= [
2,
1])
1191+1.900000E+01,
+1.700000E+01,
+3.000000E+00,
+1.800000E+01,
+1.200000E+01,
+1.400000E+01,
+8.000000E+00,
+1.000000E+00,
+1.300000E+01,
+1.000000E+00
1192+1.000000E+00,
+1.600000E+01,
+9.000000E+00,
+2.000000E+00,
+1.000000E+01,
+2.000000E+00,
+1.200000E+01,
+1.000000E+00,
+9.000000E+00,
+1.000000E+00
1196+4,
+1,
+7,
+7,
+3,
+7,
+1,
+6,
+1,
+9
1197call setMean(mean, sample, dim, iweight, iweisum)
1199+8.913044E+00,
+3.847826E+00
1204+4,
+1,
+7,
+7,
+3,
+7,
+1,
+6,
+1,
+9
1205call setMean(mean, sample, dim, rweight, rweisum)
1207+8.913044E+00,
+3.847826E+00
1217+1.008696E+01,
+8.086956E+00,
-5.913044E+00,
+9.086956E+00,
+3.086956E+00,
+5.086956E+00,
-9.130440E-01,
-7.913044E+00,
+4.086956E+00,
-7.913044E+00
1218-2.847826E+00,
+1.215217E+01,
+5.152174E+00,
-1.847826E+00,
+6.152174E+00,
-1.847826E+00,
+8.152174E+00,
-2.847826E+00,
+5.152174E+00,
-2.847826E+00
1220call setCor(cor, uppDia, mean, sample, dim, iweight, iweisum)
1222+1.000000E+00,
-3.410210E-03
1223+0.000000E+00,
+1.000000E+00
1225call setCor(cor, uppDia, samShifted, dim, iweight, iweisum)
1227+1.000000E+00,
-3.410210E-03
1228+0.000000E+00,
+1.000000E+00
1231call setCor(cor, lowDia, mean, sample, dim, iweight, iweisum)
1233+1.000000E+00,
+0.000000E+00
1234-3.410244E-03,
+1.000000E+00
1236call setCor(cor, lowDia, samShifted, dim, iweight, iweisum)
1238+1.000000E+00,
+0.000000E+00
1239-3.410244E-03,
+1.000000E+00
1241call setCor(cor, lowDia,
getVerbose(samShifted, iweight,
sum(iweight), dim), dim)
1243+1.000000E+00,
+0.000000E+00
1244-3.410219E-03,
+1.000000E+00
1246'Compute the sample correlation along the first dimension.'
1250call setCor(cor, uppDia, mean,
transpose(sample), dim, iweight, iweisum)
1252+1.000000E+00,
-3.410210E-03
1253+0.000000E+00,
+1.000000E+00
1255call setCor(cor, uppDia,
transpose(samShifted), dim, iweight, iweisum)
1257+1.000000E+00,
-3.410210E-03
1258+0.000000E+00,
+1.000000E+00
1261call setCor(cor, lowDia, mean,
transpose(sample), dim, iweight, iweisum)
1263+1.000000E+00,
+0.000000E+00
1264-3.410210E-03,
+1.000000E+00
1266call setCor(cor, lowDia,
transpose(samShifted), dim, iweight, iweisum)
1268+1.000000E+00,
+0.000000E+00
1269-3.410210E-03,
+1.000000E+00
1271'Compute the full sample correlation for a pair of time series.'
1273call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:), iweight, iweisum)
1276call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:), iweight, iweisum)
1288+10.0869560,
+8.08695602,
-5.91304398,
+9.08695602,
+3.08695602,
+5.08695602,
-0.913043976,
-7.91304398,
+4.08695602,
-7.91304398
1289-2.84782624,
+12.1521740,
+5.15217400,
-1.84782624,
+6.15217400,
-1.84782624,
+8.15217400,
-2.84782624,
+5.15217400,
-2.84782624
1291call setCor(cor, uppDia, mean, sample, dim, rweight, rweisum)
1293+1.000000E+00,
-3.410210E-03
1294+0.000000E+00,
+1.000000E+00
1296call setCor(cor, uppDia, samShifted, dim, rweight, rweisum)
1298+1.000000E+00,
-3.410210E-03
1299+0.000000E+00,
+1.000000E+00
1302call setCor(cor, lowDia, mean, sample, dim, rweight, rweisum)
1304+1.000000E+00,
+0.000000E+00
1305-3.410244E-03,
+1.000000E+00
1307call setCor(cor, lowDia, samShifted, dim, rweight, rweisum)
1309+1.000000E+00,
+0.000000E+00
1310-3.410244E-03,
+1.000000E+00
1312'Compute the sample correlation along the first dimension.'
1316call setCor(cor, uppDia, mean,
transpose(sample), dim, rweight, rweisum)
1318+1.000000E+00,
-3.410210E-03
1319+0.000000E+00,
+1.000000E+00
1321call setCor(cor, uppDia,
transpose(samShifted), dim, rweight, rweisum)
1323+1.000000E+00,
-3.410210E-03
1324+0.000000E+00,
+1.000000E+00
1327call setCor(cor, lowDia, mean,
transpose(sample), dim, rweight, rweisum)
1329+1.000000E+00,
+0.000000E+00
1330-3.410210E-03,
+1.000000E+00
1332call setCor(cor, lowDia,
transpose(samShifted), dim, rweight, rweisum)
1334+1.000000E+00,
+0.000000E+00
1335-3.410210E-03,
+1.000000E+00
1337'Compute the full sample correlation for a pair of time series.'
1339call setCor(cor(
1,
1), mean, sample(
1,:), sample(
2,:), rweight, rweisum)
1342call setCor(cor(
1,
1), samShifted(
1,:), samShifted(
2,:), rweight, rweisum)