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] это и непеременная вовсе а нечто более сложное. |
