2021-02-23 10:30:12 +00:00
|
|
|
%% conductivity_calculations.m
|
|
|
|
%%
|
|
|
|
%% calculate and present 2D sheet conductivty for graphene
|
|
|
|
|
2021-03-22 17:51:55 +00:00
|
|
|
close all; clear all; clc;
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
%% FLAGS & OPTIONS
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
2021-02-23 10:30:12 +00:00
|
|
|
|
|
|
|
DISPLAY_HZ = true;
|
2021-03-09 10:42:13 +00:00
|
|
|
MIN_F = 9;
|
|
|
|
MAX_F = 15;
|
|
|
|
F_TOTAL = 1e2;
|
2021-02-23 10:30:12 +00:00
|
|
|
|
2021-03-22 17:51:55 +00:00
|
|
|
%EXCITATION_TYPE = 'intra';
|
|
|
|
EXCITATION_TYPE = 'inter';
|
|
|
|
%EXCITATION_TYPE = 'all';
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
%% CALCULATE
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
2021-03-09 10:42:13 +00:00
|
|
|
x_vals = logspace(MIN_F, MAX_F, F_TOTAL); % hz
|
2021-02-23 10:30:12 +00:00
|
|
|
x_vals = x_vals .* (2*pi); % rads-1
|
|
|
|
|
2021-03-22 17:51:55 +00:00
|
|
|
% CALCULATE SHEET CONDUCTIVITY
|
|
|
|
cond = zeros(length(x_vals), 2);
|
|
|
|
for x=1:length(x_vals)
|
|
|
|
cond(x, :) = sheet_conductivity(x_vals(x), % omega (rads-1)
|
|
|
|
fermi_from_carrier_density(2.2e17, ev_to_j(2.8)), % fermi_level (J)
|
|
|
|
300, % temp (K)
|
|
|
|
0.135e-12); % scatter_lifetime (s-1)
|
2021-03-09 10:42:13 +00:00
|
|
|
end
|
2021-02-23 10:30:12 +00:00
|
|
|
|
|
|
|
if DISPLAY_HZ % divide radians back to hertz
|
|
|
|
x_vals = x_vals ./ (2*pi);
|
|
|
|
end
|
|
|
|
|
2021-03-22 17:51:55 +00:00
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
%% RENDER
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
2021-03-09 10:42:13 +00:00
|
|
|
figure(1);
|
2021-03-15 07:02:45 +00:00
|
|
|
hold on;
|
2021-03-09 10:42:13 +00:00
|
|
|
%plot(x_vals, real(cond));
|
2021-03-22 17:51:55 +00:00
|
|
|
if EXCITATION_TYPE == 'intra'
|
|
|
|
semilogx(x_vals, real(cond(:, 1)));
|
|
|
|
semilogx(x_vals, imag(cond(:, 1)));
|
|
|
|
elseif EXCITATION_TYPE == 'inter'
|
|
|
|
semilogx(x_vals, real(cond(:, 2)));
|
|
|
|
semilogx(x_vals, imag(cond(:, 2)));
|
|
|
|
else
|
|
|
|
semilogx(x_vals, real(sum(cond, 2)));
|
|
|
|
semilogx(x_vals, imag(sum(cond, 2)));
|
|
|
|
end
|
2021-02-23 10:30:12 +00:00
|
|
|
|
2021-03-15 07:02:45 +00:00
|
|
|
legend('Real', 'Imaginary');
|
|
|
|
grid;
|
|
|
|
title('2D Sheet Conductivity');
|
2021-02-23 10:30:12 +00:00
|
|
|
ylabel('Conductivity (S/m)');
|
|
|
|
if DISPLAY_HZ
|
|
|
|
xlabel('Frequency (Hz)');
|
|
|
|
else
|
|
|
|
xlabel('Frequency (rads-1)');
|
|
|
|
end
|