Не понятно в чём ошибка (наставьте на путь истинный)

Форум пользователей пакета Mathematica

Модератор: Admin

xwizard
Сообщения: 1
Зарегистрирован: Сб дек 08, 2012 8:16 pm
Контактная информация:

Не понятно в чём ошибка (наставьте на путь истинный)

Сообщение xwizard » Сб дек 08, 2012 8:24 pm

Всем привет,

разбираюсь с одним несложным проектом, написанным на 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, но за день я не понял что тут нужно исправить, чтобы заработало.

VSI
Сообщения: 305
Зарегистрирован: Вт мар 15, 2005 6:40 pm
Откуда: Мариуполь

Re: Не понятно в чём ошибка (наставьте на путь истинный)

Сообщение VSI » Вс дек 09, 2012 12:47 pm

xwizard писал(а):Всем привет, разбираюсь с одним несложным проектом, написанным на Mathematica, не могу понять в чём заключается проблема, т.к. это явная пунктуационная ошибка

Точки, точки с запятыми, запятые, двоеточия, умножение (пробел)... А так работает.
Изображение