$$$$ RVST2 * RVST2 PROCEDUR BLUMENFE 05/04/04 21:15:02 5052 * ; * Calcolo rho vapore alla saturazione per: 0 < T < 20 * ------------ * ; 'DEBPROC' rvst2 ; argu tn*chpoint ; si (((mini tn) < 0.0) ou ((maxi tn) > 20.0)) ; mess '=========================================================' ; mess '===RVSAT: Interpolazione fuori limiti: 0 < T[C] < 20===' ; mess '=========================================================' ; finsi ; a0 = 4.86256716e-03 ; a1 = 2.98409029e-04 ; a2 = 2.10179146e-05 ; a3 = -7.96684413e-07 ; a4 = 2.77512067e-08 ; t1 = kops tn '*' a1 ; t2 = kops (kops tn '**' 2.0) '*' a2 ; t3 = kops (kops tn '**' 3.0) '*' a3 ; t4 = kops (kops tn '**' 4.0) '*' a4 ; rvs = kops a0 '+' (kops t1 '+' (kops t2 '+' (kops t3 '+' t4))) ; rvs = kops rvs '|<' 0.0 ; * s0 = a1 ; s1 = kops tn '*' (a2 * 2.0) ; s2 = kops (kops tn '**' 2.0) '*' (a3 * 3.0) ; s3 = kops (kops tn '**' 3.0) '*' (a4 * 4.0) ; rvp = kops s0 '+' (kops s1 '+' (kops s2 '+' s3)) ; rvp = kops rvp '|<' 0.0 ; * *finproc rvs ; 'FINPROC' rvs rvp ;