mathematica不显示图像

mathematica不显示图像
g = 9.8; R = 6.37 10^6; tm = 10
s = NDSolve[{(x'[t])^2 - 2 (g R^2)/x[t] + g R == 0,x[0] == 2 R},
x[t],{t,0,tm}]
x = x /.s[[1]]
Plot[x[t],{t,0,tm},PlotStyle -> Thickness[0.004],
AxesStyle -> Thickness[0.003]]
Clear[g,R,tm,x,t,s]
请问以上代码哪里有误
范围无论怎么取都只有坐标系,另外注意R的表达式是有乘号的
程序也没提示有误,只是没图
mathematica9.0