Home    Search    Reference Manuals    Return    Track Group Documentation


#!/usr/bin/octave -q

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

 PSD_GAUGE= [
  2.29242E-05  0.00000E+00
  2.29242E-05  1.00000E-02
  2.28830E-05  1.00334E-02
  1.82092E-05  1.33779E-02
  2.02875E-05  1.67224E-02
  2.03616E-05  2.00669E-02
  1.36868E-05  2.34114E-02
  9.11818E-06  2.67559E-02
  9.48800E-06  3.01003E-02
  9.71675E-06  3.34448E-02
  8.50189E-06  3.67893E-02
  7.38814E-06  4.01338E-02
  6.14357E-06  4.34783E-02
  5.50206E-06  4.68227E-02
  6.01315E-06  5.01672E-02
  5.73492E-06  5.35117E-02
  5.41108E-06  5.68562E-02
  5.61453E-06  6.02007E-02
  5.18075E-06  6.35452E-02
  4.70484E-06  6.68896E-02
  4.17370E-06  7.02341E-02
  3.93870E-06  7.35786E-02
  4.33457E-06  7.69231E-02
  3.93242E-06  8.02676E-02
  2.98471E-06  8.36120E-02
  3.02872E-06  8.69565E-02
  3.50011E-06  9.03010E-02
  3.45158E-06  9.36455E-02
  3.59886E-06  9.69900E-02
  3.64574E-06  1.00334E-01
  3.47084E-06  1.03679E-01
  3.18558E-06  1.07023E-01
  2.33436E-06  1.10368E-01
  1.74768E-06  1.13712E-01
  1.44596E-06  1.17057E-01
  1.20010E-06  1.20401E-01
  1.45154E-06  1.23746E-01
  1.41009E-06  1.27090E-01
  9.04661E-07  1.30435E-01
  8.82247E-07  1.33779E-01
  1.05765E-06  1.37124E-01
  8.74058E-07  1.40468E-01
  6.79991E-07  1.43813E-01
  6.72252E-07  1.47157E-01
  6.87526E-07  1.50502E-01
  5.77136E-07  1.53846E-01
  4.85935E-07  1.57191E-01
  4.70286E-07  1.60535E-01
  3.95319E-07  1.63880E-01
  4.14172E-07  1.67224E-01
  4.47327E-07  1.70569E-01
  3.37282E-07  1.73913E-01
  3.22949E-07  1.77258E-01
  3.84243E-07  1.80602E-01
  2.97936E-07  1.83946E-01
  2.12364E-07  1.87291E-01
  2.33385E-07  1.90635E-01
  2.34584E-07  1.93980E-01
  2.11959E-07  1.97324E-01
  2.05593E-07  2.00669E-01
  2.17800E-07  2.04013E-01
  2.00375E-07  2.07358E-01
  1.50841E-07  2.10702E-01
  1.29306E-07  2.14047E-01
  1.50792E-07  2.17391E-01
  1.56515E-07  2.20736E-01
  1.02786E-07  2.24080E-01
  7.38264E-08  2.27425E-01
  1.14023E-07  2.30769E-01
  1.37660E-07  2.34114E-01
  1.10358E-07  2.37458E-01
  9.36954E-08  2.40803E-01
  8.90143E-08  2.44147E-01
  9.14578E-08  2.47492E-01
  9.09635E-08  2.50836E-01
  7.59942E-08  2.54181E-01
  7.20870E-08  2.57525E-01
  6.41937E-08  2.60870E-01
  4.69326E-08  2.64214E-01
  5.82427E-08  2.67559E-01
  8.17226E-08  2.70903E-01
  7.32568E-08  2.74247E-01
  5.66036E-08  2.77592E-01
  5.47980E-08  2.80936E-01
  5.62567E-08  2.84281E-01
  5.30433E-08  2.87625E-01
  4.70247E-08  2.90970E-01
  4.39926E-08  2.94314E-01
  4.20790E-08  2.97659E-01
  4.07269E-08  3.01003E-01
  4.31475E-08  3.04348E-01
  4.26375E-08  3.07692E-01
  4.37161E-08  3.11037E-01
  3.59414E-08  3.14381E-01
  1.88359E-08  3.17726E-01
  2.14966E-08  3.21070E-01
  3.10958E-08  3.24415E-01
  3.03121E-08  3.27759E-01
  2.59933E-08  3.31104E-01
  2.40377E-08  3.34448E-01
  2.59066E-08  3.37793E-01
  2.47115E-08  3.41137E-01
  2.43753E-08  3.44482E-01
  2.47446E-08  3.47826E-01
  1.80099E-08  3.51171E-01
  1.15446E-08  3.54515E-01
  9.16792E-09  3.57860E-01
  1.14931E-08  3.61204E-01
  1.90466E-08  3.64549E-01
  2.15622E-08  3.67893E-01
  2.00534E-08  3.71237E-01
  1.89248E-08  3.74582E-01
  1.59572E-08  3.77926E-01
  1.46117E-08  3.81271E-01
  1.31633E-08  3.84615E-01
  1.25735E-08  3.87960E-01
  1.19336E-08  3.91304E-01
  7.93579E-09  3.94649E-01
  7.59987E-09  3.97993E-01
  1.13320E-08  4.01338E-01
  1.50156E-08  4.04682E-01
  1.79121E-08  4.08027E-01
  1.80490E-08  4.11371E-01
  1.59176E-08  4.14716E-01
  1.39167E-08  4.18060E-01
  1.27557E-08  4.21405E-01
  1.18771E-08  4.24749E-01
  1.10647E-08  4.28094E-01
  1.07895E-08  4.31438E-01
  1.08284E-08  4.34783E-01
  1.01052E-08  4.38127E-01
  9.36817E-09  4.41472E-01
  9.62568E-09  4.44816E-01
  9.85416E-09  4.48161E-01
  9.00784E-09  4.51505E-01
  8.37429E-09  4.54850E-01
  8.57382E-09  4.58194E-01
  8.45345E-09  4.61538E-01
  8.46181E-09  4.64883E-01
  8.81688E-09  4.68227E-01
  8.91762E-09  4.71572E-01
  8.88361E-09  4.74916E-01
  8.61755E-09  4.78261E-01
  7.70010E-09  4.81605E-01
  6.81575E-09  4.84950E-01
  6.66414E-09  4.88294E-01
  6.86242E-09  4.91639E-01
  7.02887E-09  4.94983E-01
  6.99377E-09  4.98328E-01
  6.88584E-09  5.01672E-01
  6.80076E-09  5.05017E-01
  6.66887E-09  5.08361E-01
  6.54662E-09  5.11706E-01
  6.43807E-09  5.15050E-01
  6.44173E-09  5.18395E-01
  6.51646E-09  5.21739E-01
  6.20985E-09  5.25084E-01
  5.66808E-09  5.28428E-01
  5.24089E-09  5.31773E-01
  4.95924E-09  5.35117E-01
  5.05887E-09  5.38462E-01
  5.20756E-09  5.41806E-01
  5.07452E-09  5.45151E-01
  4.99581E-09  5.48495E-01
  5.01765E-09  5.51839E-01
  4.95282E-09  5.55184E-01
  4.84535E-09  5.58528E-01
  4.74213E-09  5.61873E-01
  4.60639E-09  5.65217E-01
  4.41851E-09  5.68562E-01
  4.25824E-09  5.71906E-01
  4.22320E-09  5.75251E-01
  4.22541E-09  5.78595E-01
  4.18893E-09  5.81940E-01
  4.11341E-09  5.85284E-01
  4.05745E-09  5.88629E-01
  4.06067E-09  5.91973E-01
  4.05996E-09  5.95318E-01
  4.05910E-09  5.98662E-01
  4.03685E-09  6.02007E-01
  3.95512E-09  6.05351E-01
  3.86827E-09  6.08696E-01
  3.82824E-09  6.12040E-01
  3.78272E-09  6.15385E-01
  3.68702E-09  6.18729E-01
  3.62562E-09  6.22074E-01
  3.61371E-09  6.25418E-01
  3.59643E-09  6.28763E-01
  3.52889E-09  6.32107E-01
  3.42854E-09  6.35451E-01
  3.35955E-09  6.38796E-01
  3.31680E-09  6.42140E-01
  3.29714E-09  6.45485E-01
  3.26240E-09  6.48829E-01
  3.15322E-09  6.52174E-01
  3.04821E-09  6.55518E-01
  3.03052E-09  6.58863E-01
  2.96938E-09  6.62207E-01
  2.81456E-09  6.65552E-01
  2.70973E-09  6.68896E-01
  2.65714E-09  6.72241E-01
  2.59033E-09  6.75585E-01
  2.53729E-09  6.78930E-01
  2.54590E-09  6.82274E-01
  2.53751E-09  6.85619E-01
  2.42629E-09  6.88963E-01
  2.31831E-09  6.92308E-01
  2.28960E-09  6.95652E-01
  2.31784E-09  6.98997E-01
  2.34190E-09  7.02341E-01
  2.31533E-09  7.05686E-01
  2.30182E-09  7.09030E-01
  2.35490E-09  7.12375E-01
  2.39647E-09  7.15719E-01
  2.36526E-09  7.19064E-01
  2.33454E-09  7.22408E-01
  2.29642E-09  7.25753E-01
  2.20200E-09  7.29097E-01
  2.12406E-09  7.32441E-01
  2.10355E-09  7.35786E-01
  2.08282E-09  7.39130E-01
  2.02903E-09  7.42475E-01
  1.96494E-09  7.45819E-01
  1.89017E-09  7.49164E-01
  1.82048E-09  7.52508E-01
  1.81802E-09  7.55853E-01
  1.83263E-09  7.59197E-01
  1.76856E-09  7.62542E-01
  1.69225E-09  7.65886E-01
  1.65261E-09  7.69231E-01
  1.61243E-09  7.72575E-01
  1.56028E-09  7.75920E-01
  1.48573E-09  7.79264E-01
  1.42535E-09  7.82609E-01
  1.40746E-09  7.85953E-01
  1.37943E-09  7.89298E-01
  1.32645E-09  7.92642E-01
  1.29825E-09  7.95987E-01
  1.30097E-09  7.99331E-01
  1.30340E-09  8.02676E-01
  1.29126E-09  8.06020E-01
  1.27253E-09  8.09365E-01
  1.25685E-09  8.12709E-01
  1.26960E-09  8.16054E-01
  1.30379E-09  8.19398E-01
  1.32498E-09  8.22742E-01
  1.31769E-09  8.26087E-01
  1.26549E-09  8.29431E-01
  1.21808E-09  8.32776E-01
  1.20115E-09  8.36120E-01
  1.18249E-09  8.39465E-01
  1.18778E-09  8.42809E-01
  1.20741E-09  8.46154E-01
  1.18345E-09  8.49498E-01
  1.13389E-09  8.52843E-01
  1.10117E-09  8.56187E-01
  1.10096E-09  8.59532E-01
  1.12935E-09  8.62876E-01
  1.15873E-09  8.66221E-01
  1.19485E-09  8.69565E-01
  1.25419E-09  8.72910E-01
  1.28173E-09  8.76254E-01
  1.29040E-09  8.79599E-01
  1.31235E-09  8.82943E-01
  1.30411E-09  8.86288E-01
  1.27266E-09  8.89632E-01
  1.23846E-09  8.92977E-01
  1.21637E-09  8.96321E-01
  1.19741E-09  8.99666E-01
  1.16107E-09  9.03010E-01
  1.11568E-09  9.06354E-01
  1.09973E-09  9.09699E-01
  1.12243E-09  9.13043E-01
  1.11686E-09  9.16388E-01
  1.06788E-09  9.19732E-01
  1.02596E-09  9.23077E-01
  1.01907E-09  9.26421E-01
  1.03701E-09  9.29766E-01
  1.03414E-09  9.33110E-01
  1.01808E-09  9.36455E-01
  1.03823E-09  9.39799E-01
  1.07762E-09  9.43144E-01
  1.09379E-09  9.46488E-01
  1.09480E-09  9.49833E-01
  1.09862E-09  9.53177E-01
  1.07330E-09  9.56522E-01
  1.02533E-09  9.59866E-01
  1.00708E-09  9.63211E-01
  1.03540E-09  9.66555E-01
  1.07417E-09  9.69900E-01
  1.07045E-09  9.73244E-01
  1.05457E-09  9.76589E-01
  1.05773E-09  9.79933E-01
  1.05790E-09  9.83278E-01
  1.07398E-09  9.86622E-01
  1.10516E-09  9.89967E-01
  1.11035E-09  9.93311E-01
  1.07566E-09  9.96656E-01
  1.02518E-09  1.00000E+00
  1.02518E-09  1.00000E+02
  ];

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

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

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

 fclose (fid);

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