sistema1

(* soluzione sistema lineare 2;3,4 equazioni *)

Solve[{2q-3p==7,4q+5p==3},{q,p}]

{{q -> 2, p -> -1}}

;[o]

{{q -> 2, p -> -1}}

x=.;y=.;

y1=2x-3y==7;

y2=4x+5y==3;

Solve[{y1,y2},{x,y}]

{{x -> 2, y -> -1}}

;[o]

{{x -> 2, y -> -1}}

x=.;y=.

y1=((3x-y)/(y+3))==2; (* sistema fratto *)

y2=(x/5)+y/3==2;

Solve[{y1,y2},{x,y}]

{{x -> 5, y -> 3}}

;[o]

{{x -> 5, y -> 3}}

x=.;y=.;

y1=x+y-z==0;

y2=2x-y+z==3;

y3=x+2y-z==2;

Solve[{y1,y2,y3},{x,y,z}]

{{x -> 1, y -> 2, z -> 3}}

;[o]

{{x -> 1, y -> 2, z -> 3}}

x=.;y=.;z=.;

y1=x+y+z==3;

y2=y+z-t==1;

y3=x+z-t==1;

y4=x-y+t==1;

Solve[{y1,y2,y3,y4},{x,y,z,t}]

{{x -> 1, y -> 1, z -> 1, t -> 1}}

;[o]

{{x -> 1, y -> 1, z -> 1, t -> 1}}

ritorna a inizio