WIP

Classes/Fiber.m

@@ -3,6 +3,7 @@ classdef Fiber
     %   Detailed explanation goes here
 
     properties
+        fsimu
         fiber_length
         alpha
         D
@@ -10,6 +11,11 @@ classdef Fiber
         lambda0
         gamma
         dphimax
+
+        b2
+        b3
+        alpha_lin
+        linstep
     end
 
     methods
@@ -17,6 +23,7 @@ classdef Fiber
             %FIBER Construct an instance of this class
             %   Detailed explanation goes here
             arguments
+                options.fsimu 
                 options.fiber_length = 0
                 options.alpha = 0.2
                 options.D = 17
@@ -26,13 +33,21 @@ classdef Fiber
                 options.dphimax = 5e-3
             end
 
-            obj.fiber_length = options.fiber_length*1000; %km
-            obj.alpha = options.alpha;
-            obj.D =options.D*1e-6;
-            obj.Dslope =options.Dslope;
-            obj.lambda0 =options.lambda0;
-            obj.gamma =options.gamma;
-            obj.dphimax =options.dphimax;
+            obj.fsimu           = options.fsimu;
+            obj.fiber_length    = options.fiber_length*1000; %km
+            obj.alpha           = options.alpha;
+            obj.D               = options.D*1e-6;
+            obj.Dslope          = options.Dslope*1e3;
+            obj.lambda0         = options.lambda0*1e-9;
+            obj.gamma           = options.gamma;
+            obj.dphimax         = options.dphimax;
+
+            obj.b2 = -obj.D*obj.lambda0^2/(2*pi*Constant.LightSpeed);
+            obj.b3 = ((obj.lambda0.^2/(2*pi*Constant.LightSpeed)).^2*obj.Dslope);
+            obj.alpha_lin = obj.alpha/10*log(10)/1000;
+
+
+
 
         end
 
@@ -40,12 +55,108 @@ classdef Fiber
             %METHOD1 Summary of this method goes here
             %   Detailed explanation goes here
 
+            N = length(opt_in);
+            faxis = linspace(-obj.fsimu/2,obj.fsimu/2,N+1);
+            faxis = ifftshift(faxis(:,1:end-1));
+            faxis = faxis';
+
+            obj.linstep = -obj.alpha_lin/2 - 2*1j*pi^2*obj.b2*faxis.^2 - 4/3*1j*pi^3*obj.b3*faxis.^3;
+
+     
+            opt_out = obj.NLSE(opt_in);
+
             %attenuate nase
 
+        end
+
+        function [yout] = NLSE(obj, xin)
+
+            maxPow = obj.gamma.*max(abs(xin).^2);
+
+            Leff = obj.dphimax / maxPow ;
+
+            dz = Leff;
+
+            z_prop = 0;
+
+            yout = fft(xin);
+
+            yout = ((yout).*exp(obj.linstep*dz/2));
+
+            while true
+
+                yout = ifft(yout);
+
+                Leff = dz;
+
+                power = abs(yout).^2;
+                Hnl = exp( -1j*obj.gamma*power*Leff);
+                yout = yout .* Hnl;
+
+                z_prop = z_prop + dz;
+
+                maxPow = obj.gamma*max(abs(yout).^2);
+                Leff = obj.dphimax/maxPow; 
+
+                dz_new = Leff;
+
+                if z_prop + dz_new > obj.fiber_length
+                    dz_new = obj.fiber_length - z_prop;
+                    break
+                end
+
+                yout = fft(yout);
+
+                yout = ((yout).*exp(obj.linstep*(dz/2+dz_new/2)));
+
+                dz = dz_new;
+
+            end
+
+            yout = fft(yout);
+
+            yout = ((yout).*exp(obj.linstep*(dz/2+dz_new/2)));
+
+            yout = ifft(yout);
+
+            Leff = dz;
+
+            power = abs(yout).^2;
+
+            Hnl = exp( -1j*obj.gamma*power*Leff);
+
+            yout = yout .* Hnl;
+
+            yout = fft(yout);
+
+            yout = ((yout).*exp(obj.linstep*(dz/2)));
+
+            yout = ifft(yout);
 
 
+        end
+
+        function yout = process_nonlinstep(xin,stepsize)
+
+        end
+
+        function yout = process_linstep(xin,stepsize)
 
         end
     end
 end
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+