разбираюсь с одним несложным проектом, написанным на Mathematica, не могу понять в чём заключается проблема, т.к. это явная пунктуационная ошибка, но синтаксис я знаю слабо, поэтому решил обратиться к бывалым пользователям)
Код
Код: Выделить всё
m = 10; t1 = 0,001; t2 = 0,499; Um = 10; n = 1; r1 = 10; g1 = 0; b1 = 0;
q1 = 0,008; r2 = 0; g2 = 0; b2 = 1; q2 = 0,005;
Mf = Table[0, {n, 1, m}]; a = 1; b = 0, 1;
Do[x = an; x1 = x + b :
z = 0.1*Abs[Sin[2*Pi*n*t1]/(t1*n^2) -
(2*Sin[2*Pi*n*t2])/((2*t2-1)*n^2)];
ymin = 0; ymax = z;
Mf[[n]] = Graphics[Rectangle[{x, ymin},
{x1, ymax}]], {n, 1, m}];
Show[Mf, PlotRange -> All];
похоже, что проблема в синтаксисе команды Do, но за день я не понял что тут нужно исправить, чтобы заработало.