home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / reg / regdef.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-17  |  2.5 KB  |  55 lines
  1. { --------------------------------------------------------------- }
  2. {                   File : REGDEF.PAS (gehört zu 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. CONST Nmax  = 200 ;                  { max. Anzahl der Messpunkte }
  10.       Spline_Max  = 40;
  11.       Spline_Max1 = 41;
  12.       Step  = 0.1;                   { Abstand von Punkt zu Punkt }
  13.       DateiName = 'REG.DAT';
  14.  
  15.       LinF = 0;                      { Arten der möglichen "Lin." }
  16.      LogaF = 1;                      { "normalen" Regression.     }
  17.       PotF = 2;
  18.       ExpF = 3;
  19.  
  20.      RLinF = 4;                      { Arten der möglichen "Lin." }
  21.     RLogaF = 5;                      { Regression mit Ausreißern. }
  22.      RPotF = 6;
  23.      RExpF = 7;
  24.  
  25. TYPE Messwerte = ARRAY [1 .. Nmax] OF Real;
  26.      Vector    = Messwerte     ;      { für Procedure RobustLinFit }
  27.      Index     = 0 .. Nmax     ;
  28.      Zeile     = STRING [80]   ;
  29.      Art       = LinF .. RExpF ;
  30.  
  31. VAR Anzahl           : Index     ;   { der Meßwerte               }
  32.     x,y              : Messwerte ;
  33.     Datei            : Text      ;
  34.  
  35.     { Art der Auswertung, da mehrere Gleichzeitig ausgewählt werden }
  36.     { können, als Boolean definiert.                                }
  37.     { Lineare Arten der Regression sind :                           }
  38.  
  39.     Lin,            { Lineare Funktion                              }
  40.     RLin,           {    "      "   mit Unterdrückung der Ausreißer }
  41.     Loga,           { Logarithm. Funktion                           }
  42.     RLoga,          {     "       "  "        "        "     "      }
  43.     Pot,            { Potenzfunktion                                }
  44.     RPot,           {      "         "        "        "     "      }
  45.     Expo,           { e - Funktion                                  }
  46.     RExpo,          {       "        "        "        "     "      }
  47.  
  48.     Quad,           { Quadratische Regression nur ohne Unterdrück.  }
  49.     Kub_Spline      { Interpolation (!) mit kubischen Splines       }
  50.  
  51.            : Boolean   ;
  52.  
  53. { --------------------------------------------------------------- }
  54. { --                 Ende von REGDEF.PAS                       -- }
  55.