I am finding it difficult to interpret this graph

I am working on our lab exercise. I am verifying weiner-kinchine relation. I am finding it tough to interpret this graph. I am posting the code as well. My problem is the PSD of the signal and PSD so found using fourier transform of Auto correlation have exorbitant different in magnitudes. Your help will be priceless
Yours sincerely
T.V.Chandra shekar
```//Program To Verify Weiner Kinchine Relation
clc;
clear;
close;
sample_rate=1000;
N = 1024;
t = (0:N-1)*1/(sample_rate);
s=sin(2*%pi*50*t) + sin(2*%pi*100*t);
subplot(3,1,1);
plot(t,s);xgrid(color("green"));
a = gca();a.x_location = "origin";a.y_location = "origin";
xtitle('Sine Signal','t Axis','sin(t)');
//Generating 1024 equally spaced points between 0 and 1000;
//Distance between the points is (1000/1024)
f=sample_rate*(0:(N-1))/N;
n=size(f,'*')
y=fft(s);
subplot(3,1,2);
plot(f,abs(y(1:n)));xgrid(color("green"));
a = gca();a.x_location = "origin";a.y_location = "origin";
xtitle('Magnitude Spectrum','f Frequency','|y| Magnitude');
scorr = xcorr(s,s);
maxData = max(scorr);
[i,j] = find(scorr==maxData);
scorr = scorr(j:\$);
fscorr = fft(scorr);
subplot(3,1,3);
plot2d(f,(abs(fscorr).^2));xgrid(color("green"));
a = gca();a.x_location = "origin";a.y_location = "origin";
xtitle('Magnitude Spectrum','f Frequenc','|y| Magnitude');```

Scilab 18-06-18, 7:59 p.m. chandrashekar