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]