kill(all)$

van=facebook.com/LearningCalculus$

f:-4*a+sqrt(2)*%i;
g:5+3*%i;

Z:[-2-%i*%i,0-%i*%i,1,-1];
abs(Z);

L:create_list([j,Z[j]*g=f,solve(Z[j]*g=f,a)], j, 1, 4)$

A:create_list((rhs(first(third(L[j])))), j, 1, 4);

realpart(A);

imagpart(A);

create_list([realpart(A[j])+imagpart(A[j])*%i],j,1,4);

sort(%);

unique(%);