|
|
A260750型 |
| 龙曲线三点上部倒转。如果D:[0,1]是一条龙曲线,那么如果k是任何大于log_2(a(n)/15)的整数,除了n之外,还有两个较小的整数p和q,其中D(a(p)/。 |
|
6
|
|
|
23, 46, 47, 92, 83, 94, 107, 173, 184, 163, 143, 166, 188, 167, 203, 214, 329, 346, 341, 368, 333, 227, 331, 326, 293, 283, 263, 286, 287, 332, 376, 377, 323, 334, 369, 347, 383, 406, 428, 407, 658, 659, 692, 682, 736, 671, 666, 663, 661, 443, 454, 569, 662, 652, 586, 581, 573, 467, 571, 566, 533, 523, 503, 526, 527, 572, 563, 574, 587, 653, 664, 643, 752, 623, 754, 753, 646, 751, 668, 739, 761, 738, 647, 737, 683, 694, 729, 707, 743, 766, 767, 812, 856, 857, 803, 814, 849, 827, 863
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
请参阅数学部分中的dragun,以获得连续的、充满空间的Dragon函数及其多值逆函数的精确求值器。
|
|
链接
|
Brady Haran和Don Knuth,错误转向龙,数字视频(2014)
|
|
例子
|
为了明确起见,我们选择复杂平面中的龙,龙(0)=0,龙(1)=1,龙(1/3)=1/5+2i/5
(I^2:=-1)然后使用A(3)=47,对于k=2,3,4,{dragun[47/60],dragun[47/120],dragun[47/240]}
->{2/3+I/6},{1/4+(5I)/12},}-(1/12)+I/3}}
这些图像具有反转图像取消标记/@First/@%
{{37/60, 13/20, 47/60}, {37/120, 13/40, 47/120}, {37/240, 13/80, 47/240}}
德拉贡[47/15/2^k]=德拉贡[29/15/2^k]=dragun[37/15/2|k],经验上=(5/3-I)(1+I)^k2^(-1-k)
所以每八分之一点是5/6-I/2的16次方。
|
|
数学
|
(*朱利安·齐格勒·亨茨*)
分段递归分形[x_,f_,whit_,iters_,fns_]:=分段递归分形[x,g_,which,iters,fns]=((分段递归分形[x,h,which,iters,fns]:=块[{y},y/.求解[f[y]=h[y],y]]);并集@@((fns[[#]]/@piecwiserecursivefractal[iters[[#]][x],Composition[f,fns[#]],which,iters,fns]);
dragun[t]:=分段递归分形[t,恒等式,分段[{{1},0<=#<=1/2},{{2},1/2<=#<=1}},}]&,{2*#&,2*(1-#)&},(1+I)*#/2&,(I-1)*#/2+1&}]
解压缩[z_]:=分段递归分形[z,恒等式,如果[-(1/3)<=Re[#]<=7/6&&(1/3)<=Im[#]<=2/3,{1,2},{}]&,{#*(1-I)&,(1-#)*(1+I)&},}#/2&,1-#/2&}]
删除重复[Reap[Do[If[Length[#]>2,Sow[15*64*#[[3]]]&@
脱下[德拉贡[k/15/64][1],{k,0,288*3}]][2,1]]
(*或128或256或…*)
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|