/[ascend]/trunk/models/z-indirect.a4c
ViewVC logotype

Contents of /trunk/models/z-indirect.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations) (download) (as text)
Fri Oct 29 20:54:12 2004 UTC (15 years, 7 months ago) by aw0a
File MIME type: text/x-ascend
File size: 1763 byte(s)
Setting up web subdirectory in repository
1 REQUIRE "system.a4l";
2 (* => system.a4l, basemodel.a4l *)
3 PROVIDE "z-indirect.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 * Use of this module requires an empty ASCEND system.
9 *)
10
11 MODEL testindirect;
12 (*
13 NOTES 'test' SELF {
14 This test compilation of indirectly indexed sparse arrays and
15 sparse arrays of relations.
16 }
17 END NOTES;
18 *)
19 n,m[1..n] IS_A integer_constant;
20 m[2] :==2;
21 x IS_A generic_real;
22 FOR i IN [1..3] CREATE
23 p[m[i]] IS_A real;
24 q[m[i]]: x = 1;
25 END FOR;
26 m[3] :==m[1]-2;
27 m[1] :==n;
28 n:==3;
29 END testindirect;
30
31
32 (*
33 * z-indirect.a4c
34 * by Benjamin Allan
35 * Part of the ASCEND Library
36 * $Date: 1998/06/17 19:39:37 $
37 * $Revision: 1.3 $
38 * $Author: mthomas $
39 * $Source: /afs/cs.cmu.edu/project/ascend/Repository/models/z-indirect.a4c,v $
40 *
41 * This file is part of the ASCEND Modeling Library.
42 *
43 * Copyright (C) 1997 Carnegie Mellon University
44 *
45 * The ASCEND Modeling Library is free software; you can redistribute
46 * it and/or modify it under the terms of the GNU General Public
47 * License as published by the Free Software Foundation; either
48 * version 2 of the License, or (at your option) any later version.
49 *
50 * The ASCEND Modeling Library is distributed in hope that it will be
51 * useful, but WITHOUT ANY WARRANTY; without even the implied
52 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
53 * See the GNU General Public License for more details.
54 *
55 * You should have received a copy of the GNU General Public License
56 * along with the program; if not, write to the Free Software
57 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check
58 * the file named COPYING.
59 *)

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