function mpc = case13bw
%CASE33BW  Power flow data for 33 bus distribution system from Baran & Wu
%    Please see CASEFORMAT for details on the case file format.
%
%    Data from ...
%       M. E. Baran and F. F. Wu, "Network reconfiguration in distribution
%       systems for loss reduction and load balancing," in IEEE Transactions
%       on Power Delivery, vol. 4, no. 2, pp. 1401-1407, Apr 1989.
%       doi: 10.1109/61.25627
%       URL: http://doi.org/10.1109/61.25627

%% MATPOWER Case Format : Version 2
mpc.version = '2';

%%-----  Power Flow Data  -----%%
%% system MVA base
mpc.baseMVA = 100;

%% bus data
%	bus_i	type	Pd	Qd	Gs	Bs	area	Vm	Va	baseKV	zone	Vmax	Vmin
mpc.bus = [  %% (Pd and Qd are specified in kW & kVAr here, converted to MW & MVAr below)
	1	3	0	0	0	0	1	1	0	12.66	1	1	1;
	2	1	20  10	0	0	1	1	0	12.66	1	1.1	0.9;
	3	1	60	30	0	0	1	1	0	12.66	1	1.1	0.9;
	4	1	60	40	0	0	1	1	0	12.66	1	1.1	0.9;
	5	1	60	30	0	0	1	1	0	12.66	1	1.1	0.9;
	6	1	40	20	0	0	1	1	0	12.66	1	1.1	0.9;
	7	1	20	10	0	0	1	1	0	12.66	1	1.1	0.9;
	8	1	20	10	0	0	1	1	0	12.66	1	1.1	0.9;
	9	1	30	10	0	0	1	1	0	12.66	1	1.1	0.9;
	10	1	30	10	0	0	1	1	0	12.66	1	1.1	0.9;
	11	1	45	30	0	0	1	1	0	12.66	1	1.1	0.9;
	12	1	30	15	0	0	1	1	0	12.66	1	1.1	0.9;
	13	1	40	10	0	0	1	1	0	12.66	1	1.1	0.9;	
];
% setting mpc value higher so load should remain same as above after below
% conversion
%mpc.bus(:,3:4)=mpc.bus(:,3:4)*1e3;
%% generator data
%	bus	Pg	Qg	Qmax	Qmin	Vg	mBase	status	Pmax	Pmin	Pc1	Pc2	Qc1min	Qc1max	Qc2min	Qc2max	ramp_agc	ramp_10	ramp_30	ramp_q	apf
mpc.gen = [
	1	0	0	10	-10	1	100	1	100	0	0	0	0	0	0	0	0	0	0	0	0;
    1	0	0	10	-10	1	100	1	100	0	0	0	0	0	0	0	0	0	0	0	0;
    1	0	0	10	-10	1	100	1	100	0	0	0	0	0	0	0	0	0	0	0	0;
    1	0	0	10	-10	1	100	1	100	0	0	0	0	0	0	0	0	0	0	0	0;
    1	0	0	10	-10	1	100	1	100	0	0	0	0	0	0	0	0	0	0	0	0;
];
%mpc.gen(:,7)=mpc.gen(:,7)*1e3;
%% branch data
%	fbus	tbus	r	x	b	rateA	rateB	rateC	ratio	angle	status	angmin	angmax
mpc.branch = [  %% (r and x specified in ohms here, converted to p.u. below)
	1	2	0.0922	0.0470	0	0	0	0	0	0	1	-360	360;
	2	3	0.4930	0.2511	0	0	0	0	0	0	1	-360	360;
	3	4	0.3660	0.1864	0	0	0	0	0	0	1	-360	360;
	2	5	0.3811	0.1941	0	0	0	0	0	0	1	-360	360;
	5	6	0.8190	0.7070	0	0	0	0	0	0	1	-360	360;
	2	7	0.1872	0.6188	0	0	0	0	0	0	1	-360	360;
	7	8	0.7114	0.2351	0	0	0	0	0	0	1	-360	360;
	8	9	1.0300	0.7400	0	0	0	0	0	0	1	-360	360;
	7	10	1.0440	0.7400	0	0	0	0	0	0	1	-360	360;
	10	11	0.1966	0.0650	0	0	0	0	0	0	1	-360	360;
	7	12	0.3744	0.1238	0	0	0	0	0	0	1	-360	360;
	8	13	1.4680	1.1550	0	0	0	0	0	0	1	-360	360;	
];

%%-----  OPF Data  -----%%
%% generator cost data
%	1	startup	shutdown	n	x1	y1	...	xn	yn
%	2	startup	shutdown	n	c(n-1)	...	c0
mpc.gencost = [
	2	0	0	3	0.075	0.9	0;
    2	0	0	3	0.061	0.7	0;
    2	0	0	3	0.038	0.2	0;
    2	0	0	3	0.041	0.3	0;
    2	0	0	3	0.011	1	0;
];


%% convert branch impedances from Ohms to p.u.
[PQ, PV, REF, NONE, BUS_I, BUS_TYPE, PD, QD, GS, BS, BUS_AREA, VM, ...
    VA, BASE_KV, ZONE, VMAX, VMIN, LAM_P, LAM_Q, MU_VMAX, MU_VMIN] = idx_bus;
[F_BUS, T_BUS, BR_R, BR_X, BR_B, RATE_A, RATE_B, RATE_C, ...
    TAP, SHIFT, BR_STATUS, PF, QF, PT, QT, MU_SF, MU_ST, ...
    ANGMIN, ANGMAX, MU_ANGMIN, MU_ANGMAX] = idx_brch;
Vbase = mpc.bus(1, BASE_KV) * 1e3;      %% in Volts
Sbase = mpc.baseMVA * 1e6;              %% in VA
mpc.branch(:, [BR_R BR_X]) = mpc.branch(:, [BR_R BR_X]) / (Vbase^2 / Sbase);

%% convert loads from kW to MW
mpc.bus(:, [PD, QD]) = mpc.bus(:, [PD, QD]) / 1e3;