egorovshura
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору TomasVercetti Да, действительно так как я написал получается ошибка. На самом деле я делал следующее: выполнил tens = Table[Subscript[t, i, j, k], {i, 1, 2}, {j, 1, 2}, {k, 1, 3}] получил на выходе {{{Subscript[t, 1, 1, 1], Subscript[t, 1, 1, 2], Subscript[t, 1, 1, 3]}, {Subscript[t, 1, 2, 1], Subscript[t, 1, 2, 2], Subscript[t, 1, 2, 3]}}, {{Subscript[t, 2, 1, 1], Subscript[t, 2, 1, 2], Subscript[t, 2, 1, 3]}, {Subscript[t, 2, 2, 1], Subscript[t, 2, 2, 2], Subscript[t, 2, 2, 3]}}} скопировал этот вывод и добавил присваивание {{{Subscript[t, 1, 1, 1], Subscript[t, 1, 1, 2], Subscript[t, 1, 1, 3]}, {Subscript[t, 1, 2, 1], Subscript[t, 1, 2, 2], Subscript[t, 1, 2, 3]}}, {{Subscript[t, 2, 1, 1], Subscript[t, 2, 1, 2], Subscript[t, 2, 1, 3]}, {Subscript[t, 2, 2, 1], Subscript[t, 2, 2, 2], Subscript[t, 2, 2, 3]}}} = Table[1, {i, 1, 2}, {j, 1, 2}, {k, 1, 3}] Таким образом всем элементам Subscript[t, i, j, k] присвоились единички. Это видно если ввести выражение Subscript[t, i, j, k] с конкретными значениями i, j, k. После этого при вводе tens я получаю список содержащий все единички. Теперь я хотел бы сделать нечто вроде Clear[tens], но так чтобы очистить значения всех элементов списка Subscript[t, i, j, k]. Добавлено: Эту проблему можно было бы решить если бы я смог создать такой список: {Hold[Subscript[t, 1, 1, 1]], Hold[Subscript[t, 1, 1, 2]], Hold[Subscript[t, 1, 1, 3]], Hold[Subscript[t, 1, 2, 1]], Hold[Subscript[t, 1, 2, 2]], Hold[Subscript[t, 1, 2, 3]], Hold[Subscript[t, 2, 1, 1]], Hold[Subscript[t, 2, 1, 2]], Hold[Subscript[t, 2, 1, 3]], Hold[Subscript[t, 2, 2, 1]], Hold[Subscript[t, 2, 2, 2]], Hold[Subscript[t, 2, 2, 3]]} Только создать такой список программным путем у меня не получается. Я могу сделать так Flatten[Table[ Subscript[Hold[t], i, j, k], {i, 1, 2}, {j, 1, 2}, {k, 1, 3}]] и получаю на выходе {Subscript[Hold[t], 1, 1, 1], Subscript[Hold[t], 1, 1, 2], Subscript[ Hold[t], 1, 1, 3], Subscript[Hold[t], 1, 2, 1], Subscript[ Hold[t], 1, 2, 2], Subscript[Hold[t], 1, 2, 3], Subscript[ Hold[t], 2, 1, 1], Subscript[Hold[t], 2, 1, 2], Subscript[ Hold[t], 2, 1, 3], Subscript[Hold[t], 2, 2, 1], Subscript[ Hold[t], 2, 2, 2], Subscript[Hold[t], 2, 2, 3]} что близко к желаемому, но не совсем то. Добавлено: Только теперь сообразил, что Clear[Subscript[t, 1, 1, 1]] не работает. Странно, почему? Работает вариант Subscript[t, 1, 1, 1] = . который тоже подходит так как сбрасывает значение переменной Subscript[t, 1, 1, 1], чего я и добиваюсь для всех Subscript[t, i, j, k]. Вообще получается так что Subscript[t, i, j, k] это и непеременная вовсе а нечто более сложное. |