[t,PF1,PF2,PF3,PF4,PF5,PF6,CS3U,CS2U,CS1,CS2L,CS3L,P,Prg,Prl] = textread('p.dat','%f %f %f %f %f %f %f %f %f %f %f %f %f %f %f','headerlines',1);
PFigure = figure;
axes('FontSize',14,'position',[0.15 0.15 0.75 0.75])
plot(t,abs(Prg),'.-k','MarkerSize',10.0);
axis([0 1.6 1100 1900])
PXLabel=t(length(t));
PYLabel=P(length(t));
text(PXLabel,PYLabel,' \leftarrow P ','HorizontalAlignment','left','FontSize',14)
TdbzXLabel=1;
TdbzYLabel=-350;
text(TdbzXLabel,TdbzYLabel,'t_b_r=1.0 s ','HorizontalAlignment','center','FontSize',14)
grid on
xlabel('Time, s','FontSize',14)
ylabel('P_t_o_t, MW','FontSize',14)
title('Total power on resistors','FontSize',14)
print -f1 -djpeg 'tpp.jpeg'