# Kommenttirivi: Tama on octave ohjelmani Omalli9.m
# ___________________________________________________________
clear ; clc                       # Poistetaan ... Tyhjennetaan ...
date=[] ;                         # Tyhja muuttuja
file=fopen("OPmalli9.dat","r");   # Avaa OPmalli9.dat
rivi=fgets(file);                 # LUETAAN RIVI KERRALLAAN
while ischar(rivi)==1             # Onko string?
osat=strsplit(rivi,' ');          # Tyhjien mukaan osiksi
osat=strjoin(osat(1),'');         # 1 alkio sopivaan muotoon
q=index(osat,"245");              # Etsi "245" tekstia
if (q > 0)                        # Jos loytyy ..,
# String muutetaan desimaaliluvuksi kaskylla "float"
  date=[date,str2double(osat)];   # lisaa arvo muuttujaan date
  endif                           # if loppuu
disp(date)                        # Nayta date
rivi=fgets(file);                 # Lue seuraava rivi
endwhile                          # while loppuu
fclose (file);                    # Sulje OPmalli9.dat
printf("date = %f,%f,%f\n",date)        # Tarkistus
printf("class(date)= %s\n",class(date)) # Tarkistus
