"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"
v:=[4,-1,15,3,5,-6]
"calcolo determinanti per sistema e incognite ds,dx,dy"
ds:=DET([[v SUB 1,v SUB 2],[v SUB 4,v SUB 5]])
dx:=DET([[v SUB 3,v SUB 2],[v SUB 6,v SUB 5]])
dy:=DET([[v SUB 1,v SUB 3],[v SUB 4,v SUB 6]])
"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)
;Approssimazione(#20)
[3,-3]
"visualizzo valori ds,dx,dy calcolati"
ds
;Semplificazione(#23)
23
dx
;Semplificazione(#25)
69
dy
;Semplificazione(#27)
-69
"calcolo x:=dx/ds , y:=dy/ds "
x:=dx/ds
;Semplificazione(#30)
3
y:=dy/ds
;Semplificazione(#32)
-3
