(*Parametersforthetwocylindersformeshing*)radiusInnen=1.5*10^-3;radiusAußen=100*10^-3;height=30*10^-3;zylinderInnen=Cylinder[{{0,0,0},{0,0,height}},radiusInnen];zylinderAußen=Cylinder[{{0,0,0},{0,0,height}},radiusAußen];mantelVolumen=RegionDifference[zylinderAußen,zylinderInnen];(*Unionofthetwocylindergeometries*)gesamtVolumen=RegionUnion[zylinderInnen,mantelVolumen];(*Createthevolumemeshwithdifferentresolutionforbothsubvolumes*)mesh=ToElementMesh[gesamtVolumen,MeshRefinementFunctionFunction[{vertices,area},Module[{mittelpunkt=Norm[Mean[vertices]]},If[mittelpunkt<radiusInnen,True,(*Finerefinementintheinnercylinder*)False(*Norefinementorcoarserrefinementintheoutercylinder*)]]],MaxCellMeasure0.00000015];