#!/usr/bin/ruby
# File: lab14_v5.rb
# Resources: Input14.txt
# => Opens file, prints variables to screen
# => Separates values from error
# => assigns 2D values to poi[i][j], pci[i][j], pof[i][j], pcj[i][j]

lines = File.readlines("Input14.txt") #now an array of lines
name = lines[0]
experiment = lines[1]
partner = lines[2]
date = lines[3]
barometric_pressure = lines[4].split(',')
bap = barometric_pressure[0].to_f
ebap = barometric_pressure[1].to_f

dibutyl = lines[5]
#separate ddbp from eddbp

mercury = lines[6]
#separate dhg from edhg

ep = lines[7].to_f  #Uncertainty in U-Tube

ng = lines[8].to_i #number of gasses studied

Q = lines[9]
m = lines[10].to_i



puts "Name: #{name}"
puts "Experiment: #{experiment}"
puts "Partner: #{partner}"
puts "Date: #{date}"
puts "Barometric Pressure: #{bap}\tError: #{ebap}"

$poi = Array.new(ng) {Array.new(m) {0.0}}
$pci = Array.new(ng) {Array.new(m) {0.0}}
$pof = Array.new(ng) {Array.new(m) {0.0}}
$pcf = Array.new(ng) {Array.new(m) {0.0}}
$ok = Array.new(ng) {Array.new(m) {0.0}}
=begin
$ol
and all the other arrays go here.
=end

i=0
linecount = 11
while i<ng
  j=0
  while j<m
    value = lines[linecount].split(',')
    $poi[i][j] = value[0].to_f
    
    $pci[i][j] = value[1].to_f
    $pof[i][j] = value[2].to_f
    $pcf[i][j] = value[3].to_f
    
    $ok[i][j] = $poi[i][j] - $pci[i][j]
    j = j+1
    linecount = linecount + 1
  end
  i = i+1
end


#Check to see that they are there:
=begin
i= 0
while i<ng
  j=0
  while j<m
    puts "#{$poi[i][j]}\t#{$pci[i][j]}\t#{$pof[i][j]}\t#{$pcf[i][j]}"
    puts "#{$ok[i][j]}"
    j=j+1
  end
  i=i+1
end
=end

exit