clear all
load D190
whos
fuel=D190;	
%fuel(jj,:)=[ff,alt,timp];
% data2[team, flight, fuel fraction, altitude (ft), weight (lbf), frontal area (in2), comment]
data2=[18  1 8.6/20     57+8/12 .254  9.6
       18  2 6.3/20     49+7/12 .254  9.6
	   15  1 1/3        51.5    .6    9.5
	   14  1 10.7/36.1  59      .1764 3.977
	   14  2 7.6/36.1   68      .1764 3.977]
comments=['                                           '
          'straight up and down flight                '
          'Measurement was compromised by other groups'
          'pump was changed before launch             ']
alt=fuel(:,2);
ff=fuel(:,1);
clf
plot(ff,alt,'r-')
hold on
plot(ff,alt,'rx')
%plot(data2(:,3),data2(:,4),'r-')
plot(data2(:,3),data2(:,4),'rs')
xlabel('Fuel fraction')
ylabel('Altitude (ft)')
%text(.32,48,'Flight data')
%text(.42,60,'Simulation')
title('Water rocket altitude vs fuel fraction for 50 psi of internal pressure')
set(get(gca,'Title'),'FontSize',18)
set(get(gca,'xlabel'),'FontSize',18)
set(get(gca,'ylabel'),'FontSize',18)


hold off
