inRm3D: 画板论坛 - Powered by Discuz! Board

标题: 闲扫怪异复分形 [打印本页]

作者: 柳烟 时间: 2020-5-29 20:53 标题: 闲扫怪异复分形

Function {
;Ronnie Jay
init:
  z=pixel^2
  f=z
  c=z
  sf=c
loop:
  zold=z
  z=((p1-1)*z^p1+@r)/(p1*z^(p1-1))
  z=z^@power+@seed/f+c-sf
  c=fn1(z)
  sf=fn2(z^c)

  bailout:
  |z-zold|>@bailout
default:
  title = "Variable fuction"

  magn=0.25
  maxiter=100

  func fn1
  caption="Varifunc 1"
  default=atanh()
  endfunc

  func fn2
  caption="Varifunc 2"
  default=cotanh()
  endfunc

  param bailout
  caption="Bailout"
  default=0.1
  endparam

  param r
  caption="Root Value"
  default =(1,0)
  endparam

  param p1
  caption="Exponent"
  default=(2,0)
  endparam

  param seed
  caption="Julia Seed"
  default= (-1.25,0)
  endparam

  param power
  caption="Init Power"
  default=(1,0)
  endparam

  param morph
caption="Morph to imag -Z"
default=false
endparam

  param invert
  caption="Z inversion"
  default=false
  endparam

}

图片附件: 无标题.jpg (2020-5-29 20:53, 92.36 KB) / 下载次数 3323
http://develop.forums.netpad.net.cn/attachment.php?aid=27803&k=229de65878bf77538ee7ab0cb3ccc2cb&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-1 20:01

经过几天奋战，堂试，整出了正品，新造了复变函数中双曲正切与反双曲余切工具，好象此坛中板友们的反双曲余切工具有些问题

Variable fuction.gsp (27.02 KB)
Variable fuction.jpg

附件: Variable fuction.gsp (2020-6-1 20:01, 27.02 KB) / 下载次数 4579
http://develop.forums.netpad.net.cn/attachment.php?aid=27823&k=8da6a3e1b80e83c44df0eaf65c708c47&t=1749973075&sid=JgldXQ

图片附件: Variable fuction.jpg (2020-6-1 20:02, 132.22 KB) / 下载次数 3247
http://develop.forums.netpad.net.cn/attachment.php?aid=27824&k=2f5c3e1346b8665d837d770595fd8cad&t=1749973075&sid=JgldXQ

图片附件: 新建图片.jpg (2020-6-1 21:11, 139.38 KB) / 下载次数 3251
http://develop.forums.netpad.net.cn/attachment.php?aid=27825&k=26e9fa9cbcd75fdcfca2554db9032c14&t=1749973075&sid=JgldXQ

图片附件: 新建图片1.jpg (2020-6-1 21:54, 193.16 KB) / 下载次数 3309
http://develop.forums.netpad.net.cn/attachment.php?aid=27836&k=b6e8fb22f443f74eecdd41d856bfa09a&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-1 22:11

非正品分形，也十分好看

非正品.gsp (24.72 KB)

图片附件: 新建图片2.jpg (2020-6-1 22:11, 53.91 KB) / 下载次数 3230
http://develop.forums.netpad.net.cn/attachment.php?aid=27837&k=536066b960aab25d211658e25787d816&t=1749973075&sid=JgldXQ

图片附件: 新建图片.jpg (2020-6-1 22:24, 140.37 KB) / 下载次数 3245
http://develop.forums.netpad.net.cn/attachment.php?aid=27838&k=ffe86c67d8bd7f8f40e0658b2a523f42&t=1749973075&sid=JgldXQ

附件: 非正品.gsp (2020-6-1 22:28, 24.72 KB) / 下载次数 4473
http://develop.forums.netpad.net.cn/attachment.php?aid=27839&k=1a2e699be569869a90656c44663fe063&t=1749973075&sid=JgldXQ

图片附件: 06031318.jpg (2020-6-3 13:20, 119.27 KB) / 下载次数 3365
http://develop.forums.netpad.net.cn/attachment.php?aid=27855&k=f8c41717d4b4cc1522e351288d772563&t=1749973075&sid=JgldXQ

图片附件: 1910.jpg (2020-6-3 19:02, 116.78 KB) / 下载次数 3239
http://develop.forums.netpad.net.cn/attachment.php?aid=27856&k=0265e93bd9495a2e7c558a36b21bc38f&t=1749973075&sid=JgldXQ

图片附件: 1954.jpg (2020-6-3 19:46, 159.85 KB) / 下载次数 3299
http://develop.forums.netpad.net.cn/attachment.php?aid=27867&k=a3dbf29c72d0457d37eabe386d3840fb&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-1 22:51

问题找着了，原常老师分形工具中的atanh有问题，我重新造了该工具，则造的atanh工具，用常老师的工具造atanh(z^2)+c的M集，与UF造出的M集不象，而用我新造的atanh造该M集，与UF中的M集吻合

图片附件: 新建图片.jpg (2020-6-1 23:45, 123.96 KB) / 下载次数 3291
http://develop.forums.netpad.net.cn/attachment.php?aid=27840&k=62babb2b242ed6af5aa92bc05a95da45&t=1749973075&sid=JgldXQ

图片附件: 新建图片1.jpg (2020-6-2 00:15, 156.45 KB) / 下载次数 3319
http://develop.forums.netpad.net.cn/attachment.php?aid=27841&k=2b37a4fe348351354d192d04c79e8368&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-3 00:03

atanh(z2)+c的M集20200603.gsp (19.72 KB)

图片附件: 新建图片2.jpg (2020-6-3 00:03, 161.13 KB) / 下载次数 3312
http://develop.forums.netpad.net.cn/attachment.php?aid=27852&k=822621e2bfea9f527088f1f3bf5215f6&t=1749973075&sid=JgldXQ

图片附件: 23.jpg (2020-6-3 00:26, 141.14 KB) / 下载次数 3264
http://develop.forums.netpad.net.cn/attachment.php?aid=27853&k=26dabd846ab873872553c5a701795f37&t=1749973075&sid=JgldXQ

附件: atanh(z2)+c的M集20200603.gsp (2020-6-3 00:30, 19.72 KB) / 下载次数 4504
http://develop.forums.netpad.net.cn/attachment.php?aid=27854&k=a80ac6cd7ec5087dd8d448ad3f8d238e&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-4 00:01

上楼M集扫出
定位：-0.1888736301002＋0.8791944715701 I
放大倍数：693.36677

图片附件: 2158.jpg (2020-6-4 00:01, 130.71 KB) / 下载次数 3214
http://develop.forums.netpad.net.cn/attachment.php?aid=27869&k=96354c455a58948c6b26372b7972c82b&t=1749973075&sid=JgldXQ

图片附件: 21592.jpg (2020-6-4 00:01, 121.69 KB) / 下载次数 3240
http://develop.forums.netpad.net.cn/attachment.php?aid=27870&k=c1ec5120bbb9b88d8e8a175c1f9f6fee&t=1749973075&sid=JgldXQ

图片附件: 0016.jpg (2020-6-4 00:17, 140.88 KB) / 下载次数 3351
http://develop.forums.netpad.net.cn/attachment.php?aid=27871&k=c9785d78145d0a4860980d66a8d924db&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-4 07:31

图片附件: 06040730.jpg (2020-6-4 07:31, 125.62 KB) / 下载次数 3249
http://develop.forums.netpad.net.cn/attachment.php?aid=27872&k=408be4b3a09c427dee1f4ec70282f4d8&t=1749973075&sid=JgldXQ

图片附件: 1522.jpg (2020-6-4 15:24, 147.99 KB) / 下载次数 3285
http://develop.forums.netpad.net.cn/attachment.php?aid=27873&k=51b17d7add9e60719b88c51cd06db4eb&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-4 22:41

HiskersBant {
Init:

z=pixel

c=pixel

Loop:

z=-c/z+p1
c=-c*z-p1

Bailout:
|z|<=@bail
Default:

param p1
caption="HB Parameter"
default=(0.27,0)
endparam

param bail
caption="Bailout"
default=1000000.0
endparam
}
这个代码多简单，可惜用画板造了五遍了，整来不对劲

图片附件: Fractal3.png (2020-6-4 22:41, 97.14 KB) / 下载次数 3286
http://develop.forums.netpad.net.cn/attachment.php?aid=27884&k=89b82bed100ba31531bd53a821f2bee9&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-4 23:42

按UF中的说法，这是M集

作者: xklppp 时间: 2020-6-5 00:26

9# 柳烟
柳老师好，这是目前遇到的最简单最惊艳的模型了，它的J集更是无穷无尽：

图片附件: 001.jpg (2020-6-5 00:26, 103.45 KB) / 下载次数 3411
http://develop.forums.netpad.net.cn/attachment.php?aid=27885&k=dbd30f8246bce93a1c06deac75fdcc41&t=1749973075&sid=JgldXQ

图片附件: 002.jpg (2020-6-5 00:26, 149.81 KB) / 下载次数 3469
http://develop.forums.netpad.net.cn/attachment.php?aid=27886&k=f270c00c53fcdb7d25eb942b5df7bdac&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-5 00:34

肖老师好，怎么我老是整来不对劲，干了好多遍，整来相差甚远，消老师算法如何的？

作者: xklppp 时间: 2020-6-5 00:49

11# 柳烟
与柳老师给出的UF代码一模一样：

可能是柳老师的画板文件中有输入性错误，仔细检查一下应该能找出问题。

图片附件: 001.jpg (2020-6-5 00:49, 167.29 KB) / 下载次数 2074
http://develop.forums.netpad.net.cn/attachment.php?aid=27887&k=81729ecce3a5dbccd9e55fab9ba1767f&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-5 07:36

是一步计算出错，

HiskersBant.gsp (26.39 KB)

图片附件: 新建图片.jpg (2020-6-5 07:36, 131.63 KB) / 下载次数 1847
http://develop.forums.netpad.net.cn/attachment.php?aid=27888&k=205118135dfaa10effb2493113fc9f07&t=1749973075&sid=JgldXQ

附件: HiskersBant.gsp (2020-6-5 07:36, 26.39 KB) / 下载次数 3242
http://develop.forums.netpad.net.cn/attachment.php?aid=27889&k=397b369df6cf7651343fb97534d8e111&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-5 23:05

IFB11 {
init:
z=pixel
loop:
z=p6*z+@p7
float a=real(z)
float b=imag(z)
if a*imag(p1)+real(p1)*b<0
z=z*sin(p1)+p2
z=z*tanh(p1)+@p9
endif

if 0<=a*imag(p1)+real(p1)*b
z=z*acosh(p1)+p3
z=z*cos(p1)+@p11
endif
bailout:
|z|<=@bail
default:
title="IFB 11"
center=(1.235,-2.171)
magn=0.25
periodicity=0
param p1
caption="IFB Parameter a1"
default=(1,-0.75)
endparam
param p2
caption="IFB Parameter a2"
default=(-0.37,2.68)
endparam
param p3
caption="IFB Parameter a3"
default=(0,-0.5)
endparam
param p9
caption="IFB Parameter a4"
default=(1,0)
endparam
param p11
caption="IFB Parameter a5"
default=(1,0)
endparam

param p6
caption="Loop Parameter 1"
default=(1,0)
endparam
param p7
caption="Loop Parameter 2"
default=(0,0)
endparam
param bail
caption="Bailout"
default=10000000.0
endparam
}

图片附件: 34.jpg (2020-6-5 23:14, 127.82 KB) / 下载次数 1803
http://develop.forums.netpad.net.cn/attachment.php?aid=27897&k=5f431c001f5d78481fda6b81b0e2848d&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-5 23:14

IFB11.gsp (22.12 KB)

图片附件: 新建图片.jpg (2020-6-5 23:14, 135.31 KB) / 下载次数 1793
http://develop.forums.netpad.net.cn/attachment.php?aid=27898&k=923e19872ebc2ab084feb5556beb97c4&t=1749973075&sid=JgldXQ

附件: IFB11.gsp (2020-6-5 23:17, 22.12 KB) / 下载次数 2881
http://develop.forums.netpad.net.cn/attachment.php?aid=27900&k=eb9b9d6791e35991bb4c98c9c529bcec&t=1749973075&sid=JgldXQ

图片附件: 新建图片.jpg (2020-6-6 01:18, 161.85 KB) / 下载次数 1815
http://develop.forums.netpad.net.cn/attachment.php?aid=27901&k=b5e7988fff703605ebbe41f9903b5d91&t=1749973075&sid=JgldXQ

图片附件: 0606.jpg (2020-6-6 20:05, 111.33 KB) / 下载次数 1811
http://develop.forums.netpad.net.cn/attachment.php?aid=27904&k=642cf109942db6e47ba93989c90457ec&t=1749973075&sid=JgldXQ

作者: xklppp 时间: 2020-6-6 13:16

15# 柳烟
有点像海螺

图片附件: 008.jpg (2020-6-6 13:16, 83.44 KB) / 下载次数 2083
http://develop.forums.netpad.net.cn/attachment.php?aid=27902&k=c4b5ce2f752392f95c73178c75390bb9&t=1749973075&sid=JgldXQ

图片附件: 009.jpg (2020-6-6 13:16, 118.7 KB) / 下载次数 2052
http://develop.forums.netpad.net.cn/attachment.php?aid=27903&k=c8ad47d3dc5e4be35d21724facaf7f0a&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-7 01:36

BivarIFB1 {
init:
z=pixel
k=pixel
loop:
z=p6*z+@p7
k=@p8*k+@p9

z=z-4.748*(-4.748/(z-0.646))+0.646
k=k+1.044*sqrt(1.044/(k+2.382))-2.382

float a=real(z)
if a<p4
k=k*p1+p2
endif
if p5<=a
k=k*conj(p1)+p3
endif
z=K*(1+flip(@p10))
bailout:
|z|<=@bail
default:
title="Bivar IFB 1"
center=(-0.269,-0.202)
magn=1.77
angle=270
periodicity=0

p1=(0.616,-0.251)
p2=(0.352111,-0.442944)
p3=(-0.04,-0.5)
p4=0.0
p5=0
P6=(-0.252,-0.507)
endparam
p7=0.0
p8=(1,-1.58745)
p9=(0,0)

p10=0.0
endparam
param bail
caption="Bailout"
default=10000000.0
endparam

}

图片附件: Fractal2.png (2020-6-7 01:36, 73.17 KB) / 下载次数 1774
http://develop.forums.netpad.net.cn/attachment.php?aid=27912&k=4d350932a99cee84036f364a17164267&t=1749973075&sid=JgldXQ

作者: 柳烟 时间: 2020-6-7 01:36

图片附件: 0606.jpg (2020-6-7 01:36, 156.43 KB) / 下载次数 1802
http://develop.forums.netpad.net.cn/attachment.php?aid=27913&k=912b52b18bdc3a1bf5e7acdc03f581e6&t=1749973075&sid=JgldXQ

欢迎光临 inRm3D: 画板论坛 (http://develop.forums.netpad.net.cn/)