freq={1280,1380,1410};

freq=.

freq={f1,f2,f3}

calRTEst={c1E,c2E,c3E}

calRTWest={c1W,c2W,c3W}

calBAOv0={bao1v0,bao2v0,bao3v0}

calBAOv1={bao1v1,bao2v1,bao3v1}

caliV0=calRTEst/calBAOv0

caliV1=calRTWest/calBAOv1

dataV0=Table[{freq[[n]],caliV0[[n]]},{n,1,Length[freq]}]

dataV1=Table[{freq[[n]],caliV1[[n]]},{n,1,Length[freq]}]

InterpolatingPolynomial[dataV0,f] //InputForm

InterpolatingPolynomial[dataV1,f]//InputForm