Re: How to relate two functions

*To*: mathgroup at smc.vnet.net*Subject*: [mg127480] Re: How to relate two functions*From*: DC <b.gatessucks at gmail.com>*Date*: Sat, 28 Jul 2012 02:39:59 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <jutl8h$cib$1@smc.vnet.net>

In order to keep notation simple I'd define : aa[t_] = s1[[1, 1, 2]] tt[t_] = s1[[1, 2, 2]] Then you can find the point where T[t]=1 with : sol = FindRoot[tt[t] == 1, {t, 500}][[1, 2]] The corresponding value of a[t] is then simply aa[sol]