# Kommenttirivi: Tama on octave ohjelmani Omalli6.m
clear ; clc                # Poistetaan ... Tyhjennetaan ...
a = [1 2] ; # a(1)=1,a(2)=2 mutta alkiota a(3) ei ole!
#   "disp(a(3))" virheviesti: "A(I): Index exceeds matrix dimension"
# Esimerkki 1 _______________________________________
try                               # try alkaa
   disp(a(3))                     # Komento yritys
catch                             # Jos ei onnistu,
    disp("Ei onnistu.")           # printataan tama
end_try_catch                     # try loppuu
# Esimerkki 2 _______________________________________
try                               # try alkaa
   disp(a(3))                     # Komento yritys
catch                             # 
msg = lasterror.message;          # Virheviesti talteen
q=strfind(msg,"index out");       # Tarkistetaan msg
  if (q >0)                       # Jos "Inde.." loytyy,
     disp("Virhe tunnistettu")    # niin printataan tama.
  else                            # Jos "Inde.." ei loydy,
     disp("Virhe tunnistamatta")  # niin printataan tama
  endif                           # 
end_try_catch                     # try loppuu
# Esimerkki 3 ______________________________________
try                               # try alkaa
   disp(a(3))                     # Komento yritys
catch                             # 
msg = lasterror.message;          # Virheviesti talteen
q=strfind(msg,"Olisikohan tuo");  # Tarkistetaan msg
  if (q>0)                        # Jos "Olis.." loytyy,
     disp("Virhe tunnistettu")    # niin printtaa tama 
  else                            # Jos "Olis.." ei loydy,
     disp("Virhe tunnistamatta")  # niin printaan tama
  endif                           #
end                               # try loppuu
