CoolProp

f409f1f3-3cbe-49f0-a41d-5954577da179 240 3 5 auto

&[DATE] &[TIME] - &[FILENAME]

x f 2 x ln * :

x 1 :

OK at top of work sheet

This result may be misleading if not aware of the under the hood.
ln(x) is the cumulative integration of 1/x in the range 1..2
Thus, @ the starting point x=1 the cumulative integration is '0'
forcibly the derivative. For sure, looking @ the graph diff(f,x)
 seems to ly ... just a matter of silent maths. f x diff 0

f 3 x * + (x diff 3

x y g 2 x * x cos * 3 y 2^* + :

g x diff 0

y 1 :

x f x y g 2 1 sys 2 x ln * x diff CoolProp

A wrapper for CoolProp

x# ¦FProp1 ¦Fluid strtoupper x# strtoupper CoolProp_Props1 :

p# x# y# ¦FProp p# ¦FPropBas x# ¦FProp x# y# ¦FProp y# ¦Fluid strtoupper CoolProp_Props :

p# ¦FPropBas p# p# strtoupper : p# H ≡ (p# S ≡ (+ p# U ≡ (+ p# D ≡ (+ p# V ≡ (+ p# CV ≡ (+ p# CP ≡ (+ 1 ≡ p# ¦Bas strtoupper concat p# if 21 line :

x# ¦FProp x# ¦FProp1 x# IsString T x# UnitsOf K ≡ P x# UnitsOf Pa ≡ H x# UnitsOf Gy ≡ S x# UnitsOf Gy K 1 -^* ≡ D x# UnitsOf kg m 3 -^* ≡ V x# UnitsOf m 3^≡ HMOLAR x# UnitsOf J mol 1 -^* ≡ SMOLAR x# UnitsOf J mol 1 -^* K 1 -^* ≡ DMOLAR x# UnitsOf mol m 3 -^* ≡ VMOLAR x# UnitsOf m 3^mol 1 -^* ≡ Q cases :

NDiff, NInt

φ# ξ# diff 10 / something to preserve diff 12 mat φ# ξ# ¦NDiff try 11 line :

φ# ξ# ¦NDiff x# φ# φ# x# unapply : η# ¦TOL ξ# UnitsOf * : ξ# η# + φ# ξ# η# - φ# - 2 η# * / 31 line :

φ# ξ# α# β# int 10 / something to preserve int 12 mat φ# ξ# α# β# ¦NInt try 11 line :

φ# ξ# α# β# ¦NInt h# β# α# - ¦N / : x# φ# φ# x# unapply : h# α# φ# β# φ# + 2 / α# k# h# * + φ# k# 1 ¦N 1 - sum + (* 31 line :

φ# ξ# unapply φ# num2str (ξ# num2str) concat str2num :

¦N 50 :

¦TOL 105 -^:

¦Fluid Water :

¦Bas Molar :

P 60 kPa * :

x s S x P ¦FProp :

h 2 kJ mol / * :

ρ 1 kmol m 3^/ * :

Q 0.3 :

T 500 °C * :

h s 6.9852 J mol K * / *

T s 163.4402 J mol K * / *

ρ s 22.9306 J mol K * / *

Q s 55.1476 J mol K * / *

s h diff 0.0033 1 K / *

s T diff 0.0497 J mol K 2^* / *

s ρ diff 0.0023 m 6^Pa * mol 2^K * / * -

s Q diff 115.0399 J mol K * / *

s ξ ρ 1.2 ρ * int 4544.7704 Pa K / *

s ξ T 1.2 T * int 25839.8429 J mol / *

===========================================================================================

x 1

f #

g #

xx f 2 xx ln * :

xx 1 :

f xx diff 2

f 3 xx * + (xx diff #

xx y g 2 xx * xx cos * 3 y 2^* + :

y 1 :

g xx diff #

=========================================================================================

I guess that the following function could be help

φ signature s φ num2str (_VAR_1) concat : k 199 range s s str2num num2str ≡ s s),_VAR_k num2str) concat strrep : 11 line break 11 line if break try 11 line for k k 99 < * 31 line :

To do: signatures, in plural.

a b c d e f ff a b + :

ff signature 6

for signature 3

dummy signature 0

Cp ∂H ∂T / ≡

x Cp Cp x P ¦FProp :

x H H x P ¦FProp :

H T diff 38.4265 J mol K * / *

T Cp 38.4265 J mol K * / *

=============== copy paste this section in 6179 ==============

x f 2 x ln * :

x 1 :

f 3 x * + (x diff #

This result may be misleading if not aware of the under the hood.
ln(x) is the cumulative integration of 1/x in the range 1..2
Thus, @ the starting point x=1 the cumulative integration is '0'
forcibly the derivative. For sure, looking @ the graph diff(f,x)
 seems to ly ... just a matter of silent maths. f x diff 2

x y g 2 x * x cos * 3 y 2^* + :

g x diff #

y 1 :

x f x y g 2 1 sys 2 x ln * x diff