Ejercicio Motosierras

ejercicio_motosierras.php

<?php
	/*
	* Ejercicio 1
	*/
	function promedio_motosierra($gasto_en_monte_forestado,$gasto_en_monte_natural,$gasto_en_monte_natural_accidentado){
		return ($gasto_en_monte_forestado + $gasto_en_monte_natural + $gasto_en_monte_natural_accidentado)/3;
	}
	function promedio_motosierra_chica(){
		return promedio_motosierra(1,1.5,2);
	}
	function promedio_motosierra_grande(){
		return promedio_motosierra(2,2.5,3);
	}
	
	/* 
	*	Ejercicio 2
	*/
	function modificador_de_gasto_segun_persona($promedio_normal, $porcentaje){
		return $promedio_normal + ($promedio_normal/100*$porcentaje);
	}
	// Personas
	function gasto_persona_sin_experiencia($promedio_normal){
		return modificador_de_gasto_segun_persona($promedio_normal,20);
	}
	function gasto_persona_experiencia_promedio($promedio_normal){
		return modificador_de_gasto_segun_persona($promedio_normal,0);
	}
	function gasto_persona_experiencia_profesional($promedio_normal){
		return modificador_de_gasto_segun_persona($promedio_normal,-30);
	}
	//Personas con motosierras forma simple
	function pse_mchica(){
		return gasto_persona_sin_experiencia(promedio_motosierra_chica());
	}
	function pem_mchica(){
		return gasto_persona_experiencia_promedio(promedio_motosierra_chica());
	}
	function pep_mchica(){
		return gasto_persona_experiencia_profesional(promedio_motosierra_chica());
	}
	function pse_mgrande(){
		return gasto_persona_sin_experiencia(promedio_motosierra_grande());
	}
	function pem_mgrande(){
		return gasto_persona_experiencia_promedio(promedio_motosierra_grande());
	}
	function pep_mgrande(){
		return gasto_persona_experiencia_profesional(promedio_motosierra_grande());
	}
	//Personas con motosierras forma con IF
	function gasto_promedio_persona_motosierra($tipo_persona,$tipo_motosierra){
		$promedio = 0;
		if($tipo_motosierra == "MChica"){ //Motosierra chica
			$promedio = promedio_motosierra_chica();
		} else { // Como solo hay dos opciones, es MChica y sino es MGrande
			$promedio = promedio_motosierra_grande();
		}
		if($tipo_persona == "PSE"){ 
			$promedio = gasto_persona_sin_experiencia($promedio);
		}else if ($tipo_persona == "PEM"){
			$promedio = gasto_persona_experiencia_promedio($promedio);
		}else {
			$promedio = gasto_persona_experiencia_profesional($promedio);
		}
		return $promedio;
	}
	/*
	* Ejercicio 3
	*/
	
	/*
		MChica > PSE > 5 m2/h
		MChica > PEM > 10 m2/h
		MChica > PEP > 20 m2/h
		
		MGrande > PSE > 10 m2/h
		MGrande > PEM > 20 m2/h
		MGrande > PEP > 40 m2/h	
	*/
	
	/*
		Totales m2 Terreno
		------------------------------
		m2 Montes Forestados 	-> 40000
		m2 Montes Naturales 	-> 22500
		m2 Montes Naturales A	-> 25000
	*/
	
	/*
		Cuadrilla 1
		------------------------------
		2 PEP con MGrande >> 40 m2/h
		
		Cuadrilla 2
		------------------------------
		2 PSE con MChica  >> 5 m2/h
	*/
	
	// Parte (b)
	function arboles_por_terreno($tipo_terreno,$m2){
		if($tipo_terreno == "MF"){
			return $m2 * 4;
		} else if ($tipo_terreno == "MN"){
			return $m2 * 0.25;
		} else {
			return $m2 * 0.125;
		}
	}
?>