carr1870
此分形好作,代码如下:
Carr1870 {
; Updated for UF2 by Erik Reckase, March 2000
; Modified Newton
init:
z=cos(pixel-1/pixel)
c=(-.7456,.2)
loop:
z = (3*z^4+c)/4/z^3
bailout:
.004 <=|z^4 - c|
default:
title = "Carr 1870"
periodicity = 0
maxiter = 500
magn = 1.2
center = (0,0)
}
|