sistema lineare con DERIVE

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

----------------------------------------------------

mathematica

soluzione sistemi lineari

[y-3*x+1=0,y-2*x+1=0] determinato

SOLVE([y-3*x+1=0,y-2*x+1=0],[x,y])

;Semplificazione(#2)

[[x=0,y=-1]]

[2*x-y=1,2*x-y=3] impossibile

SOLVE([2*x-y=1,2*x-y=3],x)

;Semplificazione(#5)

[]

[2*x+4*y=8,4*x+8*y=16] indeterminato

;Risoluzione(#7,[x,y])

[[x=@1,y=(4-@1)/2]]

--------------------------------------------------------------