潮流计算程序以IEEE标准9节点为例

运行编译器为VC++6.0 绝对可以执行

/*
Purpose: for undergraduate course
Task: Load Flow
Copyright @ NCEPU Liu Chongru
*/
#include 
#include 
#include “LF.h“
#include “DataDesign.h“
#include 

//form delta p and delta q
int CalDeltaPQ（ int npv int npq Bus* bus double** YG double** YB int* p_Jtobus double* deltaf ）
{
	int ij;//circular variable
	int k;//node modification variable
	double i1i2;
	double dphase;
	for（i=0;i	{
		if（i		{
			i1=0;
			k=p_Jtobus[i];
			for（j=0;j			{
				dphase=bus[k].Phase-bus[j].Phase;
				i1+=bus[j].Volt*（YG[k][j]*cos（dphase）+YB[k][j]*sin（dphase））;
			}
			deltaf[i]=bus[k].GenP-bus[k].LoadP-bus[k].Volt*i1;
		}
		else
		{                    //form deltaQ
			i2=0;
			k=p_Jtobus[i];
			for（j=0;j			{
				dphase=bus[k].Phase-bus[j].Phase;
				i2+=bus[j].Volt*（YG[k][j]*sin（dphase）-YB[k][j]*cos（dphase））;
			}
			deltaf[i]=bus[k].GenQ-bus[k].LoadQ-bus[k].Volt*i2;
		}
	}

for（i=0;i	deltaf[i]*=（-1）;
return 1;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       5958  2006-12-18 15:21  LF_frame\009ieee.dat

     文件        380  2006-12-20 10:11  LF_frame\DataDesign.h

     文件      17453  2008-04-07 10:27  LF_frame\Debug\FormF.obj

     文件      25012  2008-04-07 10:27  LF_frame\Debug\FormJ.obj

     文件     122952  2008-04-07 10:27  LF_frame\Debug\LF.exe

     文件      94344  2008-04-07 10:27  LF_frame\Debug\LF.ilk

     文件      48936  2008-04-07 10:27  LF_frame\Debug\LF.obj

     文件    4013868  2008-04-07 10:27  LF_frame\Debug\LF.pch

     文件     164864  2008-04-07 10:27  LF_frame\Debug\LF.pdb

     文件      21907  2008-04-07 10:27  LF_frame\Debug\MakeY.obj

     文件     164864  2008-04-07 10:27  LF_frame\Debug\vc60.idb

     文件     176128  2008-04-07 10:27  LF_frame\Debug\vc60.pdb

     文件       1089  2009-07-01 10:35  LF_frame\FormF.cpp

     文件       1017  2009-06-18 18:13  LF_frame\FormF.cpp.bak

     文件       3410  2009-06-19 21:06  LF_frame\FormJ.cpp

     文件       1129  2006-12-22 14:13  LF_frame\in.txt

     文件          0  2009-06-17 20:25  LF_frame\in.tzt

     文件       6965  2009-06-25 22:02  LF_frame\LF.cpp

     文件       4384  2009-06-18 17:23  LF_frame\LF.dsp

     文件        527  2006-12-19 10:26  LF_frame\LF.dsw

     文件        449  2006-12-22 14:21  LF_frame\LF.h

     文件     123904  2009-06-25 22:02  LF_frame\LF.ncb

     文件      49664  2009-06-25 22:02  LF_frame\LF.opt

     文件       1291  2009-07-01 10:36  LF_frame\LF.plg

     文件       1459  2009-06-18 18:11  LF_frame\MakeY.cpp

     文件       2929  2006-12-22 14:19  LF_frame\NEquation.h

     文件       6805  2009-06-23 19:06  LF_frame\out.txt

     目录          0  2009-07-01 10:36  LF_frame\Debug

     目录          0  2009-06-25 22:02  LF_frame

----------- ---------  ---------- -----  ----

............此处省略2个文件信息