柳烟

接着扫。

下载 (23.47 KB)

2010-7-3 12:01

下载 (23.81 KB)

2010-7-3 13:22

柳烟

popcornjul {
; Written by Luke Plant
; Modified by Frederik Slijkerman
init:
  float x = real(pixel)
  float y = imag(pixel)
  float h = @step
  float temp = 0
  
loop:
  temp=x
  x=x-h*sin(y+tan(3*y))
  y=y-h*sin(temp+tan(3*temp))
  z = x+flip(y)
  
bailout:
  |z| <= @bailout
  
default:
  title = "Popcorn Julia"
  maxiter = 149
  magn = 0.66666666666666
  param step
    caption = "Step size"
    default = 0.05
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
    min = 1
  endparam
}
本想整出UF中的效果:

下载 (162.19 KB)

2010-7-3 17:03

结果弄出这个怪物,还没找到原因.
GSP

下载 (38.95 KB)

2010-7-3 17:24

Popcorn Julia变种.gsp (15.2 KB)

下载次数: 2117

2010-7-3 17:24

柳烟

扫一图片

下载 (47.14 KB)

2010-7-6 00:12

柳烟

phoenixcplx {
init:
  complex z = pixel  
  complex y = 0
  complex oldz = 0
loop:
  oldz = z
  if @degree >= 2
    z = z^@degree + p1 * z^(@degree - 1) + p2 * y
  elseif @degree <= -3
    z = z^(-@degree) + p1 * z^(-@degree - 2) + p2 * y
  else
    z = z^2 + p1 + p2 * y
  endif
  y = oldz
bailout:
  (@test == 0 && |z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(z)) <= @bailout && sqr(imag(z)) < @bailout)) ||   \
  (@test == 4 && (sqr(real(z)) <= @bailout || sqr(imag(z)) < @bailout)) ||   \
  (@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) ||          \
  (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout))
default:
  title = "Phoenix (complex)"
  maxiter = 149
  param p1
    caption = "Parameter 1"
    default = (0.2, 0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (0.3, 0)
  endparam
  param degree
    caption = "Degree"
    default = 0
  endparam
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
    min = 1.0
  endparam
switch:
  type = "mandphoenixclx"
  degree = degree
  test = test
  bailout = bailout
}
GSP造好后，图片色彩实在太具诱惑力，让人难以抵挡，试扫几张。

下载 (27.99 KB)

2010-7-6 19:26

下载 (23.46 KB)

2010-7-6 19:43

下载 (20.82 KB)

2010-7-6 20:11

柳烟

UF中的图片与我的图片有些许差别，不知何故。

下载 (30.93 KB)

2010-7-6 23:01

在UF中改变P1、P2后，出现的分形，我这带开关的J集与其不尽一致，也不知何故，而代码中不见丝毫信息。我将源文件发于此，大家研究，并批评。
Phoenix (complex)1.gsp (38.31 KB)

下载次数: 1998

2010-7-6 23:01

柳烟

照二位老师的建议，将p中的阈值加大成十万，得满屏卷纹，效果不错

下载 (52.49 KB)

2010-7-7 17:28

柳烟

[localimg=180,132]1[/localimg][

下载 (34.43 KB)

2010-7-8 21:22

下载 (38.84 KB)

2010-7-8 21:39

按UF中的开关项制作这广义的M集,胡乱扫两张,发于此.尔等有兴趣,自已打开我的文件,再扫其余的,并放大耍耍.