Home    Search    Reference Manuals    Return    Track Group Documentation


#!/usr/bin/octave -q

#   PSD          FREQ
#   [m²/(1/m)]   [1/m]

 PSD_VERT= [
  7.56479E-04  0.00000E+00
  7.56479E-04  1.00000E-02
  7.49990E-04  1.00334E-02
  3.88254E-04  1.33779E-02
  2.43004E-04  1.67224E-02
  1.68539E-04  2.00669E-02
  1.23978E-04  2.34114E-02
  9.65746E-05  2.67559E-02
  7.02928E-05  3.01003E-02
  5.15814E-05  3.34448E-02
  4.26360E-05  3.67893E-02
  3.74416E-05  4.01338E-02
  3.39094E-05  4.34783E-02
  2.96002E-05  4.68227E-02
  2.55748E-05  5.01672E-02
  2.20214E-05  5.35117E-02
  1.93933E-05  5.68562E-02
  1.78638E-05  6.02007E-02
  1.64843E-05  6.35452E-02
  1.35373E-05  6.68896E-02
  1.15797E-05  7.02341E-02
  1.07890E-05  7.35786E-02
  1.03442E-05  7.69231E-02
  1.15369E-05  8.02676E-02
  1.11835E-05  8.36120E-02
  9.57822E-06  8.69565E-02
  8.38897E-06  9.03010E-02
  7.41745E-06  9.36455E-02
  6.88477E-06  9.69900E-02
  6.02330E-06  1.00334E-01
  5.37697E-06  1.03679E-01
  4.35002E-06  1.07023E-01
  3.40191E-06  1.10368E-01
  3.56514E-06  1.13712E-01
  3.46662E-06  1.17057E-01
  2.95621E-06  1.20401E-01
  2.49901E-06  1.23746E-01
  2.10593E-06  1.27090E-01
  2.09382E-06  1.30435E-01
  2.08522E-06  1.33779E-01
  1.79730E-06  1.37124E-01
  1.34145E-06  1.40468E-01
  1.37584E-06  1.43813E-01
  1.64703E-06  1.47157E-01
  1.47994E-06  1.50502E-01
  1.34488E-06  1.53846E-01
  1.20057E-06  1.57191E-01
  9.89734E-07  1.60535E-01
  8.43586E-07  1.63880E-01
  7.43084E-07  1.67224E-01
  7.14682E-07  1.70569E-01
  6.61502E-07  1.73913E-01
  6.62156E-07  1.77258E-01
  6.54989E-07  1.80602E-01
  5.52394E-07  1.83946E-01
  5.16728E-07  1.87291E-01
  5.10123E-07  1.90635E-01
  4.56148E-07  1.93980E-01
  4.32703E-07  1.97324E-01
  4.07792E-07  2.00669E-01
  3.81232E-07  2.04013E-01
  3.44636E-07  2.07358E-01
  3.13739E-07  2.10702E-01
  3.06503E-07  2.14047E-01
  2.87871E-07  2.17391E-01
  2.79947E-07  2.20736E-01
  2.66620E-07  2.24080E-01
  2.26852E-07  2.27425E-01
  2.13591E-07  2.30769E-01
  2.09042E-07  2.34114E-01
  1.80460E-07  2.37458E-01
  1.95944E-07  2.40803E-01
  1.99400E-07  2.44147E-01
  1.59589E-07  2.47492E-01
  1.41703E-07  2.50836E-01
  1.31293E-07  2.54181E-01
  1.41594E-07  2.57525E-01
  1.53889E-07  2.60870E-01
  1.28863E-07  2.64214E-01
  1.04111E-07  2.67559E-01
  1.07469E-07  2.70903E-01
  1.35022E-07  2.74247E-01
  1.43450E-07  2.77592E-01
  1.10102E-07  2.80936E-01
  7.33022E-08  2.84281E-01
  6.43958E-08  2.87625E-01
  9.31314E-08  2.90970E-01
  1.14060E-07  2.94314E-01
  9.80856E-08  2.97659E-01
  8.27279E-08  3.01003E-01
  7.86170E-08  3.04348E-01
  6.71885E-08  3.07692E-01
  6.41587E-08  3.11037E-01
  8.13734E-08  3.14381E-01
  7.83598E-08  3.17726E-01
  6.11023E-08  3.21070E-01
  5.71857E-08  3.24415E-01
  5.74512E-08  3.27759E-01
  5.74259E-08  3.31104E-01
  5.34267E-08  3.34448E-01
  4.90729E-08  3.37793E-01
  5.38356E-08  3.41137E-01
  5.20471E-08  3.44482E-01
  4.52433E-08  3.47826E-01
  5.32409E-08  3.51171E-01
  4.89383E-08  3.54515E-01
  3.17654E-08  3.57860E-01
  2.88767E-08  3.61204E-01
  3.07510E-08  3.64549E-01
  2.74128E-08  3.67893E-01
  2.28517E-08  3.71237E-01
  2.17786E-08  3.74582E-01
  2.78495E-08  3.77926E-01
  3.09320E-08  3.81271E-01
  2.77590E-08  3.84615E-01
  3.00385E-08  3.87960E-01
  3.40860E-08  3.91304E-01
  2.84361E-08  3.94649E-01
  2.28753E-08  3.97993E-01
  2.87029E-08  4.01338E-01
  2.90047E-08  4.04682E-01
  2.45741E-08  4.08027E-01
  2.42786E-08  4.11371E-01
  2.31845E-08  4.14716E-01
  2.10852E-08  4.18060E-01
  1.91432E-08  4.21405E-01
  1.64033E-08  4.24749E-01
  1.69687E-08  4.28094E-01
  1.97578E-08  4.31438E-01
  2.04330E-08  4.34783E-01
  1.84060E-08  4.38127E-01
  1.63137E-08  4.41472E-01
  1.63515E-08  4.44816E-01
  1.58340E-08  4.48161E-01
  1.41305E-08  4.51505E-01
  1.37707E-08  4.54850E-01
  1.47108E-08  4.58194E-01
  1.54519E-08  4.61538E-01
  1.53488E-08  4.64883E-01
  1.54537E-08  4.68227E-01
  1.61415E-08  4.71572E-01
  1.62875E-08  4.74916E-01
  1.61037E-08  4.78261E-01
  1.58008E-08  4.81605E-01
  1.50897E-08  4.84950E-01
  1.40253E-08  4.88294E-01
  1.28433E-08  4.91639E-01
  1.22436E-08  4.94983E-01
  1.21758E-08  4.98328E-01
  1.19807E-08  5.01672E-01
  1.14525E-08  5.05017E-01
  1.07818E-08  5.08361E-01
  1.05100E-08  5.11706E-01
  1.06293E-08  5.15050E-01
  1.05592E-08  5.18395E-01
  1.04133E-08  5.21739E-01
  1.03875E-08  5.25084E-01
  1.03764E-08  5.28428E-01
  1.03612E-08  5.31773E-01
  1.01965E-08  5.35117E-01
  9.93273E-09  5.38462E-01
  9.56470E-09  5.41806E-01
  9.26176E-09  5.45151E-01
  9.24743E-09  5.48495E-01
  9.16942E-09  5.51839E-01
  8.92966E-09  5.55184E-01
  8.72973E-09  5.58528E-01
  8.62504E-09  5.61873E-01
  8.60519E-09  5.65217E-01
  8.49899E-09  5.68562E-01
  8.28519E-09  5.71906E-01
  8.19367E-09  5.75251E-01
  8.22689E-09  5.78595E-01
  8.22088E-09  5.81940E-01
  7.97523E-09  5.85284E-01
  7.45428E-09  5.88629E-01
  6.96252E-09  5.91973E-01
  6.79182E-09  5.95318E-01
  6.82845E-09  5.98662E-01
  6.82590E-09  6.02007E-01
  6.69684E-09  6.05351E-01
  6.44387E-09  6.08696E-01
  6.28911E-09  6.12040E-01
  6.27830E-09  6.15385E-01
  6.28187E-09  6.18729E-01
  6.35239E-09  6.22074E-01
  6.29725E-09  6.25418E-01
  5.98810E-09  6.28763E-01
  5.70787E-09  6.32107E-01
  5.61181E-09  6.35451E-01
  5.57819E-09  6.38796E-01
  5.44910E-09  6.42140E-01
  5.27215E-09  6.45485E-01
  5.12348E-09  6.48829E-01
  5.06142E-09  6.52174E-01
  5.10391E-09  6.55518E-01
  5.04884E-09  6.58863E-01
  4.91562E-09  6.62207E-01
  4.93050E-09  6.65552E-01
  4.94337E-09  6.68896E-01
  4.76877E-09  6.72241E-01
  4.60135E-09  6.75585E-01
  4.53045E-09  6.78930E-01
  4.42718E-09  6.82274E-01
  4.28062E-09  6.85619E-01
  4.22701E-09  6.88963E-01
  4.23047E-09  6.92308E-01
  4.17040E-09  6.95652E-01
  4.11674E-09  6.98997E-01
  4.11252E-09  7.02341E-01
  4.12531E-09  7.05686E-01
  4.09927E-09  7.09030E-01
  4.02593E-09  7.12375E-01
  3.92815E-09  7.15719E-01
  3.83191E-09  7.19064E-01
  3.79833E-09  7.22408E-01
  3.84548E-09  7.25753E-01
  3.86727E-09  7.29097E-01
  3.75805E-09  7.32441E-01
  3.60523E-09  7.35786E-01
  3.53289E-09  7.39130E-01
  3.58266E-09  7.42475E-01
  3.63074E-09  7.45819E-01
  3.64024E-09  7.49164E-01
  3.68163E-09  7.52508E-01
  3.61977E-09  7.55853E-01
  3.55338E-09  7.59197E-01
  3.58441E-09  7.62542E-01
  3.47116E-09  7.65886E-01
  3.28877E-09  7.69231E-01
  3.18599E-09  7.72575E-01
  3.04853E-09  7.75920E-01
  2.94006E-09  7.79264E-01
  2.91686E-09  7.82609E-01
  2.86009E-09  7.85953E-01
  2.75318E-09  7.89298E-01
  2.68915E-09  7.92642E-01
  2.66050E-09  7.95987E-01
  2.64074E-09  7.99331E-01
  2.64508E-09  8.02676E-01
  2.58084E-09  8.06020E-01
  2.41300E-09  8.09365E-01
  2.26717E-09  8.12709E-01
  2.21178E-09  8.16054E-01
  2.14466E-09  8.19398E-01
  2.03374E-09  8.22742E-01
  1.94336E-09  8.26087E-01
  1.88370E-09  8.29431E-01
  1.85225E-09  8.32776E-01
  1.87414E-09  8.36120E-01
  1.95924E-09  8.39465E-01
  1.98220E-09  8.42809E-01
  1.88479E-09  8.46154E-01
  1.82161E-09  8.49498E-01
  1.85620E-09  8.52843E-01
  1.86772E-09  8.56187E-01
  1.82504E-09  8.59532E-01
  1.82176E-09  8.62876E-01
  1.81315E-09  8.66221E-01
  1.75523E-09  8.69565E-01
  1.73872E-09  8.72910E-01
  1.74361E-09  8.76254E-01
  1.72259E-09  8.79599E-01
  1.66306E-09  8.82943E-01
  1.57036E-09  8.86288E-01
  1.50776E-09  8.89632E-01
  1.49632E-09  8.92977E-01
  1.48908E-09  8.96321E-01
  1.45319E-09  8.99666E-01
  1.42702E-09  9.03010E-01
  1.43195E-09  9.06354E-01
  1.48411E-09  9.09699E-01
  1.58155E-09  9.13043E-01
  1.64113E-09  9.16388E-01
  1.64726E-09  9.19732E-01
  1.63656E-09  9.23077E-01
  1.62639E-09  9.26421E-01
  1.62536E-09  9.29766E-01
  1.59463E-09  9.33110E-01
  1.52276E-09  9.36455E-01
  1.44059E-09  9.39799E-01
  1.38588E-09  9.43144E-01
  1.35484E-09  9.46488E-01
  1.35326E-09  9.49833E-01
  1.41956E-09  9.53177E-01
  1.50932E-09  9.56522E-01
  1.54483E-09  9.59866E-01
  1.50080E-09  9.63211E-01
  1.41099E-09  9.66555E-01
  1.31768E-09  9.69900E-01
  1.25793E-09  9.73244E-01
  1.25213E-09  9.76589E-01
  1.26956E-09  9.79933E-01
  1.28693E-09  9.83278E-01
  1.28907E-09  9.86622E-01
  1.25969E-09  9.89967E-01
  1.25291E-09  9.93311E-01
  1.28490E-09  9.96656E-01
  1.31598E-09  1.00000E+00
  1.31598E-09  1.00000E+02
  ];

 fid= fopen ("PSD_VERT.psd", "w");
 if (fid == -1) error ("Can not open file PSD_VERT.psd"); end

 fprintf(fid,"\n PSD_VERT=\n");

  for i= 1:length(PSD_VERT)
   if (PSD_VERT(i,2) < 1./25.)
    PSD_VERT(i,1)= 10.*PSD_VERT(i,1);
   else
    PSD_VERT(i,1)=     PSD_VERT(i,1);
   end
   fprintf(fid," %e %e\n", PSD_VERT(i,1), PSD_VERT(i,2));
  end

 fclose (fid);

 fprintf("File PSD_VERT.psd has been written\n");