% "ILOGX"
% Interpolation into a table
% of y vs log x. Like the table
% of B(T) vs. H(A/m)
% Input a value of x (H in A/m)
% Output, the corresponding y (B).
% L.Linares, 2017

<< "X1 X2 Y1 Y2 X" PROMPT
   LOG 5 ROLLD 5 ROLLD 5 ROLLD
   LOG 5 ROLLD LOG 5 ROLLD
   -> x1 x2 y1 y2 x
   << 'y1+(y2-y1)/(x2-x1)*(x-x1)'
      EVAL
   >>
>>

% "ILOGY"
% Interpolation into a table
% of y vs log x. Like the table
% of B(T) vs. H(A/m)
% Input a value of y (B in T)
% Output, the corresponding x (H).
% L.Linares, 2017

<< "X1 X2 Y1 Y2 Y" PROMPT
   5 ROLLD 5 ROLLD 5 ROLLD 
   LOG 5 ROLLD LOG 5 ROLLD
   -> x1 x2 y1 y2 y
   << 'x1+(x2-x1)/(y2-y1)*(y-y1)'
      EVAL
      ALOG
   >>
>>