Chp7ex11.m
上传用户:eighthdate
上传日期:2014-05-24
资源大小:270k
文件大小:6k
源码类别:

其他行业

开发平台:

Matlab

  1. clear
  2. basemva = 100;  accuracy = 0.0001;  maxiter = 10;
  3. %        Bus Bus  Voltage Angle   ---Load---- -----Generator-----Static Mvar
  4. %        No  code Mag.    Degree  MW    Mvar  MW  Mvar Qmin Qmax Qc/-Ql
  5. busdata=[1   1    1.025   0.0     51    41     0   0     0    0    4
  6.          2   2    1.020   0.0     22    15    79   0    40  250    0
  7.          3   2    1.025   0.0     64    50    20   0    40  150    0
  8.          4   2    1.050   0.0     25    10   100   0    25   80    2
  9.          5   2    1.045   0.0     50    30   300   0    40  160    5
  10.          6   0    1.00    0.0     76    29     0   0     0    0    2
  11.          7   0    1.00    0.0      0     0     0   0     0    0    0
  12.          8   0    1.00    0.0      0     0     0   0     0    0    0
  13.          9   0    1.00    0.0     89    50     0   0     0    0    3
  14.         10   0    1.00    0.0      0     0     0   0     0    0    0
  15.         11   0    1.00    0.0     25    15     0   0     0    0  1.5
  16.         12   0    1.00    0.0     89    48    00  00     0    0    2
  17.         13   0    1.00    0.0     31    15     0   0     0    0    0
  18.         14   0    1.00    0.0     24    12     0   0     0    0    0
  19.         15   0    1.00    0.0     70    31     0   0     0    0  0.5
  20.         16   0    1.00    0.0     55    27     0   0     0    0    0
  21.         17   0    1.00    0.0     78    38     0   0     0    0    0
  22.         18   0    1.00    0.0    153    67     0   0     0    0    0
  23.         19   0    1.00    0.0     75    15     0   0     0    0    5
  24.         20   0    1.00    0.0     48    27     0   0     0    0    0
  25.         21   0    1.00    0.0     46    23     0   0     0    0    0
  26.         22   0    1.00    0.0     45    22     0   0     0    0    0
  27.         23   0    1.00    0.0     25    12     0   0     0    0    0
  28.         24   0    1.00    0.0     54    27     0   0     0    0    0
  29.         25   0    1.00    0.0     28    13     0   0     0    0    0
  30.         26   2    1.015   0.0     40    20    60   0    15   50    0];
  31. %                                            Line code
  32. %         Bus bus   R       X       1/2 B    = 1 for lines
  33. %         nl  nr  p.u.     p.u.     p.u.     >1 or<1 tr. tap at bus nl
  34. linedata=[1   2   0.00055  0.00480  0.03000   1
  35.           1  18   0.00130  0.01150  0.06000   1
  36.           2   3   0.00146  0.05130  0.05000   0.96
  37.           2   7   0.01030  0.05860  0.01800   1
  38.           2   8   0.00740  0.03210  0.03900   1
  39.           2  13   0.00357  0.09670  0.02500   0.96
  40.           2  26   0.03230  0.19670  0.00000   1
  41.           3  13   0.00070  0.00548  0.00050   1.017
  42.           4   8   0.00080  0.02400  0.00010   1.050
  43.           4  12   0.00160  0.02070  0.01500   1.050
  44.           5   6   0.00690  0.03000  0.09900   1
  45.           6   7   0.00535  0.03060  0.00105   1
  46.           6  11   0.00970  0.05700  0.00010   1
  47.           6  18   0.00374  0.02220  0.00120   1
  48.           6  19   0.00350  0.06600  0.04500   0.95
  49.           6  21   0.00500  0.09000  0.02260   1
  50.           7   8   0.00120  0.00693  0.00010   1
  51.           7   9   0.00095  0.04290  0.02500   0.95
  52.           8  12   0.00200  0.01800  0.02000   1
  53.           9  10   0.00104  0.04930  0.00100   1
  54.          10  12   0.00247  0.01320  0.01000   1
  55.          10  19   0.05470  0.23600  0.00000   1
  56.          10  20   0.00660  0.01600  0.00100   1
  57.          10  22   0.00690  0.02980  0.00500   1
  58.          11  25   0.09600  0.27000  0.01000   1
  59.          11  26   0.01650  0.09700  0.00400   1
  60.          12  14   0.03270  0.08020  0.00000   1
  61.          12  15   0.01800  0.05980  0.00000   1
  62.          13  14   0.00460  0.02710  0.00100   1
  63.          13  15   0.01160  0.06100  0.00000   1
  64.          13  16   0.01793  0.08880  0.00100   1
  65.          14  15   0.00690  0.03820  0.00000   1
  66.          15  16   0.02090  0.05120  0.00000   1
  67.          16  17   0.09900  0.06000  0.00000   1
  68.          16  20   0.02390  0.05850  0.00000   1
  69.          17  18   0.00320  0.06000  0.03800   1
  70.          17  21   0.22900  0.44500  0.00000   1
  71.          19  23   0.03000  0.13100  0.00000   1
  72.          19  24   0.03000  0.12500  0.00200   1
  73.          19  25   0.11900  0.22490  0.00400   1
  74.          20  21   0.06570  0.15700  0.00000   1
  75.          20  22   0.01500  0.03660  0.00000   1
  76.          21  24   0.04760  0.15100  0.00000   1
  77.          22  23   0.02900  0.09900  0.00000   1
  78.          22  24   0.03100  0.08800  0.00000   1
  79.          23  25   0.09870  0.11680  0.00000   1];
  80.  cost = [240  7.0   0.007
  81.          200  10    0.0095
  82.          220  8.5   0.009
  83.          200  11    0.009
  84.          220  10.5  0.0080
  85.          190  12    0.0075];
  86.  mwlimits =[100  500
  87.             50   200
  88.             80   300
  89.             50   150
  90.             50   200
  91.             50   120];
  92. lfybus                    % Forms the bus admittance matrix
  93. lfnewton     % Power flow solution by Newton-Raphson method
  94. busout       % Prints the power flow solution on the screen
  95. bloss               % Obtains the loss formula coefficients
  96. gencost            % Computes the total generation cost $/h
  97. dispatch           % Obtains optimum dispatch of generation
  98.        % dpslack is the difference (absolute value) between
  99.        % the scheduled slack generation determined from the
  100.          % coordination equation, and the slack generation,
  101.                    % obtained from the power flow solution.
  102. while dpslack>.001 %Repeat till dpslack is within tolerance
  103. lfnewton                          % New power flow solution
  104. bloss                       % Loss coefficients are updated
  105. dispatch % Optimum dispatch of gen. with new B-coefficients
  106. end
  107. busout               % Prints the final power flow solution
  108. gencost   % Generation cost with optimum scheduling of gen.