MX = 140

new = {23.75, 23.50, 26.75,31.50,36.50}
bp = {  91.60,
  81.10,
  83.60,
  93.10,
  99.20,
  86.40,
 100.00,
 107.90,
  97.90,
  81.00,
  76.70,
  85.20,
 129.60,
  98.60,
  90.90,
 101.10,
 171.70,
 132.60,
 115.40,
 109.00
}
bpn = Partition[bp,4]
bpn2 = Transpose[bpn]
bp1 = bpn2[[1]]
bp2 = bpn2[[2]]
bp3 = bpn2[[3]]
bp4 = bpn2[[4]]

gr0 = ListPlot[new, PlotJoined -> True, PlotRange -> {0,MX},
		PlotStyle -> Thickness[0.0025]]
gr1 = ListPlot[bp1, PlotJoined -> True, PlotRange -> {0,MX},
		PlotStyle -> {Thickness[0.0025], Dashing[{0.01, 0.01}]}]
gr2 = ListPlot[bp2, PlotJoined -> True, PlotRange -> {0,MX},
		PlotStyle -> {Thickness[0.0025], Dashing[{0.001, 0.010}]}]
gr3 = ListPlot[bp3, PlotJoined -> True, PlotRange -> {0,MX},
		PlotStyle -> {Thickness[0.0025], Dashing[{0.005, 0.010}]}]
gr4 = Show[gr0, gr2, gr3]


Display["bp", gr4]
