close all
clear all


[PowerCurve_N , PowerCurve_W] = GetPowerCurve();

%DBarMin_N_SPEC  = {0,300,350,1000,3000,5000,10000};  
%DBarMin_DbarMin_SPEC  = {.90,.30,.05,.10,.3,0.4,0.4};

DBarMin_N_SPEC  =       {0  ,100, 300, 350, 400,500,1000,3000,5000,10000};  
DBarMin_DbarMin_SPEC  = {.50,.30,  .18, .16, .1,.1 ,.10,.3  ,0.4 ,0.4};

figure('Position',[307 294 1258 804])
ah1 = subplot (2,1,1); 
plot(PowerCurve_N,PowerCurve_W,'-x');
xlabel('RPM');
ylabel('Power (W)');

ah2 = subplot (2,1,2); 
plot(cell2mat(DBarMin_N_SPEC),cell2mat(DBarMin_DbarMin_SPEC),'-x');
xlabel('RPM');
ylabel('DbarMin');

linkaxes([ah1 ah2],'x');
