File: LjgToXYZFun.m

package info (click to toggle)
psychtoolbox-3 3.0.15.20190207.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 101,848 kB
  • sloc: ansic: 174,133; cpp: 11,232; objc: 4,832; sh: 1,874; python: 1,047; php: 384; makefile: 189; 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