File: Utemplogm.m

package info (click to toggle)
octave-secs2d 0.0.8-5
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 696 kB
  • ctags: 93
  • 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));