Matlab code for transmission coefficient of 2D photonic crystals

I need matlab code for calculating transmission coefficient of 2D photonic crystals with FDTD or TMM method
please help me.