merna tepelna kapacita
- - - - - - - - - prom�nn‚, konstanty, procedury a funkce  - - - - - - - - -
dQ = 0.001                     !... prirustek tepla
- - - - - - - - - - - - - -  po‡ te‡nˇ hodnoty   - - - - - - - - - - - - - -
m = 0.25                      !... [kg] ... hmotnost obou latek
Q = 0                         !... [kJ]
t0 = 0                        !... [K] ... pocatecni teplota
c1 = 4.186                    !... [kJ * kg-1 * K-1] ... merna tepelna kapacita 1. latky
c2 = 2.460                    !... [kJ * kg-1 * K-1] ... merna tepelna kapacita 2. latky
- - - - - - - - - - - - - - - - -  model   - - - - - - - - - - - - - - - - -
Q = Q + dQ
t1 = (Q / (m*c1))-t0
t2 = (Q / (m*c2))-t0
IF t2>80 THEN STOP END
- - - - - - - - - - - - - - - - - - disp - - - - - - - - - - - - - - - - - -
S1:G1;
S2:G1,Z;
G1:({0}<Q<{60},{0}<t1<{100}){C1,M1},(Q,t2){C2,M1};
T2:Q{D -6};
M5:27;
M6:91;
Z5:7;
Z6:36;
                        ¤  