gematdd-dibad 0.1.1

data/lib/gematdd/menu/menu.rb

@@ -0,0 +1,89 @@
+require 'etiqueta/etiqueta'
+
+class Menu
+  attr_accessor :dia, :titl, :ingesta_min, :ingesta_max, :al_desayuno, :al_almuerzo, :al_cena
+
+  def initialize(dia, &block)
+    @dia = dia
+    @titl = ''
+    @ingesta_min = 0
+    @ingesta_max = 0
+    @al_desayuno = []
+    @al_almuerzo = []
+    @al_cena = []
+
+    if block_given?
+      if block.arity == 1
+        yield self
+      else
+        instance_eval(&block)
+      end
+    end
+  end
+
+  def to_s
+    output = @dia
+    output << "\t\tTitulo: #{@titl}\n"
+    output << "Ingesta min: #{@ingesta_min} - Ingesta max: #{@ingesta_max}\n"
+    output << "==================================================================\n"
+    output << "".ljust(25) << "grasas".ljust(15) << "carbohid.".ljust(15) <<
+    "proteínas".ljust(15) << "fibra".ljust(15) << "sal".ljust(15) << "valor energético\n"
+
+    { 'Desayuno' => @al_desayuno,
+      'Almuerzo' => @al_almuerzo,
+      'Cena' => @al_cena }.each do |nombre, comida|
+      output << "-- #{nombre} --\n"
+      comida.each do |x|
+        output << x.nombre.ljust(25) << x.grasas.to_s.ljust(15) << x.hidratos.to_s.ljust(15) <<
+        x.proteinas.to_s.ljust(15) << x.fibra_alimentaria.to_s.ljust(15) << x.sal.to_s.ljust(15) << x.valor_nutr_kcal.to_s << "\n"
+      end
+      output << "\n"
+    end
+
+    output << "Valor energetico total\t"
+    output << (@al_desayuno + @al_almuerzo + @al_cena).collect(&:valor_nutr_kcal).reduce(:+).to_s
+
+    output
+  end
+
+  def titulo(titl)
+    @titl = titl
+  end
+
+  def ingesta(options = {})
+    @ingesta_min = options[:min] if options[:min]
+    @ingesta_max = options[:max] if options[:max]
+  end
+
+  def desayuno(options = {})
+    @al_desayuno << process_etiqueta(options)
+  end
+
+  def almuerzo(options = {})
+    @al_almuerzo << process_etiqueta(options)
+  end
+
+  def cena(options = {})
+    @al_cena << process_etiqueta(options)
+  end
+
+  private
+
+  def process_etiqueta(options = {})
+    alimento = Etiqueta.new(
+      options[:descripcion],
+      options[:gramos],
+      Grasas.new(options[:grasas],
+                 options[:grasas]),
+      Hidratos.new(options[:carbohidratos],
+                   options[:carbohidratos]),
+      options[:proteinas],
+      options[:sal],
+      options[:fibra],
+      nil,
+      options[:porcion]
+    )
+
+    alimento
+  end
+end

data/lib/gematdd/menu/menu.rb~

@@ -0,0 +1,95 @@
+require 'etiqueta/etiqueta'
+
+class Menu
+  attr_accessor :dia, :titl, :ingesta_min, :ingesta_max, :desayunos, :almuerzos, :cenas
+
+  def initialize(dia, &block)
+    @dia = dia
+    @titl = ''
+    @ingesta_min = 0
+    @ingesta_max = 0
+    @desayunos = []
+    @almuerzos = []
+    @cenas = []
+
+    if block_given?
+      if block.arity == 1
+        yield self
+      else
+        instance_eval(&block)
+      end
+    end
+  end
+
+  def to_s
+    output = @dia
+    output << "\t\tTitulo: #@titl\n"
+    output << "Ingesta min: #@ingesta_min - Ingesta max: #@ingesta_max\n"
+    output << "==================================================================\n"
+    output << "\t\t\tgrasas\tcarbohidratos\tproteínas\tfibra\tsal\tvalor energético"
+    output << "Desayuno\n"
+    desayunos.each do |x|
+      output << "#{x.nombre}\t#{x.grasas}\t#{x.hidratos}\t\t#{x.proteinas}\t\t#{x.fibra_alimentaria}\t#{x.sal}\t#{x.valor_nutr_kj}\n"
+    end
+
+    output
+  end
+
+  def titulo(titl)
+    @titl = titl
+  end
+
+  def ingesta(options = {})
+    @ingesta_min = options[:min] if options[:min]
+    @ingesta_max = options[:max] if options[:max]
+  end
+
+  def desayuno(options = {})
+
+    @desayunos << desay
+
+  end
+  private
+  def process(options = {})
+    alimento = Etiqueta.new(
+      options[:descripcion],
+      options[:gramos],
+      Grasas.new(options[:grasas],
+                 options[:grasas]
+      ),
+      Hidratos.new(options[:carbohidratos],
+                   options[:carbohidratos]
+      ),
+      options[:proteinas],
+      options[:sal],
+      options[:fibra],
+      nil,
+      options[:porcion])
+
+    alimento
+  end
+end
+
+@menu = Menu.new('Lunes') do
+  titulo    'Bajo en calorías'
+  ingesta   :min => 30, :max => 35
+  desayuno  :descripcion => 'Pan de trigo integral',
+            :porcion => 1,
+            :gramos => '100g',
+            :grasas => '3.3g',
+            :carbohidratos => '54g',
+            :proteinas => '11g',
+            :fibra => '2.3g',
+            :sal => '0.06g'
+  desayuno  :descripcion => "Actimel",
+            :porcion => 1,
+            :gramos => '100g',
+            :grasas => '3.4g',
+            :carbohidratos => '4.4g',
+            :proteinas => '3.6g',
+            :fibra => '0g',
+            :sal => '0.05g'
+
+end
+
+puts @menu.to_s

data/lib/gematdd/paciente/individuo.rb

@@ -0,0 +1,37 @@
+require 'date'
+
+# Clase que representa a un Individuo (Sin ser o no paciente)
+class Individuo
+  include Comparable
+
+  attr_accessor :nombre, :apellidos, :sexo, :fecha_nac, :edad, :ocupacion
+
+  def initialize(nombre, apellidos, sexo, fecha_nac, ocupacion)
+    @nombre = nombre
+    @apellidos = apellidos
+    @sexo = sexo
+    @fecha_nac = Date.parse(fecha_nac)
+    @edad = edad
+    @ocupacion = ocupacion
+  end
+
+  # Convierte el atributo de sexo (0 o 1) a un valor legible
+  def genero
+    @sexo == 1 ? 'Hombre' : 'Mujer'
+  end
+
+  # Calcula la edad a partir de la fecha de nacimiento
+  def edad
+    @edad = Date.today.year - @fecha_nac.year
+    @edad -= 1 if Date.today.month <= @fecha_nac.month &&
+                  Date.today.day < @fecha_nac.day
+    @edad
+  end
+
+  def to_s
+" - Datos de #{@nombre} #{@apellidos}
+    Sexo: #{genero}
+    Fecha de nacimiento: #{@fecha_nac}
+    Ocupación: #{@ocupacion}"
+  end
+end

data/lib/gematdd/paciente/paciente.rb

@@ -0,0 +1,16 @@
+require 'paciente/individuo'
+
+# Representa a un individuo asociado a una consulta específica
+class Paciente < Individuo
+  attr_accessor :consulta
+
+  def initialize(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta)
+    super(nombre, apellidos, sexo, fecha_nac, ocupacion)
+    @consulta = consulta
+  end
+
+  def to_s
+    " || Paciente perteneciente a la consulta #{@consulta} ||\n
+#{super}"
+  end
+end

data/lib/gematdd/paciente/paciente_con_obesidad.rb

@@ -0,0 +1,21 @@
+require 'paciente/paciente_datos'
+
+# Representa un paciente cuyos datos antropométricos indican que tiene obesidad
+class PacienteConObesidad < PacienteConDatos
+  def initialize(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta,
+                 datos_antropometricos)
+
+    super(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta,
+          datos_antropometricos)
+
+    if imc < 30.0
+      raise TypeError, "El Paciente no tiene obesidad (IMC:
+      #{imc} < 30.0)"
+    end
+  end
+
+  def to_s
+    "#{super}\n
+Según el IMC, este paciente tiene Obesidad."
+  end
+end

data/lib/gematdd/paciente/paciente_datos.rb

@@ -0,0 +1,69 @@
+require 'ruby-units'
+
+require 'paciente/paciente'
+require 'valoracion/datos_antropometricos'
+
+# Representa un paciente cuyos datos han sido registrados
+class PacienteConDatos < Paciente
+  include Comparable
+
+  attr_accessor :datos
+
+  def initialize(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta,
+                 datos)
+    super(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta)
+    @datos = datos
+  end
+
+  # Cálculo del Indice de Masa Corporal
+  def imc
+    @datos.peso / (@datos.talla * @datos.talla)
+  end
+
+  # Cálculo del porcentaje de grasa
+  def porcentaje_grasa
+    (1.2 * imc + 0.23 * @edad - 10.8 * @sexo - 5.4).round(2)
+  end
+
+  # Cálculo de la Relación Cadera-Cintura
+  def rcc
+    (@datos.ccintura.to_f / @datos.ccadera).round(2)
+  end
+
+  # Cálculo del peso teórico ideal
+  def peso_teorico_ideal
+    (@datos.talla * 100 - 150) * 0.75 + 50
+  end
+
+  # Cálculo del gasto energético basal (teniendo en cuenta el sexo)
+  def gasto_energetico_basal
+    (10 * @datos.peso) + (6.25 * @datos.talla) - (5 * @edad) + (@sexo ?
+                                                                5 : -161)
+  end
+
+  # Cálculo del efecto termógeno
+  def efecto_termogeno
+    gasto_energetico_basal * 0.10
+  end
+
+  # Cálculo del gasto por el factor de actividad fisica
+  def gasto_actividad_fisica
+    gasto_energetico_basal * @datos.actividad_fisica
+  end
+
+  # Cálculo del gasto energético total (en kcal)
+  def gasto_energetico_total
+    Unit.new("#{gasto_energetico_basal + efecto_termogeno +
+     gasto_actividad_fisica} kcal")
+  end
+
+  def <=>(other)
+    [gasto_energetico_total, datos] <=> [other.gasto_energetico_total, other.datos]
+  end
+
+  def to_s
+"#{super}\n
+ - Datos antropométricos:
+#{@datos}"
+  end
+end

data/lib/gematdd/paciente/paciente_sin_obesidad.rb

@@ -0,0 +1,22 @@
+require 'paciente/paciente_datos'
+
+# Representa un paciente cuyos datos antropométricos indican que no tiene
+# obesidad
+class PacienteSinObesidad < PacienteConDatos
+  def initialize(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta,
+                 datos_antropometricos)
+
+    super(nombre, apellidos, sexo, fecha_nac, ocupacion, consulta,
+          datos_antropometricos)
+
+    if imc >= 30.0
+      raise TypeError, "El Paciente tiene obesidad (IMC:
+      #{imc} >= 30.0)"
+    end
+  end
+
+  def to_s
+    "#{super}\n
+Según el IMC, este paciente NO tiene Obesidad."
+  end
+end

data/lib/gematdd/valoracion/datos_antropometricos.rb

@@ -0,0 +1,37 @@
+require 'date'
+
+module FactorActFisica
+  REPOSO = 0.0
+  ACT_LIGERA = 0.12
+  ACT_MODERADA = 0.27
+  ACT_INTENSA = 0.54
+end
+
+# Agrupa todos los datos antropométricos medibles a una persona
+class DatosAntropometricos
+  include Comparable
+
+  attr_accessor :peso, :talla, :ccintura, :ccadera, :actividad_fisica
+
+  def initialize(peso, talla, ccintura, ccadera, actividad_fisica)
+    @peso = peso
+    @talla = talla
+    @ccintura = ccintura
+    @ccadera = ccadera
+    @actividad_fisica = actividad_fisica
+  end
+
+  def <=>(other)
+    [peso, talla, ccintura, ccadera, actividad_fisica] <=>
+    [other.peso, other.talla, other.ccintura, other.ccadera,
+     other.actividad_fisica]
+  end
+
+  def to_s
+"Peso: #{@peso}
+Talla: #{@talla}
+Circunferencias:
+  - Cintura: #{@ccintura}
+  - Cadera: #{@ccadera}"
+  end
+end

data/lib/gematdd/valoracion/ficha_valoracion.rb

@@ -0,0 +1,70 @@
+require 'paciente/paciente.rb'
+require 'valoracion/datos_antropometricos.rb'
+
+# Clase que asocia un Individuo y unos Datos Antropométricos con un historial
+# regististrado por la Clínica
+class FichaValoracionNutricional
+  include Comparable
+
+  attr_accessor :paciente, :fecha, :n_historia
+
+  def initialize(fecha, n_historia, pacienteConDatos)
+    @fecha = fecha
+    @n_historia = n_historia
+    @paciente = pacienteConDatos
+  end
+
+  # Devuelve (de manera legible) el resultado del IMC
+  def significado_imc
+    imc = @paciente.imc.round(1)
+    if imc < 18.5
+      "Clasificación OMS: Bajo peso\t\t Descripción popular: Delgado"
+    elsif imc.between?(18.5, 24.9)
+      "Clasificación OMS: Adecuado\t\t Descripción popular: Aceptable"
+    elsif imc.between?(25.0, 29.9)
+      "Clasificación OMS: Sobrepeso\t\t Descripción popular: Sobrepeso"
+    elsif imc.between?(30.0, 34.9)
+      "Clasificación OMS: Obesidad grado 1\t\t Descripción popular: Obesidad"
+    elsif imc.between?(35.0, 39.9)
+      "Clasificación OMS: Obesidad grado 2\t\t Descripción popular: Obesidad"
+    else
+      "Clasificación OMS: Obesidad grado 3\t\t Descripción popular: Obesidad"
+    end
+  end
+
+  # Devuelve (de manera legible) el resultado del RCC
+  def significado_rcc
+    rcc = @paciente.rcc.round(2)
+    if @paciente.sexo == 1
+      if rcc.between?(0.83, 0.88)
+        'Riesgo: Bajo'
+      elsif rcc.between?(0.88, 0.95)
+        'Riesgo: Moderado'
+      elsif rcc.between?(0.95, 1.01)
+        'Riesgo: Alto'
+      elsif rcc > 1.01
+        'Riesgo: Muy Alto'
+      end
+    else
+      if rcc.between?(0.72, 0.75)
+        'Riesgo: Bajo'
+      elsif rcc.between?(0.78, 0.82)
+        'Riesgo: Moderado'
+      elsif rcc > 0.82
+        'Riesgo: Alto'
+      end
+    end
+  end
+
+  def <=>(other)
+    [n_historia, fecha, paciente] <=>
+      [other.n_historia, other.fecha, other.paciente]
+  end
+
+  def to_s
+"--- Ficha de Valoración Nutricional ---
+  Fecha #{@fecha}
+  Nº Historia #{@n_historia}
+  #{paciente.to_s}"
+  end
+end