Home    Search    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");