sistema1

soluzione sistema lineare e discussione

--matrice2 soluzione sistema 2 equazioni con discussione
--ATTIVA (programma scritto nella card collegata a tasto attiva)
on mousedown
  put "" into v1
  put "" into v2
  put "" into cd fld 2
  put "" into cd fld 3
  put "" into cd fld 4
  put "" into cd fld 5
  put 2 into righe  
  put 3 into colonne
  repeat with a=1 to righe
    repeat with b=1 to colonne
      put "riga=" & a & " colonna=" & b into line a of cd fld 3
      ask dato
      if a=1 then put v1 & it & " " into v1
      if a=2 then put v2 & it & " " into v2
    end repeat
  END REPEAT
  put v1 into line 1 of cd fld 2
  put v2 into line 2 of cd fld 2
  PUT (word 1 of v1) * (word 2 of v2) into a12
  put (word 2 of v1)*(word 1 of v2) into a21
  put (a12-a21) into ds
  put "determinante sistema=" & ds into line 1 of cd fld 4
  PUT (word 3 of v1)*(word 2 of v2) into x12
  put (word 3 of v2)*(word 2 of v1) into x21
  put (x12-x21) into dx
  put "determinante di x =" & dx into line 2 of cd fld 4
  put (word 1 of v1)*(word 3 of v2) into y12
  put (word 1 of v2)*(word 3 of v1) into y21
  put (y12-y21) into dy
  put "determinante di y =" & dy into line 3 of cd fld 4
  put "" into cd fld 3
  if ds<> 0 then 
    put dx/ds into x
    put dy/ds into y
    put "valore di x=dx/ds " & x into line 1 of cd fld 5
    put "valore di y=dy/ds " & y into line 2 of cd fld 5  
  else
    if ds=0 and dx=0 
    then put "sistema indeterminato " into cd fld 5
  end if
  if ds=0 and dx<> 0 then 
    put "sistema impossibile" into cd fld 5
  end if
end mousedown