l_amplify - filters the field through a laser medium.

Calling Sequence

[field_out]=l_amplify(field_in, gain, base, i_sat)

Parameters

• field_in :input field. it must be diffractive wavefront.
• gain : the gain value G0
• base : the length L, must be positive.
• i_sat : the saturation intensity of the medium Isat. must be positive,
• field_out : the output field or diffractive wavefront.

Description

multiply below expression to the intensity and phase of the input field:

The l_amplif introduces a simple single-layer model of a laser amplifier. It is useful for modeling of amplifiers and lasers with active medium amplifier

Examples

	m=1;nm=1e-9*m;mm=1e-3*m;cm=1e-2*m;
	lambda=1000*nm;	sz=30*mm; N=100;R=5*mm;
	
	Field=begin(sz,lambda,N);
	Field=gauss(Field,R);
	in=field_int(Field);
	
	gain=3/m;i_sat=0.1;base=100*cm;

	Field=l_amplify(Field,gain,base,i_sat);
	out=field_int(Field);
	
	xbasc();drawlater();
	subplot(1,2,1);surf(in);
	subplot(1,2,2);surf(out);	
	drawnow();
 

Author

Chen jingyuan, Gan guangyong (IAPCM, Beijing,China.)

See Also

absorber ,