Вы можете использовать ReplaceAll
(/.
)
θ1 = θ1 /. list1
Или все сразу
Clear[θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4]
J1 = 1; J2 = 1; D1 = 0.1; D2 = 0;
{Emin, list1} = Minimize[Etet[J1, J2, D1, D2, θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4],
{θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4}];
{θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4} = {θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4} /. list1
И еще аккуратно
Clear[θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4]
J1 = 1; J2 = 1; D1 = 0.1; D2 = 0;
vars = {θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4};
{Emin, list1} = Minimize[Etet[J1, J2, D1, D2, θ1, θ2, θ3, θ4, ϕ1, ϕ2, ϕ3, ϕ4], vars ];
With[{vars = vars}, vars = vars /. list1]
θ1
-2,35619
With
требуется для передачи значений в переменные внутри vars
.