home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 01 / curves / printout.inc < prev    next >
Encoding:
Text File  |  1988-09-03  |  2.2 KB  |  89 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. { printout.inc     includes procedure to printout standard curve     10/27/86 }
  27. { 11/12/86     ADDITION MADE                            STEPHEN CALLENDER     }
  28.  
  29. PROCEDURE CURVE_HARDCOPY(FFLAG : INTEGER);
  30.          VAR
  31.            NAME  :  MARK;
  32.          BEGIN
  33.          CLRSCR;
  34.            WRITELN;
  35.             WRITELN(LST);
  36.             WRITELN(LST,'Y - INTERCEPT = ',B[FFLAG]:3:3);
  37.             WRITELN(LST);
  38.             WRITELN(LST,'SLOPE         = ',M[FFLAG]:3:3);
  39.             WRITELN(LST);
  40.             WRITELN(LST,'CORR.COEFF    = ',C[FFLAG]:3:3);
  41.          PAUSE
  42. END;
  43.  
  44. PROCEDURE HARDCOPY;
  45.     VAR
  46.      NUM, SPACER, PACE : INTEGER;
  47.      CHOICE : CHAR;
  48.        BEGIN
  49.          WRITELN;
  50.         INVERSE;
  51.              WRITE('DO YOU WANT A HARDCOPY?   [ Y/N ] ');
  52.             NO_inverse;
  53.            READLN(CHOICE);
  54.            IF CHOICE IN ['Y','y'] THEN
  55.               BEGIN
  56.                 WRITE(LST,'=========================');
  57.                 WRITE(LST,'=========================');
  58.                 WRITELN(LST);
  59.                 SPC(25);
  60.                 WRITELN(LST,'STANDARD CURVE');
  61.                 WRITELN(LST); WRITELN(LST);
  62.                 WRITELN(LST,'STANDARD VALUES');
  63. WRITELN(LST,'                 Y1               Y2               Y AVG.');
  64.  FOR NUM := 1 TO ENTRY DO
  65.      BEGIN
  66.        IF (POINT <> 4) THEN BEGIN
  67.             WRITE(LST,'#',NUM); SPC(4);
  68.             WRITE(LST,X[NUM]:3:3); SPC(35);
  69.             WRITELN(LST,Y[NUM]:3:3)
  70.           END
  71.        ELSE
  72.           BEGIN
  73.             WRITE(LST,'#',NUM); SPC(4);
  74.             WRITE(LST,X[NUM]:3:3); SPC(10);
  75.             WRITE(LST,Y1[NUM]:3:3); SPC(10);
  76.                 WRITE(LST,Y2[NUM]:3:3); SPC(10);
  77.                 WRITELN(LST,Y[NUM]:3:3)
  78.               END
  79.             END; { FOR }
  80.          CURVE_HARDCOPY(FLAG);
  81.        WRITELN(LST)
  82.    END
  83. END;
  84.  
  85.  
  86.  
  87.  
  88. 
  89.