Mathcad
sistemi lineari solo se determinati
2x+y=-1 sistema scritto tra virgolette_
x-1y=-2
ms:({2,2}ö-1ö1ö1ö2)_
ds:|ms_
ds=?_
mx:({2,2}ö-1ö1ö-2ö-1)_
dx:|mx_
dx=?_
my:({2,2}ö-2ö-1ö1ö2)_
dy:|my_
dy=?_
x:dx/ds_
x=?_
y:dy/ds_
y=?_
altro modo di risolvere sistema lineare a due incognite
a1:2_
b1:1_
c1:-1_a2:1_
b2:-1_
c2:-2_
ms:({2,2}öb2öb1öa2öa1)_
ds:|ms_
ds=?_
mx:({2,2}öb2öb1öc2öc1)_
dx:|mx_
dx=?_
my:({2,2}öc2öc1öa2öa1)_
dy:|my_
dy=?_
x:dx/ds_
x=?_y:dy/ds_
y=?_
a1,49,78,48
cambiare i valori dei coefficienti del sistema
sistema a tre equazioni con tre incognite
x+y-z=-2_
2x-y+z=5_
x+2y+z=1
a1:1_
b1:1_
c1:-1_
n1:-2_
a2:2_
b2:-1_
c2:1_
n2:5_
a3:1_
b3:2_
c3:1_
n3:1_
ms:({3,3}öc3öc2öc1öb3öb2öb1öa3öa2öa1)_
ds:|ms_
ds=?_
mx:({3,3}öc3öc2öc1öb3öb2öb1ön3ön2ön1)_
dx:|mx_
dx=?_
my:({3,3}öc3öc2öc1ön3ön2ön1öa3öa2öa1)_
dy:|my_
dy=?_
mz:({3,3}ön3ön2ön1öb3öb2öb1öa3öa2öa1)_
dz:|mz_
dz=?_
x:dx/ds_
x=?_
y:dy/ds_
y=?_
z:dz/ds_
z=?_
--------------------------------------------------------------------
/* kramer2.mar */
/* soluzione e discussione sistema con kramer*/
/* valori interi o reali */
nowarnings
domains
predicates
azione
opera
tasto
verifica(integer,integer,integer)
elabora(integer)
calcola
goal azione.
clauses
azione:-makewindow(1,5,1,"",1,1,20,78),opera.
opera:-
clearwindow,
write("scrivi 1 per calcolo sistema"),nl,
write("scrivi 0 per finire"),nl,
readint(N),clearwindow,
elabora(N).
elabora(1):-calcola.
elabora(0):-exit.
calcola:-
write("soluzione sistema con 2 equazioni"),nl,
write("a1x + b1y = c1"),nl,
write("a2x + b2y = c2"),nl,
write("scrivi valori interi ,seguiti da enter"),nl,
write("prima equazione:"),nl,
write("a1="),readreal(A1),
write("b1="),readreal(B1),
write("c1="),readreal(C1),
write("seconda equazione:"),nl,
write("a2="),readreal(A2),
write("b2="),readreal(B2),
write("c2="),readreal(C2),
DS=A1*B2-A2*B1,
DX=C1*B2-C2*B1,
DY=A1*C2-A2*C1,
verifica(DS,DX,DY).
verifica(DS,DX,DY):-
DS<>0,
X=DX/DS,
Y=DY/DS,
write("soluzione sistema determinato:"),nl,
write("x=",X),nl,
write("y=",Y),nl,tasto,opera;
DS=0,DX=0,
write("indeterminato"),nl,tasto,opera;
DS=0,DX<>0,
write("impossibile"),nl,tasto,opera.
tasto:-
makewindow(3,3,2,"",20,60,3,15),
write("premi enter"),
readchar(_),removewindow,gotowindow(1).