File: Utemplogm.m

package info (click to toggle)
octave-secs2d 0.0.8-4
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 700 kB
  • sloc: cpp: 275; makefile: 78; sh: 4
file content (8 lines) | stat: -rw-r--r-- 182 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
 
function T = Utemplogm(t1,t2)

T = zeros(size(t2));

sing     = abs(t2-t1)< 100*eps ;
T(sing)  = (t2(sing)+t1(sing))/2;
T(~sing) = (t2(~sing)-t1(~sing))./log(t2(~sing)./t1(~sing));