battdata=Import["/Users/mcgill/Documents/My\ Projects/Lithium\ Battery\ Safety/Test\ Data/NCR18650B/NCR18650B_1.xls"];

battdata[[1,1]]

battdata[[1,2]]

Drop[battdata[[1,All,{3,5}]],1][[1;;10]]

ListPlot[Reverse[Drop[battdata[[1,All,{3,5}]],1],2],PlotRange->{{0,4},{2,4.5}},GridLines->{Range[0,4,0.5],Range[2,4.5,0.5]},Frame->True,FrameStyle->Directive[18],FrameLabel->{Style["Discharge Capacity (Ah)",FontSize->18],Style["Cell Voltage (V)",FontSize->18]},PlotLabel->Style["NCR18650B Discharge\rConstant Current 3.25 A",FontSize->24],PlotStyle->Red]

data3p3=Import["/Users/mcgill/Documents/My\ Projects/Lithium\ Battery\ Safety/Test\ Data/NCR18650B/3300mA/NCR18650B_3300mA.xls"];

Drop[data3p3[[1,All,3]],1][[1;;10]]

voltage=Drop[data3p3[[1,All,3]],1];

Length[voltage]

ListPlot[voltage,PlotRange->{{0,12500},{2.5,4.5}},GridLines->{Range[0,12000,1000],Range[2.5,4.5,0.5]},Frame->True,FrameStyle->Directive[18],FrameLabel->{Style["Time (secs)",FontSize->18],Style["Cell Voltage (V)",FontSize->18]},PlotLabel->Style["NCR18650B Discharge\r6 min at 3.3 A, 15 min rest",FontSize->24],PlotStyle->Red]

ListPlot[voltage[[800;;2100]],PlotRange->{{0,1300},{3.7,4.2}},GridLines->{Range[0,1300,200],Range[3.7,4.2,0.1]},Frame->True,FrameStyle->Directive[18],FrameLabel->{Style["Time (secs)",FontSize->18],Style["Cell Voltage (V)",FontSize->18]},PlotLabel->Style["NCR18650B Discharge\r6 min at 3.3 A, 15 min rest",FontSize->24],PlotStyle->Red]