sistema lineare a due equazioni
soluzione con discussione
esci sistemi.htm
"soluzione sistema 1ø grado con
due equazioni"
;Semplificazione(Utente)
"sia dato il sistema in forma normale"
18*x-3*y=-3
8*x-5*y=-27
ds:=DET([[18,-3],[8,-5]])
dx:=DET([[-3,-3],[-27,-5]])
dy:=DET([[18,-3],[8,-27]])
"discussione con IF e previsione risultato"
"discussione da applicare con IF "
"se ds´0 stampa risultati dx/ds e dy/ds altrimenti (con
ds=0)"
"stampa indeterminato se anche dx,dy sono = 0
altrimenti"
"se dx,dy sono ´ 0 stampa impossibile"
DISCUTE(ds,dx,dy):=IF(ds/=0,[dx/ds,dy/ds],IF(dx/=0,"impossibile","indetermina~
to"))
DISCUTE(ds,dx,dy)
;Semplificazione(#14)
[1,7]
DISCUTE(ds,dx,dy):=IF(ds/=0,[dx/ds,dy/ds],IF([dx/=0,dy/=0],"impossibile","ind~
eterminato"))
DISCUTE(ds,dx,dy)
;Semplificazione(#17)
[1,7]