summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci
blob: 74910ceb2c323c2f9dd1d47ac2ea785e854bdbd2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
function Out=Unscaling(G)
  global LOGX LOGY SCALEX SCALEY;
  GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY];
  Out=GLg;
  if LOGX==1
    Out=[10^(GLg(:,1)),GLg(:,2)];
  end;
  if LOGY==1
    Out=[GLg(:,1),10^(GLg(:,2))];
  end;
endfunction;