/[ascend]/trunk/models/bvp.a4l
ViewVC logotype

Diff of /trunk/models/bvp.a4l

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

revision 1 by aw0a, Fri Oct 29 20:54:12 2004 UTC revision 576 by johnpye, Tue May 9 03:42:08 2006 UTC
# Line 116  METHOD specify; Line 116  METHOD specify;
116      (* The state variables are set      (* The state variables are set
117      * TRUE, while their derivatives are FALSE.      * TRUE, while their derivatives are FALSE.
118      *)      *)
119      x.fixed := TRUE;      FIX x;
120      y[1..n_eq].fixed := TRUE;      FIX y[1..n_eq];
121      dydx[1..n_eq].fixed := FALSE;      FREE dydx[1..n_eq];
122  END specify;  END specify;
123  END bvp_point;  END bvp_point;
124    
# Line 175  END NOTES; Line 175  END NOTES;
175  METHODS  METHODS
176  METHOD specify;  METHOD specify;
177      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
178      h.fixed := TRUE;      FIX h;
179      final.x.fixed := FALSE;      FREE final.x;
180      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
181      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
182  END specify;  END specify;
183  END propagation;  END propagation;
184    
# Line 206  METHODS Line 206  METHODS
206  (*  (*
207  METHOD specify;  METHOD specify;
208      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
209      h.fixed := TRUE;      FIX h;
210      final.x.fixed := FALSE;      FREE final.x;
211      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
212      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
213  END specify;  END specify;
214  *)  *)
215    
# Line 240  END NOTES; Line 240  END NOTES;
240  (*  (*
241          METHOD specify;          METHOD specify;
242              RUN eval[0..n_point].specify;              RUN eval[0..n_point].specify;
243              h.fixed := TRUE;              FIX h;
244              final.x.fixed := FALSE;              FREE final.x;
245              eval[1..n_point].y[1..n_eq].fixed := FALSE;              FREE eval[1..n_point].y[1..n_eq];
246              eval[1..n_point].x.fixed := FALSE;              FREE eval[1..n_point].x;
247          END specify;          END specify;
248  *)  *)
249    
# Line 277  METHODS Line 277  METHODS
277  (*  (*
278  METHOD specify;  METHOD specify;
279      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
280      h.fixed := TRUE;      FIX h;
281      final.x.fixed := FALSE;      FREE final.x;
282      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
283      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
284  END specify;  END specify;
285  *)  *)
286  END midpoint;  END midpoint;
# Line 317  METHODS Line 317  METHODS
317  (*  (*
318  METHOD specify;  METHOD specify;
319      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
320      h.fixed := TRUE;      FIX h;
321      final.x.fixed := FALSE;      FREE final.x;
322      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
323      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
324  END specify;  END specify;
325  *)  *)
326    
# Line 365  METHODS Line 365  METHODS
365  (*  (*
366  METHOD specify;  METHOD specify;
367      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
368      h.fixed := TRUE;      FIX h;
369      final.x.fixed := FALSE;      FREE final.x;
370      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
371      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
372  END specify;  END specify;
373  *)  *)
374    
# Line 416  METHODS Line 416  METHODS
416  (*  (*
417  METHOD specify;  METHOD specify;
418      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
419      h.fixed := TRUE;      FIX h;
420      final.x.fixed := FALSE;      FREE final.x;
421      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
422      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
423  specify;  specify;
424  *)  *)
425    
# Line 473  METHODS Line 473  METHODS
473  (*  (*
474  METHOD specify;  METHOD specify;
475      RUN eval[0..n_point].specify;      RUN eval[0..n_point].specify;
476      h.fixed := TRUE;      FIX h;
477      final.x.fixed := FALSE;      FREE final.x;
478      eval[1..n_point].y[1..n_eq].fixed := FALSE;      FREE eval[1..n_point].y[1..n_eq];
479      eval[1..n_point].x.fixed := FALSE;      FREE eval[1..n_point].x;
480  END specify;  END specify;
481  *)  *)
482    
# Line 580  METHOD values; Line 580  METHOD values;
580      step[1..nstep].h := stepsize;      step[1..nstep].h := stepsize;
581  END values;  END values;
582  METHOD specify;  METHOD specify;
583      stepsize.fixed := TRUE;      FIX stepsize;
584      FOR i IN [1..nstep] DECREASING DO      FOR i IN [1..nstep] DECREASING DO
585          RUN step[i].specify;          RUN step[i].specify;
586      END FOR;      END FOR;
# Line 604  METHOD default_self; Line 604  METHOD default_self;
604      RUN values;      RUN values;
605  END default_self;  END default_self;
606  METHOD specify;  METHOD specify;
607      x.fixed := TRUE;      FIX x;
608      xdot.fixed := FALSE;      FREE xdot;
609      t.fixed := TRUE;      FIX t;
610  END specify;  END specify;
611  METHOD values;  METHOD values;
612      xdot.lower_bound := -1e6{1/s};      xdot.lower_bound := -1e6{1/s};
# Line 671  METHOD default_self; Line 671  METHOD default_self;
671      RUN integral.default_self;      RUN integral.default_self;
672  END default_self;  END default_self;
673  METHOD specify;  METHOD specify;
674      stepsize.fixed := TRUE;      FIX stepsize;
675      RUN integral.specify;      RUN integral.specify;
676  END specify;  END specify;
677  METHOD values;  METHOD values;

Legend:
Removed from v.1  
changed lines
  Added in v.576

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