function kyDatWrite;

dataBlue = load('gaussPhDat03_1.m');
dataGreen = load('gaussPhDat02_1.m');
KdatBlue = dataBlue(:,1); ydatBlue = dataBlue(:,2);
KdatGreen = dataGreen(:,1); ydatGreen = dataGreen(:,2);

K = 2.01:0.005:2.5;
yBlue = interp1(KdatBlue,ydatBlue,K,'cubic');
yGreen = interp1(KdatGreen,ydatGreen,K,'cubic');

dlmwrite('gaussKY.dat',[K' yBlue' yGreen'],' ');