C语言潮流程序

#include<stdio.h>
#include<math.h>

/***********宏定义**********/
#define eP 0.00001
#define eQ 0.00001
#define Y_(i,j) (*(*(Y+i)-i+j))
#define Yij (*(Yi+j))
#define Yji (*(*(Y+j)-j+i))
#define Pji Yji.G*cos(tmp)+Yji.B*sin(tmp)
#define Pij Yij.G*cos(tmp)+Yij.B*sin(tmp)
#define Qji Yji.G*sin(tmp)-Yji.B*cos(tmp)
#define Qij Yij.G*sin(tmp)-Yij.B*cos(tmp)

/***********全局变量***********/
int Node;
int *Num;
int NP,NQ=0;
int i,j,k,m;
float tmp;
struct Nodetype *No;
struct Linetype **Y;
float **BP,**BQ;
float *V;
float *Dlta;
unsigned int count=0;
char *Type;
FILE *in,*out;

/***********结构体变量***********/

struct Nodetype
{ float P,Q;};
struct Linetype
{ float G,B,B0,k;};

/***********子函数声明***********/
void in_node();
void in_line();
void B_Form();/*B矩阵*/
void factor();/*因子表*/
void solve(float **B,float *X,int N);
void PrtNode();
void ErrorMsg(int Flag);

/************主函数************/
void main(void)
{
int kp=1,kq=1;
float *dP,*dPi,*dQ,*dQi;
float Dltai;
struct Linetype *Yi;
struct Nodetype *Noi;
float tP,tQ;
if((in=fopen("Data.txt","r"))==NULL) ErrorMsg(1);
if((out=fopen("out.txt","w"))==NULL) ErrorMsg(2);
in_node();
in_line();
B_Form();
factor();
for(i=0;i<NQ;i++) *(V+i)=1;