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

Diff of /trunk/models/sensitivity_test.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 533 by ben.allan, Mon Apr 17 03:20:06 2006 UTC revision 534 by johnpye, Tue Apr 25 13:25:04 2006 UTC
# Line 30  J, the Jacobian, as described IN Fidkows Line 30  J, the Jacobian, as described IN Fidkows
30    
31  REQUIRE "system.a4l";  REQUIRE "system.a4l";
32    
33  IMPORT PackSolve_Init FROM "libsensitivity";  IMPORT "sensitivity";
34    
35  MODEL sensitivity_test;  MODEL sensitivity_test;
36      nc IS_A integer_constant;      nc IS_A integer_constant;
# Line 45  MODEL sensitivity_test; Line 45  MODEL sensitivity_test;
45      nc:==1;      nc:==1;
46      u,U[1] ARE_THE_SAME;      u,U[1] ARE_THE_SAME;
47      x,X[1] ARE_THE_SAME;      x,X[1] ARE_THE_SAME;
48    
49  METHODS  METHODS
50    METHOD values;  
51    END values;  METHOD values;
52    METHOD clear;  END values;
53    END clear;  
54    METHOD specify;  METHOD clear;
55      u.fixed := TRUE;  END clear;
56      k.fixed := TRUE;  
57    END specify;  METHOD specify;
58    METHOD reset;      FIX u, k;
59        RUN clear;  END specify;
60        RUN specify;  
61    END reset;        METHOD reset;
62    METHOD analyze;      RUN clear;
63        EXTERNAL do_sensitivity(SELF,U[1..nc],X[1..nc],dx_du[1..nc][1..nc]);      RUN specify;
64    END analyze;  END reset;      
65    
66    METHOD analyze;
67      EXTERNAL do_sensitivity(SELF,U[1..nc],X[1..nc],dx_du[1..nc][1..nc]);
68    END analyze;
69    
70  END sensitivity_test;  END sensitivity_test;
71    

Legend:
Removed from v.533  
changed lines
  Added in v.534

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