Подскажите, как автоматизировать заполнение тела функции

Здравствуйте, уважаемые программисты
Подскажите пожалуйста как решить следующую задачку
Есть функция, а именно:

Sol=NMinimize[{Total[Abs[-K+B[[1]]*S[[1]]+B[[2]]*S[[2]]]], B[[1]]>0&&B[[2]]>0}, {B[[1]], B[[2]]}]

Нужно сделать ее универсальной на заданное число элементов N
Т.е. какими конструкциями можно автоматизировать заполнение тела функции в зависимости от числа элементов
в массивах B и S в данном случае

И еще один вопрос: Можно ли в Вольфраме в название элемента включать переменную цикла?
Например требуется в цикле обращаться к некоторым нумерованным переменным: a1, a2, a3.
Можно создать массив a={a1,a2,a3} и обращаться к ним: a[[i]]. Соответственно интересует можно ли без этого массива в цикле обращаться напрямую к a1, a2, a3?

Набирал с телефона, мог чего-нибудь пропустить

0

B[[1]]*S[[1]]+B[[2]]*S[[2]] очень похоже на скалярное произведение (B.S), если S[[k]] числа.
Total[Abs[...]] — зачем нужен Total? У Вас K или S[[k]] вектор?

B[[1]]>0&&B[[2]]>0 эквивалентно And@@(# > 0 & /@ B) или And@@Cases[B, x_ :> x > 0].

{B[[1]], B[[2]]} эквивалентно B или, на всякий случай, Evaluate[B].

Сообщение от Andro309 И еще один вопрос: Можно ли в Вольфраме в название элемента включать переменную цикла?

Можно, но обычно такая необходимость говорит о неправильной организации кода.

Сообщение от Andro309 Можно создать массив a={a1,a2,a3} и обращаться к ним: a[[i]]

Так можно. Ещё можно взять ранее неиспользованную букву (скажем, a после ClearAll[a]) и использовать a[i], например,

0

Спасибо за ответ!

Здесь B имеет структуру {{b1, b2, ..., N}, {b1, b2, ..., N}, ..., k}, где b1, b2 - искомые неизвестные для каждого из k случаев.
S={{{s1, t1},{s2, t2},...},{{s1, t1},{s2, t2},...} ,..., N}
K соответствует S по количеству строк {{s1, t1},{s2, t2},...} в одном элементе.

Размерность массивов N задается в начале расчета в соответствии с имеющимися данными. Для описанного примера с N=2 полная запись выгледела бы так:

Sol=NMinimize[{Total[Abs[-K[[#]][[All, 2]]+B[[#]][[1]]*S[[1]][[All, 2]]+B[[#]][[2]]*S[[2]][[All, 2]]]], B[[#]][[1]]>0&&B[[#]][[2]]>0}, {B[[#]][[1]], B[[#]][[2]]}] &/@ {1, 2, ..., k}

Total производит вычисление функции по всей глубине массива. Без него функция не работает.

Недавно познакомился с Вольфрамом и плохо разбираюсь в его синтаксисе. Хочется организовать автоматическое описание функции в зависимости от заданной размерности N.

По второй части моего вопроса. Какими знаками пришивается циклическая переменная к имени переменной?

Добавлено через 2 часа 7 минут
Можно ли в данное выражение добавить вторую карту, что-то вроде ##:

Sol=NMinimize[{Total[Abs[-K[[#]][[All, 2]]+B[[#]][[##]]*S[[##]][[All, 2]]]], B[[#]][[##]]>0}, B[[#]][[##]]] &/@ {1, 2, ..., k} &/@ {1, 2, ..., N} ?

0

Сообщение от Andro309 Здесь B имеет структуру {{b1, b2, ..., N}, {b1, b2, ..., N}, ..., k}, где b1, b2 - искомые неизвестные для каждого из k случаев.

Итак, B — матрица из N*k неизвестных?
Не уверен, что {B[[1]], B[[2]]} подойдёт в качестве списка переменных NMinimize. Впрочем, у Вас может быть более поздняя версия.

Сообщение от Andro309 S={{{s1, t1},{s2, t2},...},{{s1, t1},{s2, t2},...} ,..., N}

S — матрица N*k*2?
Кстати, можно проверить, написав Dimensions[S] и Dimensions[B].

Сообщение от Andro309 Total производит вычисление функции по всей глубине массива.

Total суммирует все элементы списка.

Напишите выражение, которое Вы хотите минимизировать, математически. Пусть , , — элементы матриц (заодно выясним размерности их)
Напишите что-то в духе
а потом положим это в код WM (как увидите, почти дословно)

0