求助:如何将FindRoot[]的结果转化成数值形式?

famxpencil

如题,FindRoot[]的结果是{t -> **}的形式,如何将其中的数值**提出呢?

  r3 \- V+ D8 _$ j! T& n9 ]+ b此题背景为,想研究一个超越方程的某个参数变化时对根的影响.我最初的想法是
; w, C& Q' B  c* u
' S( X) E8 r4 B. itab = Table[ { FindRoot[ (a COMPLICIATE expr) == 0, {t, t0} ], x }, {x, xmin, xmax, di} ];

- g2 [+ d* ^& d4 q& ~  CListPlot[ tab ]
8 }6 t) `) t# @. F7 w1 ?  R8 ]$ L
可是ListPlot[]是无法识别{t -> **}形式的参数的.有什么函数可以将{t -> **}中的数值提出呢?或者,有没有什么更好的办法可以绕开这些表达式呢?
2 v1 I7 }! x& e5 t6 X' @
不胜感激.

princekarate

可以试试 expr /. rules
% p+ h& R# ^, k: r! h7 Q比如这里的话就是
( x0 P" W5 q6 i9 n8 y  o* Ytab = Table[ { FindRoot[ (a COMPLICIATE expr) == 0, {t, t0} ], x }, {x, xmin, xmax, di} ];
4 T. ]3 Q8 q# P. S8 lx/.%
. Y1 s. ?3 y$ G( RListPlot[x]
6 }- U- v# k+ q" o
, ?, |% w/ o% I# s6 f: [如果不行的话可以参考一下documentation center里面这个指令的具体使用

famxpencil

感谢啊,终于解决了
* n" q5 F4 V/ B2 W2 n基于楼上的提示,我改成:
- x; j( [. I. D% w* w1 p' R9 t! Ptab = Table[ { t /. FindRoot[ (a COMPLICIATE expr) == 0, {t, t0} ], x }, {x, xmin, xmax, di} ];
终于是运行出来了,呵呵.
再次感谢!