32 lines
482 B
Matlab
32 lines
482 B
Matlab
function Y = ConeResponse(X)
|
|
|
|
wl_r = 700;
|
|
wl_g = 510;
|
|
wl_b = 440;
|
|
wl = [wl_r; wl_g; wl_b];
|
|
|
|
mu_s = 445;
|
|
mu_m = 545;
|
|
mu_l = 575;
|
|
|
|
sig_s = 20;
|
|
sig_m = 40;
|
|
sig_l = 45;
|
|
|
|
s = gauss(wl,mu_s,sig_s)/gauss(mu_s,mu_s,sig_s);
|
|
m = gauss(wl,mu_m,sig_m)/gauss(mu_m,mu_m,sig_m);
|
|
l = gauss(wl,mu_l,sig_l)/gauss(mu_l,mu_l,sig_l);
|
|
|
|
S = X'*s;
|
|
M = X'*m;
|
|
L = X'*l;
|
|
|
|
Y = [L, M, S]';
|
|
%
|
|
% close all
|
|
% hold on
|
|
% plot(lam,s,'b')
|
|
% plot(lam,m,'g')
|
|
% plot(lam,l,'r')
|
|
% hold off
|