File: LjgToXYZFun.m

package info (click to toggle)
psychtoolbox-3 3.0.9%2Bsvn2579.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 63,408 kB
  • sloc: ansic: 73,310; cpp: 11,139; objc: 3,129; sh: 1,669; python: 382; php: 272; makefile: 172; java: 113
file content (22 lines) | stat: -rw-r--r-- 428 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
function [f,g] = LjgToXYZFun(XYZ,Ljg)
% [f,g] = LjgToXYZFun(XYZ,Ljg)
%
% Optimization function for LjgToXYZ numerical
% search.  Not vectorized.
%
% 3/27/01  dhb  Wrote it.

% Convert back.
Ljg1 = XYZToLjg(XYZ);

% Handle case where XYZ is so weird that
% an imaginary value is returned.
if (any(~isreal(Ljg1)))
	sdiff = (abs(Ljg1)-Ljg).^2;
	f = sum(sdiff);
	g = 10;
else
	sdiff = (Ljg1-Ljg).^2;
	f = sum(sdiff);
	g = -XYZ;
end