搜索： a201415-编号：a201415
|
| |
|
|
A201397号
|
| 满足x^2+2=sec（x）和0<x<Pi的x的十进制展开式。 |
|
+10
46
|
|
|
|
1, 2, 9, 5, 4, 5, 9, 6, 4, 6, 4, 1, 5, 4, 7, 8, 7, 6, 8, 6, 2, 9, 9, 1, 3, 2, 7, 0, 7, 1, 8, 6, 4, 1, 5, 8, 9, 7, 6, 7, 2, 7, 4, 8, 2, 7, 0, 6, 8, 7, 1, 3, 1, 6, 1, 6, 0, 5, 1, 8, 1, 4, 3, 0, 2, 1, 7, 4, 9, 5, 1, 2, 6, 5, 9, 9, 3, 0, 9, 5, 5, 9, 7, 8, 6, 7, 4, 3, 9, 4, 7, 1, 9, 8, 8, 4, 7, 9, 9
(列表;常数;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
对于a和c的许多选择，正好有两个x值满足a*x^2+c=sec（x）和0<x<Pi。Mathematica程序中包含图表的相关序列指南：
a.…c.…x
假设f（x，u，v）是三个实变量的函数，g（u，v。我们称z=g（u，v）的图为f的隐式曲面。
有关的示例A201397号取f（x，u，v）=u*x^2+v=sec（x）和g（u，v。如果存在一个以上的非零解，则必须注意确保得到的函数g（u，v）是单值且连续的。隐式曲面的一部分由Mathematica部分中的程序2绘制。
|
|
|
链接
|
|
|
|
例子
|
x=1.295459646415478766299132707186415897672。。。
|
|
|
数学
|
a=1；c=2；
f[x_]：=a*x^2+c；g[x_]：=秒[x]
绘图[｛f[x]，g[x]｝，｛x，0，Pi｝，｛AxesOrigin->｛0，0｝｝]
r=x/。查找根[f[x]==g[x]，{x，1.2，1.3}，工作精度->110]
（*程序2:u*x^2+v=sec（x）*的隐式曲面）
删除[“Global`*”]；
f[{x_，u_，v_}]：=u*x^2+v-秒[x]；
t=表[{u，v，x/.FindRoot[f[{x，u，v}]==0，{x，.1，1}]}，{v，0，1}，}，[2+v，10}]；
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A201414号
|
| 满足6*x^2=sec（x）和0<x<Pi的最小x的十进制展开。 |
|
+10
3
|
|
|
|
4, 2, 8, 0, 0, 8, 9, 5, 0, 1, 0, 0, 4, 1, 0, 9, 7, 0, 0, 2, 7, 3, 9, 3, 4, 7, 7, 6, 9, 0, 6, 9, 1, 8, 0, 6, 5, 9, 8, 8, 9, 2, 9, 5, 9, 2, 8, 9, 4, 0, 5, 9, 6, 1, 9, 0, 8, 4, 8, 8, 6, 2, 3, 6, 8, 0, 3, 1, 4, 0, 1, 3, 7, 6, 6, 8, 3, 2, 6, 6, 7, 1, 4, 7, 2, 0, 8, 4, 8, 5, 8, 1, 4, 7, 9, 9, 9, 8, 5
(列表;常数;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,1
|
|
|
评论
|
请参见A201397号获取相关序列的指南。Mathematica程序包含一个图形。
|
|
|
链接
|
|
|
|
例子
|
最小值：0.42800895010041097002739347769069180659。。。
最大：1.496285048607652953479229041712424469。。。
|
|
|
数学
|
a=6；c=0；
f[x_]：=a*x^2+c；g[x_]：=秒[x]
绘图[{f[x]，g[x]}，{x，0，Pi/2}，}轴原点->{0，0}}]
r=x/。查找根[f[x]==g[x]，{x，.4，.5}，工作精度->110]
r=x/。FindRoot[f[x]==g[x]，｛x，1.4，1.5｝，WorkingPrecision->110]
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
