Wolfram mathematica Mathematica NDSolve中的下标参数

我正在研究一个很长的微分方程列表，我最终需要适应实验数据，但我遇到了一个问题，让NDSolve接受我的下标变量。由于方程非常长，我只是在下面给出了一个示例，但是有人能告诉我进一步的帮助吗？我已经发现我需要使用符号和模式-还有更多的步骤吗？另外，我为糟糕的表单道歉，复制和粘贴采用的是输入表单，而不是好看的表单。如果屏幕截图更有帮助，请告诉我。谢谢

<< Notation`

Symbolize[ParsedBoxWrapper[SubscriptBox["h", "_"]]]
Symbolize[ParsedBoxWrapper[SubscriptBox["R", "_"]]]
Symbolize[ParsedBoxWrapper[SubscriptBox["T", "_"]]]
Symbolize[ParsedBoxWrapper[SubscriptBox["\[Lambda]", "_"]]] 

Pattern[Subscript[h, \[Placeholder]], _]
Pattern[Subscript[R, \[Placeholder]], _]
Pattern[Subscript[T, \[Placeholder]], _]
Pattern[Subscript[\[Lambda], \[Placeholder]], _]

model[Subscript[h, 1] _?NumericQ, ...] :=

NDSolve[{Derivative[1][g1][t] == 
Subscript[R, 1]/(
 1 + E^(Subscript[h, 1] + g13[t] Subscript[T, 1, 13] + 
   g15[t] Subscript[T, 1, 15] + g16[t] Subscript[T, 1, 16] + 
   g22[t] Subscript[T, 1, 22] + g24[t] Subscript[T, 1, 24] + 
   g25[t] Subscript[T, 1, 25])) - g1[t] Subscript[\[Lambda], 1], ...,

g1[0] == 532.031,...}, {g1, g2, g3, g4, g5, g6, g7,
g8, g9, g10, g11, g12, g13, g14, g15, g16, g17, g18, g19, g20, 
g21, g22, g23, g24, g25, g26, g27, g28, g29}, {t, 0, 4}]

---

简短答案不要使用
下标
，它会让人头痛不已。相反，美国普通符号，如
Tsub1sub15
etcI，符合您的情绪；然而，我正在使用另一位实验室成员编写的代码，该代码根据实验数据自动生成方程式，因此我对变量名没有太多发言权。编写一个程序，可能不是用Mathematica编写的，它将您需要接受的变量名翻译成Mathematica乐意接受的名称，然后运行Mathematica，然后编写另一个程序，可能不是用Mathematica编写的，它会将输出转换回需要返回的变量名。这样做几乎肯定意味着你会做得更快，胃酸更少，需要寻求帮助。