Added presentation; DE-QPSK; CD with FFT; split-step Fourier

[4yp.git] / chromaticDispersionTest.m

diff --git a/chromaticDispersionTest.m b/chromaticDispersionTest.m
index 81af8b1..513738f 100644 (file)
--- a/chromaticDispersionTest.m
+++ b/chromaticDispersionTest.m
@@ -7,17 +7,29 @@ x = 10 * normpdf(1:30, 10, 3);
 
 xCD = chromaticDispersion(x, 20, 1550, 30, Tsamp);
 
-figure(1);
-subplot(211);
+figure(10001);
+subplot(121);
 plot(abs(x) .^ 2);
 axis([0 30 -Inf Inf]);
 title('Before dispersion');
 ylabel('Power (arb. unit)');
-subplot(212);
+xlabel('Time (arb. unit)');
+subplot(122);
 plot(abs(xCD) .^ 2)
 axis([20 50 -Inf Inf]);
 title('After dispersion');
-xlabel('Time (arb. unit)');
-ylabel('Power (arb. unit)');
+xlabel('Time (arb.~unit)');
+ylabel('Power (arb.~unit)');
+
+subplot(121);
+formatFigure;
+subplot(122)
+formatFigure;
+set(figure(10001), 'Units', 'centimeters', ...
+    'Position', [0 0 24 8], 'PaperPositionMode', 'auto');
+subplot(121);
+set(gca, 'XTick', 0:5:30);
+subplot(122);
+set(gca, 'XTick', 20:5:50);
 
 %saveas(gcf, 'dispersionTest.png');