"soluzione sistema indeterminato"
"scrivi sistema in forma normale"
;Semplificazione(Utente)
"([a1x+b1y=c1, a2x+b2y=c2]"
;Semplificazione(Utente)
[2*x+3*y=4,4*x+6*y=8]
"soluzione con Derive-Risolvi"
SOLVE([2*x+3*y=4,4*x+6*y=8],[x,y])
;Approssimazione(#6)
[[x=@2,y=0.666666*(2-@2)]]
"soluzione e discussione con kramer, IF "
"assegno coefficienti a variabili"
a1:=2
b1:=3
c1:=4
a2:=4
b2:=6
c2:=8
"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"
;Approssimazione(#29)
"indeterminato"
