home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / LongReal / longrealtest.e < prev    next >
Encoding:
Text File  |  1992-09-03  |  663 b   |  27 lines
  1. /*
  2.  
  3. idea: Piet Molenaar
  4.  
  5. calculates (a*a-4)*3 for a = 2 to .. 
  6. finds the "a"'s (integers, a,a+1,a+2 are the lenghts of the sides
  7. of a triangle (with almost equals sides)), such that the surface is
  8. a whole number! how remarkable!
  9.  
  10. */
  11.  
  12. MODULE 'tools/longrealtiny'
  13.  
  14. PROC main()
  15.   DEF a:longreal, b:longreal, c:longreal, d:longreal, e:longreal, s[100]:STRING, x
  16.   dInit()
  17.   dFloat(4,b)
  18.   dFloat(3,c)
  19.   FOR x:=2 TO 40000
  20.     IF (x AND $FFF)=0 THEN WriteF('busy doing: \d\n',x)
  21.     IF CtrlC() THEN RETURN
  22.     dRound(dCopy(e,dSqrt(dMul(dSub(dMul(dFloat(x,a),a,d),b),c))))
  23.     IF dCompare(e,d)=0 THEN WriteF('\d <=> \s\n',x,dFormat(s,d,20))
  24.   ENDFOR
  25.   dCleanup()
  26. ENDPROC
  27.