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

/* [wxMaxima: input   start ] */
A:[a,k/a];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
B:[b,k/b];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
C:[c,k/c];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
D:[x,y];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ps1:(A-C).(B-D);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ps2:(B-C).(A-D);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
solve([ps1=0,ps2=0],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y1:k/(-k^2/(a*b*c));
/* [wxMaxima: input   end   ] */

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