/[ascend]/trunk/models/roots_of_poly.a4c
ViewVC logotype

Annotation of /trunk/models/roots_of_poly.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations) (download) (as text)
Fri Oct 29 20:54:12 2004 UTC (19 years, 7 months ago) by aw0a
File MIME type: text/x-ascend
File size: 1576 byte(s)
Setting up web subdirectory in repository
1 aw0a 1 REQUIRE "system.a4l";
2     (* => system.a4l, basemodel.a4l *)
3     PROVIDE "roots_of_poly.a4c";
4     (*
5     * This file is part of the ASCEND Modeling Library and is released
6     * under the GNU Public License as described at the end of this file.
7     *
8     * This model is the first example in "Solved simple models with ASCEND."
9     *)
10    
11     MODEL polynomial_roots;
12     x IS_A generic_real;
13     (x-1)*(x-5)*(x+7)*(x^2+1) = 0;
14     END polynomial_roots;
15    
16    
17     (*
18     * Numeric root finding example, 5th order polynomial.
19     * by Arthur Westerberg
20     * Part of the ASCEND Library
21     * $Date: 1998/06/17 19:25:07 $
22     * $Revision: 1.2 $
23     * $Author: mthomas $
24     * $Source: /afs/cs.cmu.edu/project/ascend/Repository/models/roots_of_poly.a4c,v $
25     *
26     * This file is part of the ASCEND Modeling Library.
27     *
28     * Copyright (C) 1997 Carnegie Mellon University
29     *
30     * The ASCEND Modeling Library is free software; you can redistribute
31     * it and/or modify it under the terms of the GNU General Public
32     * License as published by the Free Software Foundation; either
33     * version 2 of the License, or (at your option) any later version.
34     *
35     * The ASCEND Modeling Library is distributed in hope that it
36     * will be useful, but WITHOUT ANY WARRANTY; without even the implied
37     * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
38     * See the GNU General Public License for more details.
39     *
40     * You should have received a copy of the GNU General Public License
41     * along with the program; if not, write to the Free Software
42     * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check
43     * the file named COPYING.
44     *)

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22