sistema2
(* soluzione sistemi letterali,fratti *)
x=.;y=.;a=.;
q1=x+y==a;
q2=x-y==a-2;
Solve[{q1,q2},{x,y}]
NSolve[{q1,q2},{x,y}]
{{x -> -(-2 + 2*(2 - a))/2, y -> 1}}
;[o]
-(-2 + 2 (2 - a))
{{x -> -----------------, y -> 1}}
2
{{x -> -(-2 + 2*(2 - a))/2, y -> 1}}
;[o]
-(-2 + 2 (2 - a))
{{x -> -----------------, y -> 1}}
2
x=.;y=.;
y1=3/x+4/y==5/6;
y2=2/x-3/y==1/12;
Solve[{y1,y2},{x,y}]
{{x -> 6, y -> 12}}
;[o]
{{x -> 6, y -> 12}}
x=.;y=.;
y1=2x+4y+6==0; (* indeterminato *)
y2=4x+8y+12==0;
Solve[{y1,y2},{x,y}]
{{x -> -3 - 2*y}}
;[o]
{{x -> -3 - 2 y}}
x=.;y=.;
y1=2x+4y+6==0; (* impossibile *)
y2=4x+8y+9==0;
Solve[{y1,y2},{x,y}]
{}
;[o]
{}
x=.;y=.;
y1=((y-3)/(x-1))==2;
y2=((x+y)/(y-x))==2;
Solve[{y1,y2},{x,y}]
{{x -> 1, y -> 3}}
;[o]
{{x -> 1, y -> 3}}