OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A197024号 与曲线y=(1/2)/(1+x^2)以及正x和y轴相切的圆半径的十进制展开。 2
2, 3, 4, 0, 0, 5, 1, 4, 0, 5, 9, 5, 1, 3, 7, 9, 0, 1, 7, 3, 4, 7, 2, 7, 6, 2, 3, 7, 6, 7, 2, 2, 9, 9, 6, 0, 6, 2, 0, 4, 5, 8, 8, 8, 6, 4, 7, 4, 9, 5, 1, 1, 9, 4, 1, 4, 4, 3, 8, 1, 0, 3, 3, 4, 0, 3, 0, 6, 3, 4, 2, 1, 9, 4, 1, 8, 8, 9, 9, 4, 7, 3, 6, 2, 2, 0, 5, 9, 8, 6, 0, 2, 2, 8, 6, 1, 5, 2, 2, 0 (列表;常数;图表;参考;;历史;文本;内部格式)
抵消
0,1
评论
让(x,y)表示切点。然后
x=0.290074091667981539080192147132694221247。。。
y=0.46119378148754986809888414349234039544。。。
斜率=-0.24679469383945033223474847695422791。。。
(Mathematica程序包含一个图形。)
链接
示例
半径=0.234005140595137901734727623767229962。。。
数学
r=.234;c=1/2;
显示[绘图[c/(1+x^2),{x,0,0.8}],
等高线图[(x-r)^2+(y-r)^2==r^2,{x,-1,1},{y,-1,1'],PlotRange->All,AspectRatio->Automatic,AxesOrigin->Automatic]
u[x_]:=(x*(1+x^2)^3-2*x*c^2)/((1+x^2)
v=x/。查找根[c/(1+x^2)==u[x]+Sqrt[2*u[x]*x-x^2],{x,.4,1},工作精度->100]
t=Re[v];实数位[t](*x切点坐标*)
y=c/(1+t^2)(切线点的*y坐标*)
半径=u[t]
RealDigits[半径](*1997年7月24日*)
斜率=-2*c*t/(1+t^2)^2(*切线点处的斜率*)
交叉参考
囊性纤维变性。A197023号,A197025号.
关键词
非n,欺骗
作者
克拉克·金伯利2011年10月8日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月9日01:31。包含373227个序列。(在oeis4上运行。)