[pva]

составного оператора »

Что под этим подразумевается? Какой должен быть результат?

Код:

Block[{x,y}, x=4;y=5;x+y] (*вполне работает*)

Обычно с математикой идёт толстенная книжка "The Mathematica Book", в которой всё подробно и с примерами расписано. По крайней мере я в своё время всё находил там, гуглить даже не приходилось.

[TaDa]

pva, большое спасибо! Я про этот оператор вовсе не знал, а книжку тоже упустил из виду.

Под составным оператором я имел в виду группу операторов, объединенных в один, что дает в результате выполнение всей группы на одной итерации цикла, например. То есть я искал аналог паскалевского "begin ... end", где между этими двумя ключевыми словами помещаются несколько операторов, а выполняются они как один. И, насколько я могу видеть, "Block" является именно таким аналогом. Спасибо!

[semiono]

HertzToCents там работает? Что за софт, он большой? Функция весьма полезная

[pva]

semiono, насколько я понял из википедии:
перевод интервала частот в центы:

Код:

(*Mathematica*)
HertzToCents[hertz1_,hertz2_]:=Log[2,hertz2/hertz1]*1200

Код:

/*c/c++*/
double HertzToCents(double hertz1, double hertz2) {
  /* 1200./log(2) = 3986,3137138648348174443833153873 */
  return log(hertz2/hertz1)*3986.3137138648348174443833153873;
}

Софт большой (хотя гораздо меньше, чем windows) и не дешёвый.

Функция весьма полезная »

Функция очень специфичная (кроме музыки думаю нигде не применяется; и в музыке не везде наверное) и просто реализуемая, поэтому скорее всего готовой реализации там нет.

Несмотря на универсальность, "Математика" заточена для математических расчётов (соответсвенно расставлены акценты в реализации). Сложить 20 коротких треков не составит труда, но сложить 2 2-часовых трека студийного качества - ваш ПК такого не вытерпит. Лучше использовать специализированные инструменты.

[TaDa]

Недавно возник следующий вопрос: как описать вектор в качестве аргумента функции (если это вообще возможно)?

Пробовал разные безыскусные варианты, конкретных инструкций не нашел.

Получить требуется функцию, которая бы оперировала элементами вектора, получая в качестве аргумента сам вектор.

[AMDBulldozer]

как описать вектор в качестве аргумента функции »

Определяете функцию с обычным аргументом, который в теле рассматриваете как список.
Пример:

argx[x_]:=x[[1]];
vec={4,5,6};
argx[vec]

[TaDa]

AMDBulldozer, спасибо! Оказывается, надо было использовать отложенное присваивание вместо мгновенного.

Недавно я попытался написать код следующего вида:

A[x_, y_] := If[x <> 0, 3/2*y/(x^2*B), Limit[3/2*y/(x^2*B), x -> 0]] M = Table[A[a[[i, j, k]], Mk[[i, j, k]]], {i, 1, 5}, {j, 1, Length[Mk[[i]]]}, {k, 1, Length[Mk[[i, j]]]}]

Таким образом я пытаюсь реализовать следующий алгоритм:

1. Задаю отдельной функцией А(х, у) условие и два варианта в зависимости от выполнения условия.
2. Пытаюсь применить эту функцию к массивам а иМк и вывести результат в отдельный массив (таблицу) М.

Однако на втором этапе возникает ошибка:

StringJoin::string: "String expected at position 1 in (-1.04765)<>0."

Помогите, пожалуйста, понять природу этой ошибки и исправить ее.

[pva]

A<>B - это операция StringJoin[A,B] - конкатенация строк. А не равно - сишное A!=B

имхо то же самое можно сделать проще: http://reference.wolfram.com/mathema...MapThread.html

Код:

M=MapThread[A,{a,Mk},2]

[TaDa]

Существует ли способ задать в сумме Sum[] или произведении Product[] дополнительное условие на индексы? И в чем состоит этот способ?

Поясню на примере: я бы хотел реализовать в Wolfram Mathematica формулу Лагранжа для многомерной интерполяции. На нее можно взглянуть, например, здесь:

http://stu.sernam.ru/book_dig_m.php?id=15

Кроме того, если есть встроенная функция многомерной интерполяции, возвращающая интерполяционный многочлен, было бы неплохо, если бы о ней тоже упомянули.