/[ascend]/trunk/models/johnpye/testcmslv.a4c
ViewVC logotype

Annotation of /trunk/models/johnpye/testcmslv.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 799 - (hide annotations) (download) (as text)
Tue Aug 1 00:56:10 2006 UTC (18 years, 6 months ago) by johnpye
File MIME type: text/x-ascend
File size: 1132 byte(s)
Corrected syntax in testcmslv.
Changed instance.cpp so that residuals are not called for logrels.
Added CONOPT_BOUNDLIMIT to both slv8 and slv9.
Changed limits for colsta in slv9 (needs checking)
1 johnpye 797 REQUIRE "atoms.a4l";
2    
3     (*
4     Model the solution of a piecewise-specified continuous x-y curve
5    
6 johnpye 798 + 3
7 johnpye 797 | '
8     | / (y-2)=(x-1)^2 for x > 1
9 johnpye 798 | .` ... 'parab'
10     + 2 .-'`
11 johnpye 797 | .'
12     | .' y = x + 1 otherwise
13 johnpye 798 |.' ... 'diag'
14 johnpye 797 # 1
15     # x = 0 for y < 1;
16 johnpye 798 # ... 'vert'
17     #------+------+-----+->
18     0 1 2 3
19 johnpye 797 *)
20     MODEL testcmslv;
21     x IS_A factor;
22     y IS_A factor;
23    
24     vert: x = 0;
25     diag: y = x + 1;
26     parab:y - 2 = (x - 1)^2;
27    
28 johnpye 799 CONDITIONAL
29     isvert: y <= 1;
30     isparab: x > 1;
31     END CONDITIONAL;
32    
33 johnpye 797 isvertp IS_A boolean_var;
34 johnpye 799 isvertp == SATISFIED(isvert);
35 johnpye 797
36     isparabp IS_A boolean_var;
37 johnpye 799 isparabp == SATISFIED(isparab);
38 johnpye 797
39     WHEN (isvertp, isparabp)
40     CASE TRUE,FALSE:
41     USE vert;
42     CASE FALSE,TRUE:
43     USE parab;
44     OTHERWISE :
45     USE diag;
46     END WHEN;
47    
48     METHODS
49     METHOD default_self;
50     isvert := FALSE;
51     isparam := FALSE;
52     y := 0.5;
53     x := 0.5;
54     END default_self;
55    
56     METHOD values;
57     x := 3;
58     END values;
59    
60     METHOD specify;
61     FIX x;
62     END specify;
63    
64     METHOD on_load;
65     RUN default_self; RUN values; RUN specify;
66     END on_load;
67    
68     END testcmslv;

Properties

Name Value
svn:executable *

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