jacob.h

来自「用于电力系统潮流计算 c++程序」· C头文件 代码 · 共 40 行

#include <stdlib.h>
#ifndef WINDOWS
#include <stdio.h>
#else
#include "pfwstdio.h"
#endif
#include <math.h>
#include <string.h>
#include "constant.h"
#include "param.h"
#include "sparse.h"
#include "pflow.h"

#ifdef ANSIPROTO
void JacElement(SparseMatrix *Mptr,INDEX I,INDEX J,VALUETYPE val);
AreaData *ACFunJac(SparseMatrix *Mptr,int *val,BOOLEAN flagF,BOOLEAN flagJ,BOOLEAN flagP);
BOOLEAN DCFunJac(SparseMatrix *Mptr,BOOLEAN flagF,BOOLEAN flagJ);
void Jacobian(void);
#else
void JacElement();
AreaData *ACFunJac();
BOOLEAN DCFunJac();
void Jacobian();
#endif

/* ------- Global Variables ------ */
extern Data *dataPtr;
extern SparseMatrix *Jac;
extern INDEX Nac,Ndc,NacVar,Narea,Bl,Ngen,
             Nsvc,Ntcsc,NtcscVar,Nstatcom; /* FACTS */
extern INDEX *ACvar;
extern VALUETYPE *dx,*dF,Sn,lambda,*Dx,*x0,*x0p;
extern VALUETYPE K1,K2;
extern IntegerVector *NewRow,*OldRow,*NewCol,*OldCol,*RowPartition,*ColPartition;
extern BOOLEAN Acont,PQcont,QRcont,Rcont,flagH,flagPoC,flagBS,flag2Vcontrol,
	              flagPgMax,flagSmax,flagReducedContinuation,*DxZero;
extern BOOLEAN *DxZero;
extern AClist *Vlist,*Vlistp;