Annotation of OpenXM_contrib/gnuplot/demo/density.fnc, Revision 1.1.1.1
1.1 maekawa 1: #
2: # This is a rough approach to fit a model function to the density
3: # data of a liquid crystal. The function consists of a linear
4: # branch for the high temperature region and of a curved branch with
5: # linear asymptote for the low temperatuer branch
6: #
7:
8: # free parameters:
9: # m1, m2 slopes of the linear function in the low and high T region
10: # Tc transition temperature
11: # dens_Tc density at the transition temperature
12: # g factor to scale tanh function
13:
14: ml = -0.0001
15: mh = -0.0001
16: dens_Tc = 1.020
17: Tc = 45
18: g = 1
19: b = 0.1
20:
21:
22: high(x) = mh*(x-Tc) + dens_Tc
23: lowlin(x) = ml*(x-Tc) + dens_Tc
24: curve(x) = b*tanh(g*(Tc-x))
25:
26: density(x) = x < Tc ? curve(x)+lowlin(x) : high(x)
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>