add pre-pre...-pre alpha of NitrogenFlooding

This commit is contained in:
Edward Emelianov
2023-03-20 23:45:51 +03:00
parent b18dee64e8
commit 2dae136516
34 changed files with 15639 additions and 0 deletions

View File

@@ -0,0 +1,11 @@
function Tout = pt1000(Rin)
% Converts resistance of pt1000 into T (degrC)
T = [-200:0.1:50];
_A = 3.9083e-03;
_B = -5.7750e-07;
_C = zeros(size(T));
_C(find(T<0.)) = -4.1830e-12;
rT = 1000.*(1 + _A*T + _B*T.^2 - _C.*T.^3*100. + _C.*T.^4);
Tout = interp1(rT, T, Rin, 'spline');
endfunction