柳烟

先调一个暖色的：

下载 (33.81 KB)

2013-1-27 20:46

再调一个冷色的：

下载 (35.61 KB)

2013-1-27 20:46

BigBrot-J(UF8切圆陷阱).gsp (36.63 KB)

下载次数: 2283

2013-1-22 23:26

柳烟

将叶瑞松论文中的四圆二带陷阱，编成UF陷阱文件，扫一个图（按UF算法搞的）：

下载 (117.63 KB)

2013-1-27 20:48

柳烟

UF与GSP效果比较：

下载 (129.13 KB)

2013-1-27 20:50

下载 (86.91 KB)

2013-1-27 20:50

柳烟

下载 (69.5 KB)

2013-1-27 20:51

下载 (47.66 KB)

2013-1-27 20:52

未命名1.gsp (39.38 KB)

下载次数: 2093

2013-1-27 00:32

柳烟

UF中，用我的陷阱文件，扫出的图也十分漂亮：

下载 (112.15 KB)

2013-1-27 20:53

下载 (65.3 KB)

2013-1-27 20:54

柳烟

按UF陷阱法与作色法，造一个GSP文件：

下载 (39.6 KB)

2013-1-27 20:54

柳烟

自编一个UF中的单圆环陷阱代码，扫一个图：

下载 (28.73 KB)

2013-1-27 20:55

柳烟

UF中的轨迹叠放次序算法，见outside中的lkm.ucl中的Range Lite中的代码。原代码有四个开关项，我将前两个开关项分别抽出来，并对代码作了精简，同时加了几句代码。大家可将这代码拿到UF中去应证。我造GSP文件时，又灵活地对代码进行了更方便的处理，用了调色板作色。
叠放1：
range-lite {
init:
  int iter=0
  float rr=@Rc-0.5*@h
  float R=rr+@h
  float r1=0.0
  float rn=0.0
  float tr=false
loop:
  rz=cabs(#z)
  if((rz>=rr)&&(rz<=R))
    iter=iter+1
tr=true
if(iter==1)
      r1=rz
    endif
  endif
final:
      r1=(r1-rr)/(R-rr)
      #index=r1

default:
  title="Range Lite"
  param Rc
    caption="Rc"
    default=1.0
  endparam
  param h
    caption="h"
    default=0.1
  endparam

}

下载 (22.57 KB)

2013-1-29 07:16

叠放一.gsp (20.91 KB)

下载次数: 2246

2013-1-28 23:56

柳烟

叠放2 { ; Kerry Mitchell 21feb99
;
; Simplified version of "Range" coloring.
; Colors by magnitude or angle when magnitude
; of z falls in prescribed range.
;
init:
  int iter=0
  float rr=@Rc-0.5*@h
  float R=rr+@h
  float rz=0.0
  float rn=0.0
loop:
  rz=cabs(#z)
  if((rz>=rr)&&(rz<=R))
    iter=iter+1
    rn=rz

  endif
final:

      rn=(rn-rr)/(R-rr)
      #index=rn


default:
  title="Range Lite"
  param Rc
    caption="Rc"
    default=1.0
  endparam
  param h
    caption="h"
    default=0.1
  endparam

}

下载 (23.53 KB)

2013-1-29 07:17

叠放二.gsp (20.83 KB)

下载次数: 2115

2013-1-29 00:01

柳烟

此种UF算法，要将环带作成不同颜色，好象有些困难。不知各位有啥创新高招？