# Kommenttirivi: Tama on octave ohjelmani Omalli10.m
# - Kirjoitetaan tiedostoon rivi kerrallaan
# ___________________________________________________________
clear ; clc              # Poistetaan ... Tyhjennetaan ...
x=[0:2]  ; printf("x = %f,%f,%f\n",x)   # Luodaan 1 vektori
y=sin(x) ; printf("y = %f,%f,%f\n",y)   # Luodaan 2 vektori
# ___________________________________________________________
# - Kirjoitetaan vain lukuja   
fid=fopen('Omalli10a.dat','w');         # Avaa tiedoston
for i=1:length(x)                       # for alkaa
fprintf (fid, "%6.1f%8.4f\n",x(i),y(i));# Kirjoittaa Rivin
endfor                                  # for loppuu
fclose(fid);                            # Sulkee tiedoston
# ____________________________________________________________
# - Kirjoitetaan lukuja ja stringeja esim: Latex kayttoon
fid=fopen('Omalli10b.dat','w');         # Avaa tiedoston
for i=1:length(x)                       # for alkaa
fprintf (fid, "%6.1f%3s%8.4f%4s\n",x(i),'&',y(i),'\\');
endfor                                  # for loppuu
fclose(fid);                            # Sulkee tiedoston
