complex.c

C语言版,机载SAR回波仿真程序

#include "complex.h"
comp cmplx(float a,float b)
{
comp z;
z.re = a;
z.im = b;
return(z);
}
comp cmul(comp a,comp b)
{
float tra,trb,tia,tib;
comp z;

tra=a.re;
tia=a.im;
trb=b.re;
tib=b.im;

z.re=tra*trb-tia*tib;
z.im=tra*tib+trb*tia;

return(z);
}

comp conjg(comp a)
{
comp z;

z.re=a.re;
z.im=-(a.im);

return(z);
}

float cabs1(comp a)
{
float z;

z=(float)sqrt(a.re*a.re+a.im*a.im);
return(z);
}

float cabs2(comp a)
{
float z;

z=a.re*a.re+a.im*a.im;
return(z);
}

comp cadd(comp a,comp b)
{
	comp z;

	z.re=a.re+b.re;
	z.im=a.im+b.im;

	return(z);
}

comp csub(comp a,comp b)
{
	comp z;

	z.re=a.re-b.re;
	z.im=a.im-b.im;

	return(z);
}

comp czero()
{
	comp z;

	z.re=0.0;
	z.im=0.0;

	return(z);
}


float arg(comp a)
{
	float kk;

	kk=(float)atan2(a.im,a.re);

    return(kk);
}