Question

mathematica,如何在结果中去掉括号{}?

Answer 1

希望对你有所帮助：

输入：

result =

NDSolve[{h''[x]/(1 + (h'[x])^2)^(3/2) - h[x]/2 == 0,h[1] == 2,

h'[2] == 1},h[x],{x,1,2}]; // Quiet

Column[Table[h[x] /.result[[1]],{x,1,2,0.1}]]

输出（你自己执行以下就会发现中括号没了）：

!(*

TagBox[GridBox[{

{"2.`"},

{"1.9739365556714714`"},

{"1.9584205191082824`"},

{"1.9528880981568602`"},

{"1.9571482118965418`"},

{"1.9713475539047176`"},

{"1.995997270438247`"},

{"2.032073553928077`"},

{"2.0812443481187106`"},

{"2.1463719884166874`"},

{"2.2327706657483635`"}

},

GridBoxAlignment->{"Columns" -> {{Left}}},

GridBoxItemSize->{

"Columns" -> {{Automatic}},"Rows" -> {{Automatic}}}],

"Column"])