ID220 Quantum Efficiency

(* QE extracted from datasheet in pairs of relative x,y coordinates *)
(* x: 900 - 1700nm *) (* y: 0 - 0.24 *) 
rawcurve=Accumulate[{{0,0},{5.5673,5.5664},{5.5672,4.2239},{5.5667,1.8235},{5.5672,3.1674},{5.5676,2.5917},{5.5669,3.1675},{5.5673,5.5672},{5.5672,4.6075},{5.567,5.087},{5.567199,6.9109},{5.5673,10.1746},{5.5669,22.9406},{5.567,18.5246},{5.5672,13.9182},{5.5673,7.0069},{5.5672,8.8311},{5.5673,9.8864},{5.5666,8.9265},{5.6634,8.9266},{5.5672,4.5114},{5.5673,1.6316},{5.5672,-0.4796},{5.5667,-1.152},{5.5675,-5.2793},{5.5672,-2.1118},{5.567,-3.2635},{5.567,-1.7277},{5.5672,-1.3439},{5.5673,-2.6876},{5.5672,0.3841},{5.5672,-2.4956},{5.5667,-4.5113},{5.5673,-6.0475},{5.5672,-8.2547},{2.7836,-17.373},{2.7837,-9.2143},{5.5672,-33.787},{5.5672,-32.7308},{5.5667,-20.0614},{5.5675,-4.8951},{5.5673,-1.8235}}];
maxx = Max[Transpose[rawcurve][[1]]]; maxy = Max[Transpose[rawcurve][[2]]];
normcurve = Map[Function[x,{x[[1]]/maxx,x[[2]]/maxy}],rawcurve];
curve = Map[Function[x,{(x[[1]]*(1.7-0.9)+0.9),(x[[2]]*0.24)}],normcurve];
(* Finally produce a function which can be used to return a Q.E. *)
id220=Interpolation[curve];