1 /* Copyright (C) 1992-1998 The Geometry Center
2 * Copyright (C) 1998-2000 Stuart Levy, Tamara Munzner, Mark Phillips
3 *
4 * This file is part of Geomview.
5 *
6 * Geomview is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU Lesser General Public License as published
8 * by the Free Software Foundation; either version 2, or (at your option)
9 * any later version.
10 *
11 * Geomview is distributed in the hope that it will be useful, but
12 * WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with Geomview; see the file COPYING. If not, write
18 * to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
19 * USA, or visit http://www.gnu.org.
20 */
21
22 #if HAVE_CONFIG_H
23 # include "config.h"
24 #endif
25
26 #if 0
27 static char copyright[] = "Copyright (C) 1992-1998 The Geometry Center\n\
28 Copyright (C) 1998-2000 Stuart Levy, Tamara Munzner, Mark Phillips";
29 #endif
30
31 #include <math.h>
32 #include "fexpr.h"
33
freal_cot(double a)34 double freal_cot(double a)
35 {
36 return cos(a)/sin(a);
37 }
38
freal_sec(double a)39 double freal_sec(double a)
40 {
41 return 1/cos(a);
42 }
43
freal_csc(double a)44 double freal_csc(double a)
45 {
46 return 1/sin(a);
47 }
48
freal_re(double a)49 double freal_re(double a)
50 {
51 return a;
52 }
53
freal_im(double a)54 double freal_im(double a)
55 {
56 (void)a;
57 return 0;
58 }
59
freal_monstub(double a)60 double freal_monstub(double a)
61 {
62 double b = 0.0;
63 double c = 0.0;
64 (void)a;
65 return b/c;
66 }
67
freal_binstub(double a1,double a2)68 double freal_binstub(double a1, double a2)
69 {
70 double a = 0.0;
71 double b = 0.0;
72 (void)a1;
73 (void)a2;
74 return a/b;
75 }
76