summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci
blob: 5054faf2595b82c97cd39107fd642fed74ed9c5b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// 09.12.25

function Out=Doscaling(G)
  global LOGX LOGY SCALEX SCALEY;
  GLg=G;
  if LOGX==1
    GLg=[log10(G(:,1)),GLg(:,2)];
  end;
  if LOGY==1
    GLg=[GLg(:,1),log10(G(:,2))];
  end;
  Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)];
endfunction