home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / curves / sample.inc < prev    next >
Encoding:
Text File  |  1988-09-03  |  4.8 KB  |  165 lines
  1. {
  2.                        F i l e    I n f o r m a t i o n
  3.  
  4. * DESCRIPTION
  5. Include source code file for curve.
  6.  
  7. * ASSOCIATED FILES
  8. CURVE.PAS
  9. ASSAY.TXT
  10. CURVE.COM
  11. CURVE4.EXE
  12. CURVE4.PAS
  13. PRINTOUT.INC
  14. PT.LAS
  15. README
  16. SAMPLE.INC
  17. SAMPLE2.INC
  18. SAMPLE4.INC
  19. SAMPLE4B.INC
  20. SPACER.INC
  21. TOOLS.INC
  22. TOOLS4.INC
  23.  
  24. ==========================================================================
  25. }
  26.  
  27. {      SAMPLE.INC   }
  28.  
  29. PROCEDURE DEGUB2(FIT : INTEGER);
  30.     BEGIN
  31.    WRITELN;
  32.       WRITELN; INVERSE;
  33.       WRITE('**====== DEBUGGER ======**');
  34.       WRITELN;
  35.       WRITELN('SLOPE  ',FIT,' - ',M[FIT]:2:2);
  36.       WRITELN('Y-INTERCEPT  ',FIT,'  -  ',B[FIT]:2:2);
  37.       WRITELN;
  38.     PAUSE
  39. END;
  40.  
  41. PROCEDURE X_SINGLE_SAMPLE(TOTAL : INTEGER; FIT : INTEGER);
  42.    VAR
  43.      SAMPLE : INTEGER;
  44.      XV, YV, DIL : ARRAY[1..50] OF REAL;
  45.      SPECIMEN : ARRAY[1..50] OF STR25;
  46.  
  47.    BEGIN
  48.      CLRSCR;
  49.        FOR SAMPLE :=1 TO TOTAL DO BEGIN
  50.          INVERSE; WRITE('SPECIMEN NAME ? '); NO_inverse;
  51.              READLN(SPECIMEN[SAMPLE]);
  52.              WRITELN;
  53.            WRITE('INPUT TEST X ? ');
  54.            READLN(XV[SAMPLE]);
  55.              WRITE('ENTER DILUTION FACTOR [ und = 1 ] ');
  56.              READLN(DIL[SAMPLE]);
  57.              WRITELN
  58.            END;
  59.            { DISPLAY & COMPUTATIONS }
  60.            CASE FIT OF
  61.            1 : BEGIN
  62.                  FOR SAMPLE := 1 TO TOTAL DO BEGIN
  63.                    YV[SAMPLE] := B[FIT] + (M[FIT] * XV[SAMPLE] );
  64.                    YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  65.                 WRITE('#',SAMPLE,'  ');
  66.               WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE]:2:2)
  67.             END;
  68.             PAUSE;
  69.             { DEBUG2(1) }
  70.           END;
  71.           2 : BEGIN
  72.                 FOR SAMPLE := 1 TO TOTAL DO BEGIN
  73.                 YV[SAMPLE] := B[FIT] * SQR(XV[SAMPLE] * M[FIT]);
  74.                 YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  75.               WRITE('#',SAMPLE,'  ');
  76.               WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE]:2:2)
  77.             END;
  78.             PAUSE
  79.           END;
  80.           3 : BEGIN
  81.                 FOR SAMPLE := 1 TO TOTAL DO BEGIN
  82.                 YV[SAMPLE] := B[FIT] + (M[FIT] * LN(XV[SAMPLE]));
  83.                 YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  84.               WRITE('#',SAMPLE,'  ');
  85.               WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE]:2:2)
  86.             END;
  87.             PAUSE
  88.           END;
  89.           4 : BEGIN
  90.                 FOR SAMPLE := 1 TO TOTAL DO BEGIN
  91.                 YV[SAMPLE] := B[FIT] * EXP(M[FIT] * XV[SAMPLE]);
  92.                 YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  93.               WRITE('#',SAMPLE,'  ');
  94.               WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE])
  95.             END;
  96.             PAUSE
  97.           END;
  98.           END (* CASE *)
  99.  
  100. END;
  101.  
  102. PROCEDURE X_PAIRED_SAMPLE(TOTAL : INTEGER; FIT : INTEGER);
  103.    VAR
  104.      SAMPLE : INTEGER;
  105.      XV1, XV2, XV, YV, DIL : ARRAY[1..50] OF REAL;
  106.      SPECIMEN : ARRAY[1..50] OF STR25;
  107.  
  108.    BEGIN
  109.      CLRSCR;
  110.       FOR SAMPLE := 1 TO TOTAL DO BEGIN
  111.         WRITE('SPECIMEN NAME ? ');
  112.         READLN(SPECIMEN[SAMPLE]);
  113.       WRITELN;
  114.       WRITE('ENTER TEST X1 ');
  115.         READLN(XV1[SAMPLE]);
  116.           WRITE('ENTER TEST X2 ');
  117.             READLN(X2[SAMPLE]);
  118.               WRITE('ENTER DILUTION FACTOR [ UND = 1 ] ');
  119.               READLN(DIL[SAMPLE]);
  120.             WRITELN;
  121.             XV[SAMPLE] := (XV1[SAMPLE] + XV2[SAMPLE]) / 2
  122.           END;
  123.           { DISPLAY & COMPUTATION }
  124.       CASE FIT OF
  125.       1 : BEGIN
  126.             FOR SAMPLE := 1 TO TOTAL DO BEGIN
  127.               YV[SAMPLE] := B[FIT] + (M[FIT] * XV[SAMPLE] );
  128.               YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  129.             WRITE('#',SAMPLE,'  ');
  130.           WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE]:2:2)
  131.         END;
  132.         PAUSE
  133.       END;
  134.       2 : BEGIN
  135.             FOR SAMPLE := 1 TO TOTAL DO BEGIN
  136.               YV[SAMPLE] := B[FIT] * SQR(XV[SAMPLE] * M[FIT]);
  137.               YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  138.                WRITE('# ',SAMPLE,'  ');
  139.             WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE]:2:2)
  140.           END;
  141.           PAUSE
  142.         END;
  143.         3 : BEGIN
  144.               FOR SAMPLE := 1 TO TOTAL DO BEGIN
  145.                 YV[SAMPLE] := B[FIT] + M[FIT] * LN(XV[SAMPLE]);
  146.                 YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  147.               WRITE('# ',SAMPLE,'  ');
  148.               WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE]:2:2)
  149.             END;
  150.             PAUSE
  151.           END;
  152.           4 : BEGIN
  153.                 FOR SAMPLE := 1 TO TOTAL DO BEGIN
  154.                 YV [SAMPLE] := B[FIT] * EXP(M[FIT] * XV[SAMPLE]);
  155.                 YV[SAMPLE] := YV[SAMPLE] * DIL[SAMPLE];
  156.               WRITE('# ',SAMPLE,'  ');
  157.               WRITELN(SPECIMEN[SAMPLE],' = ',YV[SAMPLE])
  158.            END;
  159.            PAUSE
  160.          END;
  161.          END (* CASE *)
  162.  
  163. END;
  164. 
  165.