#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
* from http://www.rps.eng.br Copyright (C) 2002-2004.
* All rights reserved.
*
* EMSO is distributed under the therms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*
*--------------------------------------------------------------------
* Sample file for hiperbolic functions.
*--------------------------------------------------------------------
* Author: Gerson Balbueno Bicca
* $Id: Hiperbolic_Function.mso 83 2006-12-14 20:29:34Z bicca $
*--------------------------------------------------------------------*# 
using "types";
 
#++++++++++++++++++++++++++++++++++++++++++++++++++++
# 
#		EMSO sample file of Hyperbolic functions
#
#      --------------------------------------------
#		Function    		 |	  EMSO Built-In
#      --------------------------------------------
#		Hyperbolic sine		 |	sinh 
#		Hyperbolic cosine	 |	cosh  
#		Hyperbolic tangent   |  tanh
#		Hyperbolic cotangent |	coth
#
#
#++++++++++++++++++++++++++++++++++++++++++++++++++++

FlowSheet Hyperbolic_Function

	PARAMETERS
	
	Pi	  	as constant  (Brief="Pi Number",Default=3.14159265);
	Theta   as Real     (Brief ="Argument",Default=0.5);
	
	VARIABLES
	
	Hcosine 	as Real  (Brief ="Hyperbolic cosine function");
	Hsine    	as Real  (Brief ="Hyperbolic sine function");
	Htangent 	as Real  (Brief ="Hyperbolic tangent function");
	Hcotangent 	as Real  (Brief ="Hyperbolic cotangent function");

	SET
	
	Pi	   = 3.14159265;
	Theta  = 0.6*Pi;
	
	EQUATIONS
	
	Hsine 		= sinh(Theta);
	Hcosine  	= cosh(Theta);
	Htangent 	= tanh(Theta);
	Hcotangent 	= coth(Theta);

	OPTIONS
	
	Dynamic = false;
	
end