一維光子晶體帶隙中的介質(zhì)色散畢業(yè)論文-資料下載頁
2025-06-28 02:37本頁面
【正文】 oannopoulos, and E. L. Thomas. A. Dielectric omnidirectional reflector[J]. Science 282(1998)1679.[5] Yablonovitch . Spontaneous emission in solidstate physics and electronics[J]. Phys Rve Lett. 1987, 58(20): 2059~2061.[6] Quang T,Woldeyohannes M,John S. Coherent control of spontaneous emission near a photonic band edge: a singleatom optical memory[J]. Phys Rve Lett,1997，79(26):5238~5241.[7] Woldeyohannes M, John control of spontaneous emission near a photonic band edge : a qubit for quantum putation[J]. Phys Rev(A), 1999, 60(6): 5046~5068.[8] Charlton, M. D. B., Zoorob, M. E. and Parker, G. J. Theory amp。 Modeling of waveguides in PBG structures 8th international workshop on optical waveguide theory amp。 numerical modeling[J]. Prague, Phys. Worl. 13(2000).[9] M Born, E Wolf. 光學(xué)原理[M]. 1978 Beijing: Science Press.[10] Nianhua Liu, ShiYao, Zhu, Hong Chen, and Xiang Wu, Superluminal pulse propagation through onedimensional photonic crystals with a dispersive defect[J]. Phys. Rev. E 65, 046607 (2002).[11]于天寶，劉念華。光脈沖通過含有色散與增益型缺陷的一維光子晶體的傳播[J]. 物理學(xué)報,2004,53:3049~05.[12] David J. Griffith. Introduction to electrodynamics[M]. PrenticeHall, Inc. 3ed. (1999).[13]蔣美萍，江興方，沈小明，等。一維光子晶體的偏振特性研究。量子電子學(xué)報，2005，22(4)：612~616.[14] 安麗萍，劉念華。光子晶體中缺陷的色散導(dǎo)致的群速度的降低[J]. 光學(xué)學(xué)報，2003，23(11)：1287~1290.附 錄1DPC含有雙吸收線原子色散介質(zhì)的缺陷的透射譜及有效折射率include include include include define PI void get_M(plex m[],double w,plex n,double d)。 void equal_M(plex a[],plex b[])。 void product_M(plex c[],plex a[],plex b[])。main(){double n1=。double n2=。double d1=。double d2=。double d3=。plex m1[4],m2[4],mt[4],x[4],m12[4]。plex m3[4]。double w0=*PI。double min=。double max=*w0。double w。double num_w=。double dw=(maxmin)/num_w。double n_p=。double deta=*w0。double M=*w0。double r=*w0。plex t。double L。double T。double *Phase。double *nr。double ng。double ni。Phase=new double[num_w+1]。nr=new double[num_w+1]。L=(d1+d2)*n_p+2*d1+d3。FILE *fp。if((fp=fopen(,w))==NULL)printf(cannot open file.)。for(int i=0。i=num_w。i++){ w=min+i*dw。 get_M(m1,w,n1,d1)。 get_M(m2,w,n2,d2)。 product_M(m12,m1,m2)。 equal_M(x,m12)。 for(int j=1。j=(n_p/21)。j++){ equal_M(mt,x)。 product_M(x,mt,m12)。 } plex X。 X=M/plex(ww0deta,r)+M/plex(ww0+deta,r)。 plex e。 e=n2*n2+X。 plex n3。 n3=sqrt(e)。 get_M(m3,w,n3,d3)。 equal_M(mt,x)。 product_M(x,mt,m1)。 equal_M(mt,x)。 product_M(x,mt,m3)。 for(int m=1。m=(n_p/21)。m++){ equal_M(mt,x)。 product_M(x,mt,m12)。 } equal_M(mt,x)。 product_M(x,mt,m1)。 double z1,z2。 plex z。 z1=real(x[3])+real(x[0])*n2+imag(x[1])*n2imag(x[2])。 z2=real(x[2])real(x[1])*n2+imag(x[3])+imag(x[0])*n2。 t=(z1,z2)。 T=norm(t)。 Phase[i]=arg(t)。 while(fabs(Phase[i]Phase[i1])PI) { if((Phase[i]Phase[i1])PI) Phase[i]=2*PI。else Phase[i]+=2*PI。 } nr[i]=Phase[i]/(L*w)。 ng=nr[i]+w*(nr[i]nr[i1])/dw。 ni=log(T)/(2*L*w)。 fprintf(fp,%\t%\t%\t%\t%\n,w/w0,T,nr[i],ni,ng)。 }fclose(fp)。delete Phase。delete nr。getchar()。}void get_M(plex m[],double w,plex n,double d){plex p。p=w*n*d。m[0]=cos(p)。m[1]=sin(p)/n。m[2]=n*sin(p)。m[3]=cos(p)。}void equal_M(plex a[],plex b[]){a[0]=b[0]。a[1]=b[1]。a[2]=b[2]。a[3]=b[3]。}void product_M(plex c[],plex a[],plex b[]){c[0]=a[0]*b[0]+ a[1]*b[2]。c[1]=a[0]*b[1]+ a[1]*b[3]。c[2]=a[2]*b[0]+ a[3]*b[2]。c[3]=a[2]*b[1]+ a[3]*b[3]。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1