How do I change equations from the 2D-output into definitions?
#! Change the order (this case second):
solve({-alpha[-1] + 2*alpha[2] = 1, 1/2*alpha[-1]*h + 2*alpha[2]*h = 0, alpha[-1]/h + alpha[0]/h + alpha[2]/h = 0}, {alpha[a], alpha[b], alpha[c]});
/ -2 1 1\
{ alpha[-1] = --, alpha[0] = -, alpha[2] = - }
\ 3 2 6/
NULL;
lhs({alpha[-1] = -2/3, alpha[0] = 1/2, alpha[2] = 1/6}[1]) := rhs({alpha[-1] = -2/3, alpha[0] = 1/2, alpha[2] = 1/6}[1]);
/ -2\ / / -2 1
lhs|alpha[-1] = --| := rhs|{ alpha[-1] = --, alpha[0] = -,
\ 3 / \ \ 3 2
1\ \
alpha[2] = - }[1]|
6/ /