/********************************************************************************
?*?Complex.c	Complex?number?operations.
?*?Revision?History:
?*?	Lupei?Zhu	06/20/94	Initial?coding
*********************************************************************************/
#include?
#include?“Complex.h“

complex?cplus（complex?a?complex?b）?{
??a.x?+=?b.x;
??a.y?+=?b.y;
??return（a）;
}

complex?cmltp（complex?a?complex?b）?{
??complex?c;
??c.x?=?a.x*b.x?-?a.y*b.y;
??c.y?=?a.x*b.y?+?a.y*b.x;
??return（c）;
}

complex?cngtv（complex?a）?{
??a.x?=?-a.x;
??a.y?=?-a.y;
??return（a）;
}

complex?cinvs（complex?a）?{
??complex?dmltp（float?complex）;
??complex?conjg（complex?a）;
??return（dmltp（1./（a.x*a.x+a.y*a.y）?conjg（a）））;
}

complex?conjg（complex?a）?{
??a.y?=?-a.y;
??return（a）;
}

complex?dmltp（float?a?co