标签列表受保护的mathematica

Question

这是我的mathematica脚本的一部分，当我尝试运行它时会给我一个错误。错误类似于＆＃34;标签列表在...中受到保护＆＃34;。看看附带的代码，任何人都可以看到错误吗？我知道你显然无法看到整个代码，但我很确定错误必须在附加部分的语法中。

Subscript[j, crit] := \[CapitalDelta]t;
t = {};
 Subscript[\[CapitalNu], l - GaAs] = {}; 
 \[Theta] = {};
 Subscript[d, NW] = {};
 Subscript[x, \As] = {};
 Subscript[\[CapitalNu], l - As] = {};
 Subscript[\[CapitalNu], l] = {};
 Subscript[L, NW] = {};\[CapitalDelta]t := 10;
 Subscript[n, steps] := 2;
 For[i = 1, i < Subscript[n, steps], i++,
    t = Append[t, i*\[CapitalDelta]t];(*Growth time*)
    Subscript[x, As] = Append[Subscript[x, As], 
         If[i == 1, 
            Subscript[x, As - start], 
            Subscript[\[CapitalNu], l - As][[i - 1]]/Subscript[\[CapitalNu],
                 l][[i - 1]]
                      ] ];(*As mole fraction in liquid phase*)
    Subscript[d, NW] = Append[Subscript[d, NW], 
    If[i == 1, Subscript[d, start], 
        dNW[Subscript[\[CapitalNu], l][[i - 1]], 
        Subscript[\[Theta], GaAs][Subscript[\[CapitalNu], l][[i - 1]], 
        Subscript[d, NW][[i - 1]], T]]]];(*Diameter of the growth interface*)
    \[Theta] = Append[\[Theta], 
      If[i == 1, Subscript[\[Theta], start], 
    \[Theta][Subscript[\[CapitalNu], l][[i - 1]], 
            Subscript[d, NW][[i]], T]]];
Subscript[\[CapitalNu], l] = Append[Subscript[\[CapitalNu], l], 
       If[i == 1, Subscript[\[CapitalNu], lstart], 
Subscript[\[CapitalNu], l][[i - 1]] + 
   (Subscript[I, vl - As - GaAs][fAs, If[i == 1, Subscript[x, As - start], 
 Subscript[x, As][[i - 1]]], 
 Subscript[\[CapitalNu], l][[i - 1]], 
 Subscript[\[Theta], l][[i]], T] + 
 Subscript[I, vl - Ga - GaAs][fGa, 
   If[i == 1, Subscript[x, As - start], 
 Subscript[x, As][[i - 1]]], 
 Subscript[\[CapitalNu], l][[i - 1]], 
 Subscript[\[Theta], l][[i]], T])*\[CapitalDelta]t -Subscript[\[CapitalDelta]N, ML]]];
 Subscript[\[CapitalNu], l - As] = Append[Subscript[\[CapitalNu], l - As], 
   If[i == 1, Subscript[\[CapitalNu], l - As - start], 
 Subscript[\[CapitalNu], l - As][[i - 1]] + 
 Subscript[I, vl - As - GaAs][fAs, 
 If[i == 1, Subscript[x, As - start], Subscript[x, As][[i]]], 
 Subscript[\[CapitalNu], l][[i]], Subscript[\[Theta], l][[i]], T]*
   \[CapitalDelta]t -    Subscript[\[CapitalDelta]N, ML]]]] ;(*Number of As atoms in liquid*)
ListPlot[\[Theta]]