Programmierung

      with MyInfoForm.InfoMemo.Lines do
      begin
        Add('');
        Add('Profilverschiebung nach den Planeten ausgerichtet:');
        Add('');
        Add('       z = ' + IntToStr(z_Z) + '   ' + IntToStr(z_P) + '   ' + IntToStr(z_H));
        Add('     m_n = ' + FloatToStrF(m_n, ffFixed, 15, 4));
        Add('       a = ' + FloatToStrF(a_ZP, ffFixed, 15, 4) + '   ' + FloatToStrF(a_PH, ffFixed, 15, 4));
        Add('     a_d = ' + FloatToStrF(a_dZP, ffFixed, 15, 4) + '   ' + FloatToStrF(a_dPH, ffFixed, 15, 4));
        Add('    beta = ' + FloatToStrF(beta*180/pi, ffFixed, 15, 13));
        Add(' alpha_n = ' + FloatToStrF(alpha_n*180/pi, ffFixed, 15, 13));
        Add(' alpha_t = ' + FloatToStrF(alpha_t*180/pi, ffFixed, 15, 13));
        Add('alpha_wt = ' + FloatToStrF(alpha_wtZP*180/pi, ffFixed, 15, 13) + '   ' + FloatToStrF(alpha_wtPH*180/pi, ffFixed, 15, 13));
        Add('   x_sum = ' + FloatToStrF(x_sumZP, ffFixed, 15, 4) + '   ' + FloatToStrF(x_sumPH, ffFixed, 15, 4));
        Add('       x = ' + FloatToStrF(x_Z, ffFixed, 6, 4) + '   ' + FloatToStrF(x_P, ffFixed, 6, 4) + '   ' + FloatToStrF(x_H, ffFixed, 6, 4));
      end;

 

 

Home | Programmierung | Impressum | Kontakt | Downloads |