%Psych 221
function [strobeWout, strobeW, RevealWout, RevealW, HalogenWout, HalogenW, DaylightWout, DaylightW] = transferFxns
%Infrared Photography-Final Project
%Bill Peter
%Charles Chang-I Wang
close all
clear all
%This file plots spectral transfer function of all systems
%Call other files
wavelength = [400e-9:1e-9:900e-9];
c = 3e8;
CWFilt = CameraWFilter;
CWoutFilt = hiefilm;
[strobe, Reveal, Daylight, halogen] = Illuminance;

%Stobe Light- Without Filter
%Now multiply one wavelength at a time
strobeWout = strobe.*CWoutFilt;
plot(wavelength,strobeWout,'linewidth',3)
title('Transfer Function of Strobe and Camera without Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on

figure
%Strobe Light- With Filter
%Now multiply one wavelength at a time
strobeW = strobe.*CWFilt;
plot(wavelength,strobeW,'linewidth',3)
title('Transfer Function of Strobe and Camera with Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on


figure
%Reveal Light- With Filter
%Now multiply one wavelength at a time
RevealWout = Reveal.*CWoutFilt;
plot(wavelength,RevealWout,'linewidth',3)
title('Transfer Function of Reveal and Camera without Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on


figure
%Reveal Light- With Filter
%Now multiply one wavelength at a time
RevealW = Reveal.*CWFilt;
plot(wavelength,RevealW,'linewidth',3)
title('Transfer Function of Reveal and Camera with Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on


figure
%Halogen Light- Withou Filter
%Now multiply one wavelength at a time
HalogenWout = halogen.*CWoutFilt;
plot(wavelength,HalogenWout,'linewidth',3)
title('Transfer Function of Halogen and Camera without Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on


figure
%Halogen Light- With Filter
%Now multiply one wavelength at a time
HalogenW = halogen.*CWFilt;
plot(wavelength,HalogenW,'linewidth',3)
title('Transfer Function of Halogen and Camera with Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on


figure
%Day Light- Without Filter
%Now multiply one wavelength at a time
DaylightWout = Daylight.*CWoutFilt;
plot(wavelength,DaylightWout,'linewidth',3)
title('Transfer Function of Daylight and Camera without Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on


figure
%Day Light- With Filter
%Now multiply one wavelength at a time
DaylightW = Daylight.*CWFilt;
plot(wavelength,DaylightW,'linewidth',3)
title('Transfer Function of Daylight and Camera with Filter','fontsize',14)
xlabel('Wavelength','fontsize',14)
ylabel('Transfer Function','fontsize',14)
grid on



