12 if(v==NULL || v->
co==NULL ){
13 t_error(
"this vector was never allocated");
15 t_error(
"this vector was not properly allocated");
23 if(v->
co[i]!=novalue){
35 if(v->
co[i]!=novalue){
36 moment+=(v->
co[i])*(v->
co[i]);
42 moment=(moment/n-mean*mean);
47 if(v->
co[i]!=novalue){
48 moment+=pow((v->
co[i]-mean),NN);
67 if(v==NULL || v->
co==NULL ){
68 t_error(
"this vector was never allocated");
70 t_error(
"this vector was not properly allocated");
78 if(v->
co[i]!=novalue){
90 if(v->
co[i]!=novalue){
91 moment+=(v->
co[i])*(v->
co[i]);
97 moment=(moment/n-mean*mean);
100 for(i=1;i<v->
nh;i++){
102 if(v->
co[i]!=novalue){
103 moment+=pow((v->
co[i]-mean),NN);
123 if(v==NULL || v->
co==NULL ){
124 t_error(
"this vector was never allocated");
126 t_error(
"this vector was not properly allocated");
132 for(i=1;i<v->
nh;i++){
134 if(v->
co[i]!=novalue){
144 for(i=1;i<v->
nh;i++){
146 if(v->
co[i]!=novalue){
147 moment+=(v->
co[i])*(v->
co[i]);
153 moment=(moment/n-mean*mean);
156 for(i=1;i<v->
nh;i++){
158 if(v->
co[i]!=novalue){
159 moment+=pow((v->
co[i]-mean),NN);
180 if(m==NULL || m->
co==NULL ){
181 t_error(
"this matrix was never allocated");
183 t_error(
"this matrix was not properly allocated");
189 for(i=1;i<m->
nrh;i++){
190 for(j=1;j<m->
nch;j++){
192 if(m->
co[i][j]!=novalue){
204 for(i=1;i<m->
nrh;i++){
205 for(j=1;j<m->
nch;j++){
207 if(m->
co[i][j]!=novalue) {
208 moment+=(m->
co[i][j])*(m->
co[i][j]);
215 moment=(moment/n-mean*mean);
218 for(i=1;i<m->
nrh;i++){
219 for(j=1;j<m->
nch;j++){
221 if(m->
co[i][j]!=novalue){
222 moment+=pow((m->
co[i][j]-mean),NN);
242 if(m==NULL || m->
co==NULL ){
243 t_error(
"this matrix was never allocated");
245 t_error(
"this matrix was not properly allocated");
252 for(i=1;i<m->
nrh;i++){
253 for(j=1;j<m->
nch;j++){
255 if(m->
co[i][j]!=novalue){
265 for(i=1;i<m->
nrh;i++){
266 for(j=1;j<m->
nch;j++){
268 if(m->
co[i][j]!=novalue){
269 moment+=(m->
co[i][j])*(m->
co[i][j]);
275 moment=(moment/n-mean*mean);
278 for(i=1;i<m->
nrh;i++){
279 for(j=1;j<m->
nch;j++){
281 if(m->
co[i][j]!=novalue){
282 moment+=pow((m->
co[i][j]-mean),NN);
304 if(m==NULL || m->
co==NULL ){
305 t_error(
"this matrix was never allocated");
307 t_error(
"this matrix was not properly allocated");
313 for(i=1;i<m->
nrh;i++){
314 for(j=1;j<m->
nch;j++){
316 if(m->
co[i][j]!=novalue){
326 for(i=1;i<m->
nrh;i++){
327 for(j=1;j<m->
nch;j++){
329 if(m->
co[i][j]!=novalue){
330 moment+=(m->
co[i][j])*(m->
co[i][j]);
336 moment=(moment/n-mean*mean);
339 for(i=1;i<m->
nrh;i++){
340 for(j=1;j<m->
nch;j++){
342 if(m->
co[i][j]!=novalue){
343 moment+=pow((m->
co[i][j]-mean),NN);
363 if(m==NULL || m->
co==NULL || s==NULL || s->
co==NULL){
364 t_error(
"these matrices was never allocated");
366 t_error(
"thess matrices was not properly allocated");
369 t_error(
"the matrixes do not have the same dimensions");
375 for(i=1;i<m->
nrh;i++){
376 for(j=1;j<m->
nch;j++){
378 if(m->
co[i][j]!=novalue && s->
co[i][j]!=novalue2){
390 for(i=1;i<m->
nrh;i++){
391 for(j=1;j<m->
nch;j++){
393 if(m->
co[i][j]!=novalue && s->
co[i][j]!=novalue2) {
394 moment+=(m->
co[i][j])*(m->
co[i][j]);
401 moment=(moment/n-mean*mean);
404 for(i=1;i<m->
nrh;i++){
405 for(j=1;j<m->
nch;j++){
407 if(m->
co[i][j]!=novalue && s->
co[i][j]!=novalue2){
408 moment+=pow((m->
co[i][j]-mean),NN);
428 if(v==NULL || v->
co==NULL || u==NULL || u->
co==NULL ){
429 t_error(
"this vector was never allocated");
431 t_error(
"this vector was not properly allocated");
437 for(i=1;i<v->
nh-r;i++){
439 if(v->
co[i]!=novalue && u->
co[i]!=novalue){
440 correlation+=v->
co[i]*u->
co[i+r];
448 return correlation/n -m1*m2;
462 if(v==NULL || v->
co==NULL || u==NULL || u->
co==NULL ){
463 t_error(
"this vector was never allocated");
465 t_error(
"this vector was not properly allocated");
471 for(i=1;i<v->
nh-r;i++){
473 if(v->
co[i]!=novalue && u->
co[i]!=novalue){
474 correlation+=v->
co[i]*u->
co[i+r];
482 return correlation/n -m1*m2;
497 if(v==NULL || v->
co==NULL || u==NULL || u->
co==NULL ){
498 t_error(
"this vector was never allocated");
500 t_error(
"this vector was not properly allocated");
506 for(i=1;i<v->
nh-r;i++){
508 if(v->
co[i]!=novalue && v->
co[i]!=novalue){
509 correlation+=v->
co[i]*u->
co[i+r];
517 return correlation/n -m1*m2;
533 t_error(
"this matrix was never allocated");
535 t_error(
"this matrix was not properly allocated");
558 printf(
"\nWarning::No valid data were processed\n");
559 printf(
"\nWarning::setting moment value to zero\n");
566 moment+=(m[i])*(m[i]);
574 moment=(moment/n-mean*mean);
578 printf(
"\nWarning::No valid data were processed\n");
579 printf(
"\nWarning::setting moment value to zero\n");
587 moment+=pow((m[i]-mean),NN);
600 printf(
"\nWarning::No valid data were processed\n");
601 printf(
"\nWarning::setting moment value to zero\n");