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}}

ritorna a inizio