home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / FRM / SECANT.FRM < prev    next >
Encoding:
Text File  |  1993-07-08  |  705 b   |  26 lines
  1. Readme {
  2. ;This .FRM file by Mike Wareman.
  3. ;Secant method general formula:
  4. ;z[k+1] = z[k] - f(z[k]) * (z[k] - z[k-1]) / (f(z[k]) - f(z[k-1])
  5. ;In the formula I used p1 so that you can change the initial value
  6. ;of z0 which results in different pictures.  Also, you will need to
  7. ;set the floating point parameter to YES.
  8. ;REFERENCE:
  9. ;Szyszkowicz, Mieczyslaw.  "Computer art generated by the method of secants
  10. ;in the complex plane."  COMPUTERS AND GRAPHICS,  volume 14, number 3/4, p.
  11. ;509.
  12. }
  13.  
  14. Secant_z4-1 {
  15. ;The Fractint formula for z^4-1 is:
  16. z = pixel,
  17. z0 = p1:
  18. zt = z;
  19. z1 = z0 * z0 * z0 * z0 - 1;
  20. z2 = z * z * z * z - 1;
  21. z = z - z2 * (z - z0) / (z2 - z1);
  22. z0 = zt;
  23. |z2| > 0.001
  24. }
  25.  
  26.