Листинг 9.1. Базисный компонент Sun
В описании базисного компонента Lake (листинг 9.2) с описанием динамического поведения непрерывных переменных состояния p, h и с переменная sun, обозначающая солнечное излучение, объявлена как сенсорная переменная и инициализирована со значением 95.9.
1 BASIC COMPONENT Lake |
|
2 USE OF UNITS |
3 TIMEUNIT = [a] |
|
4 DECLARATION OF ELEMENTS |
5 CONSTANTS |
6 Bio_Fac (REAL[a]) := 1E-15 [a] |
|
7 STATE VARIABLES |
8 CONTINUOUS |
9 p (REAL[t]) := 0 [t], # Растения |
10 h (REAL[t]) := 0 [t], # Корм для травоядных |
11 c (REAL[t]) := 0 [t] # Корм хищников |
12 DEPENDENT VARIABLE |
13 CONTINUOUS |
14 Sun_bio (REAL[t/a]) := 0 [t/a] |
15 SENSOR VARIABLE |
16 CONTINUOUS |
17 sun (REAL[kJ/m^2]) := 95.9 [kJ/m^2] # Солнечная активность |
|
18 DYNAMIC BEHAVIOUR |
19 Sun_bio := sun * Bio_Fас; |
20 DIFFERENTIAL EQUATIONS |
21 p' := sun_bio - 4.03 [1/a] * p; |
22 h' := 0.48 [1/a] * p - 17.87 [1/a] * h; |
23 c' := 4.85 [1/a] * h - 4.65 [1/a] * с; |
24 END |
25 END OF Lake |
Листинг 9.2. Базисный компонент Lake
Оба независимых компонента объединяются через связь, по которой поведение переменной suns из компонента Sun должно учитываться в компоненте Lake (рис. 9.2) через сенсорную переменную sun.
Рис. 9.2. Связь между базисными компонентами Sun и Lake
В данном случае сенсорной переменной является переменная sun в компоненте Lake. В компоненте Sun признак доступа к переменной suns отсутствует, что означает ее доступность извне без дополнительного оповещения внутри компонента.
Из одного компонента могут исходить несколько связей, а к одному входному элементу параллельные связи не допускаются (рис. 9.3).
Lake
p
Рис. 9.3. Параллельные связи
Функциональные связи между базисными компонентами через сенсорные переменные описываются в компоненте верхнего уровня CedarBog_High (листинг 9.3), отражающем структуру многокомпонентной модели.
1 HIGH LEVEL COMPONENT CedarBog_High |
2 SUBCOMPONENTS |
3 Sun, |
4 Lake, |
5 Organic, |
6 Environ, |
|
7 COMPONENT CONNECTIONS |
8 Sun.suns --> Lake.sun; |
9 Lake.p --> (Environ.p, Organic.p); |
10 Lake.h --> (Environ.h, Organic.h); |
11 Lake.с --> (Environ.с, Organic.c); |
|
12 END OF CedarBog_High |