#*-------------------------------------------------------------------
* 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 trigonometrics functions.
*--------------------------------------------------------------------
* Author: Gerson Balbueno Bicca
* $Id: trigonometrics.mso 83 2006-12-14 20:29:34Z bicca $
*--------------------------------------------------------------------*# 
using "types";
 
#++++++++++++++++++++++++++++++++++++++++++++++++++++
# 
#		EMSO sample file of trigonometric functions
#
#      -----------------------------
#		Function    |  EMSO Built-In
#      -----------------------------
#		Sine 		|	sin  
#		Cosine 		|	cos  
#		Tangent 	|	tan  
#		ArcSine		|	asin
#		ArcCosine	|	acos
#		ArcTangent	|	atan
#
#++++++++++++++++++++++++++++++++++++++++++++++++++++

FlowSheet Trigonometric_Function

	PARAMETERS
	
	Pi	  	as constant  (Brief="Pi Number",Default=3.14159265);
	Theta   as angle     (Brief ="theta angle");
	
	VARIABLES
	
	cosine 	as Real  (Brief ="cosine function",Default=0.5);
	sine    as Real  (Brief ="sine function",Default=0.5);
	tangent as Real  (Brief ="tangent function",Default=0.5);
	
	arccosine  as Real  (Brief ="arc cosine function",Default=0.5);
	arcsine    as Real  (Brief ="arc sine function",Default=0.5);
	arctangent as Real  (Brief ="arc tangent function",Default=0.5);
	
	SET
	
	Pi	   = 3.14159265;
	Theta  = 0.6*Pi*'rad';
	
	EQUATIONS
	
	sine 	= sin(Theta);
	cosine  = cos(Theta);
	tangent = tan(Theta);
	
	arccosine  = acos(cosine);
	arcsine    = asin(sine);
	arctangent = atan(tangent);
	
	OPTIONS
	
	Dynamic = false;
	NLASolver(
		RelativeAccuracy = 1e-10
	);
end