sistema determinato con kramer
esci sistemi.htm
"soluzione sistema
determinato"
"scrivi sistema in forma normale"
;Semplificazione(Utente)
"([a1x+b1y=c1, a2x+b2y=c2]"
[4*x-y-15=0,3*x+5*y+6=0]
"soluzione con Derive-Risolvi"
SOLVE([4*x-y-15=0,3*x+5*y+6=0],[x,y])
;Semplificazione(#6)
[[x=3,y=-3]]
"soluzione e discussione con kramer, IF "
"assegno coefficienti a variabili"
a1:=4
b1:=-1
c1:=15
a2:=3
b2:=5
c2:=-6
"creo matrici per sistema e incognite ms,mx, my"
ms:=[[a1,b1],[a2,b2]]
mx:=[[c1,b1],[c2,b2]]
my:=[[a1,c1],[a2,c2]]
"calcolo determinanti per sistema e incognite ds,dx,dy"
ds:=DET(ms)
dx:=DET(mx)
dy:=DET(my)
"creo funzione don IF per discussione sistema"
IF(ds/=0,[dx/ds,dy/ds],IF([dx=0,dy=0],"indeterminato","impossibile"))
"assegno a Discute funzione creata con IF"
DISCUTE(ds,dx,dy):=IF(ds/=0,[dx/ds,dy/ds],IF([dx=0,dy=0],"indeterminato","imp~
ossibile"))
"attivo Discute in funzione di ds,dx,dy"
DISCUTE(ds,dx,dy)
"semplifica-base:ottengo risultato , come con Derive"
;Semplificazione(#29)
[3,-3]