求助：Mathematica 求解微分方程组

Magic111

萌新求助如何求解一个非线性方程组：
" V* L' O! g8 N( E
求助大神，我要解的非线性方程组不是规范的，无法直接套用NDSolve,也没有在Help中查到处理方法。原因是微分方程组中有一项表达式需要再解一个方程才能得到，具体的：
: Z# t$ ~" U% n0 k0 }+ o. F, w
% C3 ~8 g$ N2 G- e' JNDSolve[{ EIS'[t] == (segma[t] + f[EIS[t]]/(str*omega))*str*
    omega,
6 q9 T4 F1 |9 J5 {  segma'[t] ==
   shear*str -
    1/(str*omega)*Df[EIS[t]]*EIS'[t]，EIS[0] == -4.842, segma[0] == 0,}, {EIS, segma}, {t, 0,
  10}]
9 i" V; {$ i  f* {7 ?. ~6 s以上是我想要求解的微分方程，形式很简单。其中各个函数除了f[EIS]以外均有直接的表达式。而f[EIS]需要由以下表达式得到：

2 A. t$ Z- f/ ^2 Z8 K0 n$ F6 sf[EIS_] :=
. z4 i- O) f# @/ @: S" u4 ~# w  Re[Coef /.
2 g8 c' B3 q2 m  R    FindRoot[
+ O; P) l" M1 k7 T" K     Integrate[P[EA, EIS, Coef], {EA, 0, Infinity}] == 1, {Coef, 1}]];
也就是f[EIS]每一点的值都需要解一个上述的方程。
4 P7 n+ T" ^" d
1 m$ G2 s5 k; y6 b+ T8 s) d$ \; M8 ~1 ~
( ]* c& Y* E) m5 K; Y+ @
程序报错是求解f[EIS]时得不到数值无法进行。请问这样的情况应该怎么处理呢？我也尝试了将f[EIS]也作为一个方程放入NDSolve中求解微分代数方程，但是也无法得到结果。

3 V' t5 h1 q) A

十分感谢大神帮助
& l' {5 g* A# o' z' M, T3 T) O
" j8 R& G. e8 V" T9 t: N
: o2 Z8 p- r; i* o3 @* j5 K+ d8 X

有生之莲

泛函就是没办法。。。尝试重新转化处理问题吧
3 P. [$ U- T# V' g! e