/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 18.02.0 ] */ /* [wxMaxima: input start ] */ M(alpha,xi):=matrix( [1-3*alpha,4*alpha*exp(-%i*xi)-alpha], [3*alpha,1-alpha-2*alpha*exp(-%i*xi)] ); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ (%i)^2; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ x(alpha,xi):=eigenvalues(M(alpha,xi)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ rho1(alpha,xi):=abs(x(alpha,xi)[1][1]);rho2(alpha,xi):=abs(x(alpha,xi)[1][2]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxplot2d([rho1(0.0,xi),rho2(0.0,xi)],[xi,0,2*%pi]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxplot2d([rho1(0.05,xi),rho2(0.05,xi)],[xi,0,%pi]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ abs(%i); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ x(alpha,xi);rho1(alpha,xi);rho2(alpha,xi); /* [wxMaxima: input end ] */ /* Old versions of Maxima abort on loading files that end in a comment. */ "Created with wxMaxima 18.02.0"$