登录
A194474号
第四Mandelbrot集柠檬形周长的十进制展开
1
7, 4, 4, 3, 6, 4, 4, 6, 4, 4, 4, 8, 0, 0, 7, 4, 6, 2, 8, 8, 9, 0, 8, 1, 3, 4, 0, 0, 5, 8, 2, 5, 7, 6, 6, 3, 9, 3, 2, 2, 3, 1, 3, 7, 4, 4, 7, 6, 2, 5, 0, 2, 8, 1, 3, 1, 6, 5, 5, 0, 2, 9, 4, 3, 7, 2, 4, 3, 2, 1, 2, 7, 7, 6, 2, 5, 5, 1, 5, 8, 0, 5, 3, 1, 0, 7, 3, 5, 7, 3, 9, 6, 5, 6, 9, 7, 7, 5, 1, 8, 0, 4, 1, 7, 3
抵消
1, 1
链接
埃里克·魏斯坦的数学世界,Mandelbrot集合Lemniscate
例子
7.443644644480...
数学
f[x_,y_]=ComplexExpand[#*共轭[#]&[c+(c+(c+c^2)^2)|2]/。c->x+I*y]-4;
sy=求解[f[x,y]==0,y];sx=求解[f[x,y]==0,x];
f1[x_]=y/。sy[[8]];f2[x_]=y/。sy[[4];
g1[y]=x/。sx〔〔1〕〕;g2[y]=x/。sx[[2];
x1=-39/20;y1=f1[x1];x2=-7/4;y2=f1[x2];
x3=-1;y3=f2[x3];x4=-1/10;y4=f2[x4];
x5=107/200;y5=f1[x5];x6=10703/20000;y6=f1[x6];
sh=解[D[f[x,h[x]],x]==0,h'[x]][1];
sg=求解[D[f[g[y],y],y==0,g'[y]][[1];
df1[x_]=h'[x]/。什/。h->f1;
df2[x_]=h’[x]/。第/页。h->f2;
dg1[y_]=g'[y]/。sg/。g->g1;
dg2[y]=g'[y]/。sg/。g->g2;
ni[a_,b_]:=N积分[a,b,工作精度->120];
i1=ni[Sqrt[1+dg1[y]^2],{y,0,y1}];
i2=ni[Sqrt[1+df1[x]^2],{x,x1,x2}];
i3=ni[Sqrt[1+dg1[y]^2],{y,y2,y3}];
i4=ni[Sqrt[1+df2[x]^2],{x,x3,x4}];
i5=ni[Sqrt[1+dg2[y]^2],{y,y5,y4}];
i6=ni[Sqrt[1+df1[x]^2],{x,x5,x6}];
i7=ni[Sqrt[1+dg2[y]^2],{y,0,y6}];
p=2(i1+i2+i3+i4+i5+i6+i7);
以[RealDigits[p][1]],105]为例
交叉参考
关键词
非n,欺骗
作者
Jean-François Alcover公司,2011年8月26日
状态
经核准的