home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / reg / reg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-18  |  2.4 KB  |  75 lines
  1. { --------------------------------------------------------------- }
  2. {                   File : REG.PAS                                }
  3. {          Copyright (c) : 1988  Heinz Hagemeyer & TOOLBOX        }
  4. {                Sprache : TURBO PASCAL 4.0  (oder 3.0)           }
  5. {              Ein Programm zur Auswertung von Meßwerten          }
  6. {                   mit Hilfe von GRAPH.PAS                       }
  7. { --------------------------------------------------------------- }
  8.  
  9. PROGRAM Regression;
  10.  
  11. USES Crt;                 { Entferne diese Zeile bei TURBO 3.0 !  }
  12.  
  13. { --           Einbinden der INCLUDE Dateien                   -- }
  14.  
  15. {$I RegDef.pas              Konstanten und Typendefinitionen      }
  16. {$I RegUtil.pas             Nützliche und notwendige Routinen     }
  17. {$I Eingabe.pas             Eingabe der Meßwerte                  }
  18. {$I RegQuad.pas             Quadratische Regression               }
  19. {$I Spline.pas              Interpolation mit kubischen Splines   }
  20. {$I RobLinFi.pas            Lineare Regression mit Unterdrückung  }
  21. {                           von Ausreißern von Peter Kurzweil     }
  22. {$I RegLin.pas              Lineare Regression normal             }
  23.  
  24.  
  25. BEGIN
  26.      Eingabe ( Anzahl,x,y,
  27.                Lin, RLin, Loga, RLoga, Pot, RPot, Expo, RExpo,
  28.                Quad,Kub_Spline);
  29.  
  30.      Assign (Datei,DateiName);
  31.      Rewrite (Datei);
  32.      Punkte (Anzahl,x,y,Datei);
  33.  
  34.      IF Lin THEN
  35.      IF NOT Lineare_Regression (LinF,1,Anzahl,x,y,Datei)
  36.      THEN Fehler (1);
  37.  
  38.      IF RLin THEN
  39.      IF NOT Lineare_Regression (RLinF,1,Anzahl,x,y,Datei)
  40.      THEN Fehler (1);
  41.  
  42.      IF Loga THEN
  43.      IF NOT Lineare_Regression (LogaF,1,Anzahl,x,y,Datei)
  44.      THEN Fehler (4);
  45.  
  46.      IF RLoga THEN
  47.      IF NOT Lineare_Regression (RLogaF,1,Anzahl,x,y,Datei)
  48.      THEN Fehler (4);
  49.  
  50.      IF Pot THEN
  51.      IF NOT Lineare_Regression (PotF,1,Anzahl,x,y,Datei)
  52.      THEN Fehler (5);
  53.  
  54.      IF RPot THEN
  55.      IF NOT Lineare_Regression (RPotF,1,Anzahl,x,y,Datei)
  56.      THEN Fehler (5);
  57.  
  58.      IF Expo THEN
  59.      IF NOT Lineare_Regression (ExpF,1,Anzahl,x,y,Datei)
  60.      THEN Fehler (6);
  61.  
  62.      IF RExpo THEN
  63.      IF NOT Lineare_Regression (RExpF,1,Anzahl,x,y,Datei)
  64.      THEN Fehler (6);
  65.  
  66.      IF Quad THEN
  67.      IF NOT Quadratische_Regression (1,Anzahl,x,y,Datei)
  68.      THEN Fehler (2);
  69.  
  70.      IF Kub_Spline THEN
  71.      IF NOT Spline_Interpolation (Anzahl,x,y,Datei)
  72.      THEN Fehler (3);
  73.  
  74.      Close (Datei);
  75. END.