返回列表 回复 发帖
3.gif
2.gif
M集(20150223四乌龟阵列1号).gsp (17.58 KB)
Mandelbrot 20150223四乌龟阵1号{
  z = @start
  c=#pixel
c=3*(1.5*c+(12,12)-trunc(1.5*c+(12,12)))+(-1.5,-1.5)
x=real(c)
y=imag(c)
m=x-y
n=x+y
if m<0&&n<0
  s=pi/2
elseif m<0&&n>0
s=pi
elseif m>0&&n>0
s=-pi/2
endif
c=3*c*exp(1i*s)+(-0.5,1.8)
loop:
  z = z^@power + c
bailout:
  |z| <= @bailout
default:
  title = "Mandelbrot四乌龟阵列20150223一号"
  center = (0, 0)
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\mandelbrot.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  param start
    caption = "Starting point"
    default = (0,0)
    hint = "The starting point parameter can be used to distort the Mandelbrot \
            set. Use (0, 0) for the standard Mandelbrot set."
  endparam
  param power
    caption = "Power"
    default = (2,0)
    hint = "This parameter sets the exponent for the Mandelbrot formula. \
            Increasing the real part to 3, 4, and so on, will add discs to \
            the Mandelbrot figure. Non-integer real values and non-zero \
            imaginary values will create distorted Mandelbrot sets. Use (2, 0) \
            for the standard Mandelbrot set."
  endparam
  float param bailout
    caption = "Bailout value"
    default = 1000000.0
    min = 1.0
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "This parameter defines how soon an orbit bails out while \
            iterating. Larger values give smoother outlines; values around 4 \
            give more interesting shapes around the set. Values less than 4 \
            will distort the fractal."
  endparam

}
Fractal2.png
M集对称变换4乌龟(20150223四乌龟阵列2号).gsp (18.61 KB)
1.gif
Mandelbrot 20150223四乌龟阵2号{
  z = @start
  c=4.5*#pixel
  K=0
while (k<@hp)
  c=abs(c)-(3,3)
  k=k+1
  endwhile
c=abs(c)-(1.5,1.5)
m=real(c)-imag(c)
n= real(c)+imag(c)
if m<0&&n<0
  s=pi/2
elseif m<0&&n>0
s=pi
elseif m>0&&n>0
s=-pi/2
endif
c=3*c*exp(1i*s)+(-0.5,1.8)
loop:
  z = z^@power + c
bailout:
  |z| <= @bailout
default:
  title = "Mandelbrot四乌龟阵列20150223二号"
  center = (0, 0)
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\mandelbrot.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  param start
    caption = "Starting point"
    default = (0,0)
    hint = "The starting point parameter can be used to distort the Mandelbrot \
            set. Use (0, 0) for the standard Mandelbrot set."
  endparam
param hp
    caption = "hp"
    default = 1
  endparam
  param power
    caption = "Power"
    default = (2,0)
    hint = "This parameter sets the exponent for the Mandelbrot formula. \
            Increasing the real part to 3, 4, and so on, will add discs to \
            the Mandelbrot figure. Non-integer real values and non-zero \
            imaginary values will create distorted Mandelbrot sets. Use (2, 0) \
            for the standard Mandelbrot set."
  endparam
  float param bailout
    caption = "Bailout value"
    default = 1000000.0
    min = 1.0
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "This parameter defines how soon an orbit bails out while \
            iterating. Larger values give smoother outlines; values around 4 \
            give more interesting shapes around the set. Values less than 4 \
            will distort the fractal."
  endparam

}

Fractal2.png
返回列表