%我

%S 4,5,1,8,0,1,2,3,4,3,3,3,7,3,3,4,0,6,1,3,3,7,2,4,2,9,8,3,0,8,1,3，

%T 6,6,9,8,9,3,2,6,6,9,2,4,2,7,1,5,3,1,1,3,6,6,5,4,2,3,3,9,6,9,5,4，

%铀6,0,8,2,7,9,8,0,4,3,6,4,6,3,1,9,3,2,6,5,7,0,6,5,5,1,7,3,1,2,9

%N满足2*x^2+3*x*sin（x）=1的x>0的十进制展开式。

%C参见A199370获取相关序列指南。程序包括一个数学图。

%e x=0.451801234333737406131337242983081366989326。。。

%t a=2；b=3；c=1；

%t f[x_x]：=a*x^2+b*x*Sin[x]；g[x]：=c

%t图[{f[x]，g[x]}，{x，-1，Pi}，{AxesOrigin->{0，0}}]

%t r=x/。FindRoot[f[x]==g[x]，{x，.45，.46}，工作精度->110]

%t实数[r]（*A199384*）

%参见A199370。

%不，反对

%O 0,1

%阿尤克拉克金伯利，2011年11月5日