SetDirectory[NotebookDirectory[]];

转角石墨烯

n=1197;(*原子点数*)
distance=31+1/2;
range=Range[n];
x=Mod[range,distance] 2/Sqrt[3.];(*x方向坐标----->列*)
y=Quotient[range,distance];(*y方向坐标--->行*)
allMeshPoints=Drop[Transpose[{x,y}],{3,-1,3}];
disks=Map[Disk[#1,0.35]&,allMeshPoints];
Manipulate[Graphics[{EdgeForm[Black],Lighter@Lighter@Blue,disks,Lighter@Red,Translate[Rotate[disks,angle],{dx,dy}]}],{{dx,0.055},0,0.3,0.001},{{dy,-0.053},-0.2,0,0.001},{{angle,-0.4839},-1,1,0.001}]

position[x_,y_]:=x{((Sqrt[3])/2),(3/2)}+y{((-(Sqrt[3]))/2),(3/2)}
nx=30;ny=30;
latticeCoor=Flatten[Table[position[x,y],{x,1,nx},{y,1,ny}],1];
lattice=Disk[#,0.35]&/@latticeCoor;
p1=Graphics[{EdgeForm[Black],Lighter@Lighter@Blue,lattice,Lighter@Red,Translate[Rotate[lattice,1.1],{0,0}]}]
Export["morie.jpg",p1];
Manipulate[Graphics[{EdgeForm[Black],Lighter@Lighter@Blue,lattice,Lighter@Red,Translate[Rotate[lattice,angle],{dx,dy}]}],{{dx,0.055},0,0.3,0.001},{{dy,-0.053},-0.2,0,0.001},{{angle,-0.4839},-1,1,0.001}]

g[x_,y_]:=Point[Table[{Cos[2Pi k/6]+x,Sin[2Pi k/6]+y},{k,6}]]
xn=10;yn=40;
Manipulate[Graphics[{{PointSize[Large],Purple,Table[g[3i+3((-1)^j+1)/4,Sqrt[3]/2j],{i,xn},{j,yn}]},{PointSize[Large],Lighter@Blue,Rotate[Table[g[3i+3((-1)^j+1)/4,Sqrt[3]/2j],{i,xn},{j,yn}],n Degree]}},ImageSize->Large],{n,0,180,1}]

转角四方点阵

position[x_,y_]:=x{1,0}+y{0,1}
nx=30;ny=30;
latticeCoor=Flatten[Table[position[x,y],{x,1,nx},{y,1,ny}],1];
lattice=Disk[#,0.35]&/@latticeCoor;
p1=Graphics[{EdgeForm[Black],Lighter@Lighter@Blue,lattice,Lighter@Red,Translate[Rotate[lattice,1.1],{0,0}]}]
Manipulate[Graphics[{EdgeForm[Black],Lighter@Lighter@Blue,lattice,Lighter@Red,Translate[Rotate[lattice,angle],{dx,dy}]}],{{dx,0.055},0,0.3,0.001},{{dy,-0.053},-0.2,0,0.001},{{angle,-0.4839},-1,1,0.001}]