"con Derive-Risolvi"
SOLVE([4*x-y-15=0,3*x+5*y+6=0],[x,y])
;Approssimazione(#3)
[[x=3,y=-3]]
"soluzione con kramer"
ds:=DET([[4,-1],[3,5]])
;Semplificazione(#6)
23
dx:=DET([[15,-1],[-6,5]])
;Semplificazione(#8)
69
dy:=DET([[4,15],[3,-6]])
;Semplificazione(#10)
-69
"creo funzione per discussione con IF "
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)
;Semplificazione(#17)
[3,-3]
