Home Reference Manuals Return Track Group Documentation
#!/usr/bin/octave -q
# PSD FREQ
# [mē/(1/m)] [1/m]
PSD_LAT= [
5.46468E-04 0.00000E+00
5.46468E-04 1.00000E-02
5.43981E-04 1.00334E-02
2.67046E-04 1.33779E-02
1.13250E-04 1.67224E-02
8.43518E-05 2.00669E-02
6.48967E-05 2.34114E-02
5.16774E-05 2.67559E-02
3.59191E-05 3.01003E-02
3.21373E-05 3.34448E-02
3.49378E-05 3.67893E-02
2.75223E-05 4.01338E-02
1.69423E-05 4.34783E-02
1.38311E-05 4.68227E-02
1.24062E-05 5.01672E-02
1.02700E-05 5.35117E-02
8.68863E-06 5.68562E-02
8.13672E-06 6.02007E-02
7.17922E-06 6.35452E-02
7.76690E-06 6.68896E-02
9.46891E-06 7.02341E-02
7.69595E-06 7.35786E-02
4.60561E-06 7.69231E-02
4.79382E-06 8.02676E-02
5.84635E-06 8.36120E-02
4.42025E-06 8.69565E-02
3.61984E-06 9.03010E-02
5.37452E-06 9.36455E-02
5.70026E-06 9.69900E-02
4.32520E-06 1.00334E-01
3.01064E-06 1.03679E-01
2.34063E-06 1.07023E-01
2.95562E-06 1.10368E-01
3.04961E-06 1.13712E-01
2.22151E-06 1.17057E-01
1.77039E-06 1.20401E-01
1.78109E-06 1.23746E-01
1.90735E-06 1.27090E-01
1.94095E-06 1.30435E-01
1.72003E-06 1.33779E-01
1.09493E-06 1.37124E-01
8.28920E-07 1.40468E-01
1.12252E-06 1.43813E-01
1.11911E-06 1.47157E-01
9.73155E-07 1.50502E-01
1.03643E-06 1.53846E-01
1.16079E-06 1.57191E-01
1.14346E-06 1.60535E-01
8.36543E-07 1.63880E-01
5.75572E-07 1.67224E-01
5.33735E-07 1.70569E-01
4.25764E-07 1.73913E-01
2.66948E-07 1.77258E-01
3.99049E-07 1.80602E-01
6.15844E-07 1.83946E-01
5.44389E-07 1.87291E-01
5.07861E-07 1.90635E-01
5.34302E-07 1.93980E-01
3.32008E-07 1.97324E-01
1.95321E-07 2.00669E-01
3.09964E-07 2.04013E-01
3.77226E-07 2.07358E-01
3.36022E-07 2.10702E-01
2.95927E-07 2.14047E-01
2.97591E-07 2.17391E-01
3.70298E-07 2.20736E-01
3.93268E-07 2.24080E-01
3.91763E-07 2.27425E-01
3.68418E-07 2.30769E-01
3.31333E-07 2.34114E-01
3.43681E-07 2.37458E-01
2.95634E-07 2.40803E-01
2.53922E-07 2.44147E-01
2.76344E-07 2.47492E-01
2.44633E-07 2.50836E-01
2.05346E-07 2.54181E-01
1.74029E-07 2.57525E-01
1.31767E-07 2.60870E-01
1.46791E-07 2.64214E-01
2.13134E-07 2.67559E-01
2.84217E-07 2.70903E-01
2.84547E-07 2.74247E-01
2.41792E-07 2.77592E-01
1.94759E-07 2.80936E-01
1.53338E-07 2.84281E-01
1.48689E-07 2.87625E-01
1.44945E-07 2.90970E-01
1.57658E-07 2.94314E-01
1.71067E-07 2.97659E-01
1.69876E-07 3.01003E-01
1.69527E-07 3.04348E-01
1.31655E-07 3.07692E-01
1.12423E-07 3.11037E-01
1.24955E-07 3.14381E-01
1.34751E-07 3.17726E-01
1.38132E-07 3.21070E-01
1.17947E-07 3.24415E-01
1.15520E-07 3.27759E-01
1.25122E-07 3.31104E-01
1.21796E-07 3.34448E-01
1.12211E-07 3.37793E-01
9.30821E-08 3.41137E-01
7.04957E-08 3.44482E-01
6.02222E-08 3.47826E-01
5.56687E-08 3.51171E-01
5.58249E-08 3.54515E-01
8.74696E-08 3.57860E-01
1.08794E-07 3.61204E-01
9.53572E-08 3.64549E-01
9.24391E-08 3.67893E-01
1.02245E-07 3.71237E-01
9.56856E-08 3.74582E-01
8.06344E-08 3.77926E-01
6.84835E-08 3.81271E-01
6.85715E-08 3.84615E-01
9.10753E-08 3.87960E-01
9.80225E-08 3.91304E-01
7.80325E-08 3.94649E-01
6.03350E-08 3.97993E-01
5.33376E-08 4.01338E-01
5.93825E-08 4.04682E-01
6.59038E-08 4.08027E-01
6.06981E-08 4.11371E-01
5.34773E-08 4.14716E-01
5.14588E-08 4.18060E-01
5.06295E-08 4.21405E-01
4.64502E-08 4.24749E-01
4.43030E-08 4.28094E-01
4.97354E-08 4.31438E-01
5.81410E-08 4.34783E-01
6.26585E-08 4.38127E-01
6.42360E-08 4.41472E-01
6.68141E-08 4.44816E-01
6.80499E-08 4.48161E-01
6.66226E-08 4.51505E-01
6.39639E-08 4.54850E-01
6.01989E-08 4.58194E-01
5.80958E-08 4.61538E-01
5.89474E-08 4.64883E-01
5.99386E-08 4.68227E-01
6.02175E-08 4.71572E-01
6.12227E-08 4.74916E-01
6.20059E-08 4.78261E-01
6.04520E-08 4.81605E-01
5.77198E-08 4.84950E-01
5.58831E-08 4.88294E-01
5.57520E-08 4.91639E-01
5.69846E-08 4.94983E-01
5.78895E-08 4.98328E-01
5.63600E-08 5.01672E-01
5.35733E-08 5.05017E-01
5.19942E-08 5.08361E-01
5.04642E-08 5.11706E-01
4.80948E-08 5.15050E-01
4.58055E-08 5.18395E-01
4.46544E-08 5.21739E-01
4.45553E-08 5.25084E-01
4.39348E-08 5.28428E-01
4.28771E-08 5.31773E-01
4.26375E-08 5.35117E-01
4.27947E-08 5.38462E-01
4.25844E-08 5.41806E-01
4.26194E-08 5.45151E-01
4.30188E-08 5.48495E-01
4.32517E-08 5.51839E-01
4.30899E-08 5.55184E-01
4.22980E-08 5.58528E-01
4.08186E-08 5.61873E-01
3.89791E-08 5.65217E-01
3.71913E-08 5.68562E-01
3.58339E-08 5.71906E-01
3.50527E-08 5.75251E-01
3.42310E-08 5.78595E-01
3.35206E-08 5.81940E-01
3.34722E-08 5.85284E-01
3.35137E-08 5.88629E-01
3.31196E-08 5.91973E-01
3.27544E-08 5.95318E-01
3.26820E-08 5.98662E-01
3.24955E-08 6.02007E-01
3.21951E-08 6.05351E-01
3.21542E-08 6.08696E-01
3.20214E-08 6.12040E-01
3.12379E-08 6.15385E-01
3.02689E-08 6.18729E-01
2.98274E-08 6.22074E-01
2.99956E-08 6.25418E-01
3.02056E-08 6.28763E-01
3.00136E-08 6.32107E-01
2.97035E-08 6.35451E-01
2.97614E-08 6.38796E-01
3.00353E-08 6.42140E-01
3.02288E-08 6.45485E-01
3.02912E-08 6.48829E-01
3.04426E-08 6.52174E-01
3.06156E-08 6.55518E-01
3.03315E-08 6.58863E-01
3.00929E-08 6.62207E-01
3.02429E-08 6.65552E-01
3.02740E-08 6.68896E-01
3.00262E-08 6.72241E-01
2.97614E-08 6.75585E-01
2.96249E-08 6.78930E-01
2.93973E-08 6.82274E-01
2.90684E-08 6.85619E-01
2.86786E-08 6.88963E-01
2.80530E-08 6.92308E-01
2.73837E-08 6.95652E-01
2.71281E-08 6.98997E-01
2.73661E-08 7.02341E-01
2.75614E-08 7.05686E-01
2.74594E-08 7.09030E-01
2.72046E-08 7.12375E-01
2.70935E-08 7.15719E-01
2.71776E-08 7.19064E-01
2.69125E-08 7.22408E-01
2.64475E-08 7.25753E-01
2.62249E-08 7.29097E-01
2.60862E-08 7.32441E-01
2.58184E-08 7.35786E-01
2.54960E-08 7.39130E-01
2.54364E-08 7.42475E-01
2.54583E-08 7.45819E-01
2.52169E-08 7.49164E-01
2.48983E-08 7.52508E-01
2.46467E-08 7.55853E-01
2.45396E-08 7.59197E-01
2.45968E-08 7.62542E-01
2.47922E-08 7.65886E-01
2.49852E-08 7.69231E-01
2.48181E-08 7.72575E-01
2.45395E-08 7.75920E-01
2.45158E-08 7.79264E-01
2.45072E-08 7.82609E-01
2.44347E-08 7.85953E-01
2.43845E-08 7.89298E-01
2.43311E-08 7.92642E-01
2.43948E-08 7.95987E-01
2.46102E-08 7.99331E-01
2.47219E-08 8.02676E-01
2.46807E-08 8.06020E-01
2.45464E-08 8.09365E-01
2.40898E-08 8.12709E-01
2.35593E-08 8.16054E-01
2.33868E-08 8.19398E-01
2.35505E-08 8.22742E-01
2.36503E-08 8.26087E-01
2.35020E-08 8.29431E-01
2.34469E-08 8.32776E-01
2.35222E-08 8.36120E-01
2.35759E-08 8.39465E-01
2.34234E-08 8.42809E-01
2.30769E-08 8.46154E-01
2.28648E-08 8.49498E-01
2.28292E-08 8.52843E-01
2.28142E-08 8.56187E-01
2.26909E-08 8.59532E-01
2.24010E-08 8.62876E-01
2.19696E-08 8.66221E-01
2.15955E-08 8.69565E-01
2.14641E-08 8.72910E-01
2.14874E-08 8.76254E-01
2.15576E-08 8.79599E-01
2.15290E-08 8.82943E-01
2.13950E-08 8.86288E-01
2.12042E-08 8.89632E-01
2.10331E-08 8.92977E-01
2.09768E-08 8.96321E-01
2.08874E-08 8.99666E-01
2.08685E-08 9.03010E-01
2.09140E-08 9.06354E-01
2.08186E-08 9.09699E-01
2.08061E-08 9.13043E-01
2.09372E-08 9.16388E-01
2.09681E-08 9.19732E-01
2.09181E-08 9.23077E-01
2.09408E-08 9.26421E-01
2.09797E-08 9.29766E-01
2.10232E-08 9.33110E-01
2.12082E-08 9.36455E-01
2.13800E-08 9.39799E-01
2.13008E-08 9.43144E-01
2.10874E-08 9.46488E-01
2.09253E-08 9.49833E-01
2.08040E-08 9.53177E-01
2.07985E-08 9.56522E-01
2.09657E-08 9.59866E-01
2.10734E-08 9.63211E-01
2.10379E-08 9.66555E-01
2.10107E-08 9.69900E-01
2.10349E-08 9.73244E-01
2.11697E-08 9.76589E-01
2.12407E-08 9.79933E-01
2.11162E-08 9.83278E-01
2.10659E-08 9.86622E-01
2.11487E-08 9.89967E-01
2.11913E-08 9.93311E-01
2.10257E-08 9.96656E-01
2.07278E-08 1.00000E+00
2.07278E-08 1.00000E+02
];
fid= fopen ("PSD_LAT.psd", "w");
if (fid == -1) error ("Can not open file PSD_LAT.psd"); end
fprintf(fid,"\n PSD_LAT=\n");
for i= 1:length(PSD_LAT)
if (PSD_LAT(i,2) < 1./25.)
PSD_LAT(i,1)= 10.*PSD_LAT(i,1);
else
PSD_LAT(i,1)= PSD_LAT(i,1);
end
fprintf(fid," %e %e\n", PSD_LAT(i,1), PSD_LAT(i,2));
end
fclose (fid);
fprintf("File PSD_LAT.psd has been written\n");