C-Free 5.0, mingw5
/* vec.c - 2019-10-09 build 3*/
#include<stdio.h>
void v_sho(double* vector0, int length)
{
int i;
printf("\nans=\n");
for(i=0;i<length;i++)
{
printf("%f ",vector0[i]);
}
printf("\n\n");
}
void v_dot(double* vector0, double* vector1, int length)
{
int i;
for(i=0;i<length;i++)
{
vector0[i] = vector0[i] * vector1[i];
}
return;
}
void v_sca(double* vector, double coeff, int length)
{
int i;
for(i=0;i<length;i++)
{
vector[i] = vector[i] * coeff;
}
return;
}
void v_sub(double* vector0, double* vector1, int length)
{
int i;
for(i=0;i<length;i++)
{
vector0[i] = vector0[i] - vector1[i];
}
return;
}
void v_add(double* vector0, double* vector1, int length)
{
int i;
for(i=0;i<length;i++)
{
vector0[i] = vector0[i] + vector1[i];
}
return;
}
double sigma(double* vector, int length)