# Kommenttirivi: Tama on octave ohjelmani H5akesken.m
clear ; clc             # Poistetaan ... Tyhjennetaan ...
x=rand(1);                                # Tasajakauma (0,1)
# Tarkistetaan arvonnan tulos             #
printf("%16s%6.4f\n",'Arvottu luku = ',x) #
if (x <=1./3.)                            # Alussa?
  printf("on alueen (0,1) alussa\n")      # -"-
elseif (x>1./3. &  x<=2./3.)              # Keskella
  printf("on alueen (0,1) keskella\n")    # -"-
else                                      # Lopussa?
  printf("on alueen (0,1) lopussa\n")     # -"-
endif                                     # 
a=10000.0*rand(1);                        # Tasajakauma 0-10000 astetta
# Tarkistetaan arvonnan tulos             #
printf("%16s%6.4f%8s\n",'Arvottu kulma = ',a,'astetta') 
# Tehtava alkaa tasta ======================================
