User Portlet User Portlet

Discussions
[mcode]ListLinePlot[(Transpose[{texp, xexp}] /. {t_, x_} -> {x, t})][/mcode]In other words, ListLinePlot[Transpose[{xexp, texp}]]
Could bypass FindRoot and use WhenEvent: [mcode]kp = 100; km = 500; kd = km/kp; at = .4; dLB = lb'[bt] + km lb[bt] == kp (lt - lb[bt])*(at - lb[bt]); eq[lt_] = Roots[x^2 - x (at...