function [baseMVA, bus, gen, branch, areas, gencost] = cas4
% moyenne classe 1A
%   Please see 'help caseformat' for details on the case file format.
%
%   Based on data from Joe H. Chow's book, p. 70.

%   MATPOWER
%   $Id: case9.m,v 1.7 2007/09/17 16:07:48 ray Exp $ (/ 225 400.0) (/ 1 1.1)

%%-----  Power Flow Data  -----%% (/ 400 225.0)
%% system MVA base
baseMVA = 100;
%% bus data type 2=gene 1=charge 3=bilan
%	bus_i	type	Pd	Qd	Gs	Bs	area	Vm	Va	baseKV	zone	Vmax	Vmin
bus = [
	1	2	0	0	0	0	1	1	0	400	1	1.1	0.7;       
	2	1	100	200	0	0	1	1	0	225	2	1.1	0.7;
	3	3	0	0	0	0	1	1	0	400	1	1.1	0.7;
	4	1	325	200	0	0	1	1	0	225	2	1.1	0.7;
];

%% generator data
%	bus	Pg	Qg	Qmax	Qmin	Vg	mBase	status	Pmax	Pmin
gen = [
	1	150	0	300	-300	0.95	100	1	570	10;
	3	0	0	300	-300	1	100	1	550	10;
];

%% branch data
%	fbus	tbus	r	x	b	rateA	rateB	rateC	ratio	angle	status
branch = [
	  1	2	0.002	0.044	0	100	100	100     1/1.10	0	1;
	1	3	0.0015	0.029	0	100	100	100	0	0	1;
	4	2	0.001	0.0117	0	100	100	100	0	0	1;
%	4	2	0.001	0.0117	0	100	100	100	1.0	11.45	1;
%	4	2	0.003   0.055   0       100     100     100     1.0     11.45  1;
	3	4	0.002	0.044	0	100	100	100	1.0	0	1;
];



return;