搜索: a201408-编号:a201408
|
|
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},}轴原点->{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},{u,2+v,10}〕;
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A201409号
|
| 最大x的十进制展开满足3*x^2=秒(x)和0<x<Pi。 |
|
+10 三
|
|
|
1, 3, 9, 9, 8, 6, 4, 1, 1, 9, 4, 4, 6, 0, 6, 4, 0, 6, 7, 2, 2, 9, 6, 3, 9, 5, 0, 5, 1, 8, 3, 6, 1, 0, 3, 7, 3, 9, 4, 1, 7, 8, 5, 0, 3, 3, 6, 2, 5, 3, 2, 6, 3, 4, 4, 2, 0, 4, 1, 4, 9, 8, 8, 7, 0, 4, 9, 5, 8, 0, 2, 7, 1, 7, 3, 5, 1, 0, 6, 0, 0, 3, 3, 5, 7, 9, 7, 0, 2, 0, 5, 7, 8, 1, 6, 5, 9, 1, 9
(列表;常数;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
请参见A201397号有关相关序列的指南。Mathematica程序包含一个图形。
|
|
链接
|
|
|
例子
|
最小值:0.6461374540628972972901679159101125226952859。。。
最大值:1.39986411944606722963950518361037394178。。。
|
|
数学
|
a=3;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,.6,.7},工作精度->110]
r=x/。查找根[f[x]==g[x],{x,1.3,1.4},工作精度->110]
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.005秒内完成
|