/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 13.04.2 ] */

/* [wxMaxima: input   start ] */
f : y^2=4*p*x;
g : y=x-(p-5);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c : solve([f,g], [x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
P_x : c[1][1];
Px : rhs(P_x);
Pd : lhs(P_x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
 
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$