# set terminal png transparent nocrop enhanced font arial 8 size 420,320 
# set output 'fit.19.png'
set key bmargin center horizontal Right noreverse enhanced autotitles nobox
set title "pseudo-3d multi-branch fit to velocity data" 
set xlabel "Temperature T  [deg Cels.]" 
set ylabel "Density [g/cm3]" 
l(x) = y0 + m*x
high(x) = mh*(x-Tc) + dens_Tc
lowlin(x)  = ml*(x-Tc) + dens_Tc
curve(x) = b*tanh(g*(Tc-x))
density(x) = x < Tc ? curve(x)+lowlin(x) : high(x)
h(x,y) = sqrt(r*r - (abs(x-x0))**2.2 - (abs(y-y0))**1.8) + z0
phi(x)	    = (x - phi0)/360.0*2.0*pi
main(x)     = c11*sin(phi(x))**2 + c33*cos(phi(x))**2 + c44
mixed(x)    = sqrt( ((c11-c44)*sin(phi(x))**2				                    +(c44-c33)*cos(phi(x))**2)**2                     +(2.0*(c13+c44)*sin(phi(x))*cos(phi(x)))**2 )
vlong(x)    = sqrt(1.0/2.0/rho*1e9*(main(x) + mixed(x)))
vtrans(x)   = sqrt(1.0/2.0/rho*1e9*(main(x) - mixed(x)))
f(x,y)	=  y==1  ?  vlong(x)  :  vtrans(x)
y0 = 0.000600252099986833
m = -0.000943519626916798
FIT_CONVERGED = 1
FIT_NDF = 144
FIT_STDFIT = 23.3781402254248
FIT_WSSR = 78701.3914175459
ml = -0.00100003942457188
mh = -0.000831266464087347
dens_Tc = 1.02497044549157
Tc = 46.0899236389933
g = 3.85585054783351
b = 0.00153901241267826
FIT_LIMIT = 1e-05
r = 1.00102066684938
x0 = -0.000308323343089803
z0 = 0.00253470677067782
FIT_MAXITER = 0
rho = 1000.0
phi0 = -0.399583044082796
c11 = 5.49004711383962
c33 = 12.5887439344521
c44 = 0.701948193955619
c13 = 3.9987462502991
plot 'soundvel.dat', vlong(x), vtrans(x)
## fit f(x,y) 'soundvel.dat' using 1:-2:2:(1) via 'sound.par'