Can not mesh extreme long cylinder with a small radius
Dear experts
I want to mesh some wires with 1400 [mm] long and 0.0125 [mm] radius. When the 2D mesh started it gives the error: "Identical points in triangulation: increase element size or Mesh.RandomFactor". How can I solve this problem? Also I have another question, since I want to mesh 10k wires so is there a way to mesh just 1 of them then copy for the rest? Code:
SetFactory("OpenCASCADE");
Mesh.MeshSizeFromCurvature = 10;
Cylinder(1) = {0,0,0,0,0,1400,0.0125};
Cylinder(2) = {-8.4,-8,0,0,0,1400,0.063};
Cylinder(3) = {-8.4,0,0,0,0,1400,0.063};
Cylinder(4) = {-8.4,8,0,0,0,1400,0.063};
Cylinder(5) = {0,-8,0,0,0,1400,0.063};
Cylinder(6) = {0,8,0,0,0,1400,0.063};
Cylinder(7) = {8.4,-8,0,0,0,1400,0.063};
Cylinder(8) = {8.4,0,0,0,0,1400,0.063};
Cylinder(9) = {8.4,8,0,0,0,1400,0.063};
Cylinder(10) = {0,0,-50,0,0,1500,20};
Coherence;
Physical Volume("wire1", 30001) = {1};
Physical Volume("wire2", 30002) = {2};
Physical Volume("wire3", 30003) = {3};
Physical Volume("wire4", 30004) = {4};
Physical Volume("wire5", 30005) = {5};
Physical Volume("wire6", 30006) = {6};
Physical Volume("wire7", 30007) = {7};
Physical Volume("wire8", 30008) = {8};
Physical Volume("wire9", 30009) = {9};
Physical Volume("infinity", 30010) = {10};
Physical Surface("wire1boundary", 20001) = {1};
Physical Surface("wire2boundary", 20002) = {4};
Physical Surface("wire3boundary", 20003) = {7};
Physical Surface("wire4boundary", 20004) = {10};
Physical Surface("wire5boundary", 20005) = {13};
Physical Surface("wire6boundary", 20006) = {16};
Physical Surface("wire7boundary", 20007) = {19};
Physical Surface("wire8boundary", 20008) = {22};
Physical Surface("wire9boundary", 20009) = {25};
Physical Surface("infinity1", 20010) = {28};
Physical Surface("infinity2", 20011) = {29};
Physical Surface("infinity3", 20012) = {30};