Converting a list of replacement rules into a list of real values

Question

The following command outputs a list of replacement rules.

sol3 = Flatten[
   FindRoot[
             y@t /. NDSolve[{y''[t] == -10 - 3/10 Sin@#, y'[0] == 12 Sin@#, 
             y[0] == 0}, y[t], {t, 0, 2 Pi}], {t, 2}] & /@ (Pi/180 Range[
             10, 80])];

How can I convert that list into a list of real values? eg. replace each 't->2.45' with 2.45

related (duplicate?) Extract values from replacement list – kglr Feb 07 '13 at 22:13 — kglr, Feb 07 '13 at 22:13

PlatoManiac · Accepted Answer · 2013-02-07T21:55:25.007

3

You get all the t values with the following.

sol3[[All, 2]]

There are many ways but another nice pattern matching solution

sol3 /. (_ -> a_) -> a

Cheers!

edited Feb 07 '13 at 21:55

answered Feb 07 '13 at 21:45

PlatoManiac

14,723
2
42
74

Much appreciated! – xaxXos Feb 07 '13 at 23:50

score 2 · Answer 2 · answered Feb 07 '13 at 22:05

2

Among many solutions, the clearest is :

Last /@ sol3

answered Feb 07 '13 at 22:05

andre314

18,474
1
36
69

Converting a list of replacement rules into a list of real values

2 Answers2