mathematica,如何在结果中去掉括号{}?
希望对你有所帮助:输入: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}];//QuietColumn[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"])