home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / LAXIS.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  841 b   |  29 lines
  1.         SUBROUTINE LAXIS(ALOW,AHIGH,MAXTCK,BMIN,BMAX,BTICK)
  2. C
  3. C       THIS ROUTINE FINDS A SUITABLE TICK FOR LOG AXES
  4. C
  5.         DATA SMLREL /1E-38/
  6. C
  7.         BLOW = ALOG10(AMAX1(SMLREL,AMIN1(AHIGH,ALOW)))
  8.         BHIGH = ALOG10(AMAX1(ALOW,AHIGH,1E2*SMLREL))
  9.         RANGE = BHIGH-BLOW
  10. C       1E-2 IS FUZZ FACTOR
  11.         IF (RANGE .LE. 1E-2) RANGE = 1.0
  12.         ISTRT = 1
  13.         IMAX = 5
  14. 30      DO 50 I=ISTRT,IMAX,ISTRT
  15.         NTCKS = RANGE/I + 0.999
  16.     IF (NTCKS .LE. 1) NTCKS = 1
  17.         IF (NTCKS .LE. MAXTCK) GO TO 60
  18. 50      CONTINUE
  19.         ISTRT = 10
  20.         IMAX = 80
  21.         GO TO 30
  22. 60      BTICK = I
  23.         BMIN = BTICK*AINT(BLOW/BTICK)
  24.         BMAX = BTICK*AINT(BHIGH/BTICK)
  25.         IF ((BMIN-BLOW)/RANGE .GT. 0.001) BMIN = BMIN - BTICK
  26.         IF ((BHIGH-BMAX)/RANGE .GT. 0.001) BMAX = BMAX + BTICK
  27.         RETURN
  28.         END
  29.